Télécharger ctitre.eso

Retour à la liste

Numérotation des lignes :

  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.  
  40.  

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