Télécharger messag.eso

Retour à la liste

Numérotation des lignes :

  1. C MESSAG SOURCE PV 20/03/06 21:15:04 10546
  2. SUBROUTINE MESSAG
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7.  
  8. CHARACTER*(LOCHAI) MESS
  9. CHARACTER*(6) fm
  10. EXTERNAL long
  11.  
  12. MESS =' '
  13. ilong=1
  14. call chain1(mess)
  15. ilong=long(mess)
  16. if(ierr.ne.0) return
  17.  
  18. if(ilong.ne.0) then
  19. fm='(a'
  20. if (ilong.le.9) then
  21. write(fm(3:3),fmt='(i1)') ilong
  22. fm(4:4)=')'
  23. elseif (ilong.le.99) then
  24. write(fm(3:4),fmt='(i2)') ilong
  25. fm(5:5)=')'
  26. elseif (ilong.le.999) then
  27. write(fm(3:5),fmt='(i3)') ilong
  28. fm(6:6)=')'
  29. endif
  30. write(ioimp,fmt=fm) mess(1:ilong)
  31.  
  32. else
  33. write(ioimp,fmt='(1X)')
  34. endif
  35.  
  36. end
  37.  

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