C IMORSE    SOURCE    CHAT      05/01/13    00:33:21     5004           
      FUNCTION IMORSE(IA,JA,LI,KO)
      IMPLICIT INTEGER(I-N)
      DIMENSION IA(*),JA(*)

      IDEB=IA(LI)
      NBK=IA(LI+1)-IA(LI)
      IMORSE=0
      DO 1 K=1,NBK
      IF(JA(IDEB+K-1).EQ.KO)THEN 
      IMORSE=IDEB+K-1
      RETURN
      ENDIF
 1    CONTINUE
C     write(6,*)' Colonne non trouvee '
      RETURN
      END