Télécharger la plaquette Cast3M


fr en

Télécharger lire04.eso

Retour à la liste

Numérotation des lignes : 

lire04

  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 PPARAM
  54. -INC CCOPTIO
  55. *
  56.       CALL LIRREE (REELDP,ICODE,IRETOU)
  57.       IF (IERR .NE. 0) RETURN
  58. *
  59.       IF(IVABS.EQ.0) THEN
  60.       REETES=REELDP
  61.       ELSE
  62.       REETES=ABS(REELDP)
  63.       ENDIF
  64. *
  65.       IF (REETES.LT.XMINIM .AND. (ICODE.EQ.1 .OR. IRETOU.EQ.1) ) THEN
  66.          REAERR(1) = XMINIM
  67.          REAERR(2) = REETES
  68.          NUMERR = 191
  69.          CALL ERREUR (NUMERR)
  70.          RETURN
  71.       END IF
  72. *
  73.       END
  74.  
  75.  

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