Fortran Coder

标题: 急！参数问题 [打印本页]

作者: fcccc0616 时间: 2020-8-8 00:30
标题: 急！参数问题
原代码：

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

作者: fcccc0616 时间: 2020-8-8 10:17

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

好的，非常感谢！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)