Searched refs:VC (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
30 real(kind=8),intent(in),dimension(amg_nshg(level2)) :: VC local
46 vf(i) = vf(i) + VC(j)*I_cf(level1)%p(k)
65 subroutine ramg_calcIvFC(level1,level2,vf,VC) argument
70 real(kind=8),intent(inout),dimension(amg_nshg(level2)) :: VC local
78 VC = 0
82 VC(i) = VC(i) + vf(j)*I_fc(level1)%p(k)
|