C
C File 'rmnul.for' containing void versions of two subroutines called by
C program 'greenss.for'.
C
C Version: 5.20
C Date: 1998, September 4
C
C=======================================================================
C
      SUBROUTINE INPUT(LU,NLAY,IFREE)
      INTEGER LU,NLAY,IFREE
C
C-----------------------------------------------------------------------
C
C     RMNUL-01
      CALL ERROR('RMNUL-01: Package RMATRIX required')
C     To include the response of the transmission through a stack of
C     fine horizontal layers at the receiver locations, program
C     greenss.for must be
C     compiled with the package
C     RMATRIX.
C
      RETURN
      END
C
C=======================================================================
C
      SUBROUTINE RM(NLAY,IFREE,ITER,OMEGA,TR,P1,P2,P3,
     *                  AR1,AI1,AR2,AI2,AR3,AI3,BR1,BI1,BR2,BI2,BR3,BI3)
      INTEGER NLAY,IFREE,ITER
      REAL OMEGA,TR,P1,P2,P3
      REAL AR1,AI1,AR2,AI2,AR3,AI3,BR1,BI1,BR2,BI2,BR3,BI3
C
C-----------------------------------------------------------------------
C
      RETURN
      END
C
C=======================================================================
C