Lines Matching refs:BC
1 subroutine bc3BDg (y, iBC, BC, BDiag, iper, ilwork) argument
27 & BC(nshg,ndofBC),
83 BDiag(:,5,4) = BDiag(:,5,4) - BC(:,5) * BDiag(:,5,2)
84 BDiag(:,5,3) = BDiag(:,5,3) - BC(:,4) * BDiag(:,5,2)
86 BDiag(:,4,5) = BDiag(:,4,5) - BC(:,5) * BDiag(:,2,5)
87 BDiag(:,3,5) = BDiag(:,3,5) - BC(:,4) * BDiag(:,2,5)
89 BDiag(:,4,1) = BDiag(:,4,1) - BC(:,5) * BDiag(:,2,1)
90 BDiag(:,3,1) = BDiag(:,3,1) - BC(:,4) * BDiag(:,2,1)
92 BDiag(:,1,4) = BDiag(:,1,4) - BC(:,5) * BDiag(:,1,2)
93 BDiag(:,1,3) = BDiag(:,1,3) - BC(:,4) * BDiag(:,1,2)
95 BDiag(:,4,4) = BDiag(:,4,4) + BC(:,5) * BC(:,5) * BDiag(:,2,2)
96 & - BC(:,5) * BDiag(:,2,4)
97 & - BC(:,5) * BDiag(:,4,2)
98 BDiag(:,3,4) = BDiag(:,3,4) + BC(:,4) * BC(:,5) * BDiag(:,2,2)
99 & - BC(:,5) * BDiag(:,3,2)
100 & - BC(:,4) * BDiag(:,2,4)
101 BDiag(:,4,3) = BDiag(:,4,3) + BC(:,4) * BC(:,5) * BDiag(:,2,2)
102 & - BC(:,5) * BDiag(:,2,3)
103 & - BC(:,4) * BDiag(:,4,2)
104 BDiag(:,3,3) = BDiag(:,3,3) + BC(:,4) * BC(:,4) * BDiag(:,2,2)
105 & - BC(:,4) * BDiag(:,2,3)
106 & - BC(:,4) * BDiag(:,3,2)
121 BDiag(:,5,4) = BDiag(:,5,4) - BC(:,5) * BDiag(:,5,3)
122 BDiag(:,5,2) = BDiag(:,5,2) - BC(:,4) * BDiag(:,5,3)
124 BDiag(:,4,5) = BDiag(:,4,5) - BC(:,5) * BDiag(:,3,5)
125 BDiag(:,2,5) = BDiag(:,2,5) - BC(:,4) * BDiag(:,3,5)
127 BDiag(:,4,1) = BDiag(:,4,1) - BC(:,5) * BDiag(:,3,1)
128 BDiag(:,2,1) = BDiag(:,2,1) - BC(:,4) * BDiag(:,3,1)
130 BDiag(:,1,4) = BDiag(:,1,4) - BC(:,5) * BDiag(:,1,3)
131 BDiag(:,1,2) = BDiag(:,1,2) - BC(:,4) * BDiag(:,1,3)
133 BDiag(:,4,4) = BDiag(:,4,4) + BC(:,5) * BC(:,5) * BDiag(:,3,3)
134 & - BC(:,5) * BDiag(:,3,4)
135 & - BC(:,5) * BDiag(:,4,3)
136 BDiag(:,2,4) = BDiag(:,2,4) + BC(:,4) * BC(:,5) * BDiag(:,3,3)
137 & - BC(:,5) * BDiag(:,2,3)
138 & - BC(:,4) * BDiag(:,3,4)
139 BDiag(:,4,2) = BDiag(:,4,2) + BC(:,4) * BC(:,5) * BDiag(:,3,3)
140 & - BC(:,5) * BDiag(:,3,2)
141 & - BC(:,4) * BDiag(:,4,3)
142 BDiag(:,2,2) = BDiag(:,2,2) + BC(:,4) * BC(:,4) * BDiag(:,3,3)
143 & - BC(:,4) * BDiag(:,2,3)
144 & - BC(:,4) * BDiag(:,3,2)
159 BDiag(:,4,4) = BDiag(:,4,4) + BC(:,4) * BC(:,4) * BDiag(:,2,2)
160 & + BC(:,6) * BC(:,6) * BDiag(:,3,3)
161 & + BC(:,4) * BC(:,6) * ( BDiag(:,2,3) * BDiag(:,3,2))
162 & - BC(:,6) * ( BDiag(:,4,3) * BDiag(:,3,4))
163 & - BC(:,4) * ( BDiag(:,4,2) * BDiag(:,2,4))
164 BDiag(:,1,4) = BDiag(:,1,4) - BC(:,4) * BDiag(:,1,2)
165 & - BC(:,6) * BDiag(:,1,3)
166 BDiag(:,4,1) = BDiag(:,4,1) - BC(:,4) * BDiag(:,2,1)
167 & - BC(:,6) * BDiag(:,3,1)
168 BDiag(:,5,4) = BDiag(:,5,4) - BC(:,4) * BDiag(:,5,2)
169 & - BC(:,6) * BDiag(:,5,3)
170 BDiag(:,4,5) = BDiag(:,4,5) - BC(:,4) * BDiag(:,2,5)
171 & - BC(:,6) * BDiag(:,3,5)
193 BDiag(:,5,3) = BDiag(:,5,3) - BC(:,5) * BDiag(:,5,4)
194 BDiag(:,5,2) = BDiag(:,5,2) - BC(:,4) * BDiag(:,5,4)
196 BDiag(:,3,5) = BDiag(:,3,5) - BC(:,5) * BDiag(:,4,5)
197 BDiag(:,2,5) = BDiag(:,2,5) - BC(:,4) * BDiag(:,4,5)
199 BDiag(:,3,1) = BDiag(:,3,1) - BC(:,5) * BDiag(:,4,1)
200 BDiag(:,2,1) = BDiag(:,2,1) - BC(:,4) * BDiag(:,4,1)
202 BDiag(:,1,3) = BDiag(:,1,3) - BC(:,5) * BDiag(:,1,4)
203 BDiag(:,1,2) = BDiag(:,1,2) - BC(:,4) * BDiag(:,1,4)
205 BDiag(:,3,3) = BDiag(:,3,3) + BC(:,5) * BC(:,5) * BDiag(:,4,4)
206 & - BC(:,5) * BDiag(:,3,4)
207 & - BC(:,5) * BDiag(:,4,3)
208 BDiag(:,2,3) = BDiag(:,2,3) + BC(:,4) * BC(:,5) * BDiag(:,4,4)
209 & - BC(:,5) * BDiag(:,2,4)
210 & - BC(:,4) * BDiag(:,4,3)
211 BDiag(:,3,2) = BDiag(:,3,2) + BC(:,4) * BC(:,5) * BDiag(:,4,4)
212 & - BC(:,5) * BDiag(:,4,2)
213 & - BC(:,4) * BDiag(:,3,4)
214 BDiag(:,2,2) = BDiag(:,2,2) + BC(:,4) * BC(:,4) * BDiag(:,4,4)
215 & - BC(:,4) * BDiag(:,2,4)
216 & - BC(:,4) * BDiag(:,4,2)
231 BDiag(:,3,3) = BDiag(:,3,3) + BC(:,4) * BC(:,4) * BDiag(:,2,2)
232 & + BC(:,6) * BC(:,6) * BDiag(:,4,4)
233 & + BC(:,4) * BC(:,6) *(BDiag(:,2,4) + BDiag(:,4,2))
234 & - BC(:,4) *(BDiag(:,2,3) + BDiag(:,3,2))
235 & - BC(:,6) *(BDiag(:,4,3) + BDiag(:,3,4))
236 BDiag(:,1,3) = BDiag(:,1,3) - BC(:,4) * BDiag(:,1,2)
237 & - BC(:,6) * BDiag(:,1,4)
238 BDiag(:,3,1) = BDiag(:,3,1) - BC(:,4) * BDiag(:,2,1)
239 & - BC(:,6) * BDiag(:,4,1)
240 BDiag(:,5,3) = BDiag(:,5,3) - BC(:,4) * BDiag(:,5,2)
241 & - BC(:,6) * BDiag(:,5,4)
242 BDiag(:,3,5) = BDiag(:,3,5) - BC(:,4) * BDiag(:,2,5)
243 & - BC(:,6) * BDiag(:,4,5)
265 BDiag(:,2,2) = BDiag(:,2,2) + BC(:,4) * BC(:,4) * BDiag(:,3,3)
266 & + BC(:,6) * BC(:,6) * BDiag(:,4,4)
267 & + BC(:,4) * BC(:,6) * (BDiag(:,3,4) + BDiag(:,4,3))
268 & - BC(:,4) *(BDiag(:,2,3) + BDiag(:,3,2))
269 & - BC(:,6) *(BDiag(:,4,2) + BDiag(:,2,4))
270 BDiag(:,1,2) = BDiag(:,1,2) - BC(:,4) * BDiag(:,1,3)
271 & - BC(:,6) * BDiag(:,1,4)
272 BDiag(:,2,1) = BDiag(:,2,1) - BC(:,4) * BDiag(:,3,1)
273 & - BC(:,6) * BDiag(:,4,1)
274 BDiag(:,5,2) = BDiag(:,5,2) - BC(:,4) * BDiag(:,5,3)
275 & - BC(:,6) * BDiag(:,5,4)
276 BDiag(:,2,5) = BDiag(:,2,5) - BC(:,4) * BDiag(:,3,5)
277 & - BC(:,6) * BDiag(:,4,5)