[交流] 【求助】fortan打开文件，若文件不存在怎么让其执行下个循环啊【已完结】 已有2人参与

下面是程序的一小段，station为站点文件，我要读取各个站点温度数据（输入数据open(9,file='inputdata\'//wsta//'td'//'.txt')），现在某些站点的数据文件不存在，我想实现若站点数据文件不存在，则执行下一个循环……   现在我这个程序是一遇到数据文件不存在，就出错跳出程序~~~ 谢谢咯~~~ open(8,file='station.txt')              kkh=0        do 100 kk=1,ms         read(8,*,end=888) kst(kk),gd(kk),wd(kk)         ist=kst(kk)         do ii=1,366         CALL DAY(ii,wd(kk),DECD,spe(ii))         enddo 100        continue 888        kks=kk-1        do 998 kkk=1,kks ist=kst(kkk) lat=wd(kkk) write(wsta,'(i5)') ist c输入数据 open(9,file='inputdata\'//wsta//'td'//'.txt') c输出：23 蒸散量   open(23,file='outputdata\'//wsta//'rs'//'.txt') station文件： 站点数据文件： [ Last edited by nono2009 on 2010-11-10 at 18:32 ]

回复此楼