Télécharger la plaquette Cast3M


fr en

Télécharger chpoin.eso

Retour à la liste

Numérotation des lignes : 

chpoin

  1. C CHPOIN    SOURCE    CHAT      05/01/12    22:01:36     5004
  2.       SUBROUTINE CHPOIN
  3. ************************************************************************
  4. *
  5. *                              C H P O I N
  6. *                              -----------
  7. *
  8. *            SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "CHPOINT"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     CREER UN CHPOINT.
  14. *
  15. * PHRASE D'APPEL (EN GIBIANE):
  16. * ----------------------------
  17. *
  18. *                   | ALEATOIRE ... |
  19. *     ... = CHPOINT |               | ;
  20. *                   | UNIFORME  ... |
  21. *
  22. *     LES SYNTAXES COMPLETES SE TROUVENT DANS LES SOUS-PROGRAMMES
  23. *     RELATIFS A CHAQUE OPTION.
  24. *
  25. * SOUS-PROGRAMMES APPELES:
  26. * ------------------------
  27. *
  28. *     ALEAT, LIRMOT, UNIFOR.
  29. *
  30. * AUTEUR, DATE DE CREATION:
  31. * -------------------------
  32. *
  33. *     PASCAL MANIGOT     29 MARS 1985
  34. *
  35. * LANGAGE:
  36. * --------
  37. *
  38. *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  39. *
  40. ************************************************************************
  41. *
  42.       IMPLICIT INTEGER(I-N)
  43.  
  44. -INC PPARAM
  45. -INC CCOPTIO
  46. *
  47.       PARAMETER (NBRMOT = 2)
  48. *
  49.       CHARACTER*4 LISMOT(NBRMOT)
  50. *
  51.       DATA LISMOT/'ALEA','UNIF'/
  52. *
  53.       ICODE = 1
  54.       NBMOT = NBRMOT
  55.       CALL LIRMOT (LISMOT,NBMOT,NUMLIS,ICODE)
  56.       IF (IERR .NE. 0) RETURN
  57. *
  58.       IF (NUMLIS .EQ. 1) THEN
  59.          CALL ALEAT
  60.       ELSE IF (NUMLIS .EQ. 2) THEN
  61.          CALL UNIFOR
  62.       END IF
  63. *
  64.       END
  65.  
  66.  

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