97      &                      r,u,v,clevel,pflag,  argument
110       integer,intent(in)                      :: clevel  local
129       call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
137       cf1 = 1.1*mlsCf(clevel,1)
144       p = amg_paraext(clevel)%p(i)
145       q = amg_paramap(clevel)%p(i)
168      &                      r,u,v,fwdbck,clevel,  argument
182       integer,intent(in)                      :: clevel  local
214      &         r,u,v,clevel,pflag,ilwork,BC,iBC,iper)
219          ki = CF_map(clevel)%p(i)
243      &         r,u,u2,clevel,pflag,ilwork,BC,iBC,iper)