Searched refs:vf (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 21 subroutine ramg_calcIvCF(level1,level2,VC,vf, argument
29 real(kind=8),intent(inout),dimension(amg_nshg(level1)) :: vf local
42 vf = 0
46 vf(i) = vf(i) + VC(j)*I_cf(level1)%p(k)
51 call commIn(vf,ilwork,1,iper,iBC,BC)
52 call commOut(vf,ilwork,1,iper,iBC,BC)
65 subroutine ramg_calcIvFC(level1,level2,vf,VC) argument
69 real(kind=8),intent(in),dimension(amg_nshg(level1)) :: vf local
82 VC(i) = VC(i) + vf(j)*I_fc(level1)%p(k)
|