#  isph$ --- return whether we are a phantom or not

   integer function isph$(dummy)
   integer dummy

   include SWT_COMMON

   return (Isphantom)
   end