Lines Matching refs:dof
41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
52 REAL*8, INTENT(IN) :: D(dof,nnz), G(dof,nnz), L(nnz)
61 ALLOCATE(X(nNo), P(nNo), SP(nNo), DGP(nNo), GP(dof,nNo),
62 2 unCondU(dof,nNo))
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,
117 SUBROUTINE CGRADV(dof, nNo, nnz, mynNo, commu, cS, ls, argument
122 INTEGER, INTENT(IN) :: dof, nNo, nnz, mynNo local
127 REAL*8, INTENT(IN) :: K(dof*dof,nnz)
128 REAL*8, INTENT(INOUT) :: R(dof,nNo)
135 ALLOCATE(P(dof,nNo), KP(dof,nNo), X(dof,nNo))
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)