Lines Matching refs:commu
41 SUBROUTINE GMRES(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)
73 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
76 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
83 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
87 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
103 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
106 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
112 2 commu, face, unCondU, u(:,:,i+1))
115 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
118 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
163 SUBROUTINE GMRESV(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
169 TYPE(svLS_commuType), INTENT(IN) :: commu local
170 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
188 eps = NORMV(dof, mynNo, commu, R)
203 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
205 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
209 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
213 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
215 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
219 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
222 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))