31
32
33
35
36
37
38#include "implicit_f.inc"
39
40
41
42#include "tablen_c.inc"
43#include "scr05_c.inc"
44
45
46
47 INTEGER ,INTENT(IN) :: NUMMAT
48 TYPE(MLAW_TAG_) ,TARGET ,DIMENSION(NUMMAT ) :: MLAW_TAG
49
50
51
52 INTEGER IMAT,ILAW
53 TYPE(MLAW_TAG_) , POINTER :: MTAG
54
55
56
57
58
59 DO imat = 1,nummat
60 mtag => mlaw_tag(imat)
61
62 mtag%G_EINT = 1
63 mtag%G_EINS = 0
64 mtag%G_RHO = 0
65 mtag%G_DELTAX = 0
66 mtag%G_EPSD = 1
67 mtag%G_EPSQ = 0
68 mtag%G_PLA = 0
69 mtag%G_TEMP = 0
70 mtag%G_TB = 0
71 mtag%G_RE = 0
72 mtag%G_RK = 0
73 mtag%G_GAMA = 0
74 mtag%G_BFRAC = 0
75 mtag%G_SIGI = 0
76 mtag%G_IERR = 0
77 mtag%G_DAMDL = 0
78 mtag%G_SEQ = 0
79 mtag%G_ABURN = 0
80 mtag%G_MU = 0
81 mtag%G_PLANL = 0
82 mtag%G_EPSDNL = 0
83 mtag%G_DMGSCL = 0
84 mtag%G_TSAIWU = 0
85 mtag%G_MAXFRAC= 0
86 mtag%G_MAXEPS = 0
87 mtag%G_DMG = 0
88
89 mtag%G_TOTDEPL = 0
90 mtag%G_TOTROT = 0
91 mtag%G_DEP_IN_TENS = 0
92 mtag%G_DEP_IN_COMP = 0
93 mtag%G_ROT_IN_TENS = 0
94 mtag%G_ROT_IN_COMP = 0
95 mtag%G_POSX = 0
96 mtag%G_POSY = 0
97 mtag%G_POSZ = 0
98 mtag%G_POSXX = 0
99 mtag%G_POSYY = 0
100 mtag%G_POSZZ = 0
101 mtag%G_YIELD = 0
102 mtag%G_RUPTCRIT = 0
103 mtag%G_NUVAR = 0
104 mtag%G_MASS = 0
105 mtag%G_SKEW_ID = 0
106 mtag%G_YIELD_IN_COMP = 0
107 mtag%G_XXOLD_IN_COMP = 0
108
109
110
111 mtag%G_SLIPRING_ID = 0
112 mtag%G_SLIPRING_FRAM_ID = 0
113 mtag%G_SLIPRING_STRAND = 0
114 mtag%G_RETRACTOR_ID = 0
115 mtag%G_RINGSLIP = 0
116 mtag%G_ADD_NODE = 0
117 mtag%G_UPDATE = 0
118 mtag%G_FRAM_FACTOR = 0
119 mtag%G_INTVAR = 0
120
121
122
123 mtag%LY_DIRA = 0
124
125
126 mtag%L_EINT = 1
127 mtag%L_EINS = 0
128 mtag%L_RHO = 0
129 mtag%L_DP_DRHO= 0
130 IF (iresp == 1) mtag%L_DP_DRHO= 1
131 mtag%L_DELTAX = 0
132 mtag%L_PLA = 0
133 mtag%L_TB = 0
134 mtag%L_RK =
135 mtag%L_STRA = 0
136 mtag%L_EPSA = 0
137 mtag%L_EPSD = 0
138 mtag%L_EPSQ = 0
139 mtag%L_EPSF = 0
140 mtag%L_SIGL = 0
141 mtag%L_SIGV = 0
142 mtag%L_SIGA = 0
143 mtag%L_SIGB = 0
144 mtag%L_SIGC = 0
145 mtag%L_SIGD = 0
146 mtag%L_SIGF = 0
147 mtag%L_TEMP = 0
148 mtag%L_RE = 0
149 mtag%L_VK = 0
150 mtag%L_SF = 0
151 mtag%L_ROB = 0
152 mtag%L_DAM = 0
153 mtag%L_DSUM = 0
154 mtag%L_DGLO = 0
155 mtag%L_CRAK = 0
156 mtag%L_ANG = 0
157 mtag%L_EPE = 0
158 mtag%L_EPC = 0
159 mtag%L_XST = 0
160 mtag%L_SSP = 0
161 mtag%L_Z = 0
162 mtag%L_GAMA = 0
163 mtag%L_FRAC = 0
164 mtag%L_BFRAC = 0
165 mtag%NUVAR = 0
166 mtag%NVARTMP = 0
167 mtag%L_DMG = 0
168 mtag%L_SEQ = 0
169 mtag%L_FAC_YLD= 0
170 mtag%L_ABURN = 0
171 mtag%L_MU = 0
172 mtag%L_PLANL = 0
173 mtag%L_EPSDNL = 0
174 mtag%L_DMGSCL = 0
175 mtag%L_TSAIWU = 0
176 mtag%G_THK = 0
177 ENDDO
178
179 RETURN
1.15.0