      subroutine cpl_prism_get_empty
      end
