Searched refs:dr (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
83 allocate(dr(ncv))
159 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
166 evmax = dr(1)
181 deallocate(dr)
223 real(kind=8),dimension(:),allocatable :: dr,di,workev,workl local
263 allocate(dr(ncv))
339 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
346 evmax = dr(1)
360 deallocate(dr)
|
| H A D | ramg_ggb.f | 24 real(kind=8) :: d(maxncv,3),dr(maxncv),di(maxncv), local
126 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
|