      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