Lines Matching refs:mynNo
41 SUBROUTINE GMRES(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
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))
106 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
111 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo,
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
168 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
188 eps = NORMV(dof, mynNo, commu, R)
205 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
209 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
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))