/* quelques fonctions mathematiques et constantes utiles */
/*                                         cmv  23/06/94 */

#ifndef PEMATH_SEEN
#define PEMATH_SEEN

#include "machine.h"

#define  Pi     (double) (3.1415926535898)    /* c'est Pi */
#define  DeuxPi (double) (6.2831853071796)    /* c'est 2*Pi */
#define  SPi    (double) (1.772453850906)     /* c'est sqrt(Pi) */
#define  S2Pi   (double) (2.506628274631)     /* c'est sqrt(2*Pi) */
#define  Rac2   (double) (1.414213562373)     /* c'est sqrt(2) */
#define  Log2   (double) (0.301029995664)     /* c'est log10(2) */
#define  LnPi   (double) (1.14472988585)      /* c'est ln(Pi) */
#define  LgPi   (double) (0.497149872694)     /* c'est log10(Pi) */
#define  Ln10   (double) (2.302585092994)     /* c'est ln(10) */
#define  DftoDm (double) (1.085736204758)     /* c'est 2.5/ln(10) */
#define  Hln2pi (double) 0.918938533205       /* c'est Ln(2*pi)/2 */
#define  JourSec (float) (86400.)       /* nombre de secondes dans 24H */
#define  AnSec  (int) (31557600)   /* nombre de secondes dans 365.25 jours */
#define  GRAND  (float) (1.e+35)
#define  GRAND2 (double) (1.e+35)
#define  IGRAND (int_4) (2147483647)

#endif