Fix bug in C code generation (2nd try).

1 files changed, 5 insertions, 7 deletions

diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb
index 359e36b..abe1982 100755
--- a/mathemathica_fwm/RbXMDSSetup.nb
+++ b/mathemathica_fwm/RbXMDSSetup.nb
@@ -1271,9 +1271,7 @@ Cell[BoxData[{
        RowBox[{"All", ",", "2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], 

   "]"}]}], "Input"],

 

-Cell["\<\

-Plot atomic populations for a given set of parameters.\

-\>", "Text"],

+Cell["Plot atomic populations for a given set of parameters.", "Text"],

 

 Cell[BoxData[{

  RowBox[{

@@ -2163,10 +2161,10 @@ Cell[BoxData[{
      RowBox[{"ToString", "@", 

       RowBox[{"CForm", "[", 

        RowBox[{"%", "[", 

-        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "<>", "\"\< - Lt[E\>\"", "<>", 

-     RowBox[{"ToString", "@", "i"}], "<>", "\"\<];\\n\>\""}], ",", 

+        RowBox[{"[", "j", "]"}], "]"}], "]"}]}], "<>", "\"\< - Lt[E\>\"", "<>", 

+     RowBox[{"ToString", "@", "j"}], "<>", "\"\<];\\n\>\""}], ",", 

     RowBox[{"{", 

-     RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 

+     RowBox[{"j", ",", "4"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 

  RowBox[{"StringReplace", "[", 

   RowBox[{"%", ",", 

    RowBox[{"{", 

@@ -2220,7 +2218,7 @@ Cell[BoxData[{
      "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"]

 }, Open  ]]

 },

-WindowSize->{1032, 898},

+WindowSize->{974, 898},

 WindowMargins->{{0, Automatic}, {Automatic, 3}},

 PrivateNotebookOptions->{"FileOutlineCache"->False},

 ShowSelection->True,