Esope source files

   1 : C CHRMOT    SOURCE    CHAT      05/01/12    22:02:05     5004           
   2 :       SUBROUTINE CHRMOT(IMOT,LMOT,MOT,IRET)                                     
   3 : C                                                                               
   4 : C    CHERCHE LE MOT 'MOT', DANS LE TABLEAU IMOT DE LONGUEUR LMOT                
   5 : C    ECRIT PAR FARVACQUE EN FORTRAN                                             
   6 : C                                                                               
   7 :       IMPLICIT INTEGER(I-N)
   8 :       CHARACTER*4    IMOT(*)                                                    
   9 :       CHARACTER*4     MOT                                                       
  10 :       IRET=0                                                                    
  11 :       DO 1 I=1,LMOT                                                             
  12 :       IF(IMOT(I).NE.MOT) GOTO 1                                                 
  13 :       IRET=I                                                                    
  14 :       GOTO 2                                                                    
  15 :    1  CONTINUE                                                                  
  16 :    2  CONTINUE                                                                  
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :