24小时热门版块排行榜    

CyRhmU.jpeg
查看: 532  |  回复: 0

刚达R2012

金虫 (小有名气)

[求助] fortran程序接口(interface)报错,大神路过请指点一二!!

接口如下:
    INTERFACE
      DOUBLE PRECISION FUNCTION DENORM (N, X)
      INTEGER,INTENT(IN) :: N
      DOUBLE PRECISION,INTENT(IN) :: X(N)
      END FUNCTION DENORM
      END INTERFACE
DENORM函数如下:
DOUBLE PRECISION FUCTION DENORM(N,X)
    INTEGER I, N
  DOUBLE PRECISION AGIANT, FLOATN, ONE, RDWARF, RGIANT, S1, S2, S3, &
       X(*), X1MAX, X3MAX, XABS, ZERO
  SAVE ONE, ZERO, RDWARF, RGIANT
  DATA ONE,ZERO,RDWARF,RGIANT /1.0D0,0.0D0,3.834D-20,1.304D19/
其中N是向量X的维数,其它均为中间变量或者常量。
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : slatec.f90
  • 2016-11-20 20:25:25, 3.4 K
  • 附件 2 : Source1.for
  • 2016-11-20 20:25:32, 5.45 K

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 刚达R2012 的主题更新
信息提示
请填处理意见