Searched refs:lworkl (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 48 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr, local
105 lworkl = 3*ncv**2+6*ncv
125 & nsize,iparam,ipntr,workd,workl,lworkl,
148 & nsize,iparam,ipntr,workd,workl,lworkl,
164 & lworkl,ierr)
228 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr, local
285 lworkl = 3*ncv**2+6*ncv
305 & nsize,iparam,ipntr,workd,workl,lworkl,
328 & nsize,iparam,ipntr,workd,workl,lworkl,
344 & lworkl,ierr)
|
| H A D | ramg_ggb.f | 31 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr, local
81 lworkl = 3*ncv**2+6*ncv
106 & nsize,iparam,ipntr,workd,workl,lworkl,
116 & nsize,iparam,ipntr,workd,workl,lworkl,
131 & lworkl,ierr)
|