Searched refs:gvec (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 382 subroutine ramg_ggb_G2A(avec,gvec,asize,gsize,redun, argument
388 real(kind=8),intent(in),dimension(gsize,redun) :: gvec local
393 avec(grevmap(i),:) = gvec(i,:)
399 subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun, argument
405 real(kind=8),intent(inout),dimension(gsize,redun) :: gvec local
408 gvec = 0
411 gvec(gmap(i),:) = avec(i,:)
|