src/tool/Includes_Generaux/mslve5.h

   1       write(ulsort,texte(langue,30))
   2 c
   3 #ifdef _DEBUG_HOMARD_
   4       if ( taopti(49).eq.1 ) then
   5         write(ulsort,texte(langue,31))
   6       endif
   7 #endif
   8 c
   9       if ( taopti(31).ge.-1 .and.taopti(31).le.2 ) then
  10 c
  11         if ( taopti(37).eq.0 ) then
  12 c
  13           write(ulsort,texte(langue,33+taopti(31)))
  14 c
  15           if ( taopti(31).eq.2 ) then
  16             write(ulsort,texte(langue,34))
  17           endif
  18 c
  19         endif
  20 c
  21       else
  22         write(ulsort,texte(langue,11)) taopti(31)
  23         nbrepb = nbrepb + 1
  24 c
  25       endif
  26 c
  27       if ( mod(taopti(36),2).eq.0 ) then
  28         write(ulsort,texte(langue,39))
  29       endif
  30 c
  31       if ( mod(taopti(36),3).eq.0 ) then
  32         write(ulsort,texte(langue,40))
  33       endif