Searched refs:t1a (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 503 real(kind=8),dimension(nshg,1) :: t1,t1a local
511 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
532 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
560 real(kind=8),dimension(nshg,1) :: t1,t1a local
565 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
584 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
585 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
|