Searched refs:twork2 (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
136 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
139 call ramg_mls_calcPAv(level,twork2,twork1,
143 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,
235 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2 local
316 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
319 call ramg_mls_calcPAv(level,twork2,twork1,
323 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,
|