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 : * 16 : * CALL LIRE03 (MINIME,INTEGR,ICODE,IRETOU) 17 : * 18 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 19 : * ----------- 20 : * 21 : * MINIME ENTIER (E) VALEUR MINIMALE AUTORISEE. 22 : * INTEGR ENTIER (S) ENTIER LU. 23 : * ICODE ENTIER (E) VOIR LE SOUS-PROGRAMME "LIRE". 24 : * IRETOU ENTIER E/S VOIR LE SOUS-PROGRAMME "LIRE". 25 : * 26 : * SOUS-PROGRAMMES APPELES: 27 : * ------------------------ 28 : * 29 : * ERREUR, LIRENT. 30 : * 31 : * REMARQUES: 32 : * ---------- 33 : * 34 : * SI UN ENTIER 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 "ENTIER >= MINIME". DONC, 37 : * SI UN ENTIER A PU ETRE LU, C'EST OBLIGATOIREMENT CELUI DEVANT 38 : * REPONDRE A LA CONTRAINTE "ENTIER >= MINIME" ET IL Y A ERREUR SI 39 : * 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 : IMPLICIT INTEGER(I-N) 54 : -INC CCOPTIO 55 : * 55 : CALL LIRENT (INTEGR,ICODE,IRETOU) 56 : IF (IERR .NE. 0) RETURN 57 : * 58 : IF (INTEGR.LT.MINIME .AND. (ICODE.EQ.1 .OR. IRETOU.EQ.1) ) THEN 59 : INTERR(1) = MINIME 60 : INTERR(2) = INTEGR 61 : NUMERR = 190 61 : CALL ERREUR (NUMERR) 62 : RETURN 63 : END IF 64 : * 65 : END 66 :
© Cast3M 2003 - All rights reserved.
Disclaimer