Raw
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