Esope source files

   1 : C OPTLI     SOURCE    CHAT      05/01/13    02:05:26     5004           
   2 :       SUBROUTINE OPTLI(IP,LISTE,MOT,NB)
   3 : C************************************************************************
   4 : C
   5 : C     CE SOUS PROGRAMME CHERCHE UN MOT (8 CARACTERES) DANS LA LISTE
   6 : C     DE NB MOTS . LE RANG DANS LA LISTE (IP) EST DONNE EN RETOUR
   7 : C
   8 : C************************************************************************
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8 (A-H,O-Z)
  11 :       CHARACTER*8 LISTE(NB),MOT
  12 :       DO 1 I=1,NB
  13 :          IF(MOT.EQ.LISTE(I))THEN
  14 :             IP=I
  15 :             RETURN
  16 :          ENDIF
  17 :  1    CONTINUE
  18 :       IP=0
  19 :       RETURN
  20 :       END
  21 : 
  22 :  
  23 :  
  24 :