| 查看: 598 | 回复: 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 ] |
回复此楼» 猜你喜欢
投稿返修后收到这样的回复，还有希望吗
已经有7人回复
-
压汞仪和BET测气凝胶孔隙率
已经有4人回复
-
博士申请都是内定的吗？
已经有14人回复
-
博士申请
已经有3人回复
-
谈谈两天一夜的“延安行”
已经有13人回复
-
氨基封端PDMS和HDI反应快速固化
已经有11人回复
-
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？
已经有11人回复
-
论文投稿求助
已经有4人回复
-
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛
已经有3人回复
-
投稿精细化工
已经有6人回复
yhwsmile
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1053.8
- 帖子: 160
- 在线: 16.2小时
- 虫号: 620196
- 注册: 2008-10-08
- 性别: GG
- 专业: 大气环境与全球气候变化
3楼2010-11-08 19:07:34
ykwang
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3171.7
- 红花: 1
- 帖子: 639
- 在线: 386.4小时
- 虫号: 500302
- 注册: 2008-02-13
- 专业: 理论和计算化学
2楼2010-11-08 18:43:42