Lines Matching refs:lhsK
1 subroutine SparseAp(iper, ilwork, iBC, col, row, lhsK, p) argument
20 real*8 lhsK(nflow*nflow,nnz_tot) local
59 tmp1 = tmp1 + lhsK(1 ,k)*p(j,1)
60 1 + lhsK(6 ,k)*p(j,2)
61 2 + lhsK(11,k)*p(j,3)
62 3 + lhsK(16,k)*p(j,4)
63 4 + lhsK(21,k)*p(j,5)
64 tmp2 = tmp2 + lhsK(2 ,k)*p(j,1)
65 1 + lhsK(7 ,k)*p(j,2)
66 2 + lhsK(12,k)*p(j,3)
67 3 + lhsK(17,k)*p(j,4)
68 4 + lhsK(22,k)*p(j,5)
69 tmp3 = tmp3 + lhsK(3 ,k)*p(j,1)
70 1 + lhsK(8 ,k)*p(j,2)
71 2 + lhsK(13,k)*p(j,3)
72 3 + lhsK(18,k)*p(j,4)
73 4 + lhsK(23,k)*p(j,5)
74 tmp4 = tmp4 + lhsK(4 ,k)*p(j,1)
75 1 + lhsK(9 ,k)*p(j,2)
76 2 + lhsK(14,k)*p(j,3)
77 3 + lhsK(19,k)*p(j,4)
78 4 + lhsK(24,k)*p(j,5)
79 tmp5 = tmp5 + lhsK(5 ,k)*p(j,1)
80 1 + lhsK(10,k)*p(j,2)
81 2 + lhsK(15,k)*p(j,3)
82 3 + lhsK(20,k)*p(j,4)
83 4 + lhsK(25,k)*p(j,5)