Lines Matching refs:commu
41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
47 TYPE(svLS_commuType), INTENT(IN) :: commu local
48 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
66 errO = NORMS(mynNo, commu, R)
81 CALL SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
86 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
90 CALL SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
93 CALL SPARMULSS( nNo, nnz, commu, cS, rowPtr, colPtr,
97 alpha = errO/DOTS(mynNo, commu, P, SP)
100 err = NORMS(mynNo, commu, R)
117 SUBROUTINE CGRADV(dof, nNo, nnz, mynNo, commu, cS, ls, argument
123 TYPE(svLS_commuType), INTENT(IN) :: commu local
124 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
139 err = NORMV(dof, mynNo, commu, R)
153 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)
159 err = NORMV(dof, mynNo, commu, R)
176 SUBROUTINE CGRADS(nNo, nnz, mynNo, commu, cS, ls, argument
182 TYPE(svLS_commuType), INTENT(IN) :: commu local
183 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
198 err = NORMS(mynNo, commu, R)
212 CALL SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, K, P, KP)
213 alpha = errO/DOTS(mynNo, commu, P, KP)
216 err = NORMS(mynNo, commu, R)