Lines Matching refs:t1
503 real(kind=8),dimension(nshg,1) :: t1,t1a local
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
515 call commOut(t1,ilwork,1,iper,iBC,BC)
516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
525 t2b(:,4) = t1(:,1)
527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
528 call commIn(t1,ilwork,1,iper,iBC,BC)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
560 real(kind=8),dimension(nshg,1) :: t1,t1a local
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
569 call commOut(t1,ilwork,1,iper,iBC,BC)
570 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
579 t2b(:,4) = t1(:,1)
581 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
582 call commIn(t1,ilwork,1,iper,iBC,BC)
584 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
611 real(kind=8),dimension(nshg,1) :: t1 local
619 t1 = rhsg(:,4:4)
620 call commIn(t1,ilwork,1,iper,iBC,BC)
621 call commOut(t1,ilwork,1,iper,iBC,BC)
633 rhsp = rhsp - t1(:,1)
635 call fMtxVdimVecMult(rhsp,diag(:,4),t1,1,1,1,1,nshg)
636 rhsp = t1(:,1)