Sources Esope | Cast3M

savseg
C SAVSEG    SOURCE    PV        11/04/15    21:15:18     6945
C  SIGNALE A MENAGE QU'IL FAUT GARDER UN SEGMENT
C
      SUBROUTINE SAVSEG(IPOINT)
*
*  LE BUT DE CE S-P EST DE RAJOUTER A LA LISTE DES SEGMENTS
*  PREEXISTANT UN SEGMENT
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
      SEGMENT ISLIS(NBS)
      ISLIS=NOYSEG
      SEGACT ISLIS*mod
*  TRI
      NBS=ISLIS(/1)
      DO 10 I=1,NBS
       if (islis(i).eq.0) goto 15
       IF (IPOINT.GT.ISLIS(I)) GOTO 10
       IF (IPOINT.EQ.ISLIS(I)) GOTO 20
       IF (IPOINT.LT.ISLIS(I)) GOTO 30
  10  CONTINUE
      I=NBS+1
  30  CONTINUE
      if (islis(nbs).ne.0) then
       NBS=NBS+1
       SEGADJ ISLIS
      endif
      DO 40 J=NBS,I+1,-1
       ISLIS(J)=ISLIS(J-1)
  40  CONTINUE
  15  continue
      ISLIS(I)=IPOINT
  20  CONTINUE
      SEGDES ISLIS
*     write (6,*) ' savseg longueur, insertion ',nbs,i
      END