Esope source files

   1 : C IMORSE    SOURCE    CHAT      05/01/13    00:33:21     5004           
   2 :       FUNCTION IMORSE(IA,JA,LI,KO)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       DIMENSION IA(*),JA(*)
   5 : 
   6 :       IDEB=IA(LI)
   7 :       NBK=IA(LI+1)-IA(LI)
   8 :       IMORSE=0
   9 :       DO 1 K=1,NBK
  10 :       IF(JA(IDEB+K-1).EQ.KO)THEN 
  11 :       IMORSE=IDEB+K-1
  12 :       RETURN
  13 :       ENDIF
  14 :  1    CONTINUE
  15 : C     write(6,*)' Colonne non trouvee '
  16 :       RETURN
  17 :       END
  18 :  
  19 :