Include source files

*     -INC PARAM
*     
      REAL*8 XZERO,XPI,XGRAND,XPETIT
      PARAMETER(XZERO=0.D0)
      PARAMETER(XPI=3.141592653589793D0)
      PARAMETER(XGRAND=1.D30)
      PARAMETER(XPETIT=1.D-30)
      
*             CET INCLUDE CONTIENT QUELQUES CONSTANTES
*                 XZERO=0.
*                 XPI  =3.14159..............
*                 XGRAND= NOMBRE GRAND EN VALEUR ABSOLUE
*                 XPETIT= NOMBRE PETIT EN VALEUR ABSOLUE
*