Esope source files

   1 : C PLACE2    SOURCE    CHAT      05/01/13    02:14:32     5004           
   2 :       SUBROUTINE PLACE2(ITABEN,LTABEN,IDANS,IVALEN)                             
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             P L A C E 2                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *     ON VEUT SAVOIR SI UN ENTIER APPARTIENT OU NON A UN TABLEAU                
  11 : *     D'ENTIERS,LE RESULTAT EST LA POSITION DE L'ENTIER                         
  12 : *                                                                               
  13 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  14 : * -----------                                                                   
  15 : *                                                                               
  16 : *     ITABEN  (E)  TABLEAU D'ENTIERS                                            
  17 : *     LTABEN  (E)  LONGUEUR DE CE TABLEAU                                       
  18 : *     IDANS   (S)  POSITION DE L'ENTIER,SI ON L'A TROUVE (=0 SINON)             
  19 : *     IVALEN  (E)  ENTIER QUE L'ON CHERCHE                                      
  20 : *                                                                               
  21 :       IMPLICIT INTEGER(I-N)
  22 :       INTEGER ITABEN(*)                                                         
  23 : *                                                                               
  24 : * AUTEUR, DATE DE CREATION:                                                     
  25 : * -------------------------                                                     
  26 : *                                                                               
  27 : *     DENIS ROBERT,LE 14 DECEMBRE 1987.                                         
  28 : *                                                                               
  29 : * LANGAGE:                                                                      
  30 : * --------                                                                      
  31 : *                                                                               
  32 : *             FORTRAN77                                                         
  33 : *                                                                               
  34 : ************************************************************************        
  35 : *                                                                               
  36 :       IDANS=0                                                                   
  37 : *                                                                               
  38 :       DO 10 IPOS=1,LTABEN                                                       
  39 :          IF (IVALEN.EQ.ITABEN(IPOS)) THEN                                       
  40 :             IDANS=IPOS                                                          
  41 :             RETURN                                                              
  42 :          ENDIF                                                                  
  43 :  10      CONTINUE                                                               
  44 : *     END DO                                                                    
  45 : *                                                                               
  46 :       END                                                                       
  47 :