Télécharger messag.eso

Retour à la liste

Numérotation des lignes :

  1. C MESSAG SOURCE PV 19/12/11 21:15:07 10427
  2. SUBROUTINE MESSAG
  3. IMPLICIT INTEGER(I-N)
  4. CHARACTER*512 MESS
  5. CHARACTER*6 fm
  6. -INC CCOPTIO
  7. MESS=' '
  8. ilong=1
  9. call chaine
  10. call lircha(mess,0,ilong)
  11. if(ilong.gt.512) call erreur(425)
  12. if(ierr.ne.0) return
  13. if(ilong.ne.0) then
  14. fm='(a'
  15. if (ilong.le.9) then
  16. write(fm(3:3),fmt='(i1)') ilong
  17. fm(4:4)=')'
  18. elseif (ilong.le.99) then
  19. write(fm(3:4),fmt='(i2)') ilong
  20. fm(5:5)=')'
  21. elseif (ilong.le.999) then
  22. write(fm(3:5),fmt='(i3)') ilong
  23. fm(6:6)=')'
  24. endif
  25. write(ioimp,fmt=fm) mess(1:ilong)
  26. else
  27. write(ioimp,fmt='(1X)')
  28. endif
  29. return
  30. end
  31.  
  32.  
  33.  

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