30
31
32
33 USE mat_elem_mod
34
35
36
37#include "implicit_f.inc"
38
39
40
41 TYPE(MAT_ELEM_) ,INTENT(INOUT) :: MAT_ELEM
42
43
44
45 INTEGER IMAT
46
47 DO imat = 1,mat_elem%NUMMAT
48 mat_elem%MAT_PARAM(imat)%ILAW = 0
49 mat_elem%MAT_PARAM(imat)%MAT_ID = 0
50 mat_elem%MAT_PARAM(imat)%NUPARAM = 0
51 mat_elem%MAT_PARAM(imat)%NIPARAM = 0
52 mat_elem%MAT_PARAM(imat)%NFUNC = 0
53 mat_elem%MAT_PARAM(imat)%NTABLE = 0
54 mat_elem%MAT_PARAM(imat)%NSUBMAT = 0
55 mat_elem%MAT_PARAM(imat)%NFAIL = 0
56 mat_elem%MAT_PARAM(imat)%IVISC = 0
57 mat_elem%MAT_PARAM(imat)%IEOS = 0
58 mat_elem%MAT_PARAM(imat)%ITHERM = 0
59 mat_elem%MAT_PARAM(imat)%IEXPAN = 0
60 mat_elem%MAT_PARAM(imat)%IALE = 0
61 mat_elem%MAT_PARAM(imat)%ITURB = 0
62 mat_elem%MAT_PARAM(imat)%HEAT_FLAG = 0
63
64 mat_elem%MAT_PARAM(imat)%COMPRESSIBILITY = 3
65 mat_elem%MAT_PARAM(imat)%SMSTR = 2
66 mat_elem%MAT_PARAM(imat)%STRAIN_FORMULATION = 1
67 mat_elem%MAT_PARAM(imat)%IPRES = 1
68 mat_elem%MAT_PARAM(imat)%ORTHOTROPY = 1
69
70 mat_elem%MAT_PARAM(imat)%NLOC = 0
71 mat_elem%MAT_PARAM(imat)%IFAILWAVE = 0
72 mat_elem%MAT_PARAM(imat)%IXFEM = 0
73
74 mat_elem%MAT_PARAM(imat)%NMOD = 0
75
76
77
78 mat_elem%MAT_PARAM(imat)%VISC%ILAW = 0
79 mat_elem%MAT_PARAM(imat)%VISC%NUPARAM = 0
80 mat_elem%MAT_PARAM(imat)%VISC%NIPARAM = 0
81 mat_elem%MAT_PARAM(imat)%VISC%NUVAR = 0
82 mat_elem%MAT_PARAM(imat)%VISC%NFUNC = 0
83 mat_elem%MAT_PARAM(imat)%VISC%NTABLE = 0
84
85
86 mat_elem%MAT_PARAM(imat)%PROP_SOLID = 0
87 mat_elem%MAT_PARAM(imat)%PROP_SHELL = 0
88 mat_elem%MAT_PARAM(imat)%PROP_BEAM = 0
89 mat_elem%MAT_PARAM(imat)%PROP_SPRING = 0
90 mat_elem%MAT_PARAM(imat)%PROP_TRUSS = 0
91 mat_elem%MAT_PARAM(imat)%PROP_SPH = 0
92
93
94 mat_elem%MAT_PARAM(imat)%COMPATIBILITY_EOS = 0
95
96
97 mat_elem%MAT_PARAM(imat)%RHO = zero
98 mat_elem%MAT_PARAM(imat)%RHO0 = zero
99 mat_elem%MAT_PARAM(imat)%YOUNG = zero
100 mat_elem%MAT_PARAM(imat)%SHEAR = zero
101 mat_elem%MAT_PARAM(imat)%BULK = zero
102 mat_elem%MAT_PARAM(imat)%NU = zero
103 mat_elem%MAT_PARAM(imat)%STIFF_CONTACT = zero
104 mat_elem%MAT_PARAM(imat)%STIFF_HGLASS = zero
105 mat_elem%MAT_PARAM(imat)%STIFF_TSTEP = zero
106
107
108 mat_elem%MAT_PARAM(imat)%EOS%TITLE = ''
109 mat_elem%MAT_PARAM(imat)%EOS%NUPARAM = 0
110 mat_elem%MAT_PARAM(imat)%EOS%NIPARAM = 0
111 mat_elem%MAT_PARAM(imat)%EOS%NFUNC = 0
112 mat_elem%MAT_PARAM(imat)%EOS%NTABLE = 0
113 mat_elem%MAT_PARAM(imat)%EOS%ISFLUID = 0
114 mat_elem%MAT_PARAM(imat)%EOS%CV = zero
115 mat_elem%MAT_PARAM(imat)%EOS%CP = zero
116
117
118 mat_elem%MAT_PARAM(imat)%THERM%iform = 0
119 mat_elem%MAT_PARAM(imat)%THERM%func_thexp = 0
120 mat_elem%MAT_PARAM(imat)%THERM%TINI = zero
121 mat_elem%MAT_PARAM(imat)%THERM%TREF = zero
122 mat_elem%MAT_PARAM(imat)%THERM%TMELT = zero
123 mat_elem%MAT_PARAM(imat)%THERM%RHOCP = zero
124 mat_elem%MAT_PARAM(imat)%THERM%AS = zero
125 mat_elem%MAT_PARAM(imat)%THERM%BS = zero
126 mat_elem%MAT_PARAM(imat)%THERM%AL = zero
127 mat_elem%MAT_PARAM(imat)%THERM%BL = zero
128 mat_elem%MAT_PARAM(imat)%THERM%EFRAC = zero
129 mat_elem%MAT_PARAM(imat)%THERM%scale_thexp= zero
130
131 END DO
132
133 RETURN
1.15.0