Lines Matching refs:EGmass
1 subroutine bc3LHS (iBC, BC, iens, EGmass ) argument
25 & BC(nshg,11), EGmass(npro,nedof,nedof)
58 EGmass(iel,i,i1) = zero
59 EGmass(iel,i1,i) = zero
61 EGmass(iel,i1,i1) = one
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)
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)
87 EGmass(iel,i,i2) = zero
88 EGmass(iel,i2,i) = zero
90 EGmass(iel,i2,i2) = one
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)
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)
110 EGmass(iel,i,i3) = zero
111 EGmass(iel,i3,i) = zero
113 EGmass(iel,i3,i3) = one
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)
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)
131 EGmass(iel,i,i2) = zero
132 EGmass(iel,i2,i) = zero
133 EGmass(iel,i,i3) = zero
134 EGmass(iel,i3,i) = zero
136 EGmass(iel,i2,i2) = one
137 EGmass(iel,i3,i3) = one
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)
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)
157 EGmass(iel,i,i4) = zero
158 EGmass(iel,i4,i) = zero
160 EGmass(iel,i4,i4) = one
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)
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)
178 EGmass(iel,i ,i2) = zero
179 EGmass(iel,i2,i ) = zero
180 EGmass(iel,i ,i4) = zero
181 EGmass(iel,i4,i ) = zero
183 EGmass(iel,i2,i2) = one
184 EGmass(iel,i4,i4) = one
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)
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)
202 EGmass(iel,i ,i3) = zero
203 EGmass(iel,i3,i ) = zero
204 EGmass(iel,i ,i4) = zero
205 EGmass(iel,i4,i ) = zero
207 EGmass(iel,i3,i3) = one
208 EGmass(iel,i4,i4) = one
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
222 EGmass(iel,i2,i2) = one
223 EGmass(iel,i3,i3) = one
224 EGmass(iel,i4,i4) = one
231 EGmass(iel,i,i5) = zero
232 EGmass(iel,i5,i) = zero
234 EGmass(iel,i5,i5) = one
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
254 EGmass(iel,i1,i1) = one
255 EGmass(iel,i2,i2) = one
256 EGmass(iel,i3,i3) = one
257 EGmass(iel,i4,i4) = one
258 EGmass(iel,i5,i5) = one
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
272 EGmass(iel,i2,i2) = one
273 EGmass(iel,i3,i3) = one
274 EGmass(iel,i4,i4) = one
275 EGmass(iel,i5,i5) = one