Télécharger imorse.eso

Retour à la liste

Numérotation des lignes :

  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. DO 1 K=1,NBK
  9. IF(JA(IDEB+K-1).EQ.KO)THEN
  10. IMORSE=IDEB+K-1
  11. RETURN
  12. ENDIF
  13. 1 CONTINUE
  14. C write(6,*)' Colonne non trouvee '
  15. RETURN
  16. END
  17.  
  18.  
  19.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales