end=999，什么意思呢？

daqidongq

read(1,*,end=999)

言深深

这个是很常见的一种写法，读取文件的行数，以及里面的文件。
一般而言，fortran是顺序读取的，读取结束之后到达最底部，这时候想要读取文件就必须重新回到文件的顶端重新来一次。就用到语句 rewind，表示重新从这个文件的第一行开始。
那么，rewind上面的部分就是读取文件行数，即read到此为止，值得读到最后一行，结束循环得到文件行数；然后执行rewind以后的语句。

lone0212

資料1讀取完時，執行999那一行

daqidongq

lone0212 发表于 2015-7-10 19:49
資料1讀取完時，執行999那一行

program data_extraction
implicit none
character *4 nian
integer,parameter::yr1=1951,yr2=2013
integer station,p1,p2,p3,year,num,i,nline,j
open(2,file='E:\SURF_CLI_CHN-WEP-SNOW\datasets\SNOW\YER\SURF_CLI_CHN_YER-SNOWMAX-54401.TXT')
do i=yr1,yr2
write(nian,'(i4)') i
open(1,file='E:\SURF_CLI_CHN-WEP-SNOW\datasets\SNOW\YER\SURF_CLI_CHN_YER-SNOWMAX-'//nian//'.TXT')
nline=0
do while(.true.)
read(1,*,end=999)
nline=nline+1
end do
999 rewind(1)
do j=1,nline
read(1,*) station,p1,p2,p3,year,num
do while(station==54401)
write(2,*) station,p1,p2,p3,year,num
write(*,*) station,p1,p2,p3,year,num
end do
end do
end do
close(1)
close(2)
end
这是完整的，帮忙看看