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