From eda93779bd511dac497cc765aa4287b29636b5cb Mon Sep 17 00:00:00 2001
From: knarf <knarf@e464a08b-0e4f-0410-9853-9e08ab54b382>
Date: Wed, 14 May 2003 12:14:10 +0000
Subject: - thorn containing some often used constants as defines   - currently
 only: c, G and Msolar

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/Constants/trunk@2 e464a08b-0e4f-0410-9853-9e08ab54b382
---
 src/constants.h    | 38 ++++++++++++++++++++++++++++++++++++++
 src/make.code.defn |  0
 2 files changed, 38 insertions(+)
 create mode 100644 src/constants.h
 create mode 100644 src/make.code.defn

(limited to 'src')

diff --git a/src/constants.h b/src/constants.h
new file mode 100644
index 0000000..8eea227
--- /dev/null
+++ b/src/constants.h
@@ -0,0 +1,38 @@
+#ifndef CONSTANTS_H
+
+#ifdef CCODE
+#define CONSTANT_c_SI  2.99792458e8
+#define CONSTANT_c_cgi 2.99792458e10
+#define CONSTANT_c_C   1.0e0
+#endif
+#ifdef FCODE
+#define CONSTANT_c_SI  2.99792458d8
+#define CONSTANT_c_cgi 2.9979245800d10
+#define CONSTANT_c_C   1.0d0
+#endif
+
+#ifdef CCODE
+#define CONSTANT_G_SI  6.6732e-11
+#define CONSTANT_G_cgi 6.6732e-8
+#define CONSTANT_G_C   1.0e0
+#endif
+#ifdef FCODE
+#define CONSTANT_G_SI  6.6732d-11
+#define CONSTANT_G_cgi 6.6732d-8
+#define CONSTANT_G_C   1.0e0
+#endif
+
+#ifdef CCODE
+#define CONSTANT_Msolar_SI  1.987e30
+#define CONSTANT_Msolar_cgi 1.987e33
+#define CONSTANT_Msolar_C   1.0d0
+#endif
+#ifdef FCODE
+#define CONSTANT_Msolar_SI  1.987d30
+#define CONSTANT_Msolar_cgi 1.987d33
+#define CONSTANT_Msolar_C   1.0d0
+#endif
+
+#define CONSTANT
+
+#endif
diff --git a/src/make.code.defn b/src/make.code.defn
new file mode 100644
index 0000000..e69de29
-- 
cgit v1.2.3