Télécharger la plaquette Cast3M


fr en

Télécharger place2.eso

Retour à la liste

Numérotation des lignes : 

place2

  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