diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-09-25 12:08:47 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-09-25 12:08:47 -0400 |
| commit | b9682ba9fa6d13b1e3a666a4a55b838989353935 (patch) | |
| tree | 216bc83c70bce45f1382a5e84540046b45005a2c | |
| parent | 20671bac725b5aacac460b2f5145f15d268b785d (diff) | |
| download | Nresonances-b9682ba9fa6d13b1e3a666a4a55b838989353935.tar.gz Nresonances-b9682ba9fa6d13b1e3a666a4a55b838989353935.zip | |
added constants definition for C code with "const double"
| -rwxr-xr-x | mathemathica_fwm/RbXMDSSetup.nb | 18 |
1 files 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", "[", |