hm_read_inter_struct.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_inter_struct (ipari, stfac, frigap, xfiltr, fric_p, igrnod, igrsurf, igrslin, npc, ilagm, unitab, i2rupt, areasl, ni, nom_opt, titr, def_inter, npc1, sensors, nom_optfric, intbuf_fric_tab, igrbric, noint, key, lsubmodel, tf, interfaces, snpc, snpc1, npari, nparir, npts, lnopt1, ltitr, ninter25, ngrnod, ngrbric, nsurf, nslin, itherm_fe, intheat)

Function/Subroutine Documentation

hm_read_inter_struct()

subroutine hm_read_inter_struct	(	integer, dimension(npari)	ipari,
			stfac,
			frigap,
			xfiltr,
			fric_p,
		type (group_), dimension(ngrnod), target	igrnod,
		type (surf_), dimension(nsurf), target	igrsurf,
		type (surf_), dimension(nslin), target	igrslin,
		integer, dimension(snpc)	npc,
		integer	ilagm,
		type (unit_type_), intent(in)	unitab,
			i2rupt,
			areasl,
		integer	ni,
		integer, dimension(lnopt1,*)	nom_opt,
		character(len=nchartitle)	titr,
		integer, dimension(100)	def_inter,
		integer, dimension(snpc1)	npc1,
		type (sensors_), intent(in)	sensors,
		integer, dimension(lnopt1,*)	nom_optfric,
		type(intbuf_fric_struct_), dimension(*)	intbuf_fric_tab,
		type (group_), dimension(ngrbric), target	igrbric,
		integer	noint,
		character(len=ncharkey)	key,
		type (submodel_data), dimension(nsubmod), intent(in)	lsubmodel,
			tf,
		type (interfaces_), intent(inout)	interfaces,
		integer, intent(in)	snpc,
		integer, intent(in)	snpc1,
		integer, intent(in)	npari,
		integer, intent(in)	nparir,
		integer, intent(in)	npts,
		integer, intent(in)	lnopt1,
		integer, intent(in)	ltitr,
		integer, intent(inout)	ninter25,
		integer, intent(in)	ngrnod,
		integer, intent(in)	ngrbric,
		integer, intent(in)	nsurf,
		integer, intent(in)	nslin,
		integer, intent(in)	itherm_fe,
		integer, intent(inout)	intheat )

Parameters

[in]	nslin	array size (elem data structure)
[in]	ltitr	array size NOM_OPT
[in]	nparir	array size IPARI and FRIGAP
[in]	snpc1	array size (NPC and NPC1)

Definition at line 51 of file hm_read_inter_struct.F.

C-----------------------------------------------
C   D e s r i p t i o n
C-----------------------------------------------
C CONTACT INTERFACES : READER SUBROUTINES
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE unitab_mod
      USE message_mod
      USE intbuf_fric_mod
      USE groupdef_mod
      USE submodel_mod , ONLY : submodel_data, nsubmod
      USE sensor_mod
      USE interfaces_mod
      USE names_and_titles_mod , ONLY : nchartitle, ncharkey
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) :: NPTS !array size TF
      INTEGER,INTENT(IN) :: NGRNOD,NGRBRIC,NSURF,NSLIN  !< array size (elem data structure)
      INTEGER,INTENT(IN) :: LNOPT1,LTITR !< array size NOM_OPT
      INTEGER,INTENT(IN) :: NPARI, NPARIR  !< array size IPARI and FRIGAP
      INTEGER,INTENT(IN) :: SNPC, SNPC1 !< array size (NPC and NPC1)
      INTEGER,INTENT(IN) :: ITHERM_FE
      INTEGER,INTENT(INOUT) :: INTHEAT
      INTEGER,INTENT(INOUT) :: NINTER25
      TYPE (SUBMODEL_DATA), DIMENSION(NSUBMOD),INTENT(IN) :: LSUBMODEL
      TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB 
      INTEGER NOM_OPT(LNOPT1,*), NOM_OPTFRIC(LNOPT1,*)
      INTEGER ILAGM,NI,NOINT
      INTEGER IPARI(NPARI),NPC(SNPC),DEF_INTER(100),NPC1(SNPC1)
      my_real stfac,xfiltr,areasl
      my_real frigap(nparir),fric_p(10),i2rupt(6),tf(npts)
      CHARACTER(LEN=NCHARTITLE) :: TITR
      TYPE(INTBUF_FRIC_STRUCT_) INTBUF_FRIC_TAB(*)
      TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
