Lines Matching refs:ilwork
1 subroutine commu (global, ilwork, n, code) argument
39 & ilwork(nlwork)
131 numtask = ilwork(1)
139 itag = ilwork (itkbeg + 1)
140 iacc = ilwork (itkbeg + 2)
141 iother = ilwork (itkbeg + 3)
142 numseg = ilwork (itkbeg + 4)
143 isgbeg = ilwork (itkbeg + 5)
199 lenseg = ilwork (itkbeg + 4 + 2*is)
271 iacc = ilwork (itkbeg + 2)
272 numseg = ilwork (itkbeg + 4)
273 isgbeg = ilwork (itkbeg + 5)
284 isgbeg = ilwork (itkbeg + 3 + 2*is)
285 lenseg = ilwork (itkbeg + 4 + 2*is)