Télécharger graco5i.eso

Retour à la liste

Numérotation des lignes :

graco5i
  1. C GRACO5I SOURCE PV090527 23/12/20 21:15:07 11813
  2. subroutine graco5i(ithr)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMMATRI
  6. -INC CCHOLE
  7. *tmp segment immt(nblig)
  8. * write (6,*) ' ith dans chole3i ',ith
  9. do 100 jbib=il2,il1,-nbthr
  10. jbi=jbib-ithr+1
  11. if (jbi.gt.il2) goto 100
  12. if (jbi.lt.il1) goto 100
  13. *tmp if (immt(jbi).gt.ider) goto 100
  14. LIGN=ILIGN(JBI)
  15. if (lign.le.0) return
  16. IM=immm(1)
  17. DO JH=2,IMMM(/1)
  18. IM=MIN(IM,IMMM(JH))
  19. ENDDO
  20. do 10 ip=max(im,iper),ider
  21. lig1=ilign(ip)
  22. incomp=1
  23. if (jbi-ip.lt.1) incomp=0
  24. nc=0
  25. CALL graco5(IPREL,IDERL,IPPVV(1),lig1.iprel,lig1.iderl,IVPO(1),
  26. > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
  27. > imasq(1),ittr(1),incomp,nc)
  28. 10 continue
  29. 100 continue
  30. end
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales