fortran77循环出错

weety9394

目的：想把v4，v5，v6的所有三维数据输出到txt中

循环部分：                  v4=0.
      v5=0.
      v6=0.

      open(unit=81,file='cut-vx.txt')
      open(unit=82,file='cut-vy.txt')
      open(unit=83,file='cut-vz.txt')

      do 20 k=2,kxm1
      do 20 j=2,jxm1
      do 20 i=2,ixm1

      v4=vxh00(i,j,k)
      v5=vy0h0(i,j,k)
      v6=vz00h(i,j,k)

      write(81,*)'i,j,k',i,j,k
      write(81,81)nstep,time,v4
81  format('n,t,v4',i12,e16.8,3e13.6)

c     write(82,*)'i,j,k',i,j,k
      write(82,82)nstep,time,v5
82  format('n,t,v5',i12,e16.8,3e13.6)

c     write(83,*)'i,j,k',i,j,k
      write(83,83)nstep,time,v6
83  format('n,t,v6',i12,e16.8,3e13.6)

      20 continue



报错：
tun1.f-cut2.f(473): error #5082: Syntax error, found INTEGER_CONSTANT '20' when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM MODULE TYPE INTEGER REAL ...
      20 continue
------^
tun1.f-cut2.f(473): error #6236: A specification statement cannot appear in the executable section.
      20 continue
------^
tun1.f-cut2.f(453): error #6321: An unterminated block exists.
      do 20 i=2,ixm1
^
tun1.f-cut2.f(452): error #6321: An unterminated block exists.
      do 20 j=13,14
^
tun1.f-cut2.f(451): error #6321: An unterminated block exists.
      do 20 k=2,kxm1
^
tun1.f-cut2.f(451): error #6323: This label is not defined in this scoping unit.   [20]

kermit

20作为语句标号，应该写在第1-6列，第7列开始是程序。
f77的格式特别坑

weety9394

kermit 发表于 2020-7-20 18:01
20作为语句标号，应该写在第1-6列，第7列开始是程序。
f77的格式特别坑

所以是循环语句标号‘20’没有做好空格处理吗？

kermit

weety9394 发表于 2020-7-23 22:26
所以是循环语句标号‘20’没有做好空格处理吗？

可能是的。
另外其实不建议这样写。你这种写法在Fortran 2018标准中已经被禁止了。