fortran - 如何调用模块中子程序内部的函数？

Question

我有一个模块，其中包含一个子例程，而该子例程又包含一个函数。我说use themodule在我的主程序中，我可以 call thesubroutine ，但是如何访问子程序中包含的函数？

代码如下所示:

module useful
  integer, parameter :: N=2
  double precision, parameter :: xmin=1, xmax=10, pi=3.1415926535898
  double complex :: green(N,N), solution(N), k=(2.0,0.0)
contains
  subroutine y(n1)
  contains
    function x(n1)
      real :: n1, x
      x=n1*(xmax-xmin)/N
    end function x
  end subroutine y
end module useful

Answer 1

您不应在子例程中包含该函数。具有子程序后的功能。只需在模块中拥有您需要的尽可能多的过程(子例程和函数)。每个都以子例程或函数语句开始，并以相应的 end 语句结束。不要将它们相互嵌套......相反，一个接一个。只有模块包含语句。然后从您的主程序或模块外部的过程中“使用”该模块。

模块中的子程序和函数也可以相互访问。无需使用“包含”。