14 lines
212 B
Text
14 lines
212 B
Text
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
|