Searched refs:t2b (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 505 real(kind=8),dimension(nshg,4) :: t2b local
524 t2b(:,1:3) = -t2(:,1:3)
525 t2b(:,4) = t1(:,1)
526 call commOut(t2b,ilwork,4,iper,iBC,BC)
527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
562 real(kind=8),dimension(nshg,4) :: t2b local
578 t2b(:,1:3) = -t2(:,1:3)
579 t2b(:,4) = t1(:,1)
580 call commOut(t2b,ilwork,4,iper,iBC,BC)
581 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
|