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. -INC CCOPTIO
  44. *
  45. PARAMETER (NBRMOT = 2)
  46. *
  47. CHARACTER*4 LISMOT(NBRMOT)
  48. *
  49. DATA LISMOT/'ALEA','UNIF'/
  50. *
  51. ICODE = 1
  52. NBMOT = NBRMOT
  53. CALL LIRMOT (LISMOT,NBMOT,NUMLIS,ICODE)
  54. IF (IERR .NE. 0) RETURN
  55. *
  56. IF (NUMLIS .EQ. 1) THEN
  57. CALL ALEAT
  58. ELSE IF (NUMLIS .EQ. 2) THEN
  59. CALL UNIFOR
  60. END IF
  61. *
  62. END
  63.  
  64.  

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