作者sjgau (sjgau)
看板Fortran
标题Re: [问题] 如何输出连续的档名?
时间Mon Sep 15 17:45:30 2008
以下程式,测试 OK
program VF0910
implicit none
integer i
character(len=20):: string
do i=1, 16
write(unit= string, fmt= "(I2, A4)")i, '.DAT'
if (string(1:1) .EQ. ' ') then
string(1:1)= '0'
end if
open(unit= 1, file= string)
write(1, fmt= '(1x, 3I12)')i, i*i, i*i*i
close(1)
end do
end
※ 引述《kobenein (哈哈哈)》之铭言:
: 例如回圈从1跑到16
: 每跑一次就产生一个档案
: 从 01.dat ~ 16.dat
: 谢谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.4.235
1F:→ DrStein:简单讲,技巧就是用write来写档名 09/16 01:38
2F:→ blc:fmt="(I2.2, A4)" I2.2在整数少於两位时会补0 09/16 01:40
3F:推 kobenein:多谢 不过我向了解的更仔细 要看书的哪一部分 09/17 00:19
4F:→ noway501:write, format, open 09/17 08:56