1 2 3 4 5 6 7 8 9 10 11 12 13 14
module a contains subroutine RIGHT (funcA, funcB) real funcA ! grid function a real funcB ! grid function b real ChangeMe end subroutine RIGHT end module a