fixed a error in defaultHamiltonianOpers I made from converting noteb…

…ook to package file

SeQuant.m

@@ -1,6 +1,6 @@
 (* ::Package:: *)
 
-(*BeginPackage["SeQuant`"]*)
+(*BeginPackage["SeQuant`"];*)
 
 (* Setting up internal things *)
 Off[General::spell];
@@ -10,25 +10,25 @@
 (*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];
 Protect[ignoreDisconnectedOpers];
 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[]*)