Lines Matching refs:commu
41 SUBROUTINE NSSOLVER(nFaces, gnNo, dof, nNo, nnz, mynNo, commu, argument
48 TYPE(svLS_commuType), INTENT(IN) :: commu local
49 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks)
76 eps = SQRT(NORMV(nsd, mynNo, commu, Rm)**2D0
77 2 + NORMS( mynNo, commu, Rc)**2D0)
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
98 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
105 CALL SPARMULSV(nsd, nNo, nnz, commu, cS,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
112 CALL SPARMULVV(nsd, nNo, nnz, commu, cS,
115 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, nsd, nNo, mynNo, commu,
118 CALL SPARMULSS(nNo, nnz, commu, cS,
121 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
126 A(j,k) = DOTV(nsd, mynNo, commu, MU(:,:,j), MU(:,:,k))
127 2 + DOTS( mynNo, commu, MP(:,j), MP(:,k))
130 A(k,k) = NORMV(nsd, mynNo, commu, MU(:,:,k))**2D0
131 2 + NORMS( mynNo, commu, MP(:,k))**2D0
132 B(k) = DOTV (nsd, mynNo, commu, MU(:,:,k), Rmi)
133 2 + DOTS ( mynNo, commu, MP(:,k), Rci)
162 ls%Resc = NINT(1D2*(NORMS(mynNo, commu, Rc)/
185 IF (commu%masF) CALL LOGFILE
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0
320 WRITE(fid,*) gnNo, commu%nTasks, i