Lines Matching refs:diag
506 real(kind=8),dimension(nshg,4) :: diag local
508 diag = ramg_flowDiag%p
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
519 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
520 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
542 subroutine ramg_PPEAps(q,p,diag, argument
551 real(kind=8),intent(in),dimension(nshg,4) :: diag local
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
573 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
574 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
584 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
593 subroutine ramg_PPErhs(rhsp,rhsg,diag, argument
602 real(kind=8),intent(in),dimension(nshg,4) :: diag local
625 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
626 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
635 call fMtxVdimVecMult(rhsp,diag(:,4),t1,1,1,1,1,nshg)