Télécharger chrmot.eso

Retour à la liste

Numérotation des lignes :

  1. C CHRMOT SOURCE CHAT 05/01/12 22:02:05 5004
  2. SUBROUTINE CHRMOT(IMOT,LMOT,MOT,IRET)
  3. C
  4. C CHERCHE LE MOT 'MOT', DANS LE TABLEAU IMOT DE LONGUEUR LMOT
  5. C ECRIT PAR FARVACQUE EN FORTRAN
  6. C
  7. IMPLICIT INTEGER(I-N)
  8. CHARACTER*4 IMOT(*)
  9. CHARACTER*4 MOT
  10. IRET=0
  11. DO 1 I=1,LMOT
  12. IF(IMOT(I).NE.MOT) GOTO 1
  13. IRET=I
  14. GOTO 2
  15. 1 CONTINUE
  16. 2 CONTINUE
  17. RETURN
  18. END
  19.  
  20.  

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