fortran 中eof函数的使用

晓文闯天下

程序：
program diamond2
implicit none
real,parameter :: PI=3.1415926
character*8 stid
real lon,lat,elev,temp,hgt,t,td,wd,ws,u,v
real tim
integer nlev,flag
open(1,file='high\plot\850\14083102.000',status='old')

tim=0.0
nlev=1
flag=1
open(2,file='hgt_850_14083102.dat',form='binary')

read(1,*)
read(1,*)
do while(.not.eof(1))
read(1,*) stid,lon,lat,elev,temp,hgt,t,td,wd,ws
if (wd==9999.or.ws==9999)then
u=9999
v=9999
else
u=ws*sin(wd*PI/180.0-PI)
v=ws*cos(wd*PI/180.0-PI)
endif
write(2) stid,lat,lon,tim,nlev,flag,elev,hgt,t,td,u,v
enddo
close(1)

nlev=0
write(2) stid,lat,lon,tim,nlev,flag
close(2)
end


问题：PGF90-S-0121-Operation requires logical or integer data types (read_diamond2.f90: 17)
问题：PGF90-S-0038-Symbol, eof, has not been explicitly declared (read_diamond2.f90)

robin_ouc

我用过一次，也没整明白。
后来用的iostat这个参数，在read语句里，可以判断文件是否读完

晓文闯天下

robin_ouc 发表于 2016-3-28 08:09
我用过一次，也没整明白。
后来用的iostat这个参数，在read语句里，可以判断文件是否读完

谢谢，麻烦了