From 1299922009e873681d93823e42d3a9b608663aca Mon Sep 17 00:00:00 2001
From: Chong Peng <pchong90@vt.edu>
Date: Thu, 11 Sep 2014 15:27:11 -0400
Subject: [PATCH] fixed a error in defaultHamiltonianOpers I made from
 converting notebook to package file

---
 SeQuant.m | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

diff --git a/SeQuant.m b/SeQuant.m
index a14a997ca..457fc3556 100644
--- a/SeQuant.m
+++ b/SeQuant.m
@@ -1,6 +1,6 @@
 (* ::Package:: *)
 
-(*BeginPackage["SeQuant`"]*)
+(*BeginPackage["SeQuant`"];*)
 
 (* Setting up internal things *)
 Off[General::spell];
@@ -10,13 +10,18 @@
 (*SetOptions[$FrontEnd,CommonDefaultFormatTypes->{"Output"->TraditionalForm}];*)
 NCM = NonCommutativeMultiply;
 
+
+(* ::Section:: *)
+(* Global Parameters *)
+
+
 (*
 Special Operators
 *)
 Unprotect[defaultHamiltonianOpers];
 Unprotect[ignoreDisconnectedOpers];
 Unprotect[ignoreConnectedOpers];
-defaultHamiltonianOpers = {"F","g","Overscript[g, _]"};
+defaultHamiltonianOpers = {"F","g","\!\(\*OverscriptBox[\(g\), \(_\)]\)"};
 ignoreDisconnectedOpers = {};
 ignoreConnectedOpers = {};
 Protect[ignoreConnectedOpers];
@@ -24,11 +29,6 @@
 Protect[defaultHamiltonianOpers];
 
 
-
-(* ::Section:: *)
-(* Global Parameters *)
-
-
 (*
 Global SeQuant Parameters
 *)
@@ -44,10 +44,6 @@
 ];
 
 
-(* ::Section:: *)
-(* Space Class *)
-
-
 (* Definition of spaces *)
 occ = particleSpace[occupied];
 virt = particleSpace[virtual];
@@ -89,9 +85,9 @@
 DefaultSpaceSymbol[allany] = "\[Kappa]";
 
 
-
 (* ::Section:: *)
-(* particleIndex class *)
+(* particleIndex Class *)
+
 
 
 (* create particleIndex with space and symbol i *)
@@ -242,7 +238,7 @@
 
 
 (* ::Section:: *)
-(*  SQS class  *)
+(* SQS Class *)
 
 
 (*
@@ -386,7 +382,7 @@
 (* convention labels strings normal-ordered wrt to nonphysical vacuum as tilde{a} *)
         bodyLabel = If[ SeQuantVacuum==SeQuantVacuumChoices["Physical"],
                         "a",
-                        OverTilde["a"]
+                        "\[ATilde]"
                     ];
         supInds = "";
         subInds = "";
@@ -1871,7 +1867,7 @@ orderedForm puts elements of SQ expressions (SQ strings SQS and matrix elements
     MemberQ[x,y_particleIndex/;spaceWRTFermiLevel[indexSpace[y]]===+1]->0
 
 (* toolkit is ready *)
-Print["SeQuant is loaded and ready...\n"]
+Print["SeQuant is loaded and ready...\n"];
 (*EndPackage[]*)