C GRACO5I   SOURCE    PV        13/10/31    21:17:36     7850           
      subroutine graco5i(ithr)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC SMMATRI
-INC CCHOLE
      SEGMENT IMASQ(LMASQ)
      SEGMENT ITMASQ(NBLIG)
*     write (6,*) ' ith dans chole3i ',ith
      ic=-1
      do  jbib=il1,il2,nbthr
      ic=mod(ic+1,nbthr)
      jbi=jbib+mod(ithr+ic,nbthr)
      if (jbi.gt.il2) return
      LIGN=ILIGN(JBI)
      if (lign.le.0) return
      if (imm.gt.ider) return
      IM=immm(1)
      DO JH=2,IMMM(/1)
      IM=MIN(IM,IMMM(JH))
      ENDDO
      imasq=itmasq(jbi)
      do 10 ip=max(im,iper),ider
      lig1=ilign(ip)
      incomp=1
      if (jbi-ip.lt.1) incomp=0
      CALL graco5(IPREL,IDERL,IPPVV(1),lig1.iprel,lig1.iderl,IVPO(1),
     > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
     > imasq(1),precc,ittr(1),incomp)
  10  continue
      enddo
      end