Changeset 39700 for branches/czw_branch/20160809/Ohana/src/opihi/lib.shell/startup.c

Timestamp:

Sep 15, 2016, 3:14:55 PM (10 years ago)

Author:

eugene

Message:

add some math and physics constants

File:

• branches/czw_branch/20160809/Ohana/src/opihi/lib.shell/startup.c (modified) (1 diff)

branches/czw_branch/20160809/Ohana/src/opihi/lib.shell/startup.c

@@ -51 +51 @@
     gfits_set_unsign_mode (FALSE);
     
+    set_variable ("M_PI", M_PI);
+    set_variable ("M_E",  M_E);
+    set_variable ("M_c",  299792459.0); // meter / second
+    set_variable ("M_c_cgs", 29979245900.0); // cm / second
+
+    set_variable ("M_h",  6.62607004e-34); // meter^2 kg / second (J s)
+    set_variable ("M_h_cgs",  6.62607004e-27); // erg s
+
+    set_variable ("M_kB",  1.38064853e-23); // J / K
+    set_variable ("M_kB_cgs",  1.38064853e-16); // erg / K
+
   /* check history file permission */
   {