Lines Matching refs:ilwork
1 subroutine commu (global, ilwork, n, code) argument
39 & ilwork(nlwork)
125 numtask = ilwork(1)
133 itag = ilwork (itkbeg + 1)
134 iacc = ilwork (itkbeg + 2)
135 iother = ilwork (itkbeg + 3)
136 numseg = ilwork (itkbeg + 4)
137 isgbeg = ilwork (itkbeg + 5)
177 lenseg = ilwork (itkbeg + 4 + 2*is)
224 iacc = ilwork (itkbeg + 2)
225 numseg = ilwork (itkbeg + 4)
226 isgbeg = ilwork (itkbeg + 5)
237 isgbeg = ilwork (itkbeg + 3 + 2*is)
238 lenseg = ilwork (itkbeg + 4 + 2*is)