急！参数问题

fcccc0616

原代码：

[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)
是什么问题？

fcccc0616

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

好的，非常感谢！

青衣巷

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