[Fortran] 纯文本查看 复制代码 ENTRY OUTPUT
a0=float(iter)/10000.
C0=float(iter)/1000000.
b0=int(a0)
if(abs(a0-b0).le.1.D-08) then
WRITE(*,*)' ITER=',ITER
write( cFilename , '(i05.5,a4)' ) c0, '.txt'
Open ( 13 , File = trim( cFilename ) )
do 420 k=1,Nz
write(13,*)Z(k),H(k),c0
420 continue
Close( 13 )
write(12,*)'ITER=',ITER
CALL PRINT
endif
这是代码其中的一部分,求助大大帮帮忙
还有一句,character(9) :: cFilename 在整个程序最初的地方
|