Searched refs:twork1 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 55 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2 local
128 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
136 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
139 call ramg_mls_calcPAv(level,twork2,twork1,
235 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2 local
308 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
316 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
319 call ramg_mls_calcPAv(level,twork2,twork1,
|