From 1fc14d656e3a285d163807ec4896a4adc08290fb Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 28 Sep 2012 10:37:58 -0400
Subject: changed comment line in the generated xmds code to conform to
 xmds/xml syntax

---
 mathemathica_fwm/RbXMDSSetup.nb | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb
index 7b10959..4419de1 100755
--- a/mathemathica_fwm/RbXMDSSetup.nb
+++ b/mathemathica_fwm/RbXMDSSetup.nb
@@ -727,6 +727,7 @@ Cell[BoxData[
           "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \
 \(2\)]\)\!\(\*SubscriptBox[\(S\), \(1/2\)]\)\>\"", ",", 
            RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", 
+         
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.9"}], ",", "0"}], "}"}]}], "]"}], ",", 
@@ -737,6 +738,7 @@ Cell[BoxData[
           "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \
 \(2\)]\)\!\(\*SubscriptBox[\(P\), \(1/2\)]\)\>\"", ",", 
            RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", 
+         
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.9"}], ",", "1.6"}], "}"}]}], "]"}], ",", 
@@ -747,6 +749,7 @@ Cell[BoxData[
           "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \
 \(2\)]\)\!\(\*SubscriptBox[\(P\), \(3/2\)]\)\>\"", ",", 
            RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", 
+         
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", 
@@ -1374,6 +1377,7 @@ Cell[BoxData[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", 
+   
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"3.5", " ", "72"}]}], ",", 
    RowBox[{"ImagePadding", "\[Rule]", 
@@ -1758,7 +1762,8 @@ Cell[BoxData[
  RowBox[{"StringReplace", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
-   "\"\<//---------------- RbChosenRho.txt starts ------------------\n\>\"", "<>", 
+   "\"\<<!-- ############### RbChosenRho.txt starts ################ -->\n\
+\>\"", "<>", 
     RowBox[{"StringJoin", "[", 
      RowBox[{
       RowBox[{
@@ -1775,7 +1780,7 @@ Cell[BoxData[
          RowBox[{"r", "[", 
           RowBox[{"s1", ",", "s2"}], "]"}]}]}], ")"}]}], "]"}], "<>", 
     "\[IndentingNewLine]", 
-    "\"\<\n//---------------- RbChosenRho.txt ends  ------------------\n\
+    "\"\<\n<!-- ############### RbChosenRho.txt ends  ################# -->\n\
 \>\""}], ",", 
    RowBox[{"{", 
     RowBox[{
@@ -1816,7 +1821,10 @@ Cell[BoxData[
       RowBox[{"\"\<d\>\"", "<>", "a"}]}], ",", 
      RowBox[{
       RowBox[{"\"\<k(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", 
-      RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]], "Input"],
+      RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.55783111253207*^9, 3.557831139052502*^9}, {
+  3.55783118557623*^9, 3.557831207536057*^9}, {3.55783156483857*^9, 
+  3.557831608540392*^9}, {3.557831696356534*^9, 3.557831697724494*^9}}],
 
 Cell[BoxData[
  RowBox[{"Export", "[", 
@@ -2180,6 +2188,7 @@ Cell[BoxData[
       RowBox[{
        RowBox[{
        "subsys", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
+       
        RowBox[{
         RowBox[{"4", "\[Pi]", " ", "\[ImaginaryI]", " ", 
          RowBox[{"Energy", "[", 
@@ -2189,6 +2198,7 @@ Cell[BoxData[
            "]"}], "]"}], " ", "n0", " ", 
          RowBox[{
          "rmes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], " ", 
+         
          RowBox[{
          "polarizationcomponents1", "\[LeftDoubleBracket]", "k", 
           "\[RightDoubleBracket]"}]}], "/.", "delreps1"}]}], "]"}], "]"}], 
@@ -2335,6 +2345,7 @@ Cell[BoxData[{
      RowBox[{"Power", "[", 
       RowBox[{
        RowBox[{"_", "?", "NumericQ"}], ",", "_"}], "]"}]}], "\[RuleDelayed]", 
+    
     RowBox[{"N", "[", "a", "]"}]}]}], "//", 
   "Simplify"}], "\[IndentingNewLine]", 
  RowBox[{"StringJoin", "[", 
@@ -2404,14 +2415,17 @@ Cell[BoxData[{
    RowBox[{"ToFileName", "[", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
-     "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"]
+     "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"],
+
+Cell[BoxData["\[IndentingNewLine]"], "Input",
+ CellChangeTimes->{3.557831629359518*^9}]
 }, Open  ]]
 },
 WindowSize->{956, 1004},
-WindowMargins->{{0, Automatic}, {Automatic, 0}},
+WindowMargins->{{Automatic, 0}, {26, Automatic}},
 PrivateNotebookOptions->{"FileOutlineCache"->False},
 ShowSelection->True,
-FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
+FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
 StyleDefinitions->"Default.nb"
 ]
 
-- 
cgit v1.2.3