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,