Esope source files

   1 : C PLACE5    SOURCE    CHAT      05/01/13    02:14:39     5004           
   2 : C PLACE5    SOURCE    THERY     88/01/13    21:24:10                            
   3 :       SUBROUTINE PLACE5(TABMOT,LTABMO,IDANS,CMOT)  
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)                           
   6 : ************************************************************************        
   7 : *                                                                               
   8 : *                             P L A C E 5                                       
   9 : *                             -----------                                       
  10 : *                                                                               
  11 : * FONCTION:                                                                     
  12 : * ---------                                                                     
  13 : *     ON VEUT SAVOIR SI UN MOT APPARTIENT OU NON A UN TABLEAU                
  14 : *     DE MOTS,LE RESULTAT EST LA POSITION DU MOT. 
  15 : *     LE MOT EST DE 4 LETTRES ET LA LISTE AUSSI.                        
  16 : *                                                                               
  17 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  18 : * -----------                                                                   
  19 : *                                                                               
  20 : *     TABMOT  (E)  TABLEAU DE MOTS                                            
  21 : *     LTABMO  (E)  LONGUEUR DE CE TABLEAU                                       
  22 : *     IDANS   (S)  POSITION DE L'ENTIER,SI ON L'A TROUVE (=0 SINON)             
  23 : *     CMOT    (E)  MOT QUE L'ON CHERCHE                                      
  24 : *                                                                               
  25 :        CHARACTER*4 TABMOT(*),CMOT                                                         
  26 : *                                                                               
  27 : * AUTEUR, DATE DE CREATION:                                                     
  28 : * -------------------------                                                     
  29 : *                                                                               
  30 : *     SAMUEL DURAND,LE 09 SEPTEMBRE 1996.                                         
  31 : *                                                                               
  32 : * LANGAGE:                                                                      
  33 : * --------                                                                      
  34 : *                                                                               
  35 : *             FORTRAN77                                                         
  36 : *                                                                               
  37 : ************************************************************************        
  38 : *  
  39 :       IDANS=0                                                                   
  40 : *                                                                               
  41 :       DO 10 IPOS=1,LTABMO                                                       
  42 :          IF (CMOT.EQ.TABMOT(IPOS)) THEN                                       
  43 :             IDANS=IPOS                                                          
  44 :             RETURN                                                              
  45 :          ENDIF                                                                  
  46 :  10      CONTINUE                                                               
  47 : *     END DO                                                                    
  48 : *                                                                               
  49 :       END                                                                       
  50 :  
  51 :