Searched refs:asize (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 42 integer :: p,q,nsize,step,asize,gsize local
52 asize = amg_nshg(1)
53 allocate(gmap(asize))
54 allocate(grevmap(asize))
56 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
93 allocate(tv(asize))
94 allocate(tw(asize))
110 & asize,nsize,gmap,grevmap,
135 allocate(ramg_ggb_ev(asize,maxnev))
138 & asize,nsize,1,gmap,grevmap)
[all …]
|
| H A D | ramg_mls.f | 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))
[all …]
|