|
新手建议每个程序单元(包括子程序)写上 implicit none 字符串需要定义。 character(len=12) :: cFilename 定义需要写在使用它的程序单元里。不同程序单元之间,变量命名是独立的。 |
|
[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 在整个程序最初的地方 |
| 给出你的代码 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2026-1-10 10:05