Esope source files

   1 : C PARMI     SOURCE    CHAT      05/01/13    02:09:14     5004           
   2 :       SUBROUTINE PARMI (NOM,NOMS,NBRNOM,DEDANS)                                 
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                              P A R M I                                        
   6 : *                              ---------                                        
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     INDIQUER SI UN NOM EST PARMI UNE LISTE DE NOMS.                           
  12 : *                                                                               
  13 : * MODE D'APPEL:                                                                 
  14 : * -------------                                                                 
  15 : *                                                                               
  15 : *     CALL PARMI (NOM,NOMS,NBRNOM,DEDANS)                                       
  16 : *                                                                               
  17 : * ARGUMENTS:   (E)=ENTREE   (S)=SORTIE                                          
  18 : * ----------                                                                    
  19 : *                                                                               
  20 : *     NOM     ENTIER    (E)  NOM QUE L'ON CHERCHE DANS LA LISTE DE NOMS.        
  21 : *                            (CONTIENT UNE VALEUR LITTERALE)                    
  22 : *     NOMS    ENTIER    (E)  LISTE DE NOMS (CONTIENT DES VALEURS                
  23 : *                            LITTERALES).                                       
  24 : *     NBRNOM  ENTIER    (E)  TAILLE DE "NOMS".                                  
  25 : *     DEDANS  LOGIQUE   (S)  = .TRUE.  SI "NOM" EST DANS "NOMS",                
  26 : *                            = .FALSE.  SINON.                                  
  27 : *                                                                               
  28 : * AUTEUR, DATE DE CREATION:                                                     
  29 : * -------------------------                                                     
  30 : *                                                                               
  31 : *     PASCAL MANIGOT     5 OCTOBRE 1984                                         
  32 : *                                                                               
  33 : * LANGAGE:                                                                      
  34 : * --------                                                                      
  35 : *                                                                               
  36 : *     FORTRAN77                                                                 
  37 : *                                                                               
  38 : ************************************************************************        
  39 : *                                                                               
  40 :       IMPLICIT INTEGER(I-N)
  41 :       LOGICAL DEDANS                                                            
  42 : *                                                                               
  43 :       CHARACTER*4  NOMS(*),NOM                                                  
  44 : *                                                                               
  45 :       DEDANS = .FALSE.                                                          
  46 :       DO 100 IB100=1,NBRNOM                                                     
  47 :          IF (NOM .EQ. NOMS(IB100) ) THEN                                        
  48 :             DEDANS = .TRUE.                                                     
  49 : *           --> SORTIE DE BOUCLE                                                
  50 :             GOTO 110                                                            
  51 :          END IF                                                                 
  52 :   100    CONTINUE                                                               
  53 : *     END DO                                                                    
  54 :   110 CONTINUE                                                                  
  55 : *                                                                               
  56 :       END                                                                       
  57 :