1 : C INFOR1 SOURCE PV 11/03/18 21:15:01 6907 2 : C CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU 3 : C DU CHAPITRE DESIRE DU FICHIER D'INFORMATION 4 : C 5 : SUBROUTINE INFOR1(NOM) 6 : IMPLICIT INTEGER(I-N) 7 : -INC CCOPTIO 8 : CHARACTER*4 CODE 9 : CHARACTER*8 MOT,NOM 10 : CHARACTER*72 BUFFER 11 : character*1 rep 11 : call gistty(ligne) 12 : if (ligne.le.0) ligne=6000000 13 : ligne=max(ligne,50) 14 : C RECHERCHE DU BON CHAPITRE DANS CETTE METHODE LE NOM EST CADRE A 15 : C GAUCHE 16 : IEC=1 17 : CODE='0' 17 : CALL INFOPO(NOM,CODE) 18 : MOTERR(1:4)=NOM 18 : IF (CODE.NE.'0 ') CALL ERREUR(7) 19 : IF (IERR.NE.0.AND.IIMPI.NE.0) WRITE (IIMPI,100) CODE 20 : IF (IERR.NE.0) RETURN 21 : C LECTURE DU CHAPITRE ECRITURE SUR LE TERMINAL 22 : lalig=0 23 : ipag=0 23 : 1 CALL INFOLI(BUFFER,CODE) 24 : IF (CODE.NE.'0 ') GOTO 2 25 : IF(BUFFER(5:8).EQ.'====') THEN 26 : IF(BUFFER(1:4).EQ.LANGUE.OR.BUFFER(1:4).EQ.'====')THEN 27 : IEC=1 28 : GO TO 1 29 : ELSE 30 : IEC=0 31 : GO TO 1 32 : ENDIF 33 : ENDIF 34 : IF(IEC.EQ.1) then 35 : lalig=lalig+1 36 : if (lalig.gt.ligne-3) then 37 : ipag=ipag+1 38 : read (ioter,fmt='(a1)',end=2,err=2) rep 39 : if (rep.eq.'q') goto 2 39 : call gistty(ligne) 40 : write (ioimp,fmt='(a13,a4,x,i2)') '*** Chapitre ',NOM,ipag 41 : lalig=0 42 : endif 43 : WRITE (IOIMP,100) BUFFER 44 : endif 45 : 100 FORMAT (1X,A72) 46 : GOTO 1 47 : 2 RETURN 48 : END 49 : 50 : 51 : 52 : 53 :
© Cast3M 2003 - All rights reserved.
Disclaimer