hm_pre_read_rlink.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_pre_read_link (num, igrnod, lsubmodel)

Function/Subroutine Documentation

hm_pre_read_link()

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

Definition at line 38 of file hm_pre_read_rlink.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
      USE names_and_titles_mod , ONLY : nchartitle
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,NN,IGU,IGS,NLK
      CHARACTER(LEN=NCHARTITLE) :: TITR
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
      INTEGER NGR2USRN, NUSER
C-----------------------------------------------
      LOGICAL IS_AVAILABLE
C=======================================================================
      is_available = .false.
C=======================================================================
C-----------------------------------------------
      CALL hm_option_start('/RLINK')       
      num  = 0
      nlk = 0      
C-----------------------------------------------
      DO i=1,nlink
       nlk=nlk+1
C----------Multidomaines --> on ignore les rlink non tages--------
       IF(nsubdom > 0)THEN
         IF(taglnk(nlk) == 0)CALL sz_r2r(taglnk,nlk)
       END IF
C-----------------------------------------------------------------                                                     
       CALL hm_option_read_key(lsubmodel, 
     .                          option_id      = nuser, 
     .                          option_titr    = titr)           
C-----------------------------------------------------------------                                                     
       CALL hm_get_intv('dependentnodeset'  ,igu ,is_available,lsubmodel) 
       igs = ngr2usrn(igu,igrnod,ngrnod,nn)
       num = num + nn
      ENDDO
C-----------
      RETURN