感谢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'