src/tool/Includes_Generaux/envex2.h

   1 c
   2 #ifdef _DEBUG_HOMARD_
   3       write (ulsort,texte(langue,3)) 'DMFLSH', nompro
   4 #endif
   5       call dmflsh (iaux)
   6 c
   7 c                     123456
   8       if ( spropb.eq.'      ' ) then
   9         spropb = nompro
  10         write (ulsort,*) '===== HOMARD ===== STOP ====='
  11       endif