src/tool/Utilitaire/utb307.h

   1 c
   2 #ifdef _DEBUG_HOMARD_
   3       write (ulsort,texte(langue,5)) mess14(langue,3,typenh)
   4       if ( (nbcoqu+nbcoar).eq.0 ) then
   5         write (ulsort,texte(langue,7))
   6       else
   7         if ( nbcoqu.gt.0 ) then
   8           write (ulsort,texte(langue,6)) mess14(langue,3,4), nbcoqu
   9         endif
  10         if ( nbcoar.gt.0 ) then
  11           write (ulsort,texte(langue,6)) mess14(langue,3,1), nbcoar
  12         endif
  13       endif
  14 #endif