新手建议每个程序单元（包括子程序）写上 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 在整个程序最初的地方

给出你的代码