Télécharger place.eso

Retour à la liste

Numérotation des lignes :

  1. C PLACE SOURCE CHAT 05/01/13 02:14:42 5004
  2. SUBROUTINE PLACE(MOT,LMOT,IMOT,MOH)
  3. C
  4. C CHERCHE LA PLACE DE MOH DS MOT
  5. C IMOT= PLACE DU MOT
  6. C IMOT=0 MOH NON TROUVE DS MOT
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. CHARACTER*(*) MOT(*),MOH
  10. C
  11. IMOT=0
  12. DO 1 IA=1,LMOT
  13. JA=IA
  14. IF(MOH.EQ.MOT(IA)) GO TO 2
  15. 1 CONTINUE
  16. RETURN
  17. 2 IMOT=JA
  18. RETURN
  19. END
  20.  
  21.  

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