fortran 批量处理文件

渣渣顼

do it =1,24
      write(fname,'(I6)')it   
          filename_input=trim(path_out)//trim(AdjustL(fname))//'.grd'     
      print *,filename_input

             !-----------open files---------------------------------------
              open(10,file=filename_input,form='binary')
               do j=1,440
                    do i=1,700
                       read(10) cn_rain(it,i,j)
             print *,cn_rain(it,i,j)
                           end do
                   end do
                  close(10)
  enddo
但是会报错
G:\cygwin\home\administrator\GWres36\rain\rain_obs\data\ts_num\1.grd

forrtl: severe (29): file not found, unit 200, file c:\users\administrator\documents\visual studio 2012\Projects\Console14\Console14\fort.200
Image              PC        Routine            Line        Source
Console14.exe      00E5154C  _MAIN__                    35  Source1.f90
Console14.exe      00E53912  Unknown               Unknown  Unknown
Console14.exe      00E51CF9  Unknown               Unknown  Unknown
Console14.exe      00E51E3D  Unknown               Unknown  Unknown
KERNEL32.DLL       77586359  Unknown               Unknown  Unknown
ntdll.dll          77737B74  Unknown               Unknown  Unknown
ntdll.dll          77737B44  Unknown               Unknown  Unknown
麻烦各位前辈指点。

kermit

由于不知道你啥文件，所以没法帮你debug
不过建议你换gfortran