Esope source files

   1 : C GRACO5I   SOURCE    PV        13/10/31    21:17:36     7850           
   2 :       subroutine graco5i(ithr)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : -INC SMMATRI
   6 : -INC CCHOLE
   7 :       SEGMENT IMASQ(LMASQ)
   8 :       SEGMENT ITMASQ(NBLIG)
   9 : *     write (6,*) ' ith dans chole3i ',ith
  10 :       ic=-1
  11 :       do  jbib=il1,il2,nbthr
  12 :       ic=mod(ic+1,nbthr)
  13 :       jbi=jbib+mod(ithr+ic,nbthr)
  14 :       if (jbi.gt.il2) return
  15 :       LIGN=ILIGN(JBI)
  16 :       if (lign.le.0) return
  17 :       if (imm.gt.ider) return
  18 :       IM=immm(1)
  19 :       DO JH=2,IMMM(/1)
  20 :       IM=MIN(IM,IMMM(JH))
  21 :       ENDDO
  22 :       imasq=itmasq(jbi)
  23 :       do 10 ip=max(im,iper),ider
  24 :       lig1=ilign(ip)
  25 :       incomp=1
  26 :       if (jbi-ip.lt.1) incomp=0
  26 :       CALL graco5(IPREL,IDERL,IPPVV(1),lig1.iprel,lig1.iderl,IVPO(1),
  27 :      > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
  28 :      > imasq(1),precc,ittr(1),incomp)
  29 :   10  continue
  30 :       enddo
  31 :       end
  32 : 
  33 : 
  34 : 
  35 : 
  36 : 
  37 : 
  38 : 
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :  
  45 :  
  46 :