24小时热门版块排行榜    

CyRhmU.jpeg
南方科技大学公共卫生及应急管理学院2025级博士研究生招生报考通知
查看: 1646  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

atachengqi

新虫 (初入文坛)

[求助] fortran连续读取文件,文件名的问题已有2人参与

从模型计算得出一系列的文件,(例如CC_001,CC_002.......CC_079)
如果要编写语言来依次读取这些文件,文件名这个问题应该怎么解决? (主要是前面那个0啊,一个一个都去掉0也不太现实)

谢谢各位大神了!!!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

atachengqi

新虫 (初入文坛)

引用回帖:
4楼: Originally posted by slx345335197 at 2016-03-12 22:20:03
N=51
N1=MOD(N,100)
N2=MOD(N,10)
N3=MOD(N,1)

DO I=1,99
OPEN(unit=11,file='CC_'//N1//N2//N3)
CLOSE(11)
END DO

谢谢,我想问一下,mod是求余数的运算吧,那N1,N2,N3是如何变化的?
6楼2016-03-14 11:03:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

atachengqi

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by 7152075 at 2016-03-12 22:05:50
利用内部文件可以实现,我把代码粘贴给你,这个代码要实现的功能就是读取CC_001~CC_005.txt所有文件,并把读取内容放入result.txt中,你参考此代码去修改。(PS:代码运行开始输入文件有多少个,然后自动出结果)
  ...

谢谢,不好意思,能问一下 Write( string,"( 'CC_',i3.3 )" ) i 这句话的意思么
7楼2016-03-14 11:05:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 atachengqi 的主题更新
信息提示
请填处理意见