Lines Matching refs:ilwork

5      &                     ilwork,    shp,       shgl,      shpb,
50      &            Rsin(*),                  ilwork(nlwork),
82      &               ilwork,        EGmass,        rerr )
112         call i3pre (BDiag,    Binv,   EGmass,  ilwork)
126         call sumgat (temp, nflow, summed, ilwork)
162            call Au1GMR (EGmass,  temp,  ilwork, iBC,iper)
166            call bc3per (iBC,  temp,  iper, ilwork, nflow)
180            call sumgat (temp, nflow, summed, ilwork)
211            call Au1GMR ( EGmass, uBrg(:,:,iKs+1),  ilwork, iBC,iper)
215            call bc3per (iBC,  uBrg(:,:,iKs+1),  iper, ilwork, nflow)
229               call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
238               call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
352               call rstat (res, ilwork,rmes) 
373      &                   ilwork,    shp,       shgl,      shpb,
422      &          Rsin(Kspace),             ilwork(nlwork),
454      &             ilwork,        lhsK,          col, 
474             call commu (BDiag  , ilwork, nflow*nflow  , 'out')
485 	call rstatCheck(res,ilwork,y,ac)
505       call sumgat (temp, nflow, summed, ilwork)
540             call SparseAp (iper,ilwork,iBC, col, row, lhsK,  temp)
546             call bc3per (iBC,  temp,  iper, ilwork, nflow) 
557             call sumgat (temp, nflow, summed, ilwork)
584             call SparseAp (iper, ilwork, iBC,
592             call bc3per (iBC,  uBrg(:,:,iKs+1),  iper, ilwork, nflow)
603                   call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
612                   call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
725       call rstat (res, ilwork,rmes) 
752      &                        ilwork,
799      &            Rsin(*),           ilwork(nlwork),
824      &                  ilwork,        EGmasst)
840         call i3preSclr(Diag, Dinv, EGmassT, ilwork)
845         call rstatCheckSclr(rest,ilwork,y,ac)
856         call sumgat (tempt, 1, summed, ilwork)
887            call Au1GMRSclr (EGmasst,  tempt,  ilwork, iper)
901            call sumgat (tempt, 1, summed, ilwork)
929            call Au1GMRSclr ( EGmasst, uBrgt(:,iKss+1),  ilwork, iper )
943               call sumgat (tempt, 1, beta, ilwork) ! sum vector=(u_{i+1},u_1)
952               call sumgat (tempt, 1, beta, ilwork) ! sum vector=(u_{i+1},u_j)
1057       call rstatSclr(rest, ilwork)