Télécharger la plaquette Cast3M


fr en

Télécharger ctitre.eso

Retour à la liste

Numérotation des lignes : 

ctitre

  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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10.       CHARACTER*(*) TEXTE
  11.       CHARACTER BLAN
  12.       CHARACTER*105 BUFF
  13.       CHARACTER*76 STAR
  14.       PARAMETER (BLAN=' ')
  15.       PARAMETER (STAR='*************************************************
  16.      #**************************')
  17.       NN=MIN(72,LEN(TEXTE))
  18.       DO 10 I=NN,1,-1
  19.       IF (TEXTE(I:I).NE.BLAN) GOTO 20
  20.   10  CONTINUE
  21.   20  CONTINUE
  22.       NN=I
  23. C
  24.       BUFF=BLAN
  25.       NDEV=(132-NN-4)/2
  26.       BUFF(NDEV+1:NDEV+NN+4)=STAR
  27.       WRITE (IOIMP,999)
  28.  999  FORMAT (//)
  29.       WRITE (IOIMP,1000) BUFF
  30.  1000 FORMAT (1X,A105)
  31.       BUFF(NDEV+2:NDEV+NN+3)=BLAN
  32.       WRITE (IOIMP,1000) BUFF
  33.       BUFF(NDEV+3:NDEV+NN+2)=TEXTE(1:NN)
  34.       WRITE (IOIMP,1000) BUFF
  35.       BUFF(NDEV+2:NDEV+NN+3)=BLAN
  36.       WRITE (IOIMP,1000) BUFF
  37.       BUFF(NDEV+1:NDEV+NN+4)=STAR
  38.       WRITE (IOIMP,1000) BUFF
  39.       WRITE (IOIMP,999)
  40.       END
  41.  
  42.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales