Télécharger graco5i.eso

Retour à la liste

Numérotation des lignes :

  1. C GRACO5I SOURCE PV 16/11/17 21:59:36 9180
  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. do 100 jbib=il2,il1,-nbthr
  11. jbi=jbib-ithr+1
  12. if (jbi.gt.il2) goto 100
  13. if (jbi.lt.il1) goto 100
  14. LIGN=ILIGN(JBI)
  15. if (lign.le.0) return
  16. if (imm.gt.ider) goto 100
  17. IM=immm(1)
  18. DO JH=2,IMMM(/1)
  19. IM=MIN(IM,IMMM(JH))
  20. ENDDO
  21. imasq=itmasq(jbi)
  22. do 10 ip=max(im,iper),ider
  23. lig1=ilign(ip)
  24. incomp=1
  25. if (jbi-ip.lt.1) incomp=0
  26. nc=0
  27. CALL graco5(IPREL,IDERL,IPPVV(1),lig1.iprel,lig1.iderl,IVPO(1),
  28. > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
  29. > imasq(1),precc,ittr(1),incomp,nc)
  30. 10 continue
  31. 100 continue
  32. end
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

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