groups_get_nentity.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	groups_get_nentity (nentity, lsubmodel)

Function/Subroutine Documentation

groups_get_nentity()

subroutine groups_get_nentity	(	integer, intent(inout)	nentity,
		type(submodel_data), dimension(nsubmod)	lsubmodel )

Definition at line 35 of file groups_get_nentity.F.

      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   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER,INTENT(INOUT) :: NENTITY
      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 
C-----------------------
 
      RETURN