Télécharger lire03.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRE03 SOURCE CHAT 05/01/13 01:20:51 5004
  2. SUBROUTINE LIRE03 (MINIME,INTEGR,ICODE,IRETOU)
  3. ************************************************************************
  4. *
  5. * L I R E 0 3
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * LECTURE D'UN ENTIER DE VALEUR SUPERIEURE OU EGALE A UN ENTIER
  12. * RELATIF DONNE.
  13. *
  14. * MODE D'APPEL:
  15. * -------------
  16. *
  17. * CALL LIRE03 (MINIME,INTEGR,ICODE,IRETOU)
  18. *
  19. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  20. * -----------
  21. *
  22. * MINIME ENTIER (E) VALEUR MINIMALE AUTORISEE.
  23. * INTEGR ENTIER (S) ENTIER LU.
  24. * ICODE ENTIER (E) VOIR LE SOUS-PROGRAMME "LIRE".
  25. * IRETOU ENTIER E/S VOIR LE SOUS-PROGRAMME "LIRE".
  26. *
  27. * SOUS-PROGRAMMES APPELES:
  28. * ------------------------
  29. *
  30. * ERREUR, LIRENT.
  31. *
  32. * REMARQUES:
  33. * ----------
  34. *
  35. * SI UN ENTIER EST LU, IL Y A POSSIBILITE D'ERREUR DE DONNEE QUE
  36. * LA LECTURE SOIT IMPERATIVE OU NON ("ICODE" = 1 OU 0).
  37. * EN EFFET, IL N'Y A PAS DE TYPE SPECIAL "ENTIER >= MINIME". DONC,
  38. * SI UN ENTIER A PU ETRE LU, C'EST OBLIGATOIREMENT CELUI DEVANT
  39. * REPONDRE A LA CONTRAINTE "ENTIER >= MINIME" ET IL Y A ERREUR SI
  40. * TEL N'EST PAS LE CAS.
  41. *
  42. * AUTEUR, DATE DE CREATION:
  43. * -------------------------
  44. *
  45. * PASCAL MANIGOT 07 JANVIER 1985
  46. *
  47. * LANGAGE:
  48. * --------
  49. *
  50. * FORTRAN77
  51. *
  52. ************************************************************************
  53. *
  54. IMPLICIT INTEGER(I-N)
  55. -INC CCOPTIO
  56. *
  57. CALL LIRENT (INTEGR,ICODE,IRETOU)
  58. IF (IERR .NE. 0) RETURN
  59. *
  60. IF (INTEGR.LT.MINIME .AND. (ICODE.EQ.1 .OR. IRETOU.EQ.1) ) THEN
  61. INTERR(1) = MINIME
  62. INTERR(2) = INTEGR
  63. NUMERR = 190
  64. CALL ERREUR (NUMERR)
  65. RETURN
  66. END IF
  67. *
  68. END
  69.  
  70.  

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