Lines Matching refs:asize
59 integer :: p,q,nsize,step,asize,gsize local
64 asize = amg_nshg(level)
65 allocate(gmap(asize))
66 allocate(grevmap(asize))
68 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
128 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
143 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,
239 integer :: p,q,nsize,step,asize,gsize local
244 asize = amg_nshg(level)
245 allocate(gmap(asize))
246 allocate(grevmap(asize))
248 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
308 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
323 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,