Télécharger menag3.eso

Retour à la liste

Numérotation des lignes :

  1. C MENAG3 SOURCE PV 11/04/15 21:15:12 6945
  2. C SUPPRIMER LES SEGMENTS INDESIRABLES
  3. C
  4. SUBROUTINE MENAG3(ISLIS,ISLI2)
  5. IMPLICIT INTEGER(I-N)
  6. SEGMENT ISLIS(NP)
  7. SEGMENT ISLI2(0)
  8. * LISTE DES SEGMENTS NOUVEAUX
  9. IRANG=0
  10. IRAN2=0
  11. IRAN3=0
  12. 10 CONTINUE
  13. IRANG=IRANG+1
  14. IF (IRANG.GT.ISLIS(/1)) GOTO 15
  15. 11 CONTINUE
  16. IRAN2=IRAN2+1
  17. IF (IRAN2.GT.ISLI2(/1)) GOTO 13
  18. IP1=ISLIS(IRANG)
  19. IP2=ISLI2(IRAN2)
  20. if (ip2.eq.0) goto 13
  21. IF (IP2.LT.IP1) GOTO 11
  22. IF (IP2.EQ.IP1) GOTO 10
  23. 13 CONTINUE
  24. IRAN3=IRAN3+1
  25. ISLIS(IRAN3)=ISLIS(IRANG)
  26. IRAN2=IRAN2-1
  27. GOTO 10
  28. 15 CONTINUE
  29. SEGDES ISLI2
  30. * WRITE(6,*) ' SEGMENT DE LA LISTE ',ISLIS
  31. * WRITE(6,*) ' NOMBRE DE SEGMENTS INITIAUX ',ISLI2(/1)
  32. * WRITE(6,*) ' NOMBRE DE SEGMENTS ACTUELS ',ISLIS(/1)
  33. * WRITE(6,*) ' SEGMENTS A SUPPRIMER ',IRAN3
  34. * DO 20 I=1,IRAN3
  35. * WRITE (6,*) ' SEGMENT SUPPLEMENTAIRE ',ISLIS(I)
  36. * 20 CONTINUE
  37. NP=IRAN3
  38. SEGADJ ISLIS
  39. END
  40.  
  41.  
  42.  

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