Lines Matching refs:b
12 integer aa, b, c, e, i, k, n local
32 do b = 1, nshl ! local variable number tangent respect
37 k = sparseloc( row(c), n, ien(e,b) ) + c-1
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
51 lhsK(8,k) = lhsK(8,k) + xKebe(e,8,aa,b)
52 lhsK(9,k) = lhsK(9,k) + xKebe(e,9,aa,b)
54 lhsP(1,k) = lhsP(1,k) + xGoC(e,1,aa,b)
55 lhsP(2,k) = lhsP(2,k) + xGoC(e,2,aa,b)
56 lhsP(3,k) = lhsP(3,k) + xGoC(e,3,aa,b)
57 lhsP(4,k) = lhsP(4,k) + xGoC(e,4,aa,b)
86 integer aa, b, c, e, i, k, n, n1 local
110 do b = 1, nshl
111 s = (b-1)*nflow !starting index of the bth node's
113 k = sparseloc( row(c), n, ien(e,b) ) + c-1
148 integer aa, b, c, e, i, k, n, n1 local
170 do b = 1, nshl
173 k = sparseloc( row(c), n, ien(e,b) ) + c-1
178 lhsk(25, k) = lhsk(25, k) + EGmass(e, aa, b)
202 integer aa, b, c, e, i, k, n local
221 do b = 1, nshl
222 k = sparseloc( row(c), n, ien(e,b) ) + c-1
224 lhsS(k) = lhsS(k) + xSebe(e,aa,b)