与不可解释的argumnets的数值整合

Question

我正在尝试解决FORTRAN中的二维(f(x,y))数值积分。我了解到有一个标准的功能和边界水平确定形式。我的函数有其他变量，如下所示：

Function=f(a1,a2,a3,c0,X,Y)
real(kind=8) :: a1,a2,a3,X,Y,c0(6,6),f(3,3,3,3)

我想知道如何全局声明a1,a2,a3,c0和f（函数输出）以使用标准形式进行数值积分(f(x,y))？