I have a function with the following prototype.
function f(x,y)
implicit none
real,dimension(:) :: x
real :: y
real,dimension(size(x)):: f
.........
end function
And another function which can take f(,) as an argument.
subroutine integrate(f,a,b)
implicit none
real :: left,right
declaration on f <==== (1)
end subroutine
call integrate(g,a,b) <==== (2)
My question is what is the most effective way of declaring(specifying) f
within the subroutine integrate() (1) so that the compiler can check if g
has a matching prototype at the stage (2) ?
Thanks.
|