Télécharger la plaquette Cast3M


fr en

Télécharger lire03.eso

Retour à la liste

Numérotation des lignes : 

lire03

  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.  
  56. -INC PPARAM
  57. -INC CCOPTIO
  58. *
  59.       CALL LIRENT (INTEGR,ICODE,IRETOU)
  60.       IF (IERR .NE. 0) RETURN
  61. *
  62.       IF (INTEGR.LT.MINIME .AND. (ICODE.EQ.1 .OR. IRETOU.EQ.1) ) THEN
  63.          INTERR(1) = MINIME
  64.          INTERR(2) = INTEGR
  65.          NUMERR = 190
  66.          CALL ERREUR (NUMERR)
  67.          RETURN
  68.       END IF
  69. *
  70.       END
  71.  
  72.  

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