Lines Matching refs:gmap
40 integer,allocatable,dimension(:) :: gmap,grevmap local
53 allocate(gmap(asize))
56 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
110 & asize,nsize,gmap,grevmap,
138 & asize,nsize,1,gmap,grevmap)
183 deallocate(gmap)
193 subroutine ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap, argument
204 integer,intent(inout),dimension(asize) :: gmap,grevmap local
212 gmap(i) = i
251 gmap(i) = k
268 & asize,nsize,gmap,grevmap, argument
282 integer, intent(in),dimension(asize) :: gmap,grevmap local
296 call ramg_ggb_G2A(ramg_rhs,gramg_rhs,asize,nsize,1,gmap,grevmap)
308 & gmap,grevmap)
383 & gmap,grevmap) argument
386 integer,intent(in),dimension(asize) :: gmap,grevmap local
400 & gmap,grevmap) argument
403 integer,intent(in),dimension(asize) :: gmap,grevmap local
410 if (gmap(i).gt.0) then
411 gvec(gmap(i),:) = avec(i,:)