作者mouseforlove (我是瓜呆)
看板Fortran
标题Re: [请益] FORTRAN读档案的问题
时间Mon May 7 17:24:11 2012
感谢terryys
如果希望档名是test_0001-test_0010的格式，下面的code可改为
do i=1,10
write(iname,'(a5,i0.4)') 'test_',i
enddo
这样就不需要判别式了!
我在处理类似test_01-test20档名的部分，会在回圈里面多加判别式
do i=1,20
if (i.lt.10) then
write(iname,'(a6,i1)') 'test_0',i
elseif (i.ge.10.and.i.lt.100) then
write(iname,'(a5,i2)') 'test_',i
endif
enddo
虽然这样写不是很聪明，不过处理数量少的资料还是可以参考一下
另外
: write(inputname,"(a5,i6)")'test_',000000+i
:C 请问大家，我这一行有写错吗？
这个部分出在000000+i，如果i=5计算结果会是5，而不是000005，
inputname会变成'test_ 5'
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.36.198
※ 编辑: mouseforlove 来自: 140.115.36.198 (05/07 17:24)
※ 编辑: mouseforlove 来自: 140.115.36.198 (05/07 17:27)
1F：→ terryys:这个情况下format用i0或者i0.X会比较简单 05/07 17:27
※ 编辑: mouseforlove 来自: 140.115.36.198 (05/07 17:36)