急！参数问题

fcccc0616

原代码：

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

查看代码

打印?

1	do while(j<kmax.and.flag==0)

2

j=j+1

3	l(j)=fn(d,j)

4	!write(*,*)l(j)

5	call rnbin(1,int(l(j)),real(p10,p20,p30),ir)

6

7	x1=dble(ir)

8	x2=dble(ir)

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

青衣巷

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

fcccc0616

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

好的，非常感谢！