set_intersect (4) --- place intersection of two sets in a third  07/20/84


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine set_intersect (set1, set2, destination)
                 pointer set1, set2, destination

          |      Library: vswtmath (Subsystem mathematical library)


            _F_u_n_c_t_i_o_n

                 'Set_intersect'  determines  the  intersection  of  the sets
                 given as its first two arguments and places  that  intersec-
                 tion  in  the  set  specified  by  the  third.   For  proper
                 operation, all three sets should be equal in size.

                 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

                 Does a word-by-word logical 'and' of the bit vectors for the
                 first two sets, placing the result in the third.


            _B_u_g_s

                 Should be fixed to work with sets of differing lengths.


            _S_e_e _A_l_s_o

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

















            set_intersect (4)             - 1 -             set_intersect (4)