Télécharger place5.eso

Retour à la liste

Numérotation des lignes :

  1. C PLACE5 SOURCE CHAT 05/01/13 02:14:39 5004
  2. C PLACE5 SOURCE THERY 88/01/13 21:24:10
  3. SUBROUTINE PLACE5(TABMOT,LTABMO,IDANS,CMOT)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. ************************************************************************
  7. *
  8. * P L A C E 5
  9. * -----------
  10. *
  11. * FONCTION:
  12. * ---------
  13. * ON VEUT SAVOIR SI UN MOT APPARTIENT OU NON A UN TABLEAU
  14. * DE MOTS,LE RESULTAT EST LA POSITION DU MOT.
  15. * LE MOT EST DE 4 LETTRES ET LA LISTE AUSSI.
  16. *
  17. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  18. * -----------
  19. *
  20. * TABMOT (E) TABLEAU DE MOTS
  21. * LTABMO (E) LONGUEUR DE CE TABLEAU
  22. * IDANS (S) POSITION DE L'ENTIER,SI ON L'A TROUVE (=0 SINON)
  23. * CMOT (E) MOT QUE L'ON CHERCHE
  24. *
  25. CHARACTER*4 TABMOT(*),CMOT
  26. *
  27. * AUTEUR, DATE DE CREATION:
  28. * -------------------------
  29. *
  30. * SAMUEL DURAND,LE 09 SEPTEMBRE 1996.
  31. *
  32. * LANGAGE:
  33. * --------
  34. *
  35. * FORTRAN77
  36. *
  37. ************************************************************************
  38. *
  39. IDANS=0
  40. *
  41. DO 10 IPOS=1,LTABMO
  42. IF (CMOT.EQ.TABMOT(IPOS)) THEN
  43. IDANS=IPOS
  44. RETURN
  45. ENDIF
  46. 10 CONTINUE
  47. * END DO
  48. *
  49. END
  50.  
  51.  
  52.  

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