41       SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,   argument
49       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)  local
59             DO j=rowPtr(1,i), rowPtr(2,i)
65             DO j=rowPtr(1,i), rowPtr(2,i)
73             DO j=rowPtr(1,i), rowPtr(2,i)
85             DO j=rowPtr(1,i), rowPtr(2,i)
99             DO j=rowPtr(1,i), rowPtr(2,i)
117       SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr,   argument
125       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)  local
135             DO j=rowPtr(1,i), rowPtr(2,i)
141             DO j=rowPtr(1,i), rowPtr(2,i)
148             DO j=rowPtr(1,i), rowPtr(2,i)
156             DO j=rowPtr(1,i), rowPtr(2,i)
164             DO j=rowPtr(1,i), rowPtr(2,i)
177       SUBROUTINE SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,   argument
185       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)  local
195             DO j=rowPtr(1,i), rowPtr(2,i)
201             DO j=rowPtr(1,i), rowPtr(2,i)
209             DO j=rowPtr(1,i), rowPtr(2,i)
218             DO j=rowPtr(1,i), rowPtr(2,i)
228             DO j=rowPtr(1,i), rowPtr(2,i)
241       SUBROUTINE SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr,   argument
249       INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)  local
257          DO j=rowPtr(1,i), rowPtr(2,i)