| 查看: 603 | 回复: 2 | |||
yhwsmile金虫 (小有名气)
|
[交流]
【求助】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 ] |
回复此楼» 猜你喜欢
职称评审没过，求安慰
已经有14人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有15人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
EST投稿状态问题
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
垃圾破二本职称评审标准
已经有10人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
三无产品还有机会吗
已经有6人回复
-
谈谈两天一夜的“延安行”
已经有13人回复
ykwang
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3171.7
- 红花: 1
- 帖子: 639
- 在线: 386.4小时
- 虫号: 500302
- 注册: 2008-02-13
- 专业: 理论和计算化学
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-10 18:32:17
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助 2010-11-10 18:32:17
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
★
nono2009(金币+1):谢谢分享经验 2010-11-10 18:32:56
nono2009(金币+1):谢谢分享经验 2010-11-10 18:32:56