Searched refs:workd (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 45 real(kind=8),allocatable,dimension(:) :: resid,workd local
89 allocate(workd(3*gsize))
125 & nsize,iparam,ipntr,workd,workl,lworkl,
128 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
143 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,
148 & nsize,iparam,ipntr,workd,workl,lworkl,
163 & nsize,iparam,ipntr,workd,workl,
177 deallocate(workd)
225 real(kind=8),allocatable,dimension(:) :: resid,workd local
269 allocate(workd(3*gsize))
[all …]
|
| H A D | ramg_ggb.f | 28 real(kind=8),allocatable,dimension(:) :: resid,workd local
64 allocate(workd(3*gsize))
106 & nsize,iparam,ipntr,workd,workl,lworkl,
109 call ramg_ggb_av(workd(ipntr(2)),workd(ipntr(1)),
116 & nsize,iparam,ipntr,workd,workl,lworkl,
130 & nsize,iparam,ipntr,workd,workl,
186 deallocate(workd)
|