Fortran Coder

标题: 输出多个文件 [打印本页]

作者: dengdengmmm7 时间: 2024-11-25 10:45
标题: 输出多个文件
下面这行代码，应该生成10个文件，但是实际允许了10次，只生成了一个文件，怎么改呀subroutine output

[Fortran] 纯文本查看 复制代码

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
原因刚刚找到了，没有把it设置成全局变量

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)