Searched refs:vR (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 336 real(kind=8),dimension(maxnev) :: vR,rtemp local
351 vR = 0
354 vR(i) = vR(i)+ramg_ggb_eV(j,i)*ggberr(j)
359 call MPI_Allreduce(vR,rtemp,maxnev,
362 vR = rtemp
368 call lubksb(mtxggbA,maxnev,maxnev,indx,vR)
374 ggberr(j) = ggberr(j)+ramg_ggb_eV(j,i)*vR(i)
|