Télécharger la plaquette Cast3M


fr en

Télécharger parmi.eso

Retour à la liste

Numérotation des lignes : 

parmi

  1. C PARMI     SOURCE    CB215821  20/11/04    21:19:28     10766          
  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*(*)  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.  
  60.  

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