如何在Fortran中访问PRIVATE PUBLIC接口？

Question

我有以下代码：

SUBROUTINE test
USE mp, only: mp_bcast
integer :: B = 0
logical :: A
...
CALL mp_bcast (A, B)
END SUBROUTINE test

问题是模块mp如下：

MODULE mp
IMPLICIT NONE
PRIVATE

PUBLIC :: mp_bcast
!
INTERFACE mp_bcast
  MODULE PROCEDURE mp_bcast_i1, mp_bcast_r1, mp_bcast_c1, mp_bcast_l  ! etc
END INTERFACE

SUBROUTINE mp_bcast_l(msg,source,gid)
  IMPLICIT NONE
  LOGICAL :: msg
  INTEGER, INTENT(IN) :: source
  INTEGER, INTENT(IN) :: gid
END SUBROUTINE mp_bcast_l

它是私有的，但接口是公共的。 我无法修改mp模块（属于我要连接的另一个软件）。

我使用以下Makefile：

MODS = ../../Modules_mp/libmod.a
prog : prog.o test.o $(LD) $(LDFLAGS) -o prog.x $(MODS)

这样，尽管我可以访问包含模块“ mp”的模块libmod.a中的公共接口。 它不起作用，并且出现此错误：

test.f90(38): error #6285: There is no matching specific subroutine for this generic subroutine call.   [MP_BCAST]
  CALL mp_bcast (A,B)
-------^

正确的处理方式是什么？

谢谢，

塞缪尔

Answer 1

如果要调用通用例程，则编译器将遍历其所有特定例程，以找到与参数类型匹配的例程。 如果找不到，这是您收到的错误消息。

仔细查看您的A和B是什么类型，并查看特定例程之一是否与之匹配。

由于更多信息而更新

您认为匹配的特定子例程具有三个伪参数（一个逻辑，两个整数），但是您仅提供两个（逻辑和一个整数）。

注意：以下是我的原始答案，有人对此发表了评论，所以我将其保留。

也许A的类型为REAL ， B的类型为INTEGER ，所以编译器将按顺序搜索具有一个REAL和一个INTEGER的特定例程，而找不到一个例程。 在这种情况下，可能需要转换一个变量，如下所示：

CALL mp_bcast(A, float(B))

注意：从您写的内容：

MODULE PROCEDURE mp_bcast_i1, mp_bcast_r1, mp_bcast_c1  ! etc

我推断_i1可能代表INTEGER(KIND=1) ，依此类推，尽管我不认为存在诸如REAL(KIND=1)这样的事情。

Answer 2

您对private和public的使用是正确的，错误消息的文本也是如此。 问题似乎是只有两个参数的调用。 这是一个使用genericswap.f90的示例（在线提供，没有添加我已添加的PRIVATE和PUBLIC swap ）：

module swap_module
  implicit none
  PRIVATE
  PUBLIC swap
  interface swap
    module procedure swap_reals, swap_integers
  end interface

编译器将浏览列出的模块过程，并确定与签名匹配的过程。 您的列表mp_bcast_i1, mp_bcast_r1, mp_bcast_c1, mp_bcast_l似乎与(A,B)不匹配（无论它们是什么类型）。 我不能完全确定，因为您只提供了一个例程的源代码。

我知道这是一篇过时的文章，但是我只是想确保其他人可以找到该信息。 可能还需要检查您所使用的编译器实现了什么。 就我而言，我正在使用gfortran version 7.1.0 (Ubuntu 7.1.0-5ubuntu2~16.04) 。