      subroutine cpl_prism_put_empty
      end
