Lines Matching refs:n
30 integer n, k
38 do n = 1, nshg
39 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
40 & + colm(n)-1
42 flowdiag(n,1) = lhsK(1,k)
43 flowdiag(n,2) = lhsK(5,k)
44 flowdiag(n,3) = lhsK(9,k)
46 flowdiag(n,4) = lhsP(4,k)
50 do n = 1, nshg ! rowsum put on the diagonal instead of diag entry
51 do k=colm(n),colm(n+1)-1
54 flowdiag(n,1) = flowdiag(n,1) + abs(lhsK(1,k))
56 flowdiag(n,2) = flowdiag(n,2) + abs(lhsK(5,k))
58 flowdiag(n,3) = flowdiag(n,3) + abs(lhsK(9,k))
61 flowdiag(n,4) = flowdiag(n,4) + abs(lhsP(4,k))
63 flowdiag(n,:)=flowdiag(n,:)*pt33
70 do n=1,nshg
73 if (nsrflistResist(k).eq.ndsurf(n)) then
75 flowdiag(n,1:3) = flowdiag(n,1:3)
77 & NABI(n,:)*NABI(n,:)
83 if (nsrflistImp(k).eq.ndsurf(n)) then
85 flowdiag(n,1:3) = flowdiag(n,1:3)
87 & NABI(n,:)*NABI(n,:)
93 if (nsrflistRCR(k).eq.ndsurf(n)) then
95 flowdiag(n,1:3) = flowdiag(n,1:3)
97 & NABI(n,:)*NABI(n,:)
162 do n = 1, nshg
163 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
164 & + colm(n)-1
166 sclrDiag(n) = lhsS(k)
523 subroutine commOut( global, ilwork, n,
528 real*8 global(nshg,n), BC(nshg,ndofBC)
532 call commu ( global, ilwork, n, 'out')
539 do i=1,n
545 if((iabc==1) .and. (n.gt.1)) !are there any axisym bc's
560 subroutine commIn( global, ilwork, n,
565 real*8 global(nshg,n), BC(nshg,ndofBC)
568 if((iabc==1) .and. (n.gt.1)) !are there any axisym bc's
573 call commu ( global, ilwork, n, 'in ')
576 call bc3per ( iBC, global, iper, ilwork, n)