src/tool/Includes_Generaux/mslv10.h

   1       if ( taopti(10).gt.0 ) then
   2 c
   3         if ( taopti(37).eq.0 ) then
   4 c
   5           if ( taopti(31).gt.0 .and. taopti(32).gt.0 ) then
   6 c
   7             if ( ( taopti(6).eq.1 .and. taopti(7).eq.1 ) .or.
   8      >           ( taopti(6).eq.2 .and. taopti(7).eq.2 ) ) then
   9               if ( taoptr(2).gt.taoptr(1) ) then
  10                 write(ulsort,texte(langue,93))
  11                 nbrepb = nbrepb + 1
  12               endif
  13             elseif ( taopti(6).eq.3 .and. taopti(7).eq.3 ) then
  14               if ( taoptr(1)+taoptr(2).gt.100.d0 ) then
  15                 write(ulsort,texte(langue,93))
  16                 nbrepb = nbrepb + 1
  17               endif
  18             endif
  19 c
  20           endif
  21 c
  22         endif
  23 c
  24       endif