src/tool/Includes_Generaux/mslve3.h

   1       saux = '      '
   2 c
   3       if ( taopti(39).eq.1 ) then
   4         saux(1:1) = 'X'
   5       elseif ( taopti(39).eq.2 ) then
   6         saux(1:1) = 'Y'
   7       elseif ( taopti(39).eq.3 ) then
   8         saux(1:1) = 'Z'
   9 c
  10       elseif ( taopti(39).ne.0 ) then
  11         write(ulsort,texte(langue,11)) taopti(39)
  12         nbrepb = nbrepb + 1
  13 c
  14       endif
  15 c
  16       if ( saux.ne.'      ' ) then
  17         write(ulsort,texte(langue,119)) saux(1:1)
  18       endif