Télécharger la plaquette Cast3M


fr en

Télécharger messag.eso

Retour à la liste

Numérotation des lignes : 

messag

  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