set_element (4) --- see if a given element is in a set   07/20/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function set_element (element, set)
                 integer element
                 pointer set

          |      Library: vswtmath (Subsystem mathematical library)


            _F_u_n_c_t_i_o_n

                 'Set_element'  returns 1 if 'element' is a member of the set
                 'set', 0 otherwise.   The  argument  'element'  must  be  an
                 integer  from  1  to the maximum size of the set, inclusive.
                 The argument 'set' must have been  created  beforehand  with
                 'set_create'.

                 All  set  manipulation routines make use of dynamic storage,
                 which must be initialized  before  use.   See  'dsinit'  for
                 further information.

                 Note that all set manipulation routines have long names.  To
                 avoid  unique name conflicts with other routines, any Ratfor
                 program using the set routines should include the  following
                 statement:

          |           include "=src=/lib/math/swtmlb_link.r.i"


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 If  'element'  is not in the range of allowable set elements
                 for the given set, the program is terminated by  a  call  to
                 'error'.   Otherwise, the location of the element in the bit
                 vector is calculated, and the function returns the value  of
                 the bit at that position.


            _C_a_l_l_s

                 error


            _S_e_e _A_l_s_o

                 other set routines ('set_?*') (4)












            set_element (4)               - 1 -               set_element (4)