在现代 Fortran 的模块中使用子例程加载派生类型

Question

目标：使用子程序load_things 加载su2 类型的结构库。

运行gfortran simple.f90 产生

Undefined symbols for architecture x86_64:
  "_load_things_", referenced from:
      _MAIN__ in cc7DuxGQ.o
      (maybe you meant: ___myclass_MOD_load_things_sub)
ld: symbol(s) not found for architecture x86_64
collect2: error: ld returned 1 exit status

主程序如下：

program simple
  use myClass
  implicit none
  integer :: nThings
  type ( su2 ) :: reflections
      call load_things ( nThings, reflections )
end program simple

模块定义为：

module myClass
implicit none
type :: su2
    integer :: matrix_obj ( 1 : 2, 1 : 2 )
contains
    private
    procedure, nopass, public :: load_things => load_things_sub
end type su2

private load_things_sub
contains
    subroutine load_things_sub ( nThings, U )
        integer,      intent ( out ) :: nThings
        type ( su2 ), intent ( out ), allocatable :: U ( : )
            nThings = 2
            allocate ( U ( nThings ) )
            U ( 1 ) % matrix_obj = reshape ( [ 0, 1, 1, 0 ], [ 2, 2 ] )
            U ( 2 ) % matrix_obj = reshape ( [ 0, 1, 1, 0 ], [ 2, 2 ] )
    end subroutine load_things_sub

end module myClass

研究了以下网页，没有成功：Correct use of modules, subroutines and functions in fortran，

Fortran 90 - to transmit values from main subroutine to the functions and other subroutines,

Fortran: Calling a function in a module from a procedure in another module,

Fortran 90 How to call a function in a subroutine in a module?

Answer 1

因为Vladimir F comments load_things 是派生类型reflections 的绑定名称。正如答案所说，它不是子例程的名称。

那么，IanH 说，您可以将代码更改为

call load_things_sub ( nThings, reflections )

但您还需要将其设为模块的公共实体。您可能希望使用类型绑定的方式，以便它可以保持私有（类型本身的绑定是可访问的）：

call reflections%load_things(nThings, reflections)

这带来了另一组观点：你不能做到以上。

您使用nopass 进行绑定，因为该类型的虚拟参数是一个可分配数组：您不能使用pass。但是，在您的主程序中，虚拟参数 reflections 是不可分配的标量：那里不匹配，因此 call load_things_sub(nThings, reflections) 无效。

进一步

type ( su2 ), allocatable :: reflections(:)
call reflections%load_things ( nThings, reflections )

本身无效。首先，对于call reflections%...，必须分配reflections。其次，reflections 不允许绑定数组 nopass。

这会让你在哪里？好吧，您必须修复 reflections 的可分配性，但最简单的做法可能是继续将 load_things_sub 设为 public 并坚持第一条路径，摆脱类型绑定过程。

Answer 2

您的模块没有名为 load_things 的子例程 - 它有一个名为 load_things_sub 的子例程。选择正确的名称变体，然后适当地更正其他语句中的名称。

在最初提交此答案之后，OP 向模块添加了一条私有语句，使 load_things_sub 在使用该模块的范围内无法访问。在没有其他信息的情况下，应该删除私人声明。

通过绑定引用诸如load_thing_sub 之类的过程几乎没有意义。只需将其作为正常程序引用即可。

请注意，列出的许多参考资料都是针对 Fortran 90 的。绑定是在 Fortran 2003 中引入的。