关于调用函数时的报错

fcode

get_r 是函数，不能用 call 调用。必须 r = get_r(k)

fcode

可以

fcode

是的。
现代Fortran代码，应该只有 Module 和 主程序。没有“外部子程序和外部函数”，即，把所有函数都放入对应的 module 中。
这样，只需在 module A 中 use 其他module B，则module A下的子程序和函数均可调用module B 中的（public的）函数。

fcode

没有什么区别。程序单元和程序单元之间的命名空间是独立的。
程序单元A（比如主程序）中的变量 x 和程序单元B（比如子程序）中的同名变量 x，是独立的。互不影响。

就像我家的电视机和你家的电视机，都叫电视机，但不是同一个。
注意，虚参归属于子程序的程序单元，而实参归属于调用者的程序单元。

一个鲜活的，生动的，经典的例子：

subroutine 结婚（男方，女方）

call 结婚（张三，李四）
call 结婚（郭靖，黄蓉）

fcode

我没太听明白你的意思，反正主程序里的 x 变量，不一定是子程序里的 x 变量。除非实参和虚参名字一样且对应。

fcode

sqs 发表于 2022-5-27 15:30
比如说,
module abc内有一subroutine efg(a , b , c ),其中intent(in) 是a, b.intent（out）是 c
在主程 ...

subroutine efg(a,b,c)  这里的 a b c 是虚参。
call efg(a,b,c) 这里的 a b c 是实参。

实参和虚参名字可以一样，也可以不一样。
我说的对应，是位置对应。

在我的例子中。男方，女方，是虚参。郭靖黄蓉是实参。
实参和虚参需要对应（否则郭靖成了女方，黄蓉成了男方岂不是笑话了？）
但是名字可以随意，一样，或不一样，都可以。
有一些极端的情况下，名字一样但位置不对应。
subroutine efg(a,b,c)
call efg(c,b,a)
此时，实参的a对应虚参的c，实参的c对应虚参的a。

记住，实参属于调用者，虚参属于被调用者。他们的命名空间是独立的（这样非常有好处，尤其是程序变得很庞大之后）

实参必须在调用者中定义，虚参必须在被调用者中定义。（不管他们变量名字是否相同）编译器会帮你检查实参虚参的类型是否一致。（毕竟，男方女方需要是一个人，而实参不能是条狗）

为了让你理解。我把之前的例子扩展一下：
subroutine 结婚（男方，女方）
subroutine 贷款（主贷人，连带贷款人）

call 结婚（郭靖，黄蓉）
call 贷款（黄蓉，郭靖）!第一次贷款
call 贷款（郭靖，黄蓉）!第二次贷款