hm_read_prop33.F File Reference

#include "implicit_f.inc"
#include "tablen_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_prop33 (iout, nuvar, pargeo, unitab, iunit, id, titr, prop_tag, igtyp, lsubmodel)

Function/Subroutine Documentation

hm_read_prop33()

subroutine hm_read_prop33	(	integer	iout,
		integer	nuvar,
			pargeo,
		type (unit_type_), intent(in)	unitab,
		integer	iunit,
		integer	id,
		character(len=nchartitle)	titr,
		type(prop_tag_), dimension(0:maxprop)	prop_tag,
		integer	igtyp,
		type(submodel_data), dimension(*), intent(in)	lsubmodel )

Definition at line 45 of file hm_read_prop33.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE unitab_mod
      USE message_mod
      USE elbuftag_mod
      USE submodel_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"
#include      "tablen_c.inc"
C-----------------------------------------------
C   A n a l y s e   M o d u l e
C-----------------------------------------------
C----------+---------+---+---+--------------------------------------------
C VAR      | SIZE    |TYP| RW| DEFINITION
C----------+---------+---+---+--------------------------------------------
C IOUT     |  1      | I | R | OUTPUT FILE UNIT (L00 file)
C NUVAR    |  1      | I | W | NUMBER OF USER ELEMENT VARIABLES
C----------+---------+---+---+--------------------------------------------
C PARGEO   |  *      | F | W | 1)SKEW NUMBER
C          |         |   |   | 2)STIFNESS FOR INTERFACE
C          |         |   |   | 3)FRONT WAVE OPTION
C          |         |   |   | 4)... not yet used
C----------+---------+---+---+--------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE (UNIT_TYPE_),INTENT(IN) ::UNITAB 
      INTEGER IOUT,NUVAR,IUNIT
      my_real pargeo(*)
      INTEGER ID, IGTYP
      CHARACTER(LEN=NCHARTITLE) :: TITR
      TYPE(PROP_TAG_) , DIMENSION(0:MAXPROP) :: PROP_TAG
      TYPE(SUBMODEL_DATA),INTENT(IN)::LSUBMODEL(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER ITYP,SKFLAG
      LOGICAL IS_AVAILABLE, IS_ENCRYPTED
C=======================================================================
C EXTRACT DATA (IS OPTION CRYPTED)
C--------------------------------------------------
      CALL hm_option_is_encrypted(is_encrypted)
C--------------------------------------------------
C EXTRACT DATAS (INTEGER VALUES)
C--------------------------------------------------
      CALL hm_get_intv('type',ityp,is_available,lsubmodel)
      CALL hm_get_intv('SkewFlag',skflag,is_available,lsubmodel)
C--------------------------------------------------
C
      nuvar = 39
C
      IF (ityp==1) THEN
        CALL hm_read_prop33_sph_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==2) THEN
        CALL hm_read_prop33_rev_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==3) THEN
        CALL hm_read_prop33_cyl_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==4) THEN
        CALL hm_read_prop33_plan_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==5) THEN
        CALL hm_read_prop33_univ_jnt(iout,ityp,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==6) THEN
        CALL hm_read_prop33_trans_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==7) THEN
        CALL hm_read_prop33_old_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==8) THEN
        CALL hm_read_prop33_fix_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSEIF (ityp==9) THEN
        CALL hm_read_prop33_free_jnt(iout,ityp,skflag,pargeo,is_encrypted,unitab,iunit,
     .                   id,titr,lsubmodel)
      ELSE
C        WRITE(IOUT,*)' **ERROR WRONG JOINT TYPE'
         CALL ancmsg(msgid=409,
     .               msgtype=msgerror,
     .               anmode=aninfo_blind_2,
     .               i1=id,
     .               c1=titr,
     .               i2=ityp)
      END IF
C
      prop_tag(igtyp)%G_EINT = 1
      prop_tag(igtyp)%G_FOR  = 3
      prop_tag(igtyp)%G_MOM = 3
      prop_tag(igtyp)%G_TOTDEPL = 3
      prop_tag(igtyp)%G_TOTROT = 3
      prop_tag(igtyp)%G_SKEW = 3
      prop_tag(igtyp)%G_MASS = 1
      prop_tag(igtyp)%G_NUVAR = nuvar
      prop_tag(igtyp)%G_LENGTH_ERR = 3
C
      RETURN