init_mat_keyword.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	init_mat_keyword (matparam, keyword)

Function/Subroutine Documentation

init_mat_keyword()

subroutine init_mat_keyword	(	type(matparam_struct_), intent(inout)	matparam,
		character(len=*)	keyword )

Definition at line 152 of file init_mat_keyword.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE matparam_def_mod
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-----------------------------------------------
      CHARACTER(LEN=*) ::  KEYWORD
      TYPE(MATPARAM_STRUCT_) ,INTENT(INOUT) :: MATPARAM
C=======================================================================
      SELECT CASE (keyword)
c---
        CASE ("COMPRESSIBLE")      
          matparam%COMPRESSIBILITY = 1
c
        CASE ("INCOMPRESSIBLE")      
          matparam%COMPRESSIBILITY = 2
c
        CASE ("ELASTO_PLASTIC")      
          matparam%COMPRESSIBILITY = 3
c
        CASE ("INCREMENTAL")      
          matparam%STRAIN_FORMULATION = 1
c
        CASE ("TOTAL")      
          matparam%STRAIN_FORMULATION = 2
c
        CASE ("LARGE_STRAIN")      
          matparam%SMSTR = 2
c
        CASE ("SMALL_STRAIN")      
          matparam%SMSTR = 1
c          
        CASE ("HYDROSTATIC")      
          matparam%IPRES = 1
c          
        CASE ("HYDRO_EOS")      
          matparam%IPRES = 2
c          
        CASE ("HOOK")      
          matparam%IPRES = 3
c
        CASE ("ISOTROPIC")      
          matparam%ORTHOTROPY = 1
c
        CASE ("ORTHOTROPIC")      
          matparam%ORTHOTROPY = 2
c
        CASE ("ANISOTROPIC")      
          matparam%ORTHOTROPY = 3
c
        CASE ("SOLID_ISOTROPIC")   ! Compatibility with /PROP/TYPE 6/14/20/21/22
          matparam%PROP_SOLID = 1          
c
        CASE ("SOLID_ORTHOTROPIC") ! Compatibility with /PROP/TYPE 6/21/22
          matparam%PROP_SOLID = 2  
c
        CASE ("SOLID_COMPOSITE")   ! Compatibility with /PROP/TYPE 22
          matparam%PROP_SOLID = 3
c
        CASE ("SOLID_COHESIVE")    ! Compatibility with /PROP/TYPE 43
          matparam%PROP_SOLID = 4
c
        CASE ("SOLID_POROUS")      ! Compatibility with /PROP/TYPE 14/15
          matparam%PROP_SOLID = 5
c 
        CASE ("SOLID_ALL")         ! Compatibility with /PROP/TYPE 6/14/20/21/22/43
          matparam%PROP_SOLID = 6     
c
        CASE ("SHELL_ISOTROPIC")   ! Compatibility with /PROP/TYPE 1/9/10/11/17/19/51/52
          matparam%PROP_SHELL = 1          
c
        CASE ("SHELL_ORTHOTROPIC") ! Compatibility with /PROP/TYPE 9/10/11/17/19/51/52
          matparam%PROP_SHELL = 2  
c
        CASE ("SHELL_COMPOSITE")   ! Compatibility with /PROP/TYPE 10/11/17/19/51/52
          matparam%PROP_SHELL = 3
c
        CASE ("SHELL_ANISOTROPIC") ! Compatibility with /PROP/TYPE 10/11/16/17/19/51/52
          matparam%PROP_SHELL = 4
c
        CASE ("SHELL_ALL")         ! Compatibility with /PROP/TYPE 1/9/10/11/16/17/19/51/52
          matparam%PROP_SHELL = 5          
c
        CASE ("BEAM_CLASSIC")      ! Compatibility with /PROP/TYPE 3
          matparam%PROP_BEAM = 1          
c
        CASE ("BEAM_INTEGRATED")   ! Compatibility with /PROP/TYPE 18
          matparam%PROP_BEAM = 2  
c
        CASE ("BEAM_ALL")          ! Compatibility with /PROP/TYPE 3/18
          matparam%PROP_BEAM = 3
c
        CASE ("SPRING_PREDIT")     ! Compatibility with /PROP/TYPE 36
          matparam%PROP_SPRING = 1          
c
        CASE ("SPRING_MATERIAL")   ! Compatibility with /PROP/TYPE 23
          matparam%PROP_SPRING = 2  
c
        CASE ("SPRING_ALL")        ! Compatibility with /PROP/TYPE 23/36
          matparam%PROP_SPRING = 3   
c
        CASE ("TRUSS")             ! Compatibility with /PROP/TYPE 2
          matparam%PROP_TRUSS = 1 
c
        CASE ("SPH")               ! Compatibility with /PROP/TYPE 34
          matparam%PROP_SPH = 1         
c          
        CASE ("EOS")      
          matparam%COMPATIBILITY_EOS = 1 ! Compatibility with option /EOS
c       
        CASE ("VISC")      
          matparam%COMPATIBILITY_VISC = 1 ! Compatibility with option /VISC
        CASE DEFAULT      
          ! write error : keyword not recognized"
c---
      END SELECT
c-----------
      RETURN