Esope source files

   1 : C PLACE     SOURCE    CHAT      05/01/13    02:14:42     5004           
   2 :       SUBROUTINE PLACE(MOT,LMOT,IMOT,MOH)                                       
   3 : C                                                                               
   4 : C         CHERCHE LA PLACE DE MOH DS MOT                                        
   5 : C         IMOT= PLACE DU MOT                                                    
   6 : C         IMOT=0  MOH NON TROUVE DS MOT                                         
   7 : C                                                                               
   8 :       IMPLICIT INTEGER(I-N)
   9 :       CHARACTER*(*) MOT(*),MOH                                                  
  10 : C                                                                               
  11 :       IMOT=0                                                                    
  12 :       DO 1 IA=1,LMOT                                                            
  13 :       JA=IA                                                                     
  14 :       IF(MOH.EQ.MOT(IA))       GO TO 2                                          
  15 :     1 CONTINUE                                                                  
  16 :       RETURN                                                                    
  17 :     2 IMOT=JA                                                                   
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :