自由格式代码可以包含在固定格式代码中吗？

我继承了一个固定格式文件 FFTRUN.f 该文件的开头如下所示：

  SUBROUTINE FFTRUN_2e 
  USE, intrinsic :: ISO_C_BINDING
  USE FFTWmod, ONLY : FFTWplan_fwd, FFTWplan_inv, FFTWplanReady
  INCLUDE 'INCL_PARAM.FOR'
  INCLUDE 'INCL_PRATT.FOR'
  INCLUDE 'INCL_XYZ.FOR'
  INCLUDE 'FFTW3.f03'

  PARAMETER (NDIM=2, NDAT=IMAX*JMAX)
  DIMENSION NN(NDIM),DATA(NDAT)
  COMPLEX*16 FACTR,SCATT(IMAX,JMAX),WAVINC,DATA

  IF (.not.FFTWplanReady) THEN
      FFTWplan_fwd = fftw_plan_dft_2d(nn2,nn1,data,data,
 &                FFTW_FORWARD,FFTW_MEASURE)
      FFTWplan_inv = fftw_plan_dft_2d(nn2,nn1,data,data,
 &                FFTW_BACKWARD,FFTW_MEASURE)
  ENDIF

我会使用编译它

    gfortran -c FFTRUN.f

但是，它失败了，因为 fftw3.f03 是自由格式。有没有办法可以完成此包含，而无需将 fftw3.f03 重新格式化为固定格式？

这是一个庞大的软件，因此我不可能重新格式化固定格式的项目的整个其余部分。

不。通过分别编译两个源代码并将它们链接在一起，您可能会取得更快的进展。由于您已经在使用 Fortran 90 功能，例如use这不应该给你带来太多痛苦。

首先，请确保fftw3.f03包含一个模块，该模块本身包含您要使用的函数。删除include fftw3.f03线并插入，与另一个use声明，声明use fftw3_mod（或任何模块的名称）。然后修改你的makefile进行编译fftw3.f03在编译之前fftrun.f。就是这样。