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