dengdengmmm7 发表于 2024-11-25 10:45:14

输出多个文件

下面这行代码,应该生成10个文件,但是实际允许了10次,只生成了一个文件,怎么改呀subroutine output
include 'Global_variables.f90'
integer ix

character*30 fileppr
fileppr ='pro_xxxxxxxxx.dat'
write(fileppr(5:13),90000)it
open(19,file=fileppr,status='unknown')
write(19,*) 'TITLE="Macro quatities"'
write(19,*) 'VARIABLES="x","rho","Ux","T","P"'
do ix=1,NX
    write(19,260) ix*dx,rho1(ix),ux(ix),Theta1(ix),PP1(ix)
end do
close(19)

260   format(5(5x,f25.15))
90000   format(i9.9)

return
end subroutine output





dengdengmmm7 发表于 2024-11-25 10:53:49

原因刚刚找到了,没有把it设置成全局变量{:4_90:}
页: [1]
查看完整版本: 输出多个文件