Searched refs:rhsp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 593 subroutine ramg_PPErhs(rhsp,rhsg,diag, argument
600 real(kind=8),intent(inout),dimension(nshg) :: rhsp local
628 call fLesSparseApNGt(colm,rowp,lhsP,t2,rhsp,nshg,nnz_tot)
629 call commIn(rhsp,ilwork,1,iper,iBC,BC)
630 call commOut(rhsp,ilwork,1,iper,iBC,BC)
631 call ramg_zeroOut(rhsp,ilwork,BC,iBC,iper)
633 rhsp = rhsp - t1(:,1)
635 call fMtxVdimVecMult(rhsp,diag(:,4),t1,1,1,1,1,nshg)
636 rhsp = t1(:,1)
|