Lines Matching refs:i
57 do i = 1, nedof
58 EGmass(iel,i,i1) = zero
59 EGmass(iel,i1,i) = zero
74 do i = 1, nedof
75 EGmass(iel,i3,i) = EGmass(iel,i3,i)
76 & - BC(in,4) * EGmass(iel,i2,i)
77 EGmass(iel,i4,i) = EGmass(iel,i4,i)
78 & - BC(in,5) * EGmass(iel,i2,i)
80 do i = 1, nedof
81 EGmass(iel,i,i3) = EGmass(iel,i,i3)
82 & - BC(in,4) * EGmass(iel,i,i2)
83 EGmass(iel,i,i4) = EGmass(iel,i,i4)
84 & - BC(in,5) * EGmass(iel,i,i2)
86 do i = 1, nedof
87 EGmass(iel,i,i2) = zero
88 EGmass(iel,i2,i) = zero
96 do i = 1, nedof
97 EGmass(iel,i2,i) = EGmass(iel,i2,i)
98 & - BC(in,4) * EGmass(iel,i3,i)
99 EGmass(iel,i4,i) = EGmass(iel,i4,i)
100 & - BC(in,5) * EGmass(iel,i3,i)
102 do i = 1, nedof
103 EGmass(iel,i,i2) = EGmass(iel,i,i2)
104 & - BC(in,4) * EGmass(iel,i,i3)
105 EGmass(iel,i,i4) = EGmass(iel,i,i4)
106 & - BC(in,5) * EGmass(iel,i,i3)
109 do i = 1, nedof
110 EGmass(iel,i,i3) = zero
111 EGmass(iel,i3,i) = zero
119 do i = 1, nedof
120 EGmass(iel,i4,i) = EGmass(iel,i4,i)
121 & - BC(in,4) * EGmass(iel,i2,i)
122 & - BC(in,6) * EGmass(iel,i3,i)
124 do i = 1, nedof
125 EGmass(iel,i,i4) = EGmass(iel,i,i4)
126 & - BC(in,4) * EGmass(iel,i,i2)
127 & - BC(in,6) * EGmass(iel,i,i3)
130 do i = 1, nedof
131 EGmass(iel,i,i2) = zero
132 EGmass(iel,i2,i) = zero
133 EGmass(iel,i,i3) = zero
134 EGmass(iel,i3,i) = zero
143 do i = 1, nedof
144 EGmass(iel,i2,i) = EGmass(iel,i2,i)
145 & - BC(in,4) * EGmass(iel,i4,i)
146 EGmass(iel,i3,i) = EGmass(iel,i3,i)
147 & - BC(in,5) * EGmass(iel,i4,i)
149 do i = 1, nedof
150 EGmass(iel,i,i2) = EGmass(iel,i,i2)
151 & - BC(in,4) * EGmass(iel,i,i4)
152 EGmass(iel,i,i3) = EGmass(iel,i,i3)
153 & - BC(in,5) * EGmass(iel,i,i4)
156 do i = 1, nedof
157 EGmass(iel,i,i4) = zero
158 EGmass(iel,i4,i) = zero
166 do i = 1, nedof
167 EGmass(iel,i3,i) = EGmass(iel,i3,i)
168 & - BC(in,4) * EGmass(iel,i2,i)
169 & - BC(in,6) * EGmass(iel,i4,i)
171 do i = 1, nedof
172 EGmass(iel,i,i3) = EGmass(iel,i,i3)
173 & - BC(in,4) * EGmass(iel,i,i2)
174 & - BC(in,6) * EGmass(iel,i,i4)
177 do i = 1, nedof
178 EGmass(iel,i ,i2) = zero
179 EGmass(iel,i2,i ) = zero
180 EGmass(iel,i ,i4) = zero
181 EGmass(iel,i4,i ) = zero
190 do i = 1, nedof
191 EGmass(iel,i2,i) = EGmass(iel,i2,i)
192 & - BC(in,4) * EGmass(iel,i3,i)
193 & - BC(in,6) * EGmass(iel,i4,i)
195 do i = 1, nedof
196 EGmass(iel,i,i2) = EGmass(iel,i,i2)
197 & - BC(in,4) * EGmass(iel,i,i3)
198 & - BC(in,6) * EGmass(iel,i,i4)
201 do i = 1, nedof
202 EGmass(iel,i ,i3) = zero
203 EGmass(iel,i3,i ) = zero
204 EGmass(iel,i ,i4) = zero
205 EGmass(iel,i4,i ) = zero
214 do i = 1, nedof
215 EGmass(iel,i ,i2) = zero
216 EGmass(iel,i2,i ) = zero
217 EGmass(iel,i ,i3) = zero
218 EGmass(iel,i3,i ) = zero
219 EGmass(iel,i ,i4) = zero
220 EGmass(iel,i4,i ) = zero
230 do i = 1, nedof
231 EGmass(iel,i,i5) = zero
232 EGmass(iel,i5,i) = zero
242 do i = 1, nedof
243 EGmass(iel,i ,i1) = zero
244 EGmass(iel,i1,i ) = zero
245 EGmass(iel,i ,i2) = zero
246 EGmass(iel,i2,i ) = zero
247 EGmass(iel,i ,i3) = zero
248 EGmass(iel,i3,i ) = zero
249 EGmass(iel,i ,i4) = zero
250 EGmass(iel,i4,i ) = zero
251 EGmass(iel,i,i5) = zero
252 EGmass(iel,i5,i) = zero
262 do i = 1, nedof
263 EGmass(iel,i ,i2) = zero
264 EGmass(iel,i2,i ) = zero
265 EGmass(iel,i ,i3) = zero
266 EGmass(iel,i3,i ) = zero
267 EGmass(iel,i ,i4) = zero
268 EGmass(iel,i4,i ) = zero
269 EGmass(iel,i,i5) = zero
270 EGmass(iel,i5,i) = zero
350 do i = 1, nshl
351 EGmasst(iel,i,inod) = zero
352 EGmasst(iel,inod,i) = zero