急！参数问题

fcccc0616 · 发表于 2020-8-8 00:30:50

原代码：

[Fortran] 纯文本查看 复制代码

do while(j<kmax.and.flag==0)            
    j=j+1
   l(j)=fn(d,j) 
          !write(*,*)l(j)
     call rnbin(1,int(l(j)),real(p10,p20,p30),ir)  
          
     x1=dble(ir)
     x2=dble(ir)
     x3=dble(ir)

出现Warning: The number of arguments is incompatible with intrinsic procedure, assume 'external'. [REAL]
call rnbin(1,int(l(j)),real(p10,p20,p30),ir)
是什么问题？

青衣巷 · 发表于 2020-8-8 08:03:48

call rnbin(1,int(l(j)),real(p10,p20,p30),ir)
这里的 real 是什么？
如果是数组，请定义。
如果是外部函数，请声明。
如果是内部函数（转换成real类型），它只有2个参数。

fcccc0616 · 发表于 2020-8-8 10:17:53

青衣巷发表于 2020-8-8 08:03
call rnbin(1,int(l(j)),real(p10,p20,p30),ir)
这里的 real 是什么？
如果是数组，请定义。

好的，非常感谢！

[求助] 急！参数问题

规矩勋章

新人勋章

元老勋章