[文件读写] 关于使用OPEN的遇到读写问题

program $

    implicit none

    double precision a(30),b(30),c(30),d(30) !dimensions of coils: m
      common /coils/a,b,c,d
      double precision e(30)
        common /e/e
    integer ncoil
    integer icoil
   ! character unit
    common /nc/ncoil

    open(1,file='1.txt',status='old')
    read(1,*) ncoil
    !read(1,*) unit
    do icoil=1,ncoil !get the dimensions of each coil
         read(1,*)c(icoil),d(icoil),b(icoil),a(icoil),e(icoil)
        end do
    close(1)
    pause
    end program $