C CHOLE3I   SOURCE    PV        13/10/31    21:15:02     7850           
      subroutine chole3i(ithr)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC SMMATRI
-INC CCHOLE
      SEGMENT IMASQ(LMASQ)
      SEGMENT ITMASQ(NBLIG)
      segment immx(io)
*     write (6,*) ' ith dans chole3i ',ith
      ic=-1
      do 100 jbib=il1,il2,nbthr
      ic=mod(ic+1,nbthr)
      jbi=jbib+mod(ithr+ic-1,nbthr)
      if (jbi.gt.il2) return
      LIGN=ILIGN(JBI)
      im=imm
      if (im.gt.ider) then
*      write (6,*) ' il1 il2 ider jbib im ',il1,il2,ider,jbib,im
       return
      endif
      im=immm(1)
      do ih=2,immm(/1)
       im=min(im,immm(ih))
      enddo
      imasq=itmasq(jbi)
      do 10 ip=max(im,iper),ider
      lig1=ilign(ip)
      ippr=lig1.iprel
      iddr=lig1.iderl

      CALL CHOLE3(IPREL,IDERL,IPPVV(1),IPPR,IDDR,IVPO(1),
     > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
     > imasq(1),precc)
*  en multithread il peut y avoir n'importe quoi dans oov(1) du
*  aux acces simultanés et ca crache gemat. donc :
       oov(1)=0
  10  continue
 100  continue
      end