Télécharger libseg.eso

Retour à la liste

Numérotation des lignes :

libseg
  1. C LIBSEG SOURCE FANDEUR 12/07/05 21:15:59 7424
  2. C
  3. C LE BUT DE CE S-P EST DE RETIRER UN SEGMENT DE LA LISTE DES
  4. C SEGMENTS DU NOYAU S'IL Y EST PRESENT
  5. C effet inverse par rapport a SAVSEG
  6. C
  7. SUBROUTINE LIBSEG(IPOINT)
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. C
  11. -INC CCNOYAU
  12. C
  13. SEGMENT ISLIS(NBS)
  14. C
  15. ISLIS=NOYSEG
  16. SEGACT ISLIS*MOD
  17. NBS = ISLIS(/1)
  18. C
  19. C ISLIS EST UNE LISTE ORDONNEE CROISSANTE POUR LES VALEURS DE
  20. C SEGMENTS ET COMPLETEE LE CAS ECHEANT DE VALEURS NULLES
  21. C
  22. DO 10 I = 1, NBS
  23. IF (ISLIS(I).EQ.0) GOTO 20
  24. IF (IPOINT.LT.ISLIS(I)) GOTO 20
  25. IF (IPOINT.EQ.ISLIS(I)) THEN
  26. DO J = I, NBS-1
  27. ISLIS(J)=ISLIS(J+1)
  28. ENDDO
  29. ISLIS(NBS) = 0
  30. GOTO 20
  31. ENDIF
  32. C* IF (IPOINT.GT.ISLIS(I)) GOTO 10
  33. 10 CONTINUE
  34. C
  35. 20 CONTINUE
  36. SEGDES,ISLIS
  37. C
  38. RETURN
  39. END
  40.  
  41.  
  42.  

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