Sources Esope | Cast3M

libseg
C LIBSEG    SOURCE    FANDEUR   12/07/05    21:15:59     7424
C
C  LE BUT DE CE S-P EST DE RETIRER UN SEGMENT DE LA LISTE DES
C  SEGMENTS DU NOYAU S'IL Y EST PRESENT
C  effet inverse par rapport a SAVSEG
C
      SUBROUTINE LIBSEG(IPOINT)
C
      IMPLICIT INTEGER(I-N)
C
-INC CCNOYAU
C
      SEGMENT ISLIS(NBS)
C
      ISLIS=NOYSEG
      SEGACT ISLIS*MOD
      NBS = ISLIS(/1)
C
C  ISLIS EST UNE LISTE ORDONNEE CROISSANTE POUR LES VALEURS DE
C  SEGMENTS ET COMPLETEE LE CAS ECHEANT DE VALEURS NULLES
C
      DO 10 I = 1, NBS
        IF (ISLIS(I).EQ.0) GOTO 20
        IF (IPOINT.LT.ISLIS(I)) GOTO 20
        IF (IPOINT.EQ.ISLIS(I)) THEN
          DO J = I, NBS-1
            ISLIS(J)=ISLIS(J+1)
          ENDDO
          ISLIS(NBS) = 0
          GOTO 20
        ENDIF
C*      IF (IPOINT.GT.ISLIS(I)) GOTO 10
  10  CONTINUE
C
  20  CONTINUE
      SEGDES,ISLIS
C
      RETURN
      END