Télécharger place2.eso

Retour à la liste

Numérotation des lignes :

  1. C PLACE2 SOURCE CHAT 05/01/13 02:14:32 5004
  2. SUBROUTINE PLACE2(ITABEN,LTABEN,IDANS,IVALEN)
  3. ************************************************************************
  4. *
  5. * P L A C E 2
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. * ON VEUT SAVOIR SI UN ENTIER APPARTIENT OU NON A UN TABLEAU
  11. * D'ENTIERS,LE RESULTAT EST LA POSITION DE L'ENTIER
  12. *
  13. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  14. * -----------
  15. *
  16. * ITABEN (E) TABLEAU D'ENTIERS
  17. * LTABEN (E) LONGUEUR DE CE TABLEAU
  18. * IDANS (S) POSITION DE L'ENTIER,SI ON L'A TROUVE (=0 SINON)
  19. * IVALEN (E) ENTIER QUE L'ON CHERCHE
  20. *
  21. IMPLICIT INTEGER(I-N)
  22. INTEGER ITABEN(*)
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. *
  27. * DENIS ROBERT,LE 14 DECEMBRE 1987.
  28. *
  29. * LANGAGE:
  30. * --------
  31. *
  32. * FORTRAN77
  33. *
  34. ************************************************************************
  35. *
  36. IDANS=0
  37. *
  38. DO 10 IPOS=1,LTABEN
  39. IF (IVALEN.EQ.ITABEN(IPOS)) THEN
  40. IDANS=IPOS
  41. RETURN
  42. ENDIF
  43. 10 CONTINUE
  44. * END DO
  45. *
  46. END
  47.  
  48.  

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