Lines Matching refs:in
46 in = abs(ien(iel,inod))
47 if (ibits(iBC(in),3,3) .eq. 0) goto 5000 ! NO velocity BC's
48 if (ibits(iBC(in),3,3) .eq. 7) goto 5000 ! 3 components ok
55 if ( ibits(iBC(in),3,3) .eq. 1) then
85 & - BC(in,4) * xKebe(iel,irem1,i,inod)
87 & - BC(in,4) * xKebe(iel,irem2,i,inod)
89 & - BC(in,4) * xKebe(iel,irem3,i,inod)
105 & - BC(in,5) * xKebe(iel,irem1,i,inod)
107 & - BC(in,5) * xKebe(iel,irem2,i,inod)
109 & - BC(in,5) * xKebe(iel,irem3,i,inod)
142 & - BC(in,4) * xKebe(iel,irem1,inod,i)
144 & - BC(in,4) * xKebe(iel,irem2,inod,i)
146 & - BC(in,4) * xKebe(iel,irem3,inod,i)
160 & - BC(in,5) * xKebe(iel,irem1,inod,i)
162 & - BC(in,5) * xKebe(iel,irem2,inod,i)
164 & - BC(in,5) * xKebe(iel,irem3,inod,i)
201 if ( ibits(iBC(in),3,3) .eq. 2) then
221 & - BC(in,4) * xKebe(iel,irem1,i,inod)
223 & - BC(in,4) * xKebe(iel,irem2,i,inod)
225 & - BC(in,4) * xKebe(iel,irem3,i,inod)
237 & - BC(in,5) * xKebe(iel,irem1,i,inod)
239 & - BC(in,5) * xKebe(iel,irem2,i,inod)
241 & - BC(in,5) * xKebe(iel,irem3,i,inod)
266 & - BC(in,4) * xKebe(iel,irem1,inod,i)
268 & - BC(in,4) * xKebe(iel,irem2,inod,i)
270 & - BC(in,4) * xKebe(iel,irem3,inod,i)
278 & - BC(in,5) * xKebe(iel,irem1,inod,i)
280 & - BC(in,5) * xKebe(iel,irem2,inod,i)
282 & - BC(in,5) * xKebe(iel,irem3,inod,i)
298 if ( ibits(iBC(in),3,3) .eq. 4) then
318 & - BC(in,4) * xKebe(iel,irem1,i,inod)
320 & - BC(in,4) * xKebe(iel,irem2,i,inod)
322 & - BC(in,4) * xKebe(iel,irem3,i,inod)
334 & - BC(in,5) * xKebe(iel,irem1,i,inod)
336 & - BC(in,5) * xKebe(iel,irem2,i,inod)
338 & - BC(in,5) * xKebe(iel,irem3,i,inod)
363 & - BC(in,4) * xKebe(iel,irem1,inod,i)
365 & - BC(in,4) * xKebe(iel,irem2,inod,i)
367 & - BC(in,4) * xKebe(iel,irem3,inod,i)
375 & - BC(in,5) * xKebe(iel,irem1,inod,i)
377 & - BC(in,5) * xKebe(iel,irem2,inod,i)
379 & - BC(in,5) * xKebe(iel,irem3,inod,i)
393 if ( ibits(iBC(in),3,3) .eq. 3 ) then
418 & - BC(in,4) * xKebe(iel,irem1,i,inod)
419 & - BC(in,6) * xKebe(iel,ire21,i,inod)
421 & - BC(in,4) * xKebe(iel,irem2,i,inod)
422 & - BC(in,6) * xKebe(iel,ire22,i,inod)
424 & - BC(in,4) * xKebe(iel,irem3,i,inod)
425 & - BC(in,6) * xKebe(iel,ire23,i,inod)
466 & - BC(in,4) * xKebe(iel,irem1,inod,i)
467 & - BC(in,6) * xKebe(iel,ire21,inod,i)
469 & - BC(in,4) * xKebe(iel,irem2,inod,i)
470 & - BC(in,6) * xKebe(iel,ire22,inod,i)
472 & - BC(in,4) * xKebe(iel,irem3,inod,i)
473 & - BC(in,6) * xKebe(iel,ire23,inod,i)
502 if ( ibits(iBC(in),3,3) .eq. 5 ) then
527 & - BC(in,4) * xKebe(iel,irem1,i,inod)
528 & - BC(in,6) * xKebe(iel,ire21,i,inod)
530 & - BC(in,4) * xKebe(iel,irem2,i,inod)
531 & - BC(in,6) * xKebe(iel,ire22,i,inod)
533 & - BC(in,4) * xKebe(iel,irem3,i,inod)
534 & - BC(in,6) * xKebe(iel,ire23,i,inod)
564 & - BC(in,4) * xKebe(iel,irem1,inod,i)
565 & - BC(in,6) * xKebe(iel,ire21,inod,i)
567 & - BC(in,4) * xKebe(iel,irem2,inod,i)
568 & - BC(in,6) * xKebe(iel,ire22,inod,i)
570 & - BC(in,4) * xKebe(iel,irem3,inod,i)
571 & - BC(in,6) * xKebe(iel,ire23,inod,i)
590 if ( ibits(iBC(in),3,3) .eq. 6 ) then
615 & - BC(in,4) * xKebe(iel,irem1,i,inod)
616 & - BC(in,6) * xKebe(iel,ire21,i,inod)
618 & - BC(in,4) * xKebe(iel,irem2,i,inod)
619 & - BC(in,6) * xKebe(iel,ire22,i,inod)
621 & - BC(in,4) * xKebe(iel,irem3,i,inod)
622 & - BC(in,6) * xKebe(iel,ire23,i,inod)
653 & - BC(in,4) * xKebe(iel,irem1,inod,i)
655 & - BC(in,4) * xKebe(iel,irem2,inod,i)
657 & - BC(in,4) * xKebe(iel,irem3,inod,i)
658 & - BC(in,6) * xKebe(iel,ire23,inod,i)