C-----------------------------------------------
      TYPE (GROUP_)  ,TARGET, DIMENSION(NGRNOD)  :: IGRNOD
      TYPE (GROUP_)  ,TARGET, DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE (SURF_)   ,TARGET , DIMENSION(NSURF)   :: IGRSURF
      TYPE (SURF_)   ,TARGET , DIMENSION(NSLIN)   :: IGRSLIN
      TYPE (INTERFACES_) ,INTENT(INOUT):: INTERFACES
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NTYP,ID_TYPE19
      CHARACTER(LEN=NCHARKEY) :: KEY
      LOGICAL IS_AVAILABLE
!
 
C=======================================================================
C     INTERFACES FOR SOLID AND STRUCTURE READING ROUTINES
C=======================================================================
 
      ntyp = 0
C
      ilagm = 0
C
      is_available = .false.
C
c flag from TYPE19 convert
      id_type19 = 0
      CALL hm_get_intv('ID_TYPE19',id_type19,is_available,lsubmodel)
C
      IF (id_type19 > 0) THEN
C--   No printout for interfaces generated from type19 - noint set to id of the type19
        noint = id_type19
      ELSE
        WRITE(iout,1000) noint,trim(titr)
      ENDIF
C
      nom_opt(1,ni)=noint
C
C---------------------------------
      CALL fretitl(titr,nom_opt(lnopt1-ltitr+1,ni),ltitr)
 
