character*250 racine_data
      racine_data='/tmp/geisa/Distrib_ether/pgm01/DATA'