如何在 Ubuntu 上编译 Ortep3？

我最近在旧的CentOS服务器上使用gfortran -o ortep3 ortep.f -lpgplot -lX11. 我认为gfortran版本是 6.5 或类似的版本。我的版本gfortran是：gcc version 9.2.1

我现在想在一些 18.04 或更高版本的 Ubuntu 机器上编译 ORTEP3。当我尝试编译时ortep，出现错误，例如：

Error: Actual argument contains too few elements for dummy argument ‘itxt’ (1/72) at (1)

和警告，例如：

Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)

我尝试使用 legacy code flag -ff2c，但没有效果。libx11，并且pgplot都已安装和运行。

我试过用 编译fort77，它可以编译，但编译后的代码不会运行。尝试用 编译gfortran，ortep.f将无法编译。

LD_TRACE 从 CentOS 服务器：

$ LD_TRACE_LOADED_OBJECTS=1 ./Working_ortep3 
linux-vdso.so.1 (0x00007ffc82f42000)
libX11.so.6 => /usr/lib/x86_64-linux-gnu/libX11.so.6 (0x00007f185a9cf000)
libgfortran.so.3 => /usr/lib/x86_64-linux-gnu/libgfortran.so.3 (0x00007f185a89d000)
libm.so.6 => /lib/x86_64-linux-gnu/libm.so.6 (0x00007f185a74e000)
libgcc_s.so.1 => /lib/x86_64-linux-gnu/libgcc_s.so.1 (0x00007f185a734000)
libquadmath.so.0 => /usr/lib/x86_64-linux-gnu/libquadmath.so.0 (0x00007f185a6ea000)
libc.so.6 => /lib/x86_64-linux-gnu/libc.so.6 (0x00007f185a4f9000)
libxcb.so.1 => /usr/lib/x86_64-linux-gnu/libxcb.so.1 (0x00007f185a4ce000)
libdl.so.2 => /lib/x86_64-linux-gnu/libdl.so.2 (0x00007f185a4c8000)
/lib64/ld-linux-x86-64.so.2 (0x00007f185ab51000)
libXau.so.6 => /usr/lib/x86_64-linux-gnu/libXau.so.6 (0x00007f185a4c2000)
libXdmcp.so.6 => /usr/lib/x86_64-linux-gnu/libXdmcp.so.6 (0x00007f185a4ba000)
libbsd.so.0 => /usr/lib/x86_64-linux-gnu/libbsd.so.0 (0x00007f185a4a0000)

为了匹配我能够构建和运行 ortep3 的位置，我已经检查并安装了与依赖于ortep3. 我最终安装了：

sudo apt-get install libxdmcp-dev libbsd-dev

错误仍然存​​在。

我不再在能够编译 ortep3 的服务器上工作。我可以问一下，但是当我能够在那里编译它时，我完成了工作（安装了 ortep3 的功能版本）。

以下是错误列表：

$ gfortran -w -g -o ortep3 ortep.f -lpgplot -lX11 
ortep.f:576:36:

  576 |       CALL SIMBOL(W(2,1),W(3,1),HGT,' ',0.,-1)
      |                                    1
Error: Actual argument contains too few elements for dummy argument ‘itxt’ (1/72) at (1)
ortep.f:577:36:

  577 |       CALL SIMBOL(W(2,2),W(3,2),HGT,' ',0.,-2)
      |                                    1
Error: Actual argument contains too few elements for dummy argument ‘itxt’ (1/72) at (1)
ortep.f:3678:27:

 3678 |       CALL SIMBOL(W,W2,HGT,ITEX,THT,NC)
      |                           1
Error: Actual argument contains too few elements for dummy argument ‘itxt’ (8/72) at (1)
ortep.f:3934:48:

 3934 |   185 if (nout.ge.0) WRITE (NOUT,176)I,maksym(1,fsym)
      |                                                1
Error: Actual argument contains too few elements for dummy argument ‘gp’ (12/2304) at (1)
ortep.f:1258:19:

 1258 |       CALL AXEQB(A,V,V,1)
      |                   1
Error: Actual argument contains too few elements for dummy argument ‘x’ (3/9) at (1)
ortep.f:2084:16:

 2084 |   945 CALL PROJ(D(1,65),DP(1,65),X,XO,VIEW,1,65,L)
      |                1
Error: Actual argument contains too few elements for dummy argument ‘d’ (198/387) at (1)
ortep.f:2117:16:

 2117 |       CALL PROJ(V1,DP,X,XO,VIEW,1,1,1)
      |                1
Error: Actual argument contains too few elements for dummy argument ‘d’ (4/387) at (1)
ortep.f:2123:16:

 2123 |   988 CALL PROJ(DA,DP,X,XO,VIEW,1,3,1)
      |                1
Error: Actual argument contains too few elements for dummy argument ‘d’ (9/387) at (1)
ortep.f:2550:32:

 2550 |       CALL SIMBOL(Y(1),Y(2),HGT,' ',TH,7-NJ3)
      |                                1
Error: Actual argument contains too few elements for dummy argument ‘itxt’ (1/72) at (1)

我不知道这实际上是如何在 CentOS 机器上开始工作的。据ortep3我所知，代码是 Fortran77，但 SIMBOL 一词看起来像是一个错字，我认为它可能是 SYMBOl，但我不需要修改代码以使其之前编译。

最终目标：添加一个svg文件输出功能，写一个deb包，维护一下。