C---------------------------------------------------------------
C  INTERFACES TYPE : READING ROUTINES
C---------------------------------------------------------------
 
      SELECT CASE(key(1:len_trim(key)))
 
          CASE ('TYPE25')
              ntyp=25
              ninter25 = ninter25 +1
              CALL hm_read_inter_type25(
     1         ipari                ,stfac           ,frigap     ,noint      ,ni         ,
     2         igrnod               ,igrsurf         ,xfiltr     ,fric_p     ,def_inter  ,
     3         sensors              ,nom_opt         ,unitab     ,lsubmodel  ,titr       ,
     4         nom_optfric          ,intbuf_fric_tab ,npc        ,npc1       ,tf         ,
     5         interfaces%PARAMETERS,npari           ,nparir     ,snpc       ,snpc1      ,
     6         npts                 ,itherm_fe       ,intheat   )
 
          CASE ('TYPE24')
              ntyp=24
              CALL hm_read_inter_type24(
     1        ipari      ,stfac          ,frigap                ,noint      ,ni        ,
     2        igrnod     ,igrsurf        ,xfiltr                ,fric_p     ,def_inter ,
     3        sensors    ,nom_opt        ,unitab                ,lsubmodel  ,titr      ,
     4        nom_optfric,intbuf_fric_tab,interfaces%PARAMETERS ,npari      ,nparir    ,
     5        itherm_fe  ,intheat)
 
          CASE ('TYPE23')
              ntyp=23
              CALL hm_read_inter_type23(
     1             ipari      ,stfac      ,frigap     ,noint     ,
     2             igrsurf    ,xfiltr     ,fric_p     ,npc1      ,titr    ,
     3             lsubmodel  ,unitab     ,npari      ,nparir    ,snpc1   )
 
          CASE ('TYPE21')
              ntyp=21
              CALL hm_read_inter_type21(
     1          ipari      ,stfac      ,frigap     ,noint    ,ni        ,
     2          igrsurf    ,xfiltr     ,fric_p     ,npc1     ,sensors   ,
     3          nom_opt    ,unitab     ,lsubmodel  ,titr     ,npc       ,
     4          tf         ,npari      ,nparir     ,snpc     ,snpc1     ,
     5          lnopt1     ,itherm_fe  ,intheat    ,nom_optfric,intbuf_fric_tab)
 
          CASE ('TYPE20')
              ntyp=20
              CALL hm_read_inter_type20(
     1          ipari      ,stfac      ,frigap     ,noint     ,
     2          igrnod     ,igrsurf    ,igrslin    ,xfiltr    ,fric_p   ,  
     3          unitab     ,lsubmodel  ,titr       )    
 
          CASE ('HERTZ')
              ntyp  = 17
              ilagm = -1
              CALL hm_read_inter_hertz_type17(
     1          ipari      ,frigap     ,noint      ,ntyp    ,
     2          igrbric    ,unitab     ,lsubmodel  ,titr     )
 
          CASE ('TYPE16')
             ntyp = 16
             ilagm = 1 
 
          CASE ('TYPE15')
             ntyp = 15
             CALL hm_read_inter_type15(
     1            ipari     ,stfac       ,frigap     ,noint     ,
     2            igrsurf   ,titr        ,lsubmodel  ,unitab    )
 
          CASE ('TYPE14')
             ntyp = 14
             CALL hm_read_inter_type14(
     1            ipari      ,stfac      ,frigap     ,noint     ,
     2            igrnod     ,igrsurf    ,npc        ,titr      ,lsubmodel,
     3            unitab     )
 
          CASE ('TYPE11')
             ntyp = 11
             CALL hm_read_inter_type11(
     1        ipari      ,stfac      ,frigap     ,noint      ,ni       ,
     2        igrslin    ,sensors    ,def_inter  ,titr       ,
     3        nom_opt    ,unitab     ,lsubmodel  ,nom_optfric,intbuf_fric_tab,
     4        id_type19  ,npari      ,nparir     ,lnopt1  ,itherm_fe  ,intheat)
 
          CASE ('TYPE10')
             ntyp = 10
             CALL hm_read_inter_type10(
     .            ipari    ,stfac    ,frigap   ,igrnod   ,igrsurf  ,
     .            lsubmodel,unitab   ,titr     ,noint    )
 
          CASE ('TYPE8')
             ntyp = 8
             CALL hm_read_inter_type08(
     1            ipari      ,stfac      ,frigap     ,noint     ,
     2            igrnod     ,igrsurf    ,unitab    ,lsubmodel  ,titr     )
 
          CASE ('TYPE7')
             ntyp = 7
             CALL hm_read_inter_type07(
     1           ipari      ,stfac      ,frigap     ,noint     ,ni         ,    
     2           igrnod     ,igrsurf    ,xfiltr     ,fric_p    ,nom_opt    ,
     3           def_inter  ,npc1       ,sensors    ,unitab    ,lsubmodel  ,
     4           titr       ,nom_optfric,intbuf_fric_tab,npc   ,tf         ,
     5           id_type19  ,npari      ,nparir     ,snpc      ,snpc1      ,
     6           lnopt1     ,npts       ,itherm_fe  ,intheat   )
 
          CASE ('TYPE6')
             ntyp = 6
             CALL hm_read_inter_type06(
     1            ipari      ,stfac      ,frigap     ,noint     ,
     2            igrsurf    ,npc1       ,titr       ,lsubmodel ,unitab   )
 
          CASE ('TYPE5')
             ntyp = 5
           CALL hm_read_inter_type05(
     1          ipari      ,stfac      ,frigap     ,noint     ,ni       ,    
     2          igrnod     ,igrsurf    ,nom_opt    ,xfiltr    ,fric_p   ,
     3          sensors    ,unitab     ,lsubmodel  ,titr      ,npari    ,
     4          nparir)
 
          CASE ('TYPE4')
          CALL ancmsg(msgid=1615,msgtype=msgerror,anmode=aninfo,i1=noint,c1=titr)
 
          CASE ('TYPE3')
             ntyp = 3
             CALL hm_read_inter_type03(
     1          ipari      ,stfac      ,frigap     ,noint     ,
     2          igrsurf    ,unitab     ,lsubmodel  ,npari     ,
     3          nparir)
 
          CASE ('TYPE2')
             ntyp = 2
             CALL hm_read_inter_type02(
     1          ipari      ,stfac      ,frigap     ,noint     ,igrnod   ,
     2          igrsurf    ,i2rupt     ,areasl     ,def_inter ,npc1     ,
     3          titr       ,unitab     ,lsubmodel  ,npari     ,nparir   ,
     4          snpc1      ,intheat    )
 
      END SELECT ! SELECT CASE(NTYP)
C
      ipari(33) = max(0,ilagm)
C
 
C=======================================================================
 1000 FORMAT(/1x,'  INTERFACE NUMBER :',i10,1x,a)
C------------
      RETURN