我有一个包含子例程的模块,该子例程又包含一个函数。我说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
您不应在子例程中包含该函数。具有子程序后的功能。模块中只要有您需要的数量的过程(子例程和函数)即可。每个都以子例程或函数语句开始,并以相应的结束语句结束。不要将它们嵌套在一起……而是一个接一个地嵌套。只有模块包含声明。然后从主程序或模块外部的过程“使用”该模块。
模块中的子程序和函数也可以相互访问。无需使用“包含”。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)