Searched refs:KP (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | CGRAD.f | 133 REAL*8, ALLOCATABLE :: P(:,:), KP(:,:), X(:,:) local
135 ALLOCATE(P(dof,nNo), KP(dof,nNo), X(dof,nNo))
154 2 K, P, KP)
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)
158 R = R - alpha*KP
192 REAL*8, ALLOCATABLE :: P(:), KP(:), X(:) local
194 ALLOCATE(P(nNo), KP(nNo), X(nNo))
212 CALL SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, K, P, KP)
213 alpha = errO/DOTS(mynNo, commu, P, KP)
215 R = R - alpha*KP
|