如何将单独文件中的 Fortran FUNCTION/SUBROUTINE 编译成单个 MODULE

Question

通常，当我编写 Fortran 函数的集合时，我会将它们放入 MODULE 中，如下所示：

!mystuff.f90
MODULE mymodule
IMPLICIT NONE

CONTAINS

  SUBROUTINE mysubroutine1(a,b)
  !code
  END SUBROUTINE

  SUBROUTINE mysubroutine2(a,b)
  !code
  END SUBROUTINE

  !lots more functions and subroutines

END MODULE

我成功地编译它像这样gfortran -c mystuff.f90。这会创建mystuff.o，我可以在我的主程序中使用它。

但是，我的MODULE 中的函数/子例程的数量和单个大小已经变得非常庞大，我真的需要将其拆分为不同的文件。

!mysubrtn1.f90
SUBROUTINE mysubroutine1(a,b)
!code
END SUBROUTINE

和

! mysubrtn2.f90
SUBROUTINE mysubroutine2(a,b)
!code
END SUBROUTINE

等等……

但我仍然希望将所有这些功能保留在一个单个 MODULE 中。如何告诉编译器编译 mysubrtn1.f90、mysubrtn2.f90、... 中的函数，以便在 .o 文件中生成单个模块？

Answer 1

您可以简单地使用include 来包含另一个 Fortran 源代码文件：

!mystuff.f90
MODULE mymodule
IMPLICIT NONE

CONTAINS

  include 'mysubrtn1.f90'
  include 'mysubrtn2.f90'

  !lots more functions and subroutines

END MODULE

来自here：

INCLUDE 语句指示编译器停止读取语句 从当前文件中读取包含的文件或文本中的语句

因此您可以看到生成的模块仍将包含两个子例程。

---

如果你的编译器支持的话，另一种实现相同目的的方法是使用预处理器指令：

#include "filename"

Answer 2

为了便于阅读，最好将大模块分成更易于管理的块。每个较小的模块可以单独编译，并在另一个“主”模块中使用，然后在主程序中使用。这种方法的主要好处是您可以拥有各种非常通用的模块，并且只选择目前有用的程序/数据。例如：

module mod_1
    implicit none
    subroutine proc_1
        ! ...
    end subroutine
    ! other procedures, etc.
end module mod_1

等等，对于每个单独的模块。然后将它们收集在一个模块中。

module collection
    use mod_1, only: proc_1  ! pick & choose what to use
    use mod_2
    use mod_3
    ! ...
end module collection

program main
    use collection
    implicit none
    ! ...
end program main

当您编译主程序时，您可以链接到每个必要的目标文件，甚至可以将它们组合到一个存档/库中并链接到该文件。