Esope source files

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