Télécharger parmi.eso

Retour à la liste

Numérotation des lignes :

  1. C PARMI SOURCE CHAT 05/01/13 02:09:14 5004
  2. SUBROUTINE PARMI (NOM,NOMS,NBRNOM,DEDANS)
  3. ************************************************************************
  4. *
  5. * P A R M I
  6. * ---------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * INDIQUER SI UN NOM EST PARMI UNE LISTE DE NOMS.
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL PARMI (NOM,NOMS,NBRNOM,DEDANS)
  17. *
  18. * ARGUMENTS: (E)=ENTREE (S)=SORTIE
  19. * ----------
  20. *
  21. * NOM ENTIER (E) NOM QUE L'ON CHERCHE DANS LA LISTE DE NOMS.
  22. * (CONTIENT UNE VALEUR LITTERALE)
  23. * NOMS ENTIER (E) LISTE DE NOMS (CONTIENT DES VALEURS
  24. * LITTERALES).
  25. * NBRNOM ENTIER (E) TAILLE DE "NOMS".
  26. * DEDANS LOGIQUE (S) = .TRUE. SI "NOM" EST DANS "NOMS",
  27. * = .FALSE. SINON.
  28. *
  29. * AUTEUR, DATE DE CREATION:
  30. * -------------------------
  31. *
  32. * PASCAL MANIGOT 5 OCTOBRE 1984
  33. *
  34. * LANGAGE:
  35. * --------
  36. *
  37. * FORTRAN77
  38. *
  39. ************************************************************************
  40. *
  41. IMPLICIT INTEGER(I-N)
  42. LOGICAL DEDANS
  43. *
  44. CHARACTER*4 NOMS(*),NOM
  45. *
  46. DEDANS = .FALSE.
  47. DO 100 IB100=1,NBRNOM
  48. IF (NOM .EQ. NOMS(IB100) ) THEN
  49. DEDANS = .TRUE.
  50. * --> SORTIE DE BOUCLE
  51. GOTO 110
  52. END IF
  53. 100 CONTINUE
  54. * END DO
  55. 110 CONTINUE
  56. *
  57. END
  58.  
  59.  

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