Lines Matching refs:ilwork
1 subroutine Au1GMR (EGmass, uBrg, ilwork,iBC,iper ) argument
23 & uBtmp(nshg,nflow), ilwork(nlwork),
30 call commu (uBrg, ilwork, nflow , 'out')
77 call commu (uBrg , ilwork, nflow , 'in ')
81 numtask = ilwork(1)
86 iacc = ilwork (itkbeg + 2)
87 numseg = ilwork (itkbeg + 4)
91 isgbeg = ilwork (itkbeg + 3 + 2*is)
92 lenseg = ilwork (itkbeg + 4 + 2*is)
110 subroutine Au1GMRSclr (EGmasst, uBrg, ilwork, iper ) argument
132 & uBtmp(nshg), ilwork(nlwork), iper(nshg)
137 call commu (uBrg, ilwork, 1, 'out')
173 call commu (uBrg , ilwork, 1, 'in ')
177 numtask = ilwork(1)
182 iacc = ilwork (itkbeg + 2)
183 numseg = ilwork (itkbeg + 4)
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
188 lenseg = ilwork (itkbeg + 4 + 2*is)