Télécharger lire04.eso

Retour à la liste

Numérotation des lignes :

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

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