Lines Matching refs:workd
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))
305 & nsize,iparam,ipntr,workd,workl,lworkl,
308 call ramg_ggb_G2A(twork1,workd(ipntr(1)),asize,nsize,1,
323 call ramg_ggb_A2G(twork2,workd(ipntr(2)),asize,nsize,1,
328 & nsize,iparam,ipntr,workd,workl,lworkl,
343 & nsize,iparam,ipntr,workd,workl,
356 deallocate(workd)