Lines Matching refs:t2
504 real(kind=8),dimension(nshg,3) :: t2,t2a local
516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
517 call commIn(t2,ilwork,3,iper,iBC,BC)
519 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
520 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
524 t2b(:,1:3) = -t2(:,1:3)
561 real(kind=8),dimension(nshg,3) :: t2,t2a local
570 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
571 call commIn(t2,ilwork,3,iper,iBC,BC)
573 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
574 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
578 t2b(:,1:3) = -t2(:,1:3)
612 real(kind=8),dimension(nshg,3) :: t2,t2a local
618 t2 = rhsg(:,1:3)
622 call commIn(t2,ilwork,3,iper,iBC,BC)
623 call commOut(t2,ilwork,3,iper,iBC,BC)
625 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
626 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
627 call commOut(t2,ilwork,3,iper,iBC,BC)
628 call fLesSparseApNGt(colm,rowp,lhsP,t2,rhsp,nshg,nnz_tot)