Fortran实参与形参不匹配

lveZ · 发表于 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.形参合实参不匹配，我没有看出来哪里不匹配，请大家帮我看看。