Lines Matching refs:aa
49 integer aa, b local
86 do aa = 1, nshl
87 tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)
88 tmp2 = tmp1 + t1(:,1) * shpfun(:,aa)
94 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp2
95 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp2
96 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp2
135 aa = b
137 tmp = t3(:,1) * shg(:,aa,1)
138 & + t3(:,2) * shg(:,aa,2)
139 & + t3(:,3) * shg(:,aa,3)
142 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp
143 & + t1(:,1) * shg(:,aa,1)
144 & + t2(:,1) * shg(:,aa,1)
145 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp
146 & + t1(:,2) * shg(:,aa,2)
147 & + t2(:,2) * shg(:,aa,2)
148 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp
149 & + t1(:,3) * shg(:,aa,3)
150 & + t2(:,3) * shg(:,aa,3)
152 tmp1 = t1(:,1) * shg(:,aa,2)
153 & + t2(:,2) * shg(:,aa,1)
154 xKebe(:,2,aa,b) = xKebe(:,2,aa,b) + tmp1
155 xKebe(:,4,b,aa) = xKebe(:,4,b,aa) + tmp1
157 tmp1 = t1(:,1) * shg(:,aa,3)
158 & + t2(:,3) * shg(:,aa,1)
159 xKebe(:,3,aa,b) = xKebe(:,3,aa,b) + tmp1
160 xKebe(:,7,b,aa) = xKebe(:,7,b,aa) + tmp1
162 tmp1 = t1(:,2) * shg(:,aa,3)
163 & + t2(:,3) * shg(:,aa,2)
164 xKebe(:,6,aa,b) = xKebe(:,6,aa,b) + tmp1
165 xKebe(:,8,b,aa) = xKebe(:,8,b,aa) + tmp1
169 do aa = b+1, nshl
170 tmp = t3(:,1) * shg(:,aa,1)
171 & + t3(:,2) * shg(:,aa,2)
172 & + t3(:,3) * shg(:,aa,3)
175 & + t1(:,1) * shg(:,aa,1)
176 & + t2(:,1) * shg(:,aa,1)
177 xKebe(:,1,aa,b) = xKebe(:,1,aa,b) + tmp1
178 xKebe(:,1,b,aa) = xKebe(:,1,b,aa) + tmp1
181 & + t1(:,2) * shg(:,aa,2)
182 & + t2(:,2) * shg(:,aa,2)
183 xKebe(:,5,aa,b) = xKebe(:,5,aa,b) + tmp1
184 xKebe(:,5,b,aa) = xKebe(:,5,b,aa) + tmp1
187 & + t1(:,3) * shg(:,aa,3)
188 & + t2(:,3) * shg(:,aa,3)
189 xKebe(:,9,aa,b) = xKebe(:,9,aa,b) + tmp1
190 xKebe(:,9,b,aa) = xKebe(:,9,b,aa) + tmp1
194 tmp1 = t1(:,1) * shg(:,aa,2)
195 & + t2(:,2) * shg(:,aa,1)
196 xKebe(:,2,aa,b) = xKebe(:,2,aa,b) + tmp1
197 xKebe(:,4,b,aa) = xKebe(:,4,b,aa) + tmp1
199 tmp1 = t1(:,1) * shg(:,aa,3)
200 & + t2(:,3) * shg(:,aa,1)
201 xKebe(:,3,aa,b) = xKebe(:,3,aa,b) + tmp1
202 xKebe(:,7,b,aa) = xKebe(:,7,b,aa) + tmp1
204 tmp1 = t1(:,2) * shg(:,aa,1)
205 & + t2(:,1) * shg(:,aa,2)
206 xKebe(:,4,aa,b) = xKebe(:,4,aa,b) + tmp1
207 xKebe(:,2,b,aa) = xKebe(:,2,b,aa) + tmp1
209 tmp1 = t1(:,2) * shg(:,aa,3)
210 & + t2(:,3) * shg(:,aa,2)
211 xKebe(:,6,aa,b) = xKebe(:,6,aa,b) + tmp1
212 xKebe(:,8,b,aa) = xKebe(:,8,b,aa) + tmp1
214 tmp1 = t1(:,3) * shg(:,aa,1)
215 & + t2(:,1) * shg(:,aa,3)
216 xKebe(:,7,aa,b) = xKebe(:,7,aa,b) + tmp1
217 xKebe(:,3,b,aa) = xKebe(:,3,b,aa) + tmp1
219 tmp1 = t1(:,3) * shg(:,aa,2)
220 & + t2(:,2) * shg(:,aa,3)
221 xKebe(:,8,aa,b) = xKebe(:,8,aa,b) + tmp1
222 xKebe(:,6,b,aa) = xKebe(:,6,b,aa) + tmp1
234 do aa = 1, nshl
235 xGoC(:,1,aa,b) = xGoC(:,1,aa,b) + t1(:,1) * shpfun(:,aa)
236 xGoC(:,2,aa,b) = xGoC(:,2,aa,b) + t1(:,2) * shpfun(:,aa)
237 xGoC(:,3,aa,b) = xGoC(:,3,aa,b) + t1(:,3) * shpfun(:,aa)
250 do aa = b, nshl
251 xGoC(:,4,aa,b) = xGoC(:,4,aa,b)
252 & + t1(:,1) * shg(:,aa,1)
253 & + t1(:,2) * shg(:,aa,2)
254 & + t1(:,3) * shg(:,aa,3)
295 integer aa, b local
316 do aa = 1, nshl
317 tmp1 = shpfun(:,aa) * shpfun(:,b)
318 tmp2 = shpfun(:,aa) * lhsFct
319 xSebe(:,aa,b) = xSebe(:,aa,b) + tmp1 * (tsFct + srcL)
325 xSebe(:,b,aa) = xSebe(:,b,aa) + t1(:,2)*shpfun(:,aa)
367 aa = b
369 xSebe(:,aa,b) = xSebe(:,aa,b) + t1(:,1) * shg(:,aa,1)
370 & + t1(:,2) * shg(:,aa,2)
371 & + t1(:,3) * shg(:,aa,3)
376 do aa = b+1, nshl
377 tmp = t1(:,1) * shg(:,aa,1)
378 & + t1(:,2) * shg(:,aa,2)
379 & + t1(:,3) * shg(:,aa,3)
381 xSebe(:,aa,b) = xSebe(:,aa,b) + tmp
382 xSebe(:,b,aa) = xSebe(:,b,aa) + tmp