set_merge_simple.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	set_merge_simple (set_entity, nb_set_entity, clause_entity, nb_clause_entity, result, nb_result, clause_operator)

Function/Subroutine Documentation

set_merge_simple()

subroutine set_merge_simple	(	integer, dimension(nb_set_entity), intent(in)	set_entity,
		integer, intent(in)	nb_set_entity,
		integer, dimension(nb_clause_entity), intent(in)	clause_entity,
		integer, intent(in)	nb_clause_entity,
		integer, dimension(*)	result,
		integer	nb_result,
		integer, intent(in)	clause_operator )

Definition at line 38 of file set_merge_simple.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   Apply Operators on simple set
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME                                 DESCRIPTION                         
C
C     SET_ENTITY,    NB_SET_ENTITY       : Current SET
C     CLAUSE_ENTITY, NB_CLAUSE_ENTITY    : Clause to merge
C     RESULT       , NB_RESULT           : Stores the result
C     CLAUSE_OPERATOR                      OPERATOR
C============================================================================
C-----------------------------------------------
C   D e f i n i t i o n s 
C-----------------------------------------------
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE set_mod , ONLY : set_add,set_delete,set_intersect
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NB_SET_ENTITY, NB_CLAUSE_ENTITY, CLAUSE_OPERATOR
 
      INTEGER, DIMENSION(NB_SET_ENTITY), INTENT(IN) :: SET_ENTITY
      INTEGER, DIMENSION(NB_CLAUSE_ENTITY), INTENT(IN) :: CLAUSE_ENTITY
 
      INTEGER :: NB_RESULT
      INTEGER RESULT(*)
                        
      IF( clause_operator == set_add) THEN
           CALL union_2_sorted_sets( set_entity, nb_set_entity  ,
     *                               clause_entity, nb_clause_entity ,
     *                               result,        nb_result      )
      ENDIF
 
      IF( clause_operator == set_delete) THEN
           CALL difference_2_sorted_sets ( set_entity, nb_set_entity  ,
     *                                     clause_entity, nb_clause_entity ,
     *                                     result,        nb_result      )
      ENDIF
         
      IF( clause_operator == set_intersect) THEN
           CALL intersect_2_sorted_sets ( set_entity, nb_set_entity  ,
     *                                    clause_entity, nb_clause_entity ,
     *                                    result,        nb_result      )
      ENDIF