write(xname, '(A, I8, A)') 'data1/t=',itimestep,'step_xv.dat'
write(sname, '(A, I8, A)') 'data/zs',itimestep,'step_state.dat'
write(oname, '(A, I8, A)') 'data/zs',itimestep,'step_other.dat'
open (1,file=xname)
open (2,file=sname)
open (3,file=oname)
QQ图片20160919195757.png (26.24 KB, 下载次数: 229)
结果
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |