Esope source files

   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 :