如何在fortran 90中定义函数

Question

我正在尝试在我的模块代码中定义一个函数并在主要的fortran代码中调用它，但是当我想编译我的代码时，我收到了这个错误：

  

此实际参数必须是外部用户函数的名称或内部函数的名称。

我的功能是：

Function func (x)  
   implicit none  
   double precision func,x  
   func=x  
   RETURN  
end function func

并在主代码中

call Romberg (dra,func,ra(mm),ra(kk))

我想测量ra(mm)＆amp;之间的差异。 ra(kk)

Answer 1

添加：

external func

在呼叫者中

。这告诉调用者“func”是一个外部过程。你显然已经使用显式接口声明了Romberg，指定参数是一个过程。