1 : C SAUTER SOURCE CHAT 05/01/13 03:11:34 5004 2 : SUBROUTINE SAUTER 3 : ************************************************************************ 4 : * 5 : * S A U T E R 6 : * ----------- 7 : * 8 : * SOUS-PROGRAMME ASSOCIE A LA DIRECTIVE "SAUTER" 9 : * 10 : * FONCTION: 11 : * --------- 12 : * 13 : * EFFECTUER UN SAUT DE PAGE(S) OU DE LIGNE(S). 14 : * 15 : * PHRASE D'APPEL (EN GIBIANE): 16 : * ---------------------------- 17 : * 18 : * |LIGNE| 19 : * SAUTER (NOMBRE) | | ; 20 : * |PAGE | 21 : * 22 : * OPERANDES: 23 : * ---------- 24 : * 25 : * NOMBRE 'ENTIER ' (FACULTATIF) NOMBRE DE LIGNES OU PAGES A 26 : * SAUTER. 27 : * LIGNE 'MOT ' MOT-CLE INDIQUANT QUE L'ON VEUT SAUTER DES 28 : * LIGNES. 29 : * PAGE 'MOT ' MOT-CLE INDIQUANT QUE L'ON VEUT SAUTER DES 30 : * PAGES. 31 : * 32 : * MODE DE FONCTIONNEMENT: 33 : * ----------------------- 34 : * 35 : * LES MOT-CLES "LIGNE" ET "PAGE" S'EXCLUENT MUTUELLEMENT. 36 : * 37 : * SOUS-PROGRAMMES APPELES: 38 : * ------------------------ 39 : * 40 : * LIRE, LIRENT, SAUTE1. 41 : * 42 : * AUTEUR, DATE DE CREATION: 43 : * ------------------------- 44 : * 45 : * PASCAL MANIGOT 27 DECEMBRE 1984 46 : * 47 : * LANGAGE: 48 : * -------- 49 : * 50 : * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS 51 : * 52 : ************************************************************************ 53 : * 54 : IMPLICIT INTEGER(I-N) 55 : CHARACTER*(4) LEMOT 56 : -INC CCOPTIO 57 : * 58 : * 59 : * 60 : ICODE = 1 60 : CALL LIRCHA (LEMOT,ICODE,IRETOU) 61 : IF (IERR .NE. 0) RETURN 62 : * 63 : ICODE = 0 63 : CALL LIRENT (NOMBRE,ICODE,IRETOU) 64 : IF (IRETOU .EQ. 0) THEN 65 : NOMBRE = 1 66 : END IF 67 : * 68 : IF (LEMOT .EQ. 'PAGE') THEN 69 : NBPAGE = NOMBRE 70 : NBLIGN = 0 71 : ELSE IF (LEMOT .EQ. 'LIGN') THEN 72 : NBPAGE = 0 73 : NBLIGN = NOMBRE 74 : ELSE 75 : * LA FAUTE N'EST PAS D'IMPORTANCE SUFFISANTE POUR QUE L'ON ENVOIE 76 : * UN MESSAGE D'ERREUR. 77 : RETURN 78 : END IF 79 : * 79 : CALL SAUTE1 (NBPAGE,NBLIGN) 80 : * 81 : END 82 :
© Cast3M 2003 - All rights reserved.
Disclaimer