Télécharger chpoin.eso

Retour à la liste

Numérotation des lignes :

  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