Searched refs:workl (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 43 real(kind=8),dimension(:),allocatable :: dr,di,workev,workl local
86 allocate(workl(3*ncv*ncv+6*ncv))
125 & nsize,iparam,ipntr,workd,workl,lworkl,
148 & nsize,iparam,ipntr,workd,workl,lworkl,
163 & nsize,iparam,ipntr,workd,workl,
184 deallocate(workl)
223 real(kind=8),dimension(:),allocatable :: dr,di,workev,workl local
266 allocate(workl(3*ncv*ncv+6*ncv))
305 & nsize,iparam,ipntr,workd,workl,lworkl,
328 & nsize,iparam,ipntr,workd,workl,lworkl,
[all …]
|
| H A D | ramg_ggb.f | 26 & workl(3*maxncv*maxncv+6*maxncv) local
106 & nsize,iparam,ipntr,workd,workl,lworkl,
116 & nsize,iparam,ipntr,workd,workl,lworkl,
130 & nsize,iparam,ipntr,workd,workl,
|