Lines Matching refs:lhsK
1 subroutine fillsparseI( iens, xKebe, lhsK, argument
10 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) local
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)
68 subroutine fillsparseC( iens, EGmass, lhsK, argument
83 real*8 lhsK(nflow*nflow,nnz_tot) local
121 lhsK(t+f,k) = lhsK(t+f,k) + EGmass(e,r+f,s+g)
146 real*8 lhsK(nflow*nflow,nnz_tot) local