作者latinboy (昵称)
看板Fortran
标题Re: [问题] 如何输出连续的档名？
时间Sun Sep 14 23:23:47 2008
※ 引述《kobenein (哈哈哈)》之铭言：
: 例如回圈从1跑到16
: 每跑一次就产生一个档案
: 从 01.dat ~ 16.dat
: 谢谢！
program filenameList
implicit none
integer i
character*8 filename
do i = 1, 16
write( unit = filename, * ) i, ".txt"
open( unit = 1, file = filename )
close( 1 )
end do
end
随手打打 不一定能跑 囧
重点就是把档名字串当成输出位置 用write写入
怎麽补0...？ 自己玩
--
当我要追你时，我会送你 x=sintsin(8t) y=cos(t)sin(8t)，让你天天开心。
当我们相爱时，我将把我的 x=cost|sin(t/2)| y=sint|sin(t/2)| 给你，爱你一辈子。
但，
当我们分手时，我也会衷心的送一片
x=sint|sin2t||sin4t| y=cost|sin4t||sin4t| 给我曾经爱过的你……
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.120.19