21       subroutine ramg_calcIvCF(level1,level2,VC,vf,  argument
28       integer,intent(in)                :: level1,level2  local
29       real(kind=8),intent(inout),dimension(amg_nshg(level1)) :: vf
43       do i=1,amg_nshg(level1)
44          do k=I_cf_colm(level1)%p(i),I_cf_colm(level1)%p(i+1)-1
45             j = I_cf_rowp(level1)%p(k)
46             vf(i) = vf(i) + VC(j)*I_cf(level1)%p(k)
50       if ( level1 .eq. -1 ) then
65       subroutine ramg_calcIvFC(level1,level2,vf,VC)  argument
68       integer,intent(in)                :: level1,level2  local
69       real(kind=8),intent(in),dimension(amg_nshg(level1)) :: vf
80          do k=I_fc_colm(level1)%p(i),I_fc_colm(level1)%p(i+1)-1
81             j = I_fc_rowp(level1)%p(k)
82             VC(i) = VC(i) + vf(j)*I_fc(level1)%p(k)