Lines Matching refs:i
83 do i = 1, nshl
84 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
85 & - BC(in,4) * xKebe(iel,irem1,i,inod)
86 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
87 & - BC(in,4) * xKebe(iel,irem2,i,inod)
88 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
89 & - BC(in,4) * xKebe(iel,irem3,i,inod)
103 do i = 1, nshl
104 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
105 & - BC(in,5) * xKebe(iel,irem1,i,inod)
106 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
107 & - BC(in,5) * xKebe(iel,irem2,i,inod)
108 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
109 & - BC(in,5) * xKebe(iel,irem3,i,inod)
115 do i=1,nshl
119 xKebe(iel,irem1,i,inod) = zero
120 xKebe(iel,irem2,i,inod) = zero
121 xKebe(iel,irem3,i,inod) = zero
140 do i = 1, nshl
141 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
142 & - BC(in,4) * xKebe(iel,irem1,inod,i)
143 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
144 & - BC(in,4) * xKebe(iel,irem2,inod,i)
145 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
146 & - BC(in,4) * xKebe(iel,irem3,inod,i)
158 do i = 1, nshl
159 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
160 & - BC(in,5) * xKebe(iel,irem1,inod,i)
161 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
162 & - BC(in,5) * xKebe(iel,irem2,inod,i)
163 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
164 & - BC(in,5) * xKebe(iel,irem3,inod,i)
171 do i=1,nshl
176 xKebe(iel,irem1,inod,i) = zero
177 xKebe(iel,irem2,inod,i) = zero
178 xKebe(iel,irem3,inod,i) = zero
219 do i = 1, nshl
220 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
221 & - BC(in,4) * xKebe(iel,irem1,i,inod)
222 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
223 & - BC(in,4) * xKebe(iel,irem2,i,inod)
224 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
225 & - BC(in,4) * xKebe(iel,irem3,i,inod)
235 do i = 1, nshl
236 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
237 & - BC(in,5) * xKebe(iel,irem1,i,inod)
238 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
239 & - BC(in,5) * xKebe(iel,irem2,i,inod)
240 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
241 & - BC(in,5) * xKebe(iel,irem3,i,inod)
244 do i=1,nshl
249 xKebe(iel,irem1,i,inod) = zero
250 xKebe(iel,irem2,i,inod) = zero
251 xKebe(iel,irem3,i,inod) = zero
264 do i = 1, nshl
265 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
266 & - BC(in,4) * xKebe(iel,irem1,inod,i)
267 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
268 & - BC(in,4) * xKebe(iel,irem2,inod,i)
269 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
270 & - BC(in,4) * xKebe(iel,irem3,inod,i)
276 do i = 1, nshl
277 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
278 & - BC(in,5) * xKebe(iel,irem1,inod,i)
279 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
280 & - BC(in,5) * xKebe(iel,irem2,inod,i)
281 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
282 & - BC(in,5) * xKebe(iel,irem3,inod,i)
284 do i=1,nshl
289 xKebe(iel,irem1,inod,i) = zero
290 xKebe(iel,irem2,inod,i) = zero
291 xKebe(iel,irem3,inod,i) = zero
316 do i = 1, nshl
317 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
318 & - BC(in,4) * xKebe(iel,irem1,i,inod)
319 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
320 & - BC(in,4) * xKebe(iel,irem2,i,inod)
321 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
322 & - BC(in,4) * xKebe(iel,irem3,i,inod)
332 do i = 1, nshl
333 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
334 & - BC(in,5) * xKebe(iel,irem1,i,inod)
335 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
336 & - BC(in,5) * xKebe(iel,irem2,i,inod)
337 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
338 & - BC(in,5) * xKebe(iel,irem3,i,inod)
340 do i=1,nshl
346 xKebe(iel,irem1,i,inod) = zero
347 xKebe(iel,irem2,i,inod) = zero
348 xKebe(iel,irem3,i,inod) = zero
361 do i = 1, nshl
362 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
363 & - BC(in,4) * xKebe(iel,irem1,inod,i)
364 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
365 & - BC(in,4) * xKebe(iel,irem2,inod,i)
366 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
367 & - BC(in,4) * xKebe(iel,irem3,inod,i)
373 do i = 1, nshl
374 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
375 & - BC(in,5) * xKebe(iel,irem1,inod,i)
376 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
377 & - BC(in,5) * xKebe(iel,irem2,inod,i)
378 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
379 & - BC(in,5) * xKebe(iel,irem3,inod,i)
382 do i=1,nshl
383 xKebe(iel,irem1,inod,i) = zero
384 xKebe(iel,irem2,inod,i) = zero
385 xKebe(iel,irem3,inod,i) = zero
416 do i = 1, nshl
417 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
418 & - BC(in,4) * xKebe(iel,irem1,i,inod)
419 & - BC(in,6) * xKebe(iel,ire21,i,inod)
420 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
421 & - BC(in,4) * xKebe(iel,irem2,i,inod)
422 & - BC(in,6) * xKebe(iel,ire22,i,inod)
423 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
424 & - BC(in,4) * xKebe(iel,irem3,i,inod)
425 & - BC(in,6) * xKebe(iel,ire23,i,inod)
432 do i=1,nshl
437 xKebe(iel,irem1,i,inod) = zero
438 xKebe(iel,irem2,i,inod) = zero
439 xKebe(iel,irem3,i,inod) = zero
441 xKebe(iel,ire21,i,inod) = zero
442 xKebe(iel,ire22,i,inod) = zero
443 xKebe(iel,ire23,i,inod) = zero
464 do i = 1, nshl
465 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
466 & - BC(in,4) * xKebe(iel,irem1,inod,i)
467 & - BC(in,6) * xKebe(iel,ire21,inod,i)
468 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
469 & - BC(in,4) * xKebe(iel,irem2,inod,i)
470 & - BC(in,6) * xKebe(iel,ire22,inod,i)
471 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
472 & - BC(in,4) * xKebe(iel,irem3,inod,i)
473 & - BC(in,6) * xKebe(iel,ire23,inod,i)
481 do i=1,nshl
482 xKebe(iel,irem1,inod,i) = zero
483 xKebe(iel,irem2,inod,i) = zero
484 xKebe(iel,irem3,inod,i) = zero
486 xKebe(iel,ire21,inod,i) = zero
487 xKebe(iel,ire22,inod,i) = zero
488 xKebe(iel,ire23,inod,i) = zero
525 do i = 1, nshl
526 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
527 & - BC(in,4) * xKebe(iel,irem1,i,inod)
528 & - BC(in,6) * xKebe(iel,ire21,i,inod)
529 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
530 & - BC(in,4) * xKebe(iel,irem2,i,inod)
531 & - BC(in,6) * xKebe(iel,ire22,i,inod)
532 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
533 & - BC(in,4) * xKebe(iel,irem3,i,inod)
534 & - BC(in,6) * xKebe(iel,ire23,i,inod)
537 do i=1,nshl
541 xKebe(iel,irem1,i,inod) = zero
542 xKebe(iel,irem2,i,inod) = zero
543 xKebe(iel,irem3,i,inod) = zero
545 xKebe(iel,ire21,i,inod) = zero
546 xKebe(iel,ire22,i,inod) = zero
547 xKebe(iel,ire23,i,inod) = zero
562 do i = 1, nshl
563 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
564 & - BC(in,4) * xKebe(iel,irem1,inod,i)
565 & - BC(in,6) * xKebe(iel,ire21,inod,i)
566 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
567 & - BC(in,4) * xKebe(iel,irem2,inod,i)
568 & - BC(in,6) * xKebe(iel,ire22,inod,i)
569 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
570 & - BC(in,4) * xKebe(iel,irem3,inod,i)
571 & - BC(in,6) * xKebe(iel,ire23,inod,i)
574 do i=1,nshl
575 xKebe(iel,irem1,inod,i) = zero
576 xKebe(iel,irem2,inod,i) = zero
577 xKebe(iel,irem3,inod,i) = zero
579 xKebe(iel,ire21,inod,i) = zero
580 xKebe(iel,ire22,inod,i) = zero
581 xKebe(iel,ire23,inod,i) = zero
613 do i = 1, nshl
614 xKebe(iel,iadj1,i,inod) = xKebe(iel,iadj1,i,inod)
615 & - BC(in,4) * xKebe(iel,irem1,i,inod)
616 & - BC(in,6) * xKebe(iel,ire21,i,inod)
617 xKebe(iel,iadj2,i,inod) = xKebe(iel,iadj2,i,inod)
618 & - BC(in,4) * xKebe(iel,irem2,i,inod)
619 & - BC(in,6) * xKebe(iel,ire22,i,inod)
620 xKebe(iel,iadj3,i,inod) = xKebe(iel,iadj3,i,inod)
621 & - BC(in,4) * xKebe(iel,irem3,i,inod)
622 & - BC(in,6) * xKebe(iel,ire23,i,inod)
624 do i=1,nshl
629 xKebe(iel,irem1,i,inod) = zero
630 xKebe(iel,irem2,i,inod) = zero
631 xKebe(iel,irem3,i,inod) = zero
633 xKebe(iel,ire21,i,inod) = zero
634 xKebe(iel,ire22,i,inod) = zero
635 xKebe(iel,ire23,i,inod) = zero
651 do i = 1, nshl
652 xKebe(iel,iadj1,inod,i) = xKebe(iel,iadj1,inod,i)
653 & - BC(in,4) * xKebe(iel,irem1,inod,i)
654 xKebe(iel,iadj2,inod,i) = xKebe(iel,iadj2,inod,i)
655 & - BC(in,4) * xKebe(iel,irem2,inod,i)
656 xKebe(iel,iadj3,inod,i) = xKebe(iel,iadj3,inod,i)
657 & - BC(in,4) * xKebe(iel,irem3,inod,i)
658 & - BC(in,6) * xKebe(iel,ire23,inod,i)
661 do i=1,nshl
662 xKebe(iel,irem1,inod,i) = zero
663 xKebe(iel,irem2,inod,i) = zero
664 xKebe(iel,irem3,inod,i) = zero
667 xKebe(iel,ire21,inod,i) = zero
668 xKebe(iel,ire22,inod,i) = zero
669 xKebe(iel,ire23,inod,i) = zero