       SUBROUTINE cpl_prism_init
      END SUBROUTINE cpl_prism_init
