groups_get_elem_list.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	groups_get_elem_list (list_entity, nentity, lsubmodel)

Function/Subroutine Documentation

groups_get_elem_list()

subroutine groups_get_elem_list	(	integer, dimension(:), intent(inout), allocatable	list_entity,
		integer, intent(inout)	nentity,
		type(submodel_data), dimension(nsubmod)	lsubmodel )

Definition at line 45 of file groups_get_elem_list.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE hm_option_read_mod
      USE submodel_mod
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(INOUT) :: NENTITY
      INTEGER,INTENT(INOUT),ALLOCATABLE,DIMENSION(:) :: LIST_ENTITY
      TYPE(SUBMODEL_DATA) LSUBMODEL(NSUBMOD)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NENTITY_POS,NENTITY_NEG,JJ,KK
      LOGICAL IS_AVAILABLE, IS_ENCRYPTED
C-----------------------------------------------
C CONSTITUTION DE LIST
C-----------------------------------------------
        CALL hm_get_intv  ('idsmax' ,nentity_pos,is_available,lsubmodel)                 
        CALL hm_get_intv  ('negativeIdsmax' ,nentity_neg,is_available,lsubmodel)
        nentity = nentity_pos + nentity_neg 
        ALLOCATE(list_entity(nentity))    
        DO kk=1,nentity_pos                                                             
         CALL hm_get_int_array_index ('ids' ,jj ,kk,is_available,lsubmodel)  
         list_entity(kk)=jj
        ENDDO  
        DO kk=1,nentity_neg                                                            
         CALL hm_get_int_array_index ('negativeIds' ,jj ,kk,is_available,lsubmodel)  
         list_entity(nentity_pos+kk)=-jj
        ENDDO        
C-----------------------
 
      RETURN