hm_read_prop43.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_prop43 (geo, igeo, iout, ig, nuvar, pargeo, igtyp, prop_tag, unitab, lsubmodel, defaults_solid)

Function/Subroutine Documentation

hm_read_prop43()

subroutine hm_read_prop43	(		geo,
		integer, dimension(npropgi)	igeo,
		integer	iout,
		integer	ig,
		integer	nuvar,
			pargeo,
		integer	igtyp,
		type(prop_tag_), dimension(0:maxprop)	prop_tag,
		type (unit_type_), intent(in)	unitab,
		type(submodel_data), dimension(*), intent(in)	lsubmodel,
		type(solid_defaults_), intent(in)	defaults_solid )

Definition at line 37 of file hm_read_prop43.F.

C============================================================================
C   M o d u l e s
C-----------------------------------------------
      USE unitab_mod
      USE message_mod
      USE submodel_mod
      USE elbuftag_mod           
      USE defaults_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      "param_c.inc"
#include      "tablen_c.inc"
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 IGEO(NPROPGI)
      INTEGER IG,IGTYP
      my_real   geo(*) 
 
      TYPE(PROP_TAG_) , DIMENSION(0:MAXPROP) :: PROP_TAG
      TYPE(SUBMODEL_DATA),INTENT(IN)::LSUBMODEL(*)
      my_real   
     .        pargeo(*)
      TYPE(SOLID_DEFAULTS_), INTENT(IN) :: DEFAULTS_SOLID
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IOUT,IERROR,NUVAR,NPG,JCVT,ISMSTR
      INTEGER     IHBE_DS,ISST_DS,IPLA_DS,IFRAME_DS
      my_real
     .   tthick
      LOGICAL IS_AVAILABLE, IS_ENCRYPTED
C=======================================================================
      is_encrypted = .false.
      is_available = .false.
C
      nuvar  = 0
      npg    = 4
      jcvt   = 1
      ismstr = 0
!--- defaults values      
      ihbe_ds=  defaults_solid%ISOLID
      isst_ds=  defaults_solid%ISMSTR
      iframe_ds= defaults_solid%IFRAME
C
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('Ismstr',ismstr,is_available,lsubmodel)
C--------------------------------------------------
C EXTRACT DATAS (REAL VALUES)
C--------------------------------------------------
      CALL hm_get_floatv('THICK',tthick,is_available,lsubmodel,unitab)
C
      geo(41) = tthick
C
      pargeo(1) = 0                                                  
      pargeo(2) = 0                                                  
      pargeo(3) = 0                                                  
      pargeo(4) = npg                                                
      pargeo(5) = jcvt                                               
      IF (ismstr == 0) ismstr = isst_ds                              
      IF (ismstr  < 0 .OR. isst_ds==-2) ismstr = 1                            
      IF (ismstr == 0 .OR. ismstr == 2 .OR. ismstr == 3) ismstr = 1  
      IF (ismstr == 10) ismstr = 4 
                                   
      igeo(5) = ismstr   
c
C-----------     
c
      IF(.NOT. is_encrypted)THEN
        IF(tthick > 0) THEN
          WRITE(iout,1100) ig,ismstr,tthick
        ELSE
          WRITE(iout,1000) ig,ismstr
        ENDIF
      ELSE
        WRITE(iout,'(5X,A,//)')'CONFIDENTIAL DATA'
      ENDIF
 
      prop_tag(igtyp)%G_SIG  = 6
      prop_tag(igtyp)%L_SIG  = 6
      prop_tag(igtyp)%G_VOL  = 1
      prop_tag(igtyp)%L_VOL  = 1
      prop_tag(igtyp)%G_EINT = 1
      prop_tag(igtyp)%L_EINT = 1
      prop_tag(igtyp)%G_GAMA = 9
      prop_tag(igtyp)%G_FILL = 1
 
C-----------
      RETURN
C-----------
 1000 FORMAT(
     & 5x,'SOLID SPOTWELD PROPERTY SET'/,
     & 5x,'PROPERTY SET ID . . . . . . . . . . . .=',i10/,
     & 5x,'SMALL STRAIN FLAG . . . . . . . . . . .=',i10/)
 1100 FORMAT(
     & 5x,'SOLID SPOTWELD PROPERTY SET'/,
     & 5x,'PROPERTY SET ID . . . . . . . . . . . .=',i10/,
     & 5x,'SMALL STRAIN FLAG . . . . . . . . . . .=',i10/,
     & 5x,'TRUE THICKNESS  . . . . . . . . . . . .=',1pg20.13/)
C-----------
      RETURN