hm_prelecjoi.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "r2r_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_prelecjoi (num, igrnod, lsubmodel)

Function/Subroutine Documentation

hm_prelecjoi()

subroutine hm_prelecjoi	(	integer	num,
		type (group_), dimension(ngrnod)	igrnod,
		type(submodel_data), dimension(*)	lsubmodel )

Definition at line 38 of file hm_prelecjoi.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE r2r_mod
      USE groupdef_mod
      USE submodel_mod
      USE hm_option_read_mod 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "r2r_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NUM
C-----------------------------------------------
      TYPE (GROUP_)  , DIMENSION(NGRNOD)  :: IGRNOD
      TYPE(SUBMODEL_DATA) LSUBMODEL(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, NS, IGU, NY
      LOGICAL :: IS_AVAILABLE
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
      INTEGER GRSIZEN
C=======================================================================
C
      is_available = .false.
C
      num = 0
      ny = 0
C     
      CALL hm_option_start('/CYL_JOINT')
C      
      DO i=1,njoint
        ny=ny+1
        IF(nsubdom>0)THEN
          IF(tagcyl(ny)==0)CALL hm_sz_r2r(tagcyl,ny,lsubmodel)
        END IF
C----------------------------------------------------------------------     
        CALL hm_option_read_key(lsubmodel)
C
        CALL hm_get_intv('dependentnodeset',igu,is_available,lsubmodel)
C                                           
        ns = grsizen(igu,igrnod,ngrnod) + 3              
        num = num + ns
      ENDDO
C-----------
      RETURN