1 : C CTITRE SOURCE CHAT 05/01/12 22:32:05 5004 2 : C ECRITURE DU TEXTE ENCADRE PAR DES ETOILES 3 : 4 : SUBROUTINE CTITRE(TEXTE) 5 : C 6 : IMPLICIT INTEGER(I-N) 7 : -INC CCOPTIO 8 : CHARACTER*(*) TEXTE 9 : CHARACTER BLAN 10 : CHARACTER*105 BUFF 11 : CHARACTER*76 STAR 12 : PARAMETER (BLAN=' ') 13 : PARAMETER (STAR='************************************************* 14 : #**************************') 15 : NN=MIN(72,LEN(TEXTE)) 16 : DO 10 I=NN,1,-1 17 : IF (TEXTE(I:I).NE.BLAN) GOTO 20 18 : 10 CONTINUE 19 : 20 CONTINUE 20 : NN=I 21 : C 22 : BUFF=BLAN 23 : NDEV=(132-NN-4)/2 24 : BUFF(NDEV+1:NDEV+NN+4)=STAR 25 : WRITE (IOIMP,999) 26 : 999 FORMAT (//) 27 : WRITE (IOIMP,1000) BUFF 28 : 1000 FORMAT (1X,A105) 29 : BUFF(NDEV+2:NDEV+NN+3)=BLAN 30 : WRITE (IOIMP,1000) BUFF 31 : BUFF(NDEV+3:NDEV+NN+2)=TEXTE(1:NN) 32 : WRITE (IOIMP,1000) BUFF 33 : BUFF(NDEV+2:NDEV+NN+3)=BLAN 34 : WRITE (IOIMP,1000) BUFF 35 : BUFF(NDEV+1:NDEV+NN+4)=STAR 36 : WRITE (IOIMP,1000) BUFF 37 : WRITE (IOIMP,999) 38 : END 39 :
© Cast3M 2003 - All rights reserved.
Disclaimer