/*=============================================

     DECLARATIONS DE SCALAIRES USUELS

  =============================================*/

      double     un   = 1.0;
      double     zero = 0.0;