call的用法

marlene

[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))

marlene

哦哦，我懂了

marlene

谢谢大佬！