Searched refs:avec (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
387 real(kind=8),intent(inout),dimension(asize,redun) :: avec local
391 avec = 0
393 avec(grevmap(i),:) = gvec(i,:)
399 subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun, argument
404 real(kind=8),intent(in),dimension(asize,redun) :: avec local
411 gvec(gmap(i),:) = avec(i,:)
|