      SUBROUTINE cpl_prism_get (rcvtime)
      END SUBROUTINE cpl_prism_get
