call的用法

marlene · 发表于 2022-4-10 17:24:55

[Fortran] 纯文本查看 复制代码

      subroutine muhard(peeq,hard,yieldNew,para1,para2,para3)
C        
        INCLUDE 'VABA_PARAM.INC'
        double precision hard,peeq,yieldNew
C        
        yieldNew=para1-para2*exp(-para3*peeq)
        hard=para2*para3*exp(-para3*peeq) 
        return
      end

求问大佬们，我写了一个子程序，我调用后返回得到的是hard和yieldOld吗，还是得到hard和yieldNew呢

[Fortran] 纯文本查看 复制代码

call muhard(peeq,hard,yieldOld,props(7),props(8),props(9))

fcode · 发表于 2022-4-11 08:34:35

体会一下函数实参虚参的经典例子：

[Fortran] 纯文本查看 复制代码

subroutine 结婚(  男方，女方 ）
end subroutine 结婚

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

所以，在调用者的视角，只有 hard,yieldOld。
而在函数内部的视角，只有 hard,yieldNew。而函数内部视角的 yieldNew 就是调用者视角的 yieldOld。

marlene · 发表于 2022-4-11 14:27:59

哦哦，我懂了

marlene · 发表于 2022-4-11 14:28:32

谢谢大佬！

gps99 · 发表于 2022-4-11 15:30:48

本帖最后由 gps99 于 2022-4-11 15:35 编辑

语法问题，自己机器上实验对比一下更快捷，印象也更深刻。体会也会更多。。我感觉比提问效果要好。

sub靠表头定义返回多参数应是fortran独有特色，其他语言的函数都是return一个结果（返回数组、字典、元组的算一个，还有函数返回多参数的语言吗？介绍一下、、）这个适合数值函数的分析

[子程序] call的用法

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章