From 67e33c25f224850e32abfcfc20069fa35a50d241 Mon Sep 17 00:00:00 2001
From: Simon Rochester <simon.rochester@gmail.com>
Date: Fri, 21 Sep 2012 12:21:46 -0700
Subject: Fix bug in C code generation (2nd try).

---
 mathemathica_fwm/RbXMDSSetup.nb | 12 +++++-------
 1 file 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,
-- 
cgit v1.2.3