      SUBROUTINE cpl_prism_put (sndtime)
      END SUBROUTINE cpl_prism_put
