Searched refs:slevel (Results 1 – 1 of 1) sorted by relevance
851 subroutine ramg_update_cfmap(amg_CF,slevel) argument853 integer,intent(in) :: slevel local854 integer,intent(in),dimension(amg_nshg(slevel)) :: amg_CF856 integer,dimension(amg_nshg(slevel)) :: revmap861 if (amg_cfmap(i).eq.slevel) then874 subroutine ramg_readin_cfmap(amg_CF,slevel) argument876 integer,intent(in) :: slevel local877 integer,intent(inout),dimension(amg_nshg(slevel)) :: amg_CF882 if (amg_cfmap(i).eq.slevel) then885 else if (amg_cfmap(i).eq.(slevel+1)) then