Fortran Coder

查看: 123|回复: 2

[子程序] 子程序能作为参数传递吗?

[复制链接]

24

帖子

10

主题

0

精华

熟手

F 币
115 元
贡献
69 点
发表于 2017-7-8 10:36:18 | 显示全部楼层 |阅读模式
本帖最后由 shrine 于 2017-7-8 10:40 编辑

最近在看最小二乘法minpack,简洁起见,过多参数用省略号表示,fcn是需要自己提供的
subroutine lmder(fcn,......wa4)
      integer ....      
      double .....


      call fcn(m,n,x,fvec,fjac,ldfjac,iflag)
end
      既然要call fcn,那肯定是subroutine,而不是function,但是subroutine怎么能作为参数传递呢?

回复

使用道具 举报

446

帖子

0

主题

0

精华

大师

F 币
901 元
贡献
432 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2017-7-8 19:55:44 | 显示全部楼层
方法1(假设 fcn 返回 real 类型):
[Fortran] 纯文本查看 复制代码
Subroutine Imder( fcn , ... )
Real , external :: fcn
y = fcn(x)

方法2:
[Fortran] 纯文本查看 复制代码
Subroutine Imder( fcn , ... )
Interface
  real function fcn( x )
    real :: x
  end function fcn
End Interface
y = fcn(x)

45

帖子

2

主题

0

精华

版主

F 币
267 元
贡献
170 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

发表于 2017-8-12 13:22:13 | 显示全部楼层
蒐集來的資料, 敬請參考:

subprogram-as-argument.pdf

714.17 KB, 下载次数: 4

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-8-24 05:26

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表