From b9682ba9fa6d13b1e3a666a4a55b838989353935 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Tue, 25 Sep 2012 12:08:47 -0400
Subject: added constants definition for C code with "const double"

---
 mathemathica_fwm/RbXMDSSetup.nb | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb
index 3339dc7..4d47e7e 100755
--- a/mathemathica_fwm/RbXMDSSetup.nb
+++ b/mathemathica_fwm/RbXMDSSetup.nb
@@ -1517,18 +1517,18 @@ Cell[BoxData[{
      RowBox[{
       RowBox[{"\"\<ha(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], 
       "\[RuleDelayed]", 
-      RowBox[{"\"\<ha\>\"", "<>", "a"}]}], ",", 
+      RowBox[{"\"\<const double ha\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<hb(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], 
       "\[RuleDelayed]", 
-      RowBox[{"\"\<hb\>\"", "<>", "a"}]}], ",", 
+      RowBox[{"\"\<const double hb\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<lambda(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], 
       "\[RuleDelayed]", 
-      RowBox[{"\"\<lambda\>\"", "<>", "a"}]}], ",", 
+      RowBox[{"\"\<const double lambda\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<g(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", 
-      RowBox[{"\"\<g\>\"", "<>", "a"}]}], ",", 
+      RowBox[{"\"\<const double g\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<W(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", 
       RowBox[{"\"\<E\>\"", "<>", "a"}]}], ",", 
@@ -1538,7 +1538,15 @@ Cell[BoxData[{
       RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", 
-      RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"],
+      RowBox[{"\"\<d\>\"", "<>", "a"}]}], ",", " ", 
+     RowBox[{
+     "\"\<rt\>\"", "\[RuleDelayed]", " ", "\"\<const double rt\>\""}]}], 
+    "}"}]}], "]"}]}], "Input",
+ CellChangeTimes->{{3.557577613086402*^9, 3.557577705341272*^9}, {
+  3.557577737830722*^9, 3.557577743453672*^9}, {3.557577791685976*^9, 
+  3.557577804713066*^9}, {3.55757785531134*^9, 3.557577869097969*^9}, {
+  3.557577909846743*^9, 3.557577914049493*^9}, {3.557577958346201*^9, 
+  3.557577990666655*^9}}],
 
 Cell[BoxData[
  RowBox[{"Export", "[", 
-- 
cgit v1.2.3