

            isph$ (2) --- determine if the caller is a phantom       09/18/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      integer function isph$ (dummy)
          |      untyped dummy

          |      Library: vswtlb (standard Subsystem library)


          | _F_u_n_c_t_i_o_n

          |      'Isph$'  returns  YES  if the caller is a phantom user or NO
          |      otherwise.  The single argument 'dummy'  is  not  referenced
          |      and  exists  only because a function in FORTRAN 66 must have
          |      at least one argument.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      'Isph$' simply returns the value of the 'Isphantom' variable
          |      in the SWT common  block,  which  is  set  during  Subsystem
          |      initialization.


          | _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

          |      none


          | _S_e_e _A_l_s_o

          |      isph (1)



























            isph$ (2)                     - 1 -                     isph$ (2)


