src/tool/Includes_Generaux/mslv13.h

   1 c
   2 #ifdef _DEBUG_HOMARD_
   3       write (ulsort,90002) 'nbpacm', taopti(43)
   4       write (ulsort,90002) 'nbnoci', taopti(44)
   5       write (ulsort,90002) 'nbmaci', taopti(45)
   6 #endif
   7 c
   8       if ( taopti(44).gt.0 .or. taopti(45).gt.0 ) then
   9 c
  10         if ( taopti(31).ne.1 .and. taopti(31).ne. 2 ) then
  11           write(ulsort,texte(langue,120))
  12           write(ulsort,texte(langue,121))
  13           nbrepb = nbrepb + 1
  14         endif
  15 c
  16         if ( taopti(32).ne.0 ) then
  17           write(ulsort,texte(langue,120))
  18           write(ulsort,texte(langue,122))
  19           nbrepb = nbrepb + 1
  20         endif
  21 c
  22         taopti(6) = 5
  23 c
  24       endif