Sources Esope | Cast3M

imorse
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