src/tool/Utilitaire/utlo01.h

   1 c
   2 c 2.3. ==> messages d'erreur eventuels
   3 c
   4       if ( codre0.eq.3 ) then
   5         write (ulsort,texte(langue,5)) motcle
   6         write (ulsort,texte(langue,11))
   7         write (ulsort,texte(langue,12)) nbrmin, nbrmax
   8         write (ulsort,texte(langue,1)) 'Sortie', nompro
   9         codret = 6
  10 c
  11       elseif ( codre0.eq.6 ) then
  12         write (ulsort,texte(langue,5)) motcle
  13         write (ulsort,texte(langue,7))
  14         write (ulsort,texte(langue,1)) 'Sortie', nompro
  15         codret = 6
  16 c
  17       elseif ( codre0.eq.5 ) then
  18         write (ulsort,texte(langue,1)) 'Entree', nompro
  19         write (ulsort,texte(langue,5)) motcle
  20         write (ulsort,*) noptio(1:loptio)
  21         write (ulsort,texte(langue,6)) option
  22 #ifdef _DEBUG_HOMARD_
  23       elseif ( codre0.eq.0 ) then
  24         write (ulsort,texte(langue,10)) option
  25 #endif
  26 c
  27       endif