Lines Matching refs:itkbeg
317 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
323 itkbeg = 1
325 iacc = ilwork(itkbeg+2)
326 numseg = ilwork(itkbeg+4)
329 isgbeg = ilwork(itkbeg+3+j*2)
330 lenseg = ilwork(itkbeg+4+j*2)
335 itkbeg = itkbeg+4+2*numseg
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
364 itkbeg = 1
366 itag = ilwork(itkbeg+1)
367 iacc = ilwork(itkbeg+2)
368 iother = ilwork(itkbeg+3)
369 numseg = ilwork(itkbeg+4)
370 isgbeg = ilwork(itkbeg+5)
372 p = ilwork(itkbeg+3+j*2)