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