blob: e9206a53799dc36710c9fc8a3a0ae55b75f4c02c (
plain) (
blame)
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
|