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