Lines Matching refs:colPtr
41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
49 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,colPtr(j))
66 col = colPtr(j)
74 col = colPtr(j)
86 col = colPtr(j)
100 col = colPtr(j)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
125 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
136 KU(i) = KU(i) + K(1,j)*U(1,colPtr(j))
142 col = colPtr(j)
149 col = colPtr(j)
157 col = colPtr(j)
165 KU(i) = KU(i) + SUM(K(:,j)*U(:,colPtr(j)))
177 SUBROUTINE SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
185 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
196 KU(1,i) = KU(1,i) + K(1,j)*U(colPtr(j))
202 col = colPtr(j)
210 col = colPtr(j)
219 col = colPtr(j)
229 KU(:,i) = KU(:,i) + K(:,j)*U(colPtr(j))
241 SUBROUTINE SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, argument
249 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz) local
258 KU(i) = KU(i) + K(j)*U(colPtr(j))