Lines Matching refs:P
58 REAL*8, ALLOCATABLE :: X(:), P(:), SP(:), DGP(:), GP(:,:), local
61 ALLOCATE(X(nNo), P(nNo), SP(nNo), DGP(nNo), GP(dof,nNo),
74 P = R
82 2 G, P, GP)
94 2 L, P, SP)
97 alpha = errO/DOTS(mynNo, commu, P, SP)
98 X = X + alpha*P
102 P = R + err/errO*P
110 DEALLOCATE(X, P, SP, DGP, GP)
133 REAL*8, ALLOCATABLE :: P(:,:), KP(:,:), X(:,:) local
135 ALLOCATE(P(dof,nNo), KP(dof,nNo), X(dof,nNo))
145 P = R
154 2 K, P, KP)
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)
157 X = X + alpha*P
161 P = R + err/errO*P
192 REAL*8, ALLOCATABLE :: P(:), KP(:), X(:) local
194 ALLOCATE(P(nNo), KP(nNo), X(nNo))
204 P = R
212 CALL SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, K, P, KP)
213 alpha = errO/DOTS(mynNo, commu, P, KP)
214 X = X + alpha*P
218 P = R + err/errO*P