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
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |