如何从.src文件运行Fortran77代码？

Question

我是Fortran的新手并尝试运行（涉嫌）Fortran77代码。但是，此代码在.src文件中提供。

在记事本中打开此文件时，代码看起来像Fortran，但添加了看似随机的数字和换行符。

代码无法在Visual Studio / Intel Visual Fortran中编译。

有没有人见过这个可以帮助我？

代码段：

    70 FORMAT(1H1,10X,*KOUNT = *,I4,18X,*R = *,E13.5//)
      GO TO 503
  513 WRITE(6,504) KOUNT,X1
  504 FORMAT(1H1,10X,*KOUNT = *,I4,18X,*X = *,E13.5//)
  503 CONTINUE
      WRITE(6,610) ZSHIFT,XSHIFT,XTHR,ZLIFT,YMOM
  610 FORMAT(10X,*Z MOMENT AXIS = *,E11.3,5X,*X MOMENT AXIS = *,E11.3/
     1                     10X,*THRUST = *,E11.3,5X,*LIFT = *,E11.3,5X
     1,*PITCHING MOMENT = *,E11.3)
      IF(IS(3).NE.0.AND.KOUNT.NE.0.AND.ISIM.EQ.0) WRITE(6,621) XTHRC,ZLI
     1FTC,YMOMC
  621 FORMAT(* CONTACT  *     ,*THRUST = *,E11.3,5X,*LIFT = *,E11.3,5X
     1,*PITCHING MOMENT = *,E11.3)
      IF(IS(1).NE.0.AND.KOUNT.NE.0.AND.ISIM.EQ.0 ) WRITE(6,622) XTHRS,ZL
     1IFTS,YMOMS
  622 FORMAT(*   SHOCK  *     ,*THRUST = *,E11.3,5X,*LIFT = *,E11.3,5X
     1,*PITCHING MOMENT = *,E11.3)
      WRITE(6,623)
  623 FORMAT(/)
      DO 71 J=1,JMAX
      IF(J.GT.JCALC) GO TO 71
      IF(J.GT.JINT  ) GO TO 2260
      IF(XJ.NE.0..OR.XJ1.NE.0.) GO TO 505
      WRITE(6,506) J,HE(1),HE(4),TH(J),HE(5)
  506 FORMAT(//10X,*J = *,I2,24X,A5,A3     ,E13.5,/4X,*I*,6X,A1 ,10X,
     1*P*,10X,*Q*, 9X,*PHE*, 8X,*SI*,10X,*M*,10X,*H*, 9X,*PHI*
     1,8X,*RHO*,8X,*GAM*,9X,*T*)
      GO TO 510
  505 IF(XJ1.EQ.0.) GO TO 507

Screenshot of the code in Visual Studio

我的Google-Fu没有发现任何事情。我试过复制并粘贴代码，这会引发很多错误。删除数字和换行符似乎可以解决一些错误。使用gFortran编译器也不起作用。

Answer 1

那些“随机数和换行符”是固定形式的Fortran源的症状。这与Fortran 77之类的代码一致。

您需要告诉编译器将源视为此表单，使用适当的文件扩展名（例如.f）或使用编译器选项。编译器are的选项：

• /fixed作为命令行选项;
• 或者在Language > Source File Format (/free, /fixed)下

---

总之，固定表单源将前几个数字作为行标签，并将第六列中的数字（此处，但可以是其他字符）作为语句连续标记。因此，当在下一行的第六列中存在1时，那些奇怪放置的换行符并不表示语句的结束。