$NetBSD: patch-am,v 1.1 2005/10/07 12:31:25 rillig Exp $

The patches patch-al upto patch-aq add the physical constants k, q, e0,
mu0, and c.

--- constant.c.orig	Thu Apr  4 05:46:11 2002
+++ constant.c	Fri Oct  7 14:24:25 2005
@@ -24,6 +24,11 @@ Foundation, Inc., 59 Temple Place - Suit
 #include "real.h"
 #include "complex.h"
 
+Real *realBoltzmann;
+Real *realCharge;
+Real *realE0;
+Real *realMu0;
+Real *realLightSpeed;
 Real *realPi;
 Real *realPi2;
 Real *realZero;
@@ -35,9 +40,17 @@ Real *realMOne;
 Real *real180Pi;
 Cmplx *cmplxI;
 
+#define LIGHTSPEED	2.997923e8
+#define MU0				(4*M_PI*1.0e-7)
+
 void setup_constant(){
    Real *tmp;
 
+   realBoltzmann = setRealDouble(newReal(), 1.380622e-23);
+   realCharge = setRealDouble(newReal(), 1.6021917e-19);
+   realE0 = setRealDouble(newReal(), 1.0/(LIGHTSPEED*LIGHTSPEED*MU0));
+   realMu0 = setRealDouble(newReal(), MU0);
+   realLightSpeed = setRealDouble(newReal(), LIGHTSPEED);
    realPi = setRealDouble(newReal(), M_PI);
    realPi2 = setRealDouble(newReal(), M_PI/2.0);
    realZero = setRealDouble(newReal(), 0.0);
