1 : C ECLMOT SOURCE CHAT 05/01/12 23:23:31 5004 2 : SUBROUTINE ECLMOT (IPMOTS) 3 : ************************************************************************ 4 : * 5 : * E C L M O T 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * IMPRESSION D'UN OBJET 'LISTMOTS'. 12 : * 13 : * MODE D'APPEL: 14 : * ------------- 15 : * 15 : * CALL ECLMOT (IPMOTS) 16 : * 17 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 18 : * ----------- 19 : * 20 : * IPMOTS ENTIER (E) POINTEUR SUR L'OBJET DE TYPE 'LISTMOTS'. 21 : * 22 : * AUTEUR, DATE DE CREATION: 23 : * ------------------------- 24 : * 25 : * PASCAL MANIGOT 26 OCTOBRE 1984 26 : * 27 : * LANGAGE: 28 : * -------- 29 : * 30 : * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS. 31 : * 32 : ************************************************************************ 33 : * 34 : IMPLICIT INTEGER(I-N) 35 : -INC CCOPTIO 36 : -INC SMLMOTS 37 : * 38 : MLMOTS = IPMOTS 39 : SEGACT,MLMOTS 40 : LONG = MOTS(/2) 41 : LARG=MOTS(/1) 42 : INTERR(1)=MLMOTS 43 : INTERR(2)=LONG 44 : INTERR(3)=LARG 44 : CALL ERREUR(-109) 45 : 46 : 47 : * 48 : WRITE (IOIMP,2010) LONG 49 : 2010 FORMAT (/,' NOMBRE DE MOTS =',I4,/) 50 : IF (LONG .GT. 0) THEN 51 : IF(LARG.LE.4) THEN 52 : WRITE (IOIMP,2019) (MOTS(I),I=1,LONG) 53 : 2019 FORMAT (20(2X,A4) ) 54 : ELSEIF(LARG.LE.8) THEN 55 : WRITE (IOIMP,2020) (MOTS(I),I=1,LONG) 56 : 2020 FORMAT (12(2X,A8) ) 57 : ELSEIF(LARG.LE.16) THEN 58 : WRITE (IOIMP,2021) (MOTS(I),I=1,LONG) 59 : 2021 FORMAT (7(2X,A16) ) 60 : ELSEIF(LARG.LE.24) THEN 61 : WRITE (IOIMP,2022) (MOTS(I),I=1,LONG) 62 : 2022 FORMAT (5(2X,A24) ) 63 : ELSEIF(LARG.LE.32) THEN 64 : WRITE (IOIMP,2023) (MOTS(I),I=1,LONG) 65 : 2023 FORMAT (3(2X,A32) ) 66 : ELSEIF(LARG.LE.54) THEN 67 : WRITE (IOIMP,2024) (MOTS(I),I=1,LONG) 68 : 2024 FORMAT (2(2X,A54) ) 69 : ELSEIF(LARG.LE.100) THEN 70 : WRITE (IOIMP,2025) (MOTS(I),I=1,LONG) 71 : 2025 FORMAT (2X,A100 ) 72 : ENDIF 73 : END IF 74 : * 75 : SEGDES,MLMOTS 76 : * 77 : END 78 :
© Cast3M 2003 - All rights reserved.
Disclaimer