Fortran Coder

查看: 12987|回复: 2

[求助] Fortran实参与形参不匹配

[复制链接]

12

帖子

6

主题

0

精华

入门

F 币
65 元
贡献
41 点
发表于 2020-10-13 21:23:05 | 显示全部楼层 |阅读模式
下面是我调用函数过程以及相关参数的定义
implicit real*8 (a-h,o-z)
      real*8 ,external ::Ne
& FF0N,xm0N)

  dimension R(3)

dimension FF0(988),xm0(441), FF0N(988),xm0N(441)

  eld= Ne(h,alat,along,mth,flx,UT,R,ttt,FF0,xm0,
     & FF0N,xm0N)
以下是是子函数定义:
   real*8 function Ne(h,alat,along,mth,flx,UT,R,ttt,FF0,xm0,
     & FF0N,xm0N)

      implicit real*8 (a-h,o-z)
       dimension FF0(988),xm0(441), FF0N(988),xm0N(441)
      dimension R(3)

但是在编译过程中显示error #6784: The number of actual arguments cannot be greater than the number of dummy arguments.形参合实参不匹配,我没有看出来哪里不匹配,请大家帮我看看。



10

帖子

1

主题

0

精华

入门

F 币
41 元
贡献
24 点
发表于 2020-10-14 16:08:33 | 显示全部楼层
是不是因为你mth没声明,

1948

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1298 元
贡献
547 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-10-15 08:34:32 | 显示全部楼层
此问题需要更详细的代码判断问题。(尤其注意,是否有多个Ne函数存在?)
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 00:43

Powered by Tencent X3.4

© 2013-2024 Tencent

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