/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
* National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
* Operator of Los Alamos National Laboratory.
* This file is distributed subject to a Software License Agreement found
* in the file LICENSE that is included with this distribution. 
\*************************************************************************/

/* file   : constants.h
 * purpose: mathematical and physical constants
 *
 * Michael Borland, 1991
 $Log: constants.h,v $
 Revision 1.8  2008/08/15 01:51:54  borland
 Added flag to prevent multiple includes.

 Revision 1.7  2005/01/27 20:15:36  borland
 Restored previous version.  Changes resulted in too many annoying discrepancies.

 Revision 1.5  2002/08/14 15:40:14  soliday
 Added Open License

 Revision 1.4  1999/01/06 16:45:13  emery
 Added classical radius of electron.

 Revision 1.3  1997/08/25 19:24:05  borland
 Undefines macro PI before trying to define it.

 * Revision 1.2  1995/09/05  21:14:58  saunders
 * First test release of the SDDS1.5 package.
 *
 */

#ifndef MDB_CONSTANTS_INCLUDED
/* mathematical constants from Abramowitz and Stegun */
#undef PI
#define PI   3.141592653589793238462643
#define PIx2 6.283185307179586476925287
#define PIo2 1.570796326794896619231322
#define SQRT2 1.4142135623730950488

/* physical constants from 1988 Particle Properties Data Booklet */
    /* speed of light */
#define c_cgs	(2.99792458e10)
#define c_mks   (2.99792458e8)
    /* unit charge */
#define e_cgs   (4.8032068e-10)
#define e_mks   (1.60217733e-19)
    /* electron mass */
#define me_cgs (9.1093897e-28)
#define me_mks (9.1093897e-31)
#define me_mev (0.51099906)
    /* classical electron radius */
#define re_cgs (2.81794092E-13)
#define re_mks (2.81794092E-15)

    /* Planck's constant */
#define h_cgs (6.6260755e-27)
#define hbar_cgs (h_cgs/PIx2)
#define h_mks (6.6260755e-34)
#define hbar_mks (h_mks/PIx2)
    /* Boltzmann's constant */
#define k_boltzmann_cgs (1.380658e-16)
#define k_boltzmann_mks (1.380658e-23)
    /* mu and epsilon */
#define mu_o (4*PI*1e-7)
#define epsilon_o (1.e7/(4*PI*sqr(c_mks)))

#define MDB_CONSTANTS_INCLUDED 1
#endif