Lines Matching refs:ilwork
1 subroutine commuInt (global, ilwork, n, code) argument
38 integer ilwork(nlwork) local
92 numtask = ilwork(1)
100 itag = ilwork (itkbeg + 1)
101 iacc = ilwork (itkbeg + 2)
102 iother = ilwork (itkbeg + 3)
103 numseg = ilwork (itkbeg + 4)
104 isgbeg = ilwork (itkbeg + 5)
138 lenseg = ilwork (itkbeg + 4 + 2*is)
172 iacc = ilwork (itkbeg + 2)
173 numseg = ilwork (itkbeg + 4)
174 isgbeg = ilwork (itkbeg + 5)
185 isgbeg = ilwork (itkbeg + 3 + 2*is)
186 lenseg = ilwork (itkbeg + 4 + 2*is)