输出多个文件

dengdengmmm7

下面这行代码，应该生成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

原因刚刚找到了，没有把it设置成全局变量