hm_read_inter_lagmul.F File Reference

#include "implicit_f.inc"
#include "scr17_c.inc"
#include "com04_c.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_inter_lagmul (ipari, stfac, frigap, igrnod, igrsurf, ilagm, ni, nom_opt, titr, def_inter, igrbric, unitab, lsubmodel, noint, key, npari, nparir)

Function/Subroutine Documentation

hm_read_inter_lagmul()

subroutine hm_read_inter_lagmul	(	integer, dimension(npari)	ipari,
			stfac,
			frigap,
		type (group_), dimension(ngrnod), target	igrnod,
		type (surf_), dimension(nsurf), target	igrsurf,
		integer	ilagm,
		integer	ni,
		integer, dimension(lnopt1,*)	nom_opt,
		character(len=nchartitle)	titr,
		integer, dimension(100)	def_inter,
		type (group_), dimension(ngrbric), target	igrbric,
		type (unit_type_), intent(in)	unitab,
		type(submodel_data), dimension(nsubmod)	lsubmodel,
		integer	noint,
		character(len=ncharkey)	key,
		integer, intent(in)	npari,
		integer, intent(in)	nparir )

Parameters

[in]

nparir

array sizes IPARI and FRIGAP

Definition at line 38 of file hm_read_inter_lagmul.F.

C============================================================================
C
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE unitab_mod
      USE message_mod
      USE groupdef_mod
      USE submodel_mod , ONLY : submodel_data, nsubmod
      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   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr17_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER,INTENT(IN) :: NPARI, NPARIR !< array sizes IPARI and FRIGAP
      INTEGER NOM_OPT(LNOPT1,*)
      INTEGER ISU1,ISU2,ILAGM,NI,NOINT
      INTEGER IPARI(NPARI),DEF_INTER(100)
      my_real stfac
      my_real frigap(nparir)
      CHARACTER(LEN=NCHARTITLE)::TITR
      CHARACTER(LEN=NCHARKEY)::KEY
C-----------------------------------------------
      TYPE (GROUP_)  ,TARGET, DIMENSION(NGRNOD)  :: IGRNOD
      TYPE (GROUP_)  ,TARGET, DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE (SURF_)   ,TARGET , DIMENSION(NSURF)   :: IGRSURF
      TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB 
      TYPE(SUBMODEL_DATA) LSUBMODEL(NSUBMOD)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "units_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER UID,NTYP,USR_TYP
C=======================================================================
C     READING LAGRANGE MULTIPLIER INTERFACES (/INTER/LAGMUL/TYPE2, 
C         /INTER/LAGMUL/TYPE7, /INTER/LAGMUL/TYPE16,/INTER/LAGMUL/TYPE17)
C========================================================================
C
      ilagm = 1
      ipari(33) = ilagm
C
      nom_opt(1,ni)=noint
C
      WRITE(iout,1000) noint,trim(titr)
C---------------------------------------------------------------
      CALL fretitl(titr,nom_opt(lnopt1-ltitr+1,ni),ltitr)
C---------------------------------------------------------------
C LAGMUL INTERFACES READING ROUTINES
C-----------------------------
      ntyp = 0
      SELECT CASE(key(1:len_trim(key)))
c------------------------------
         CASE ('TYPE2')
c------------------------------
           ntyp = 2
           CALL hm_read_inter_lagmul_type02(
     1        ipari      ,frigap     ,noint      ,
     2        igrnod     ,igrsurf    ,def_inter  ,titr      ,unitab     ,
     3        lsubmodel  ,npari      ,nparir)
c------------------------------
         CASE ('TYPE7')
c------------------------------
           ntyp = 7
           CALL hm_read_inter_lagmul_type07(
     1        ipari      ,stfac      ,frigap     ,noint     ,
     2        igrnod     ,igrsurf    , titr       ,unitab     ,lsubmodel  )
c------------------------------
         CASE ('TYPE16')
c------------------------------
           ntyp = 16 
           CALL hm_read_inter_lagmul_type16(
     .          ipari      ,stfac      ,frigap     ,noint     ,
     .          igrnod     ,igrbric    ,lsubmodel )
c------------------------------
         CASE ('TYPE17')
c------------------------------
           ntyp = 17
           CALL hm_read_inter_lagmul_type17(
     .          ipari      ,stfac      ,frigap    ,noint     ,
     .          igrbric    ,lsubmodel )
C---------------------------------------------------------------
      END SELECT
C---------------------------------------------------------------
      usr_typ = ntyp
      IF (usr_typ/=2.AND.usr_typ/=7.AND.usr_typ/=16.AND.usr_typ/=17) THEN
         CALL ancmsg(msgid=486,msgtype=msgerror,anmode=aninfo,
     .               i1=noint,
     .               c1=titr,
     .               i2=ntyp)
      ENDIF
C
      IF (stfac == zero ) stfac = one_fifth
C  
C--------------------------------------------------------------
 1000 FORMAT(/1x,'  INTERFACE number :',I10,1X,A)
C------------
      RETURN