在确定循环读取文本时，循环指定的读取文本数量与实际文本一致时，运行却出现了end...

扶桑大红花

从nc资料中读取，输出某变量的部分程序如下

    do n=1,60

    filename=list(n)

    print*, filename

   

    call rdhursat(filename,IRdata)

open(4, file='D:\HURSAT\ BANYAN\2005\irwin.grd')

    do i=1,301

        do j=1,301

    IR(i,j,n)=IRdata(i,j)

        enddo

    end d0

   

    do j=1,301

write(4,*) (IR(i,j,n), i=1,301)

    enddo

    end do

close(4)

   

在另外一程序中读取irwin.grd资料时部分程序

open(10, file='D:\HURSAT\BANYAN\2005\irwin.grd')

    do m=1,60                       

          do b=1,301

               do a=1,301

                read(10,*) IR(a,b,m)   

              end do

          end do

end do

river

你的资料是位二进制文件好吧，二进制文件怎么会那么读呢read(10,*) IR(a,b,m)  

扶桑大红花

river 发表于 2016-4-30 07:45
你的资料是位二进制文件好吧，二进制文件怎么会那么读呢read(10,*) IR(a,b,m)

哦哦，是哦，谢谢啦