(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    178327,       4163]
NotebookOptionsPosition[    173361,       4065]
NotebookOutlinePosition[    173785,       4082]
CellTagsIndexPosition[    173742,       4079]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Latex tables for CBD ", "Title",
 CellChangeTimes->{{3.827373670652142*^9, 3.827373684557177*^9}},
 TextAlignment->Center,ExpressionUUID->"4d386c5e-bcf5-4efd-b0bc-b836edb33cf9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BeginPackage", "[", 
    RowBox[{"\"\<TeXTableForm`\>\"", ",", "\"\<Global`\>\""}], "]"}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"TeXTableForm", ".", 
    RowBox[{"m", "--"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Mathematica", " ", "Version", " ", "2.0", ".1"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Version", " ", "1.0", " ", "from", " ", "November", " ", "4", "th"}], 
    ",", "1992"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"author", ":", 
     RowBox[{"Matthias", " ", "Schunter"}]}], ",", 
    RowBox[{"Teichstr", ".", "1"}], ",", 
    RowBox[{"D", "-", 
     RowBox[{"29", " ", "Oldenburg"}]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Bugs", " ", "and", " ", 
    RowBox[{"suggestions", ":", 
     RowBox[{
      RowBox[{
       RowBox[{"schunter", "@", "informatik"}], ".", "uni"}], "-", 
      RowBox[{"hildesheim", ".", "de"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"The", " ", "Package", " ", "is", " ", "public"}], "-", 
    RowBox[{"domain", "."}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "distribution", " ", "of", " ", "changed", " ", "versions", 
    " ", "is", " ", "not", " ", "allowed", " ", "without", " ", 
    "permission"}], "*)"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TeXTableForm", "::", "usage"}], "=", 
    "\"\<TeXTableForm[list,n] generates a body of a LaTeX-table\nwith n \
columns. list may be nested up to level 2.\n\
TeXTableForm[list,n,\\\"filename\\\"] writes the output to the according file\
\>\""}], ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TableBegin", "::", "usage"}], "=", 
    "\"\<TableBegin->\\\"string\\\" sets the string in the\ntable definition. \
columns may be used to insert the number of big columns;\nwidth may be used \
to insert the width of each column. Default is \nTableBegin -> \
\\\"\\\\begin{tabular}{|*{columns}{*{width}{|l}|}|}\\\\n\\\" \>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TableEnd", "::", "usage"}], "=", 
    "\"\<TableEnd -> \\\"string\\\" sets the end of tabular string.\nDefault \
is TableEnd -> \\\"\\\\end{tabular}\\\\n\\\"\>\""}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"`contents", "=", 
    RowBox[{"{", "TeXTableForm", "}"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Attributes", "[", "#", "]"}], "=", 
       RowBox[{"{", "}"}]}], ")"}], "&"}], "/@", "`contents"}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "[", "TeXTableForm", "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
      "TableBegin", "\[Rule]", 
       "\"\<\\\\begin{tabular}{|*{columns}{*{width}{|l}|}|}\\n\>\""}], ",", 
      RowBox[{"TableEnd", "\[Rule]", "\"\<\\\\end{tabular}\\n\>\""}]}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", "\n", 
  RowBox[{"(*", 
   RowBox[{"Abbreviation", ":"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TTF", "=", "TeXTableForm"}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TeXTableForm", "[", 
     RowBox[{"inlist_List", ",", 
      RowBox[{"columns_Integer", ":", "1"}], ",", 
      RowBox[{"file_String", ":", "\"\<stdout\>\""}], ",", "opts___"}], "]"}],
     ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"width", ",", "length", ",", 
        RowBox[{"outstream", "=", "\"\<\>\""}], ",", "stringpad", ",", 
        "elems", ",", "i", ",", "j"}], "}"}], ",", 
      RowBox[{
       RowBox[{"elems", "=", "inlist"}], ";", "\[IndentingNewLine]", 
       RowBox[{"width", "=", 
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{"Length", "/@", "elems"}], ",", "1"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"length", "=", 
        RowBox[{"Ceiling", "[", 
         RowBox[{
          RowBox[{"Length", "[", "elems", "]"}], "/", "columns"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"stringpad", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"\"\< \>\"", ",", 
          RowBox[{"{", "width", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"elems", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"\"\<$\>\"", "<>", "#", "<>", "\"\<$\>\""}], ")"}], 
                "&"}], "/@", 
               RowBox[{"ToString", "/@", 
                RowBox[{"TeXForm", "/@", 
                 RowBox[{"Flatten", "[", 
                  RowBox[{"{", "#", "}"}], "]"}]}]}]}], ",", "stringpad"}], 
             "]"}], ",", "width"}], "]"}], "&"}], "/@", "elems"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"elems", "=", 
        RowBox[{"Join", "[", 
         RowBox[{"elems", ",", 
          RowBox[{"Table", "[", 
           RowBox[{"stringpad", ",", 
            RowBox[{"{", "length", "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"outstream", "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"file", "\[Equal]", "\"\<stdout\>\""}], ",", 
          "\"\<stdout\>\"", ",", 
          RowBox[{"OpenWrite", "[", "file", "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"outstream", ",", 
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"TableBegin", "/.", 
             RowBox[{"{", "opts", "}"}]}], "/.", 
            RowBox[{"Options", "[", "TeXTableForm", "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\"\<columns\>\"", "\[Rule]", 
              RowBox[{"ToString", "[", "columns", "]"}]}], ",", 
             RowBox[{"\"\<width\>\"", "\[Rule]", 
              RowBox[{"ToString", "[", "width", "]"}]}]}], "}"}]}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "length"}], ",", 
         RowBox[{"i", "++"}], ",", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"j", "=", "0"}], ",", 
            RowBox[{"j", "<", "columns"}], ",", 
            RowBox[{"j", "++"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"WriteString", "[", 
                RowBox[{"outstream", ",", "#", ",", "\"\< & \>\""}], "]"}], 
               "&"}], "/@", 
              RowBox[{"Drop", "[", 
               RowBox[{
                RowBox[{"elems", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", 
                   RowBox[{"length", " ", "j"}]}], "]"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"-", "1"}], "}"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"j", "\[Equal]", 
                RowBox[{"columns", "-", "1"}]}], ",", 
               RowBox[{"WriteString", "[", 
                RowBox[{"outstream", ",", 
                 RowBox[{
                  RowBox[{"elems", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", "+", 
                    RowBox[{"length", " ", "j"}]}], "]"}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"WriteString", "[", 
                RowBox[{"outstream", ",", 
                 RowBox[{
                  RowBox[{"elems", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", "+", 
                    RowBox[{"length", " ", "j"}]}], "]"}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"-", "1"}], "]"}], "]"}], ",", "\"\< & \>\""}], 
                "]"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WriteString", "[", 
           RowBox[{"outstream", ",", "\"\< \\\\\\\\\\n\>\""}], "]"}], ";"}]}],
         "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"outstream", ",", 
         RowBox[{"StringReplace", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"TableEnd", "/.", 
             RowBox[{"{", "opts", "}"}]}], "/.", 
            RowBox[{"Options", "[", "TeXTableForm", "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\"\<columns\>\"", "\[Rule]", 
              RowBox[{"ToString", "[", "columns", "]"}]}], ",", 
             RowBox[{"\"\<width\>\"", "\[Rule]", 
              RowBox[{"ToString", "[", "width", "]"}]}]}], "}"}]}], "]"}]}], 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"file", "\[NotEqual]", "\"\<stdout\>\""}], ",", 
         RowBox[{"Close", "[", "outstream", "]"}], ","}], "]"}]}]}], "]"}]}], 
   ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"End", "[", "]"}], " ", 
   RowBox[{"(*", "Private", "*)"}], ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Attributes", "[", "#", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}], ")"}], "&"}], "/@",
    "`contents"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], ";"}], "\n", 
 RowBox[{"Null", ";"}]}], "Code",
 CellChangeTimes->{{3.827373731783263*^9, 3.827373773592554*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"3849ee34-b676-45ec-a0db-b50477ef25ea"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["D", 
   RowBox[{"2", "h"}]], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"5a48c928-11dc-439c-967c-e5b30fadecdd"]], \
"Section",
 CellChangeTimes->{{3.827373802809289*^9, 
  3.8273738155307007`*^9}},ExpressionUUID->"48241247-a3bd-4198-b7fd-\
f18b8c06dc11"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Standard methods", "Subsubsection"]], "Subsection",
 CellChangeTimes->{{3.8273739024228477`*^9, 
  3.827373926796605*^9}},ExpressionUUID->"0025ff08-61f6-44d8-bf9d-\
6c6322a1bb4e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CBDD2h", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CC3", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<CC3\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.420", ",", "3.341", 
        ",", "4.658"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.396", ",", "3.158", 
        ",", "4.711"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.402", ",", "3.119", 
        ",", "4.777"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.409", ",", "3.113", 
        ",", "4.774"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDT", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDT\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.442", ",", "3.357", 
        ",", "4.311"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.411", ",", "3.175", 
        ",", "4.327"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.411", ",", "3.139", 
        ",", "4.429"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CC4", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC4\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", ",", "3.343",
         ",", "4.067"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC4\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", 
        "3.164", ",", "4.040"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDTQ", " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDTQ\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", ",", 
        "3.340", ",", "4.073"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.662", ",",
         "4.657", ",", "4.439"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.672", ",", "4.563", 
        ",", "4.448"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.670", ",", "4.546", 
        ",", "4.441"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.671", ",", "4.549", 
        ",", "4.440"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.440", ",", 
        "3.162", ",", "4.115"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.414", ",", "2.971", 
        ",", "4.068"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.412", ",", "2.923", 
        ",", "4.072"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.417", ",", "2.911", 
        ",", "4.081"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"XMS", "-", 
        RowBox[{"CASPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<XMS-CASPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", 
        ",", "\"\<\>\"", ",", "4.151"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.105"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.114"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.125"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.407", ",", 
        "2.707", ",", "4.145"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.381", ",", "2.479", 
        ",", "4.109"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.379", ",", "2.422", 
        ",", "4.108"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.384", ",", "2.408", 
        ",", "4.125"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.409", ",", 
        "2.652", ",", "4.120"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.384", ",", "2.424", 
        ",", "4.084"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.382", ",", "2.368", 
        ",", "4.083"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.387", ",", "2.353", 
        ",", "4.091"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.564", ",", 
        "3.802", ",", "4.265"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.558", ",", "3.670", 
        ",", "4.254"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.568", ",", "3.678", 
        ",", "4.270"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.574", ",", "3.681", 
        ",", "4.280"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.675", 
        ",", "3.924", ",", "4.220"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.685", ",", "3.856", 
        ",", "4.221"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.686", ",", "3.844", 
        ",", "4.217"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.687", ",", "3.846", 
        ",", "4.216"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.508", ",", 
        "3.407", ",", "4.099"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.489", ",", "3.256", 
        ",", "4.044"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.480", ",", "3.183", 
        ",", "4.043"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.482", ",", "3.163", 
        ",", "4.047"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"XMS", "-", 
        RowBox[{"CASPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<XMS-CASPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"",
         ",", "\"\<\>\"", ",", "4.111"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.056"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.059"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.065"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.522", 
        ",", "3.409", ",", "4.130"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.511", ",", "3.266", 
        ",", "4.093"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.501", ",", "3.188", 
        ",", "4.086"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.503", ",", "3.167", 
        ",", "4.088"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "1.487", 
        ",", "3.296", ",", "4.103"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "1.472", ",", "3.141", 
        ",", "4.064"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.462", ",", "3.063", 
        ",", "4.056"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "1.464", ",", "3.043", 
        ",", "4.059"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\"", ",", "4.125"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CIPSI", " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<CIPSI\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
        RowBox[{"Around", "[", 
         RowBox[{"1.486", " ", ",", " ", "0.005"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"3.348", ",", "0.024"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"4.084", ",", "0.012"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
        RowBox[{"Around", "[", 
         RowBox[{"1.458", ",", "0.009"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"3.187", ",", "0.035"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"4.041", ",", "0.036"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"Around", "[", 
         RowBox[{"1.461", ",", "0.030"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"3.142", ",", "0.035"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"4.028", ",", "0.086"}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"standardTable", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"CBDD2h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD2h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD2h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD2h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD2h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "CBDD2h", "]"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{"standardTable", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.827373970168144*^9, 3.827374006015704*^9}, {
  3.8583909043622723`*^9, 
  3.858390904690917*^9}},ExpressionUUID->"30ea571a-fd90-49f5-a0be-\
0d0f72b61b7c"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{CC3}$ & $\\text{6-31+G(d)}$ & $1.42$ & $3.341$ & $4.658$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.396$ & $3.158$ & $4.711$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.402$ & $3.119$ & $4.777$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.409$ & $3.113$ & $4.774$ \\\\
$\\text{CCSDT}$ & $\\text{6-31+G(d)}$ & $1.442$ & $3.357$ & $4.311$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.411$ & $3.175$ & $4.327$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.411$ & $3.139$ & $4.429$ \\\\
$\\text{CC4}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $3.343$ & $4.067$ \\\\
$\\text{CC4}$ & $\\text{aug-cc-pVDZ}$ & $\\text{}$ & $3.164$ & $4.041$ \\\\
$\\text{CCSDTQ}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $3.34$ & $4.073$ \\\\
$\\text{SA2-CASSCF(4,4)}$ & $\\text{6-31+G(d)}$ & $1.662$ & $4.657$ & $4.439$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.672$ & $4.563$ & $4.448$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.67$ & $4.546$ & $4.441$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.671$ & $4.549$ & $4.44$ \\\\
$\\text{CASPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $1.44$ & $3.162$ & $4.115$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.414$ & $2.971$ & $4.068$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.412$ & $2.923$ & $4.072$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.417$ & $2.911$ & $4.081$ \\\\
$\\text{XMS-CASPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $\\text{}$ & \
$4.151$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $\\text{}$ & $\\text{}$ & $4.105$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $\\text{}$ & $\\text{}$ & $4.114$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $\\text{}$ & $\\text{}$ & $4.125$ \\\\
$\\text{SC-NEVPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $1.407$ & $2.707$ & $4.145$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.381$ & $2.479$ & $4.109$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.379$ & $2.422$ & $4.108$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.384$ & $2.408$ & $4.125$ \\\\
$\\text{PC-NEVPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $1.409$ & $2.652$ & $4.12$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.384$ & $2.424$ & $4.084$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.382$ & $2.368$ & $4.083$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.387$ & $2.353$ & $4.091$ \\\\
$\\text{MRCI(4,4)}$ & $\\text{6-31+G(d)}$ & $1.564$ & $3.802$ & $4.265$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.558$ & $3.67$ & $4.254$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.568$ & $3.678$ & $4.27$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.574$ & $3.681$ & $4.28$ \\\\
$\\text{SA2-CASSCF(12,12)}$ & $\\text{6-31+G(d)}$ & $1.675$ & $3.924$ & \
$4.22$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.685$ & $3.856$ & $4.221$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.686$ & $3.844$ & $4.217$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.687$ & $3.846$ & $4.216$ \\\\
$\\text{CASPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $1.508$ & $3.407$ & $4.099$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.489$ & $3.256$ & $4.044$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.48$ & $3.183$ & $4.043$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.482$ & $3.163$ & $4.047$ \\\\
$\\text{XMS-CASPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $\\text{}$ & \
$4.111$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $\\text{}$ & $\\text{}$ & $4.056$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $\\text{}$ & $\\text{}$ & $4.059$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $\\text{}$ & $\\text{}$ & $4.065$ \\\\
$\\text{SC-NEVPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $1.522$ & $3.409$ & $4.13$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.511$ & $3.266$ & $4.093$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.501$ & $3.188$ & $4.086$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.503$ & $3.167$ & $4.088$ \\\\
$\\text{PC-NEVPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $1.487$ & $3.296$ & \
$4.103$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.472$ & $3.141$ & $4.064$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.462$ & $3.063$ & $4.056$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.464$ & $3.043$ & $4.059$ \\\\
$\\text{MRCI(12,12)}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $\\text{}$ & \
$4.125$ \\\\
$\\text{CIPSI}$ & $\\text{6-31+G(d)}$ & $1.486\\pm 0.005$ & $3.348\\pm 0.024$ \
& $4.084\\pm 0.012$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.458\\pm 0.009$ & $3.187\\pm 0.035$ & \
$4.04\\pm 0.04$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.461\\pm 0.030$ & $3.142\\pm 0.035$ & \
$4.03\\pm 0.09$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{{3.8273739996042624`*^9, 3.827374007511401*^9}, 
   3.8514992992381287`*^9},
 CellLabel->
  "During evaluation of \
In[30]:=",ExpressionUUID->"02b09c45-0395-4eee-987c-278525515d16"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spin-flip methods", "Subsubsection",
 CellChangeTimes->{{3.827376880896544*^9, 
  3.827376889402169*^9}},ExpressionUUID->"55b55e50-4305-4d6b-88e7-\
3b6c5d655371"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D2hSF", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"(*", " ", 
     RowBox[{"SF", "-", "CIS"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<SF-CIS\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.1678", "+", "1.3467"}], ",", 
       RowBox[{"2.5077", "+", "1.3467"}], ",", 
       RowBox[{"4.0323", "+", "1.3467"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.1842", "+", "1.3031"}], ",", 
       RowBox[{"2.4177", "+", "1.3031"}], ",", 
       RowBox[{"4.0452", "+", "1.3031"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.2021", "+", "1.2700"}], ",", 
       RowBox[{"2.4312", "+", "1.2700"}], ",", 
       RowBox[{"4.0721", "+", "1.2700"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.2039", "+", "1.2673"}], ",", 
       RowBox[{"2.4342", "+", "1.2673"}], ",", 
       RowBox[{"4.0750", "+", "1.2673"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"CIS", 
        RowBox[{"(", "D", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.9898", "+", "0.7163"}], ",", 
       RowBox[{"1.4945", "+", "0.7163"}], ",", 
       RowBox[{"3.2768", "+", "0.7163"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.9673", "+", "0.7383"}], ",", 
       RowBox[{"1.4655", "+", "0.7383"}], ",", 
       RowBox[{"3.2542", "+", "0.7383"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.9826", "+", "0.7201"}], ",", 
       RowBox[{"1.4788", "+", "0.7201"}], ",", 
       RowBox[{"3.2679", "+", "0.7201"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.9849", "+", "0.7182"}], ",", 
       RowBox[{"1.4812", "+", "0.7182"}], ",", 
       RowBox[{"3.2706", "+", "0.7182"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "PBE0"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-PBE0\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"1.0782", "+", "0.6087"}], ",", 
       RowBox[{"1.7051", "+", "0.6087"}], ",", 
       RowBox[{"3.4805", "+", "0.6087"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"1.0593", "+", "0.6251"}], ",", 
       RowBox[{"1.6761", "+", "0.6251"}], ",", 
       RowBox[{"3.4598", "+", "0.6251"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.0852", "+", "0.5966"}], ",", 
       RowBox[{"1.6994", "+", "0.5966"}], ",", 
       RowBox[{"3.4848", "+", "0.5966"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"1.0878", "+", "0.5940"}], ",", 
       RowBox[{"1.7022", "+", "0.5940"}], ",", 
       RowBox[{"3.4848", "+", "0.5940"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.5312", "+", "1.0209"}], ",", 
       RowBox[{"1.7582", "+", "1.0209"}], ",", 
       RowBox[{"3.4074", "+", "1.0209"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.5216", "+", "1.0249"}], ",", 
       RowBox[{"1.7186", "+", "1.0249"}], ",", 
       RowBox[{"3.3968", "+", "1.0249"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.5353", "+", "1.0049"}], ",", 
       RowBox[{"1.7268", "+", "1.0049"}], ",", 
       RowBox[{"3.4876", "+", "1.0049"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.5374", "+", "1.0026"}], ",", 
       RowBox[{"1.7296", "+", "1.0026"}], ",", 
       RowBox[{"3.4123", "+", "1.0026"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "M06", "-", 
       RowBox[{"2", "X"}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4566"}], "+", "1.9337"}], ",", 
       RowBox[{"0.9015", "+", "1.9337"}], ",", 
       RowBox[{"2.4444", "+", "1.9337"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4555"}], "+", "1.9224"}], ",", 
       RowBox[{"0.8623", "+", "1.9224"}], ",", 
       RowBox[{"2.4372", "+", "1.9224"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.3898"}], "+", "1.8515"}], ",", 
       RowBox[{"0.9194", "+", "1.8515"}], ",", 
       RowBox[{"2.5055", "+", "1.8515"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4124"}], "+", "1.8706"}], ",", 
       RowBox[{"0.9000", "+", "1.8706"}], ",", 
       RowBox[{"2.4815", "+", "1.8706"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.9020", "+", "0.8479"}], ",", 
       RowBox[{"1.4886", "+", "0.8479"}], ",", 
       RowBox[{"3.2920", "+", "0.0228"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.8835", "+", "0.8612"}], ",", 
       RowBox[{"1.4615", "+", "0.8612"}], ",", 
       RowBox[{"3.2791", "+", "0.8612"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.8956", "+", "0.8469"}], ",", 
       RowBox[{"1.4713", "+", "0.8469"}], ",", 
       RowBox[{"3.2910", "+", "0.8469"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.8974", "+", "0.8452"}], ",", 
       RowBox[{"1.4733", "+", "0.8452"}], ",", 
       RowBox[{"3.2931", "+", "0.8452"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "\[Omega]B97X", "-", "V"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-\[Omega]B97X-V\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.7600", "+", "1.0505"}], ",", 
       RowBox[{"1.3263", "+", "1.0505"}], ",", 
       RowBox[{"3.1694", "+", "1.0505"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.7418", "+", "1.0580"}], ",", 
       RowBox[{"1.2979", "+", "1.0580"}], ",", 
       RowBox[{"3.1586", "+", "1.0580"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.7578", "+", "1.0390"}], ",", 
       RowBox[{"1.3121", "+", "1.0390"}], ",", 
       RowBox[{"3.1738", "+", "1.0390"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.7603", "+", "1.0365"}], ",", 
       RowBox[{"1.3148", "+", "1.0365"}], ",", 
       RowBox[{"3.1764", "+", "1.0365"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "M11"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M11\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0363"}], "+", "1.6026"}], ",", 
       RowBox[{"1.0842", "+", "1.6026"}], ",", 
       RowBox[{"2.6893", "+", "1.6026"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0338"}], "+", "1.5796"}], ",", 
       RowBox[{"1.0604", "+", "1.5796"}], ",", 
       RowBox[{"2.6876", "+", "1.5796"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0198"}], "+", "1.5789"}], ",", 
       RowBox[{"1.0721", "+", "1.5789"}], ",", 
       RowBox[{"2.7212", "+", "1.5789"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0040"}], "+", "1.5612"}], ",", 
       RowBox[{"1.0889", "+", "1.5612"}], ",", 
       RowBox[{"2.7374", "+", "1.5612"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "LC", "-", "\[Omega]PBE08"}], " ", "*)"}],
      "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-LC-\[Omega]PBE08\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"1.2125", "+", "0.7048"}], ",", 
       RowBox[{"1.7404", "+", "0.7048"}], ",", 
       RowBox[{"3.6480", "+", "0.7048"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"1.2069", "+", "0.6901"}], ",", 
       RowBox[{"1.7246", "+", "0.6901"}], ",", 
       RowBox[{"3.6554", "+", "0.6901"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.2296", "+", "0.6671"}], ",", 
       RowBox[{"1.7474", "+", "0.6671"}], ",", 
       RowBox[{"3.6808", "+", "0.6671"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"1.2316", "+", "0.6650"}], ",", 
       RowBox[{"1.7495", "+", "0.6650"}], ",", 
       RowBox[{"3.6828", "+", "0.6650"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "B2PLYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-B2PLYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.6056", "+", "0.9319"}], ",", 
       RowBox[{"1.8951", "+", "0.9319"}], ",", 
       RowBox[{"3.5301", "+", "0.9319"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.5977", "+", "0.9336"}], ",", 
       RowBox[{"1.8544", "+", "0.9336"}], ",", 
       RowBox[{"3.5218", "+", "0.9336"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.6151", "+", "0.9095"}], ",", 
       RowBox[{"1.8664", "+", "0.9095"}], ",", 
       RowBox[{"3.5387", "+", "0.9095"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "s"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-s\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.208053", "+", "1.369355"}], ",", 
       RowBox[{"1.934013", "+", "1.369355"}], ",", 
       RowBox[{"2.826881", "+", "1.369355"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.221852", "+", "1.290924"}], ",", 
       RowBox[{"1.825240", "+", "1.290924"}], ",", ",", 
       RowBox[{"2.822946", "+", "1.290924"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.229434", "+", "1.301218"}], ",", 
       RowBox[{"1.797447", "+", "1.301218"}], ",", 
       RowBox[{"2.829496", "+", "1.301218"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.228423", "+", "1.315407"}], ",", 
       RowBox[{"1.785153", "+", "1.315407"}], ",", 
       RowBox[{"2.824823", "+", "1.315407"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "x"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-x\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.503748"}], "+", "2.061201"}], ",", 
       RowBox[{"1.170812", "+", "2.061201"}], ",", 
       RowBox[{"1.666343", "+", "2.061201"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.501005"}], "+", "2.024877"}], ",", 
       RowBox[{"1.014360", "+", "2.024877"}], ",", 
       RowBox[{"1.655718", "+", "2.024877"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.486246"}], "+", "2.025630"}], ",", 
       RowBox[{"1.005678", "+", "2.025630"}], ",", 
       RowBox[{"1.677724", "+", "2.025630"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "3", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(3)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.177101"}], "+", "1.612001"}], ",", 
       RowBox[{"1.739502", "+", "1.612001"}], ",", 
       RowBox[{"2.630312", "+", "1.612001"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.169470"}], "+", "1.591304"}], ",", 
       RowBox[{"1.588302", "+", "1.591304"}], ",", 
       RowBox[{"2.616757", "+", "1.591304"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.168414"}], "+", "1.587260"}], ",", 
       RowBox[{"1.574672", "+", "1.587260"}], ",", 
       RowBox[{"2.636246", "+", "1.587260"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "EOM", "-", "CCSD"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-EOM-CCSD\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.0185", "+", "1.6443"}], ",", 
       RowBox[{"1.8709", "+", "1.6443"}], ",", 
       RowBox[{"2.6311", "+", "1.6443"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.0201", "+", "1.5905"}], ",", 
       RowBox[{"1.7242", "+", "1.5905"}], ",", 
       RowBox[{"2.2655", "+", "1.5905"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.0246", "+", "1.5845"}], ",", 
       RowBox[{"1.7085", "+", "1.5845"}], ",", 
       RowBox[{"2.6605", "+", "1.5845"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "EOM", "-", "CCSD"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-EOM-CC(2,3)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.2682"}], "+", "1.7587"}], ",", 
       RowBox[{"1.5740", "+", "1.7587"}], ",", 
       RowBox[{"2.3020", "+", "1.7587"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.2976"}], "+", "1.7616"}], ",", 
       RowBox[{"1.3945", "+", "1.7616"}], ",", 
       RowBox[{"2.2655", "+", "1.7616"}]}], "}"}]}], "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"SF", "-", "XX"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<SF-XX\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}], ",", 
        RowBox[{"{", ",", "}"}]}], "}"}]}], "*)"}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.827377261249325*^9, {3.851660745875023*^9, 3.85166074882248*^9}, {
   3.851660794618403*^9, 3.851660838419339*^9}},
 CellLabel->
  "In[930]:=",ExpressionUUID->"a6190b50-ec0c-41fa-8d4a-598c2edd5c05"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXTableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"D2hSF", "\[LeftDoubleBracket]", 
         RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"D2hSF", "\[LeftDoubleBracket]", 
         RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"D2hSF", "\[LeftDoubleBracket]", 
         RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"D2hSF", "\[LeftDoubleBracket]", 
         RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"D2hSF", "\[LeftDoubleBracket]", 
         RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
        "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", 
       RowBox[{"Length", "[", "D2hSF", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
  "]"}]], "Input",
 CellLabel->
  "In[931]:=",ExpressionUUID->"6ba0aeb1-f6b7-4e82-bd9a-8c81f0177335"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{SF-CIS}$ & $\\text{6-31+G(d)}$ & $1.5145$ & $3.8544$ & $5.379$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.4873$ & $3.7208$ & $5.3483$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.4721$ & $3.7012$ & $5.3421$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.4712$ & $3.7015$ & $5.3423$ \\\\
$\\text{SF-TD-B3LYP}$ & $\\text{6-31+G(d)}$ & $1.7061$ & $2.2108$ & $3.9931$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.7056$ & $2.2038$ & $3.9925$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.7027$ & $2.1989$ & $3.988$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.7031$ & $2.1994$ & $3.9888$ \\\\
$\\text{SF-TD-PBE0}$ & $\\text{6-31+G(d)}$ & $1.6869$ & $2.3138$ & $4.0892$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.6844$ & $2.3012$ & $4.0849$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.6818$ & $2.296$ & $4.0814$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.6818$ & $2.2962$ & $4.0788$ \\\\
$\\text{SF-TD-BHHLYP}$ & $\\text{6-31+G(d)}$ & $1.5521$ & $2.7791$ & $4.4283$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.5465$ & $2.7435$ & $4.4217$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.5402$ & $2.7317$ & $4.4925$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.54$ & $2.7322$ & $4.4149$ \\\\
$\\text{SF-TD-M06-2X}$ & $\\text{6-31+G(d)}$ & $1.4771$ & $2.8352$ & $4.3781$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.4669$ & $2.7847$ & $4.3596$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.4617$ & $2.7709$ & $4.357$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.4582$ & $2.7706$ & $4.3521$ \\\\
$\\text{SF-TD-CAM-B3LYP}$ & $\\text{6-31+G(d)}$ & $1.7499$ & $2.3365$ & \
$3.3148$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.7447$ & $2.3227$ & $4.1403$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.7425$ & $2.3182$ & $4.1379$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.7426$ & $2.3185$ & $4.1383$ \\\\
$\\text{SF-TD-$\\omega $B97X-V}$ & $\\text{6-31+G(d)}$ & $1.8105$ & $2.3768$ \
& $4.2199$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.7998$ & $2.3559$ & $4.2166$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.7968$ & $2.3511$ & $4.2128$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.7968$ & $2.3513$ & $4.2129$ \\\\
$\\text{SF-TD-M11}$ & $\\text{6-31+G(d)}$ & $1.5663$ & $2.6868$ & $4.2919$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.5458$ & $2.64$ & $4.2672$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.5591$ & $2.651$ & $4.3001$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.5572$ & $2.6501$ & $4.2986$ \\\\
$\\text{SF-TD-LC-$\\omega $PBE08}$ & $\\text{6-31+G(d)}$ & $1.9173$ & \
$2.4452$ & $4.3528$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.897$ & $2.4147$ & $4.3455$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.8967$ & $2.4145$ & $4.3479$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.8966$ & $2.4145$ & $4.3478$ \\\\
$\\text{SF-TD-B2PLYP}$ & $\\text{6-31+G(d)}$ & $1.5375$ & $2.827$ & $4.462$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.5313$ & $2.788$ & $4.4554$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.5246$ & $2.7759$ & $4.4482$ \\\\
$\\text{SF-ADC(2)-s}$ & $\\text{6-31+G(d)}$ & $1.57741$ & $3.30337$ & \
$4.19624$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.51278$ & $3.11616$ & $\\text{Null}$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.53065$ & $3.09867$ & $4.13071$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $1.54383$ & $3.10056$ & $4.14023$ \\\\
$\\text{SF-ADC(2)-x}$ & $\\text{6-31+G(d)}$ & $1.55745$ & $3.23201$ & \
$3.72754$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.52387$ & $3.03924$ & $3.6806$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.53938$ & $3.03131$ & $3.70335$ \\\\
$\\text{SF-ADC(3)}$ & $\\text{6-31+G(d)}$ & $1.4349$ & $3.3515$ & $4.24231$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.42183$ & $3.17961$ & $4.20806$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.41885$ & $3.16193$ & $4.22351$ \\\\
$\\text{SF-EOM-CCSD}$ & $\\text{6-31+G(d)}$ & $1.6628$ & $3.5152$ & $4.2754$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.6106$ & $3.3147$ & $3.856$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $1.6091$ & $3.293$ & $4.245$ \\\\
$\\text{SF-EOM-CC(2,3)}$ & $\\text{6-31+G(d)}$ & $1.4905$ & $3.3327$ & \
$4.0607$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $1.464$ & $3.1561$ & $4.0271$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{3.827377281911627*^9, 3.851660853907941*^9},
 CellLabel->
  "During evaluation of \
In[931]:=",ExpressionUUID->"e018958a-a84c-463b-a674-64a2b9d66ad9"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["D", 
   RowBox[{"4", "h"}]], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"dd1718bf-09e4-41cd-9afd-1dbe69f16297"]], \
"Section",
 CellChangeTimes->{{3.8273774429805527`*^9, 
  3.827377448629437*^9}},ExpressionUUID->"e1f043dd-e0f0-40d8-99cd-\
32af5850d24c"],

Cell[CellGroupData[{

Cell["Standard methods", "Subsubsection",
 CellChangeTimes->{{3.8273774550326443`*^9, 
  3.827377462344347*^9}},ExpressionUUID->"80926970-cd36-4007-96e6-\
a56ab4780c9e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CBDD4h", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "CCSD", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSD\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.148", ",", "1.788", 
       ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.100", ",", "1.650", 
       ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.085", ",", "1.600", 
       ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.084", ",", "1.588", 
       ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CC3", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CC3\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", ",", "1.809", 
       ",", "2.836"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", "1.695", 
       ",", "2.646"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", "1.662", 
       ",", "2.720"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CCSDT", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSDT\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.210", ",", "1.751", 
       ",", "2.565"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.165", ",", "1.659", ",",
        "2.450"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.149", ",", "1.631", ",",
        "2.537"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "\"\<\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CC4\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<\>\"", ",", "1.604", 
       ",", "2.121"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", "1.539", 
       ",", "1.934"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CCSDTQ", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSDTQ\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.205", ",", "1.593", 
       ",", "2.134"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "\"\<\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "\"\<\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SA2", "-", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SA2-CASSCF(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.447", ",", 
       "2.257", ",", "3.549"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.438", ",", "2.240", ",",
        "3.443"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.434", ",", "2.234", ",",
        "3.424"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.435", ",", "2.235", ",",
        "3.427"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"CASPT2", 
       RowBox[{"(", 
        RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{
      "\"\<CASPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.176", ",", 
       "1.588", ",", "1.899"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.137", ",", "1.540", ",",
        "1.708"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.128", ",", "1.506", ",",
        "1.635"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.128", ",", "1.498", ",",
        "1.612"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SC-NEVPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.083", ",", 
       "1.520", ",", "1.380"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.037", ",", "1.465", ",",
        "1.140"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.024", ",", "1.428", ",",
        "1.055"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.024", ",", "1.420", ",",
        "1.030"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"PC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<PC-NEVPT2(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.085", ",", 
       "1.496", ",", "1.329"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.039", ",", "1.440", ",",
        "1.088"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.026", ",", "1.403", ",",
        "1.003"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.026", ",", "1.395", ",",
        "0.977"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"MRCI", 
       RowBox[{"(", 
        RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{
      "\"\<MRCI(4,4)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.297", ",", 
       "1.861", ",", "2.571"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.273", ",", "1.823", ",",
        "2.419"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.271", ",", "1.824", ",",
        "2.415"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.273", ",", "1.825", ",",
        "2.413"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SA2", "-", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SA2-CASSCF(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.386", 
       ",", "1.974", ",", "2.736"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.374", ",", "1.947", ",",
        "2.649"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.370", ",", "1.943", ",",
        "2.634"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.371", ",", "1.945", ",",
        "2.637"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"CASPT2", 
       RowBox[{"(", 
        RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CASPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.235", ",", 
       "1.635", ",", "2.170"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.203", ",", "1.588", ",",
        "2.015"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.183", ",", "1.538", ",",
        "1.926"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.179", ",", "1.522", ",",
        "1.898"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SC-NEVPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.218", ",",
        "1.644", ",", "2.143"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.189", ",", "1.600", ",",
        "1.991"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.165", ",", "1.546", ",",
        "1.892"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.160", ",", "1.529", ",",
        "1.862"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"PC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<PC-NEVPT2(12,12)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "0.189", ",",
        "1.579", ",", "2.020"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", "0.156", ",", "1.530", ",",
        "1.854"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.131", ",", "1.476", ",",
        "1.756"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", "0.126", ",", "1.460", ",",
        "1.727"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CIPSI", " ", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<CIPSI\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"Around", "[", 
        RowBox[{"0.201", ",", "0.003"}], "]"}], ",", 
       RowBox[{"Around", "[", 
        RowBox[{"1.602", ",", "0.007"}], "]"}], ",", 
       RowBox[{"Around", "[", 
        RowBox[{"2.126", ",", "0.041"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"Around", "[", 
        RowBox[{"0.157", ",", "0.003"}], "]"}], ",", 
       RowBox[{"Around", "[", 
        RowBox[{"1.587", ",", "0.005"}], "]"}], ",", 
       RowBox[{"Around", "[", 
        RowBox[{"2.102", ",", "0.027"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"Around", "[", 
        RowBox[{"0.169", ",", "0.029"}], "]"}], ",", 
       RowBox[{"Around", "[", 
        RowBox[{"1.630", ",", "0.045"}], "]"}], ",", "\"\<\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellLabel->"In[54]:=",ExpressionUUID->"bdb28a1a-78e2-44da-8b2c-e9e0a0cd75a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"standardTableD4h", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"CBDD4h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD4h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD4h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD4h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"CBDD4h", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "CBDD4h", "]"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{"standardTableD4h", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.827377510187299*^9, 3.827377529846696*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"08c236f9-f9bc-49cf-8a0e-4f32400832c0"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{CCSD}$ & $\\text{6-31+G(d)}$ & $0.148$ & $1.788$ & $\\text{}$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.1$ & $1.65$ & $\\text{}$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.085$ & $1.6$ & $\\text{}$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.084$ & $1.588$ & $\\text{}$ \\\\
$\\text{CC3}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $1.809$ & $2.836$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $\\text{}$ & $1.695$ & $2.646$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $\\text{}$ & $1.662$ & $2.72$ \\\\
$\\text{CCSDT}$ & $\\text{6-31+G(d)}$ & $0.21$ & $1.751$ & $2.565$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.165$ & $1.659$ & $2.45$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.149$ & $1.631$ & $2.537$ \\\\
$\\text{CC4}$ & $\\text{6-31+G(d)}$ & $\\text{}$ & $1.604$ & $2.121$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $\\text{}$ & $1.539$ & $1.934$ \\\\
$\\text{CCSDTQ}$ & $\\text{6-31+G(d)}$ & $0.205$ & $1.593$ & $2.134$ \\\\
$\\text{SA2-CASSCF(4,4)}$ & $\\text{6-31+G(d)}$ & $0.447$ & $2.257$ & $3.549$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.438$ & $2.24$ & $3.443$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.434$ & $2.234$ & $3.424$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.435$ & $2.235$ & $3.427$ \\\\
$\\text{CASPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $0.176$ & $1.588$ & $1.899$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.137$ & $1.54$ & $1.708$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.128$ & $1.506$ & $1.635$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.128$ & $1.498$ & $1.612$ \\\\
$\\text{SC-NEVPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $0.083$ & $1.52$ & $1.38$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.037$ & $1.465$ & $1.14$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.024$ & $1.428$ & $1.055$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.024$ & $1.42$ & $1.03$ \\\\
$\\text{PC-NEVPT2(4,4)}$ & $\\text{6-31+G(d)}$ & $0.085$ & $1.496$ & $1.329$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.039$ & $1.44$ & $1.088$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.026$ & $1.403$ & $1.003$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.026$ & $1.395$ & $0.977$ \\\\
$\\text{MRCI(4,4)}$ & $\\text{6-31+G(d)}$ & $0.297$ & $1.861$ & $2.571$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.273$ & $1.823$ & $2.419$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.271$ & $1.824$ & $2.415$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.273$ & $1.825$ & $2.413$ \\\\
$\\text{SA2-CASSCF(12,12)}$ & $\\text{6-31+G(d)}$ & $0.386$ & $1.974$ & \
$2.736$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.374$ & $1.947$ & $2.649$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.37$ & $1.943$ & $2.634$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.371$ & $1.945$ & $2.637$ \\\\
$\\text{CASPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $0.235$ & $1.635$ & $2.17$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.203$ & $1.588$ & $2.015$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.183$ & $1.538$ & $1.926$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.179$ & $1.522$ & $1.898$ \\\\
$\\text{SC-NEVPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $0.218$ & $1.644$ & \
$2.143$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.189$ & $1.6$ & $1.991$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.165$ & $1.546$ & $1.892$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.16$ & $1.529$ & $1.862$ \\\\
$\\text{PC-NEVPT2(12,12)}$ & $\\text{6-31+G(d)}$ & $0.189$ & $1.579$ & $2.02$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.156$ & $1.53$ & $1.854$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.131$ & $1.476$ & $1.756$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.126$ & $1.46$ & $1.727$ \\\\
$\\text{CIPSI}$ & $\\text{6-31+G(d)}$ & $0.2010\\pm 0.0030$ & $1.602\\pm \
0.007$ & $2.13\\pm 0.04$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.1570\\pm 0.0030$ & $1.587\\pm 0.005$ \
& $2.102\\pm 0.027$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.169\\pm 0.029$ & $1.63\\pm 0.05$ & \
$\\text{}$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{{3.827377530263783*^9, 3.827377536952964*^9}},
 CellLabel->
  "During evaluation of \
In[322]:=",ExpressionUUID->"bcb00e41-eb6c-4dd4-b38e-06fccce7fe57"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Auto isomerization", "Subsubsection",
 CellChangeTimes->{{3.829965277005952*^9, 
  3.829965287970697*^9}},ExpressionUUID->"367bcf82-bf12-45bf-b15a-\
e1a947196502"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Auto", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<CASSCF(12,12)\>\"", ",", "10.19", ",", "10.75", ",", "11.59", ",",
         "11.62"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(12,12)\>\"", ",", "7.24", ",", "7.53", ",", "8.51", ",", 
        "8.71"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<NEVPT2(12,12)\>\"", ",", "7.12", ",", "7.33", ",", "8.28", ",", 
        "8.49"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSD\>\"", ",", "8.31", ",", "8.80", ",", "9.88", ",", "10.10"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC3\>\"", ",", "6.59", ",", "6.89", ",", "7.88", ",", "8.06"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDT\>\"", ",", "7.26", ",", "7.64", ",", "8.68", ",", 
        "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC4\>\"", ",", "7.40", ",", "7.78", ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDTQ\>\"", ",", "7.51", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<CIPSI\>\"", ",", 
        RowBox[{"Around", "[", 
         RowBox[{"7.91", " ", ",", " ", "0.21"}], "]"}], ",", 
        RowBox[{"Around", "[", 
         RowBox[{"8.58", ",", "0.14"}], "]"}], ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAccuracy", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Auto", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Auto", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Auto", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Auto", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"Auto", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "Auto", "]"}]}], "}"}]}], "]"}], ",", "3"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{"Auto", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.829965315730852*^9, 3.829965326391802*^9}, {
  3.829965370730196*^9, 3.829965397321377*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"05e4146f-566d-46ff-8804-af3ed608263a"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{CASSCF(12,12)}$ & $10.19$ & $10.75$ & $11.59$ & $11.62$ \\\\
$\\text{CASPT2(12,12)}$ & $7.24$ & $7.53$ & $8.51$ & $8.71$ \\\\
$\\text{NEVPT2(12,12)}$ & $7.12$ & $7.33$ & $8.28$ & $8.49$ \\\\
$\\text{CCSD}$ & $8.31$ & $8.8$ & $9.88$ & $10.1$ \\\\
$\\text{CC3}$ & $6.59$ & $6.89$ & $7.88$ & $8.06$ \\\\
$\\text{CCSDT}$ & $7.26$ & $7.64$ & $8.68$ & $\\text{}$ \\\\
$\\text{CC4}$ & $7.4$ & $7.78$ & $\\text{}$ & $\\text{}$ \\\\
$\\text{CCSDTQ}$ & $7.51$ & $\\text{}$ & $\\text{}$ & $\\text{}$ \\\\
$\\text{CIPSI}$ & $7.91\\pm 0.21$ & $8.58\\pm 0.14$ & $\\text{}$ & $\\text{}$ \
\\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{3.8299654000816603`*^9, 3.851487809398239*^9, 
  3.851498793844762*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"56c34a58-0d7c-4c1f-a8af-8aa248a2c1fe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spin-flip methods", "Subsubsection",
 CellChangeTimes->{{3.827378229301098*^9, 
  3.8273782337275963`*^9}},ExpressionUUID->"f5d6d90d-7529-4522-bd85-\
996b627d9994"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D4hSF", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"(*", " ", 
     RowBox[{"SF", "-", "CIS"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<SF-CIS\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.1675", "+", "0.1874"}], ",", 
       RowBox[{"2.5542", "+", "0.1874"}], ",", 
       RowBox[{"2.9140", "+", "0.1874"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.1837", "+", "0.1342"}], ",", 
       RowBox[{"2.4587", "+", "0.1342"}], ",", 
       RowBox[{"2.9182", "+", "0.1342"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.2018", "+", "0.1037"}], ",", 
       RowBox[{"2.4721", "+", "0.1037"}], ",", 
       RowBox[{"2.9492", "+", "0.1037"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.2036", "+", "0.1023"}], ",", 
       RowBox[{"2.4751", "+", "0.1023"}], ",", 
       RowBox[{"2.9538", "+", "0.1023"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"CIS", 
        RowBox[{"(", "D", ")"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
     " ", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"1.0028", "-", "1.0185"}], ",", 
       RowBox[{"1.5059", "-", "1.0185"}], ",", 
       RowBox[{"1.5604", "-", "1.0185"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.9796", "-", "0.9983"}], ",", 
       RowBox[{"1.4751", "-", "0.9983"}], ",", 
       RowBox[{"1.5340", "-", "0.9983"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.9954", "-", "1.0158"}], ",", 
       RowBox[{"1.4882", "-", "1.0158"}], ",", 
       RowBox[{"1.5488", "-", "1.0158"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.9976", "-", "1.0180"}], ",", 
       RowBox[{"1.4907", "-", "1.0180"}], ",", 
       RowBox[{"1.5513", "-", "1.0180"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "PBE0"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-PBE0\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"1.0887", "-", "1.1004"}], ",", 
       RowBox[{"1.7184", "-", "1.1004"}], ",", 
       RowBox[{"1.7895", "-", "1.1004"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"1.0695", "-", "1.0858"}], ",", 
       RowBox[{"1.6878", "-", "1.0858"}], ",", 
       RowBox[{"1.7657", "-", "1.0858"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.0960", "-", "1.1146"}], ",", 
       RowBox[{"1.7112", "-", "1.1146"}], ",", 
       RowBox[{"1.7912", "-", "1.1146"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"1.0985", "-", "1.1170"}], ",", 
       RowBox[{"1.7140", "-", "1.1170"}], ",", 
       RowBox[{"1.7940", "-", "1.1170"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.5370", "-", "0.4734"}], ",", 
       RowBox[{"1.7788", "-", "0.4734"}], ",", 
       RowBox[{"1.9315", "-", "0.4734"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.5269", "-", "0.4759"}], ",", 
       RowBox[{"1.7364", "-", "0.4759"}], ",", 
       RowBox[{"1.9131", "-", "0.4759"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.5409", "-", "0.4955"}], ",", 
       RowBox[{"1.7447", "-", "0.4955"}], ",", 
       RowBox[{"1.9269", "-", "0.4955"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.5431", "-", "0.4975"}], ",", 
       RowBox[{"1.7476", "-", "0.4975"}], ",", 
       RowBox[{"1.9300", "-", "0.4975"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "M06", "-", 
       RowBox[{"2", "X"}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4518"}], "+", "0.5533"}], ",", 
       RowBox[{"0.9228", "+", "0.5533"}], ",", 
       RowBox[{"1.0867", "+", "0.5533"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4519"}], "+", "0.5380"}], ",", 
       RowBox[{"0.8811", "+", "0.5380"}], ",", 
       RowBox[{"1.0732", "+", "0.5380"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.3821"}], "+", "0.4602"}], ",", 
       RowBox[{"0.9433", "+", "0.4602"}], ",", 
       RowBox[{"1.1421", "+", "0.4602"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.4055"}], "+", "0.4847"}], ",", 
       RowBox[{"0.9231", "+", "0.4847"}], ",", 
       RowBox[{"1.1221", "+", "0.4847"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.9158", "-", "0.8952"}], ",", 
       RowBox[{"1.4983", "-", "0.8952"}], ",", 
       RowBox[{"1.5669", "-", "0.8952"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.8964", "-", "0.8839"}], ",", 
       RowBox[{"1.4691", "-", "0.8839"}], ",", 
       RowBox[{"1.5504", "-", "0.8839"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.9089", "-", "0.8986"}], ",", 
       RowBox[{"1.4787", "-", "0.8986"}], ",", 
       RowBox[{"1.5621", "-", "0.8986"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.9107", "-", "0.9004"}], ",", 
       RowBox[{"1.4808", "-", "0.9004"}], ",", 
       RowBox[{"1.5642", "-", "0.9004"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "\[Omega]B97X", "-", "V"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-\[Omega]B97X-V\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.7713", "-", "0.7309"}], ",", 
       RowBox[{"1.3308", "-", "0.7309"}], ",", 
       RowBox[{"1.4014", "-", "0.7309"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.7530", "-", "0.7244"}], ",", 
       RowBox[{"1.3007", "-", "0.7244"}], ",", 
       RowBox[{"1.3888", "-", "0.7244"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.7696", "-", "0.7431"}], ",", 
       RowBox[{"1.3148", "-", "0.7431"}], ",", 
       RowBox[{"1.4049", "-", "0.7431"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.7720", "-", "0.7455"}], ",", 
       RowBox[{"1.3175", "-", "0.7455"}], ",", 
       RowBox[{"1.4076", "-", "0.7455"}]}], "}"}], ",", "\[IndentingNewLine]",
      " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "M11"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M11\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0343"}], "+", "0.1361"}], ",", 
       RowBox[{"1.1004", "+", "0.1361"}], ",", 
       RowBox[{"1.2378", "+", "0.1361"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0289"}], "+", "0.1157"}], ",", 
       RowBox[{"1.0806", "+", "0.1157"}], ",", 
       RowBox[{"1.2461", "+", "0.1157"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0157"}], "+", "0.0970"}], ",", 
       RowBox[{"1.0908", "+", "0.0970"}], ",", 
       RowBox[{"1.2617", "+", "0.0970"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"0.0005", "+", "0.0794"}], ",", 
       RowBox[{"1.1054", "+", "0.0794"}], ",", 
       RowBox[{"1.2776", "+", "0.0794"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "LC", "-", "\[Omega]PBE08"}], " ", "*)"}],
      "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-LC-\[Omega]PBE08\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"1.2290", "-", "1.1509"}], ",", 
       RowBox[{"1.7439", "-", "1.1509"}], ",", 
       RowBox[{"1.8138", "-", "1.1509"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"1.2232", "-", "1.1633"}], ",", 
       RowBox[{"1.7264", "-", "1.1633"}], ",", 
       RowBox[{"1.8226", "-", "1.1633"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.2465", "-", "1.1883"}], ",", 
       RowBox[{"1.7489", "-", "1.1883"}], ",", 
       RowBox[{"1.8467", "-", "1.1883"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
       RowBox[{"1.2484", "-", "1.1902"}], ",", 
       RowBox[{"1.7510", "-", "1.1902"}], ",", 
       RowBox[{"1.8488", "-", "1.1902"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"SF", "-", "TD", "-", 
        RowBox[{"B2PLYP", " ", "\[IndentingNewLine]", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<SF-TD-B2PLYP\>\"", ",", "\"\<6-31+G(d)\>\"", ","}], 
          "}"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ","}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ","}], "}"}], ","}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "s"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-s\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{"0.200741", "+", "0.143834"}], ",", 
       RowBox[{"1.615869", "+", "0.143834"}], ",", 
       RowBox[{"1.951672", "+", "0.143834"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{"0.214450", "+", "0.054460"}], ",", 
       RowBox[{"1.601562", "+", "0.054460"}], ",", 
       RowBox[{"1.839252", "+", "0.054460"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.222666", "+", "0.033673"}], ",", 
       RowBox[{"1.578746", "+", "0.033673"}], ",", 
       RowBox[{"1.810565", "+", "0.033673"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\""}], "}"}], ","}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "x"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-x\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.486598"}], "+", "0.750402"}], ",", 
       RowBox[{"0.430900", "+", "0.750402"}], ",", 
       RowBox[{"1.221429", "+", "0.750402"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.485246"}], "+", "0.701437"}], ",", 
       RowBox[{"0.405620", "+", "0.701437"}], ",", 
       RowBox[{"1.058402", "+", "0.701437"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.470222"}], "+", "0.681740"}], ",", 
       RowBox[{"0.409219", "+", "0.681740"}], ",", 
       RowBox[{"1.049092", "+", "0.681740"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "3", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(3)\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.163307"}], "+", "0.286504"}], ",", 
       RowBox[{"1.363229", "+", "0.286504"}], ",", 
       RowBox[{"1.791624", "+", "0.286504"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.156094"}], "+", "0.244088"}], ",", 
       RowBox[{"1.326597", "+", "0.244088"}], ",", 
       RowBox[{"1.633507", "+", "0.244088"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.154926"}], "+", "0.234351"}], ",", 
       RowBox[{"1.341077", "+", "0.234351"}], ",", 
       RowBox[{"1.618891", "+", "0.234351"}]}], "}"}]}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"SF", "-", "EOM", "-", 
       RowBox[{"CCSD", " ", "\[IndentingNewLine]", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<SF-EOM-CCSD\>\"", ",", "\"\<6-31+G(d)\>\"", ","}], 
         "}"}]}]}], ",", "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ","}], "}"}], ",", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ","}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "EOM", "-", "CCSD"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-EOM-CC(2,3)\>\"", ",", "\"\<6-31+G(d)\>\"", ","}], 
       "}"}], ",", "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ","}], "}"}]}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "XX"}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<SF-XX\>\"", ",", "\"\<6-31+G(d)\>\"", ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVDZ\>\"", ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<\>\"", ",", "\"\<aug-cc-pVQZ\>\"", ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}], ",", 
         RowBox[{"{", ",", "}"}]}], "}"}]}], "*)"}], "*)"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8274607802727118`*^9, 3.827461073818224*^9}, {
  3.8274613747770243`*^9, 3.8274617241497726`*^9}, {3.8274627740761633`*^9, 
  3.827462777115724*^9}, {3.8274682803991547`*^9, 3.827468493771514*^9}, {
  3.829965354803877*^9, 3.829965355449648*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"d96116fc-7d92-43e6-a1bf-f39ab96751eb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TableD4h", "=", 
   RowBox[{"SetAccuracy", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"D4hSF", "\[LeftDoubleBracket]", 
           RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
          "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
          RowBox[{"D4hSF", "\[LeftDoubleBracket]", 
           RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
          "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
          RowBox[{"D4hSF", "\[LeftDoubleBracket]", 
           RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
          "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
          RowBox[{"D4hSF", "\[LeftDoubleBracket]", 
           RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
          "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
         RowBox[{
          RowBox[{"D4hSF", "\[LeftDoubleBracket]", 
           RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
          "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", 
         RowBox[{"Length", "[", "D4hSF", "]"}]}], "}"}]}], "]"}], ",", "4"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{"TableD4h", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.827462393352025*^9, 3.827462409984261*^9}, {
  3.8274626771321583`*^9, 3.8274627049279623`*^9}, {3.827462825208023*^9, 
  3.827462850549966*^9}, {3.827464699985574*^9, 3.827464707843804*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"d2cb9813-0eac-4c1c-a50c-ff98c6f10b82"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{SF-CIS}$ & $\\text{6-31+G(d)}$ & $0.355$ & $2.742$ & $3.101$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.318$ & $2.593$ & $3.052$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.305$ & $2.576$ & $3.053$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.306$ & $2.577$ & $3.056$ \\\\
$\\text{SF-TD-B3LYP}$ & $\\text{6-31+G(d)}$ & $-0.016$ & $0.487$ & $0.542$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $-0.019$ & $0.477$ & $0.536$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $-0.020$ & $0.472$ & $0.533$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $-0.020$ & $0.473$ & $0.533$ \\\\
$\\text{SF-TD-PBE0}$ & $\\text{6-31+G(d)}$ & $-0.012$ & $0.618$ & $0.689$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $-0.016$ & $0.602$ & $0.680$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $-0.019$ & $0.597$ & $0.677$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $-0.018$ & $0.597$ & $0.677$ \\\\
$\\text{SF-TD-BHHLYP}$ & $\\text{6-31+G(d)}$ & $0.064$ & $1.305$ & $1.458$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.051$ & $1.260$ & $1.437$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.045$ & $1.249$ & $1.431$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.046$ & $1.250$ & $1.432$ \\\\
$\\text{SF-TD-M06-2X}$ & $\\text{6-31+G(d)}$ & $0.102$ & $1.476$ & $1.640$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.086$ & $1.419$ & $1.611$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.078$ & $1.403$ & $1.602$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.079$ & $1.408$ & $1.607$ \\\\
$\\text{SF-TD-CAM-B3LYP}$ & $\\text{6-31+G(d)}$ & $0.021$ & $0.603$ & $0.672$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.012$ & $0.585$ & $0.666$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.010$ & $0.580$ & $0.664$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.010$ & $0.580$ & $0.664$ \\\\
$\\text{SF-TD-$\\omega $B97X-V}$ & $\\text{6-31+G(d)}$ & $0.040$ & $0.600$ & \
$0.670$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.029$ & $0.576$ & $0.664$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.026$ & $0.572$ & $0.662$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.026$ & $0.572$ & $0.662$ \\\\
$\\text{SF-TD-M11}$ & $\\text{6-31+G(d)}$ & $0.102$ & $1.236$ & $1.374$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.087$ & $1.196$ & $1.362$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.081$ & $1.188$ & $1.359$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.080$ & $1.185$ & $1.357$ \\\\
$\\text{SF-TD-LC-$\\omega $PBE08}$ & $\\text{6-31+G(d)}$ & $0.078$ & $0.593$ \
& $0.663$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.060$ & $0.563$ & $0.659$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.058$ & $0.561$ & $0.658$ \\\\
$\\text{}$ & $\\text{aug-cc-pVQZ}$ & $0.058$ & $0.561$ & $0.659$ \\\\
$\\text{SF-ADC(2)-s}$ & $\\text{6-31+G(d)}$ & $0.345$ & $1.760$ & $2.096$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.269$ & $1.656$ & $1.894$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.256$ & $1.612$ & $1.844$ \\\\
$\\text{SF-ADC(2)-x}$ & $\\text{6-31+G(d)}$ & $0.264$ & $1.181$ & $1.972$ \
\\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.216$ & $1.107$ & $1.760$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.212$ & $1.091$ & $1.731$ \\\\
$\\text{SF-ADC(3)}$ & $\\text{6-31+G(d)}$ & $0.123$ & $1.650$ & $2.078$ \\\\
$\\text{}$ & $\\text{aug-cc-pVDZ}$ & $0.088$ & $1.571$ & $1.878$ \\\\
$\\text{}$ & $\\text{aug-cc-pVTZ}$ & $0.079$ & $1.575$ & $1.853$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{
  3.827462705596054*^9, {3.827462828091598*^9, 3.8274628512066193`*^9}, 
   3.827464708818667*^9, 3.827468505959276*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"fafb1883-f696-4ace-a25e-350fdedd9c21"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Auto isomerization", "Subsubsection",
 CellChangeTimes->{{3.829966447313553*^9, 
  3.8299664591578693`*^9}},ExpressionUUID->"09d22e83-2e35-4e71-88d8-\
69ef1c1ed08c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AutoSF", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "B3LYP"}], "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.63612867"}], "+", "154.66575239"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.65000666"}], "+", "154.67971480"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.68969952"}], "+", "154.72051748"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.70010639"}], "+", "154.73093422"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "PBE0"}], "*)"}], "\[IndentingNewLine]", 
      
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-PBE0\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.44414903"}], "+", "154.47152467"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.45963490"}], "+", "154.48703120"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.49283690"}], "+", "154.52133594"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.50284138"}], "+", "154.53133128"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.55568747"}], "+", "154.57464432"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.56875130"}], "+", "154.58791080"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.60525866"}], "+", "154.62553522"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.61485715"}], "+", "154.63514681"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "M06", "-", 
        RowBox[{"2", "X"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.60801289"}], "+", "154.62286066"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.62857653"}], "+", "154.64390999"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.66077701"}], "+", "154.67726408"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.67048292"}], "+", "154.68701093"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.54229924"}], "+", "154.57105842"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.55591327"}], "+", "154.58475720"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.59598212"}], "+", "154.62598830"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.60643415"}], "+", "154.63643820"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "wB97X", "-", "V"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-wB97X-V\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.59324354"}], "+", "154.62233682"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.60856941"}], "+", "154.63763864"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.64177340"}], "+", "154.67194835"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.65196126"}], "+", "154.68211175"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "M11"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M11\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.56255314"}], "+", "154.58012860"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.57879495"}], "+", "154.59513263"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.62726837"}], "+", "154.64514912"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.63662429"}], "+", "154.65434649"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "LC", "-", "wPBE08"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-LC-wPBE08\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.50419195"}], "+", "154.53455773"}], ")"}], "*", 
         "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.51904518"}], "+", "154.54929176"}], ")"}], "*", 
         "627.509180"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.55322464"}], "+", "154.58468098"}], ")"}], "*", 
         "627.509180"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.56407514"}], "+", "154.59548568"}], ")"}], "*", 
         "627.509180"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "ADC2", "-", "s"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC2-s\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.1515673173"}], "+", "154.1622253664"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.2010748945"}], "+", "154.2122036229"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.3952292182"}], "+", "154.4089842702"}], ")"}], 
         "*", "627.5091809"}], ",", "\"\<\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "ADC2", "-", "x"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC2-x\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.1740651044"}], "+", "154.1878145238"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.2250651204"}], "+", "154.2393420363"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.4192540733"}], "+", "154.4357872882"}], ")"}], 
         "*", "627.5091809"}], ",", "\"\<\>\""}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "ADC3"}], "*)"}], "\[IndentingNewLine]", 
      
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC3\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.1833637160"}], "+", "154.1961534842"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.2370861010"}], "+", "154.2506908339"}], ")"}], 
         "*", "627.5091809"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.4293079996"}], "+", "154.4445701568"}], ")"}], 
         "*", "627.5091809"}], ",", "\"\<\>\""}], "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AutoSF", "=", 
   RowBox[{"SetAccuracy", "[", 
    RowBox[{"AutoSF", ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAccuracy", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "1"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "3"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "4"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
          RowBox[{";;", ",", "5"}], "\[RightDoubleBracket]"}], 
         "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", 
        RowBox[{"Length", "[", "AutoSF", "]"}]}], "}"}]}], "]"}], ",", "3"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{"AutoSF", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.829966502208366*^9, 3.8299665032100058`*^9}, {
   3.8299666145586023`*^9, 3.829966665702392*^9}, {3.829966974868183*^9, 
   3.829967005791095*^9}, {3.829972356231776*^9, 3.829972367715828*^9}, {
   3.851481313660183*^9, 3.85148134566859*^9}, {3.8514813960971518`*^9, 
   3.8514814066566277`*^9}, {3.851481437484865*^9, 3.8514814504170094`*^9}, {
   3.851481484358749*^9, 3.851481503199359*^9}, {3.8514815448027554`*^9, 
   3.85148156334022*^9}, 3.851481940528439*^9, 3.851482008195093*^9, 
   3.8514820540572557`*^9, 3.851482085460327*^9, 3.851482125900989*^9, {
   3.8514821749141006`*^9, 3.8514822311587057`*^9}, {3.851482274103752*^9, 
   3.8514823428001957`*^9}, {3.851482443921575*^9, 3.851482498990005*^9}, {
   3.8514828021484613`*^9, 3.851482828519493*^9}, 3.851482861639262*^9, {
   3.85148289204951*^9, 3.851482913487767*^9}, {3.85148297206863*^9, 
   3.851483066738517*^9}, {3.851483100297983*^9, 3.851483113621337*^9}, {
   3.851483155712174*^9, 3.85148328863929*^9}, {3.851483468438549*^9, 
   3.851483575861033*^9}, {3.851483608788931*^9, 3.8514836248710823`*^9}, {
   3.851483655262779*^9, 3.851483666194907*^9}, {3.8514837025611067`*^9, 
   3.8514838295302353`*^9}, {3.851484076774249*^9, 3.851484283288946*^9}, {
   3.8514844609337397`*^9, 3.851484532339163*^9}, {3.8514845641241302`*^9, 
   3.851484584483676*^9}, {3.851484636645218*^9, 3.851484636768653*^9}, {
   3.851484918943604*^9, 3.851484941055126*^9}, {3.851484973319379*^9, 
   3.85148499034056*^9}, {3.851485031658022*^9, 3.85148507008856*^9}, {
   3.851485114212138*^9, 3.851485150983736*^9}, {3.851485204767806*^9, 
   3.85148520578658*^9}, 3.851485901950967*^9, {3.851486974820347*^9, 
   3.851486987655094*^9}, {3.851568351667344*^9, 3.851568381848263*^9}, 
   3.851568430966915*^9, {3.85157316540527*^9, 3.851573187280603*^9}, {
   3.8517493691127253`*^9, 3.851749412650638*^9}},
 CellLabel->
  "In[1135]:=",ExpressionUUID->"afb8aedf-8f3c-4abb-8614-dfc399605ca4"],

Cell["\<\
\\begin{tabular}{|*{1}{*{5}{|l}|}|}
$\\text{SF-TD-B3LYP}$ & $18.59$ & $18.64$ & $19.34$ & $19.34$ \\\\
$\\text{SF-TD-PBE0}$ & $17.18$ & $17.19$ & $17.88$ & $17.88$ \\\\
$\\text{SF-TD-BHHLYP}$ & $11.90$ & $12.02$ & $12.72$ & $12.73$ \\\\
$\\text{SF-TD-M06-2X}$ & $9.32$ & $9.62$ & $10.35$ & $10.37$ \\\\
$\\text{SF-TD-CAM-B3LYP}$ & $18.05$ & $18.10$ & $18.83$ & $18.83$ \\\\
$\\text{SF-TD-wB97X-V}$ & $18.26$ & $18.24$ & $18.94$ & $18.92$ \\\\
$\\text{SF-TD-M11}$ & $11.03$ & $10.25$ & $11.22$ & $11.12$ \\\\
$\\text{SF-TD-LC-wPBE08}$ & $19.05$ & $18.98$ & $19.74$ & $19.71$ \\\\
$\\text{SF-ADC2-s}$ & $6.69$ & $6.98$ & $8.63$ & $\\text{}$ \\\\
$\\text{SF-ADC2-x}$ & $8.63$ & $8.96$ & $10.37$ & $\\text{}$ \\\\
$\\text{SF-ADC3}$ & $8.03$ & $8.54$ & $9.58$ & $\\text{}$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{
  3.82996650401941*^9, {3.8299666156242228`*^9, 3.829966666088209*^9}, {
   3.8299669761762857`*^9, 3.829967006250836*^9}, {3.829972362611253*^9, 
   3.829972367994684*^9}, 3.851433176971661*^9, 3.851482129367423*^9, 
   3.85148429567306*^9, {3.851486988263055*^9, 3.851486992851457*^9}, 
   3.851498760259316*^9, 3.8515683836222677`*^9, {3.85157316596111*^9, 
   3.851573188391387*^9}, 3.8517494170238447`*^9},
 CellLabel->
  "During evaluation of \
In[1135]:=",ExpressionUUID->"1beeaff9-b5c8-4348-9774-9a91842154ec"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.829969983689991*^9, 3.8299699937149563`*^9}, 
   3.8299723493224382`*^9},ExpressionUUID->"4dca07ac-4ba1-4db3-8355-\
493d4a6fd748"]
}, Open  ]],

Cell[CellGroupData[{

Cell["TBE", "Subsubsection",
 CellChangeTimes->{{3.8514312116911097`*^9, 
  3.851431212062439*^9}},ExpressionUUID->"6abe25a3-fdef-4777-9f88-\
a38a0343eeef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceAB", "=", "8.93"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD2h3B1g", "=", "1.433"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CC4", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD2h1B1g", "=", "3.125"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD2h1Ag", "=", "4.038"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD4h3A2g", "=", "0.144"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD4h1A1g", "=", "1.500"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReferenceD4h1B2g", "=", "1.849"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"CCSDTQ", " ", "AVTZ"}], "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"AutoAVTZ", "=", 
    RowBox[{"{", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.68969952"}], "+", "154.72051748"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "PBE0"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-PBE0\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.49283690"}], "+", "154.52133594"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.60525866"}], "+", "154.62553522"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "M06", "-", 
        RowBox[{"2", "X"}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.66077701"}], "+", "154.67726408"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.59598212"}], "+", "154.62598830"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "\[Omega]B97X", "-", "V"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-TD-\[Omega]B97X-V\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.64177340"}], "+", "154.67194835"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "LC", "-", "\[Omega]PBE08"}], " ", 
       "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-TD-LC-\[Omega]PBE08\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.55322464"}], "+", "154.58468098"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "M11"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M11\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.62726837"}], "+", "154.64514912"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2", ")"}]}], "-", "s"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(2)-s\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.3952292182"}], "+", "154.4089842702"}], ")"}], 
         "*", "627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2", ")"}]}], "-", "x"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(2)-x\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.4192540733"}], "+", "154.4357872882"}], ")"}], 
         "*", "627.5091809"}]}], "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2.5", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
      " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-ADC(2.5)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "9.11"}], 
       "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "3", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(3)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.4293079996"}], "+", "154.4445701568"}], ")"}], 
         "*", "627.5091809"}]}], "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", 
       RowBox[{"EOM", "-", "SF", "-", "CCSD"}], "*)"}], "\n", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<EOM-SF-CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "154.35946588"}], "+", "154.37125480"}], ")"}], "*", 
         "627.5091809"}]}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "7.38"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "7.77"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"XMS", "-", 
         RowBox[{"CASPT2", 
          RowBox[{"(", 
           RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<XMS-CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
          "\"\<\>\""}], "}"}], ","}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "9.23"}], 
       "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "9.24"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\""}], 
       "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"MRCI", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}], "+", "Q"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(4,4)+Q\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\""}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        "11.59"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.51"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"XMS", "-", 
         RowBox[{"CASPT2", 
          RowBox[{"(", 
           RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<XMS-CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
          "\"\<\>\""}], "}"}], ","}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.29"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.28"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"MRCI", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<MRCI(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\""}],
          "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "CIPSI", " ", "*)"}], "\[IndentingNewLine]", " ", 
        RowBox[{"{", 
         RowBox[{
         "\"\<CIPSI\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\""}], 
         "}"}], ","}], "*)"}], "\n", " ", "\n", " ", 
      RowBox[{"(*", " ", "CCSD", " ", "*)"}], "\n", 
      RowBox[{"{", 
       RowBox[{"\"\<CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "9.88"}], 
       "}"}], ",", "\n", "\n", 
      RowBox[{"(*", " ", "CC3", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<CC3\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "7.88"}], 
       "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDT", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<CCSDT\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.68"}], 
       "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CC4", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<CC4\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.82"}], 
       "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDTQ", " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<CCSDTQ\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "8.93"}], 
       "}"}], ",", "\n", " ", "\n", "  ", 
      RowBox[{"(*", " ", "TBE", " ", "*)"}], "\n", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<TBE\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"2", "*", "8.93"}]}], "}"}]}], "}"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"D2hAVTZ", "=", 
    RowBox[{"{", "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"0.9826", "+", "0.7201"}], ",", 
        RowBox[{"1.4788", "+", "0.7201"}], ",", 
        RowBox[{"3.2679", "+", "0.7201"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "PBE0"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-PBE0\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"1.0852", "+", "0.5966"}], ",", 
        RowBox[{"1.6994", "+", "0.5966"}], ",", 
        RowBox[{"3.4848", "+", "0.5966"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"0.5353", "+", "1.0049"}], ",", 
        RowBox[{"1.7268", "+", "1.0049"}], ",", 
        RowBox[{"3.4876", "+", "1.0049"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "M06", "-", 
        RowBox[{"2", "X"}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"-", "0.3898"}], "+", "1.8515"}], ",", 
        RowBox[{"0.9194", "+", "1.8515"}], ",", 
        RowBox[{"2.5055", "+", "1.8515"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"0.8956", "+", "0.8469"}], ",", 
        RowBox[{"1.4713", "+", "0.8469"}], ",", 
        RowBox[{"3.2910", "+", "0.8469"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "\[Omega]B97X", "-", "V"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-TD-\[Omega]B97X-V\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"0.7578", "+", "1.0390"}], ",", 
        RowBox[{"1.3121", "+", "1.0390"}], ",", 
        RowBox[{"3.1738", "+", "1.0390"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "LC", "-", "\[Omega]PBE08"}], " ", 
       "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-TD-LC-\[Omega]PBE08\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"1.2296", "+", "0.6671"}], ",", 
        RowBox[{"1.7474", "+", "0.6671"}], ",", 
        RowBox[{"3.6808", "+", "0.6671"}]}], "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", "TD", "-", "M11"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-TD-M11\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"-", "0.0198"}], "+", "1.5789"}], ",", 
        RowBox[{"1.0721", "+", "1.5789"}], ",", 
        RowBox[{"2.7212", "+", "1.5789"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2", ")"}]}], "-", "s"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(2)-s\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"0.229434", "+", "1.301218"}], ",", 
        RowBox[{"1.797447", "+", "1.301218"}], ",", 
        RowBox[{"2.829496", "+", "1.301218"}]}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2", ")"}]}], "-", "x"}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(2)-x\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"-", "0.486246"}], "+", "2.025630"}], ",", 
        RowBox[{"1.005678", "+", "2.025630"}], ",", 
        RowBox[{"1.677724", "+", "2.025630"}]}], "}"}], ",", "\n", " ", "\n", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "2.5", ")"}]}]}], "*)"}], "\n", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SF-ADC(2.5)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.475", ",", 
        "3.131", ",", "4.178"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SF", "-", 
        RowBox[{"ADC", 
         RowBox[{"(", "3", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<SF-ADC(3)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{
         RowBox[{"-", "0.168414"}], "+", "1.587260"}], ",", 
        RowBox[{"1.574672", "+", "1.587260"}], ",", 
        RowBox[{"2.636246", "+", "1.587260"}]}], "}"}], ",", "\n", " ", "\n", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"EOM", "-", "SF", "-", "CCSD"}], "*)"}], "\n", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<EOM-SF-CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.609", ",", 
        "3.293", ",", "4.245"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.670", 
        ",", "4.546", ",", "4.441"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.412", ",", 
        "2.923", ",", "4.072"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"XMS", "-", 
         RowBox[{"CASPT2", 
          RowBox[{"(", 
           RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<XMS-CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
          "\"\<\>\"", ",", "\"\<\>\"", ",", "4.114"}], "}"}], ","}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.379", 
        ",", "2.422", ",", "4.108"}], "}"}], ",", "\n", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.382", 
        ",", "2.368", ",", "4.083"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]",
       " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.568", ",", 
        "3.678", ",", "4.270"}], "}"}], ",", "\n", " ", "\n", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"MRCI", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}], "+", "Q"}], "*)"}], "\n", 
      RowBox[{"{", 
       RowBox[{
       "\"\<MRCI(4,4)+Q\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.519", ",", 
        "3.342", ",", "4.159"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SA2-CASSCF(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.686", 
        ",", "3.844", ",", "4.217"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"CASPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.480", ",",
         "3.183", ",", "4.043"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"XMS", "-", 
         RowBox[{"CASPT2", 
          RowBox[{"(", 
           RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<XMS-CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
          "\"\<\>\"", ",", "\"\<\>\"", ",", "4.059"}], "}"}], ","}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"SC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<SC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.501", 
        ",", "3.188", ",", "4.086"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"PC", "-", 
        RowBox[{"NEVPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.462", 
        ",", "3.063", ",", "4.056"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"(*", " ", 
        RowBox[{"MRCI", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
       "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<MRCI(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", 
          ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", "\n", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "CIPSI", " ", "*)"}], "\[IndentingNewLine]", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<CIPSI\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
          RowBox[{"Around", "[", 
           RowBox[{"1.461", ",", "0.030"}], "]"}], ",", 
          RowBox[{"Around", "[", 
           RowBox[{"3.142", ",", "0.035"}], "]"}], ",", 
          RowBox[{"Around", "[", 
           RowBox[{"4.028", ",", "0.086"}], "]"}]}], "}"}], ","}], "*)"}], 
      "\n", " ", "\n", " ", 
      RowBox[{"(*", " ", "CCSD", " ", "*)"}], "\n", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.317", ",", "3.192",
         ",", "\"\<\>\""}], "}"}], ",", "\n", "\n", 
      RowBox[{"(*", " ", "CC3", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC3\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.402", ",", "3.119", 
        ",", "4.777"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDT", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDT\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.411", ",", 
        "3.139", ",", "4.429"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CC4", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CC4\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "1.433", ",", "3.128", 
        ",", "4.143"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "CCSDTQ", " ", "*)"}], "\[IndentingNewLine]", " ", 
      RowBox[{"{", 
       RowBox[{
       "\"\<CCSDTQ\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
        "3.125", ",", "4.038"}], "}"}], ",", "\n", " ", "\n", "  ", 
      RowBox[{"(*", " ", "TBE", " ", "*)"}], "\n", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<TBE\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
        RowBox[{"2", "*", "1.433"}], ",", 
        RowBox[{"2", "*", "3.125"}], ",", 
        RowBox[{"2", "*", "4.038"}]}], "}"}]}], "\n", "}"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"D4hAVTZ", "=", 
   RowBox[{"{", "\n", 
    RowBox[{"(*", " ", 
     RowBox[{"SF", "-", "TD", "-", "B3LYP"}], " ", "*)"}], 
    "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.9954", "-", "1.0158"}], ",", 
       RowBox[{"1.4882", "-", "1.0158"}], ",", 
       RowBox[{"1.5488", "-", "1.0158"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "PBE0"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-PBE0\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.0960", "-", "1.1146"}], ",", 
       RowBox[{"1.7112", "-", "1.1146"}], ",", 
       RowBox[{"1.7912", "-", "1.1146"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.5409", "-", "0.4955"}], ",", 
       RowBox[{"1.7447", "-", "0.4955"}], ",", 
       RowBox[{"1.9269", "-", "0.4955"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "M06", "-", 
       RowBox[{"2", "X"}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M06-2X\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.3821"}], "+", "0.4602"}], ",", 
       RowBox[{"0.9433", "+", "0.4602"}], ",", 
       RowBox[{"1.1421", "+", "0.4602"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.9089", "-", "0.8986"}], ",", 
       RowBox[{"1.4787", "-", "0.8986"}], ",", 
       RowBox[{"1.5621", "-", "0.8986"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "\[Omega]B97X", "-", "V"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-\[Omega]B97X-V\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.7696", "-", "0.7431"}], ",", 
       RowBox[{"1.3148", "-", "0.7431"}], ",", 
       RowBox[{"1.4049", "-", "0.7431"}]}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "LC", "-", "\[Omega]PBE08"}], " ", "*)"}],
      "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SF-TD-LC-\[Omega]PBE08\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"1.2465", "-", "1.1883"}], ",", 
       RowBox[{"1.7489", "-", "1.1883"}], ",", 
       RowBox[{"1.8467", "-", "1.1883"}]}], "}"}], ",", "\n", " ", "\n", " ", 
     
     RowBox[{"(*", 
      RowBox[{"SF", "-", "TD", "-", "M11"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-TD-M11\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.0157"}], "+", "0.0970"}], ",", 
       RowBox[{"1.0908", "+", "0.0970"}], ",", 
       RowBox[{"1.2617", "+", "0.0970"}]}], "}"}], ",", "\n", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "s"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-s\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"0.222666", "+", "0.033673"}], ",", 
       RowBox[{"1.578746", "+", "0.033673"}], ",", 
       RowBox[{"1.810565", "+", "0.033673"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2", ")"}]}], "-", "x"}], " ", "*)"}], 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(2)-x\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.470222"}], "+", "0.681740"}], ",", 
       RowBox[{"0.409219", "+", "0.681740"}], ",", 
       RowBox[{"1.049092", "+", "0.681740"}]}], "}"}], ",", "\n", " ", "\n", 
     " ", 
     RowBox[{"(*", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "2.5", ")"}]}]}], "*)"}], "\n", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SF-ADC(2.5)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.168", ",", 
       "1.594", ",", "1.849"}], "}"}], ",", "\n", " ", "\[IndentingNewLine]", 
     
     RowBox[{"(*", " ", 
      RowBox[{"SF", "-", 
       RowBox[{"ADC", 
        RowBox[{"(", "3", ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", 
     
     RowBox[{"{", 
      RowBox[{"\"\<SF-ADC(3)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{
        RowBox[{"-", "0.154926"}], "+", "0.234351"}], ",", 
       RowBox[{"1.341077", "+", "0.234351"}], ",", 
       RowBox[{"1.618891", "+", "0.234351"}]}], "}"}], ",", "\n", " ", "\n", 
     " ", 
     RowBox[{"(*", 
      RowBox[{"EOM", "-", "SF", "-", "CCSD"}], "*)"}], "\n", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<EOM-SF-CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.354", ",", 
       "1.768", ",", "2.060"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SA2", "-", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SA2-CASSCF(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.434", 
       ",", "2.234", ",", "3.424"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"CASPT2", 
       RowBox[{"(", 
        RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{
      "\"\<CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.128", ",", 
       "1.506", ",", "1.635"}], "}"}], ",", "\n", "\n", 
     RowBox[{"(*", 
      RowBox[{"(*", " ", 
       RowBox[{"XMS", "-", 
        RowBox[{"CASPT2", 
         RowBox[{"(", 
          RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<XMS-CASPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ","}], "*)"}],
      "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.024", ",",
        "1.428", ",", "1.055"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"PC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<PC-NEVPT2(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.026", ",",
        "1.403", ",", "1.003"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"MRCI", 
       RowBox[{"(", 
        RowBox[{"4", ",", "4"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{
      "\"\<MRCI(4,4)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.271", ",", 
       "1.824", ",", "2.415"}], "}"}], ",", "\[IndentingNewLine]", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"4", ",", "4"}], ")"}]}], "+", "Q"}], "*)"}], "\n", 
     RowBox[{"{", 
      RowBox[{
      "\"\<MRCI(4,4)+Q\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.219", ",", 
       "1.667", ",", "2.054"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SA2", "-", 
       RowBox[{"CASSCF", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SA2-CASSCF(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.370", 
       ",", "1.943", ",", "2.634"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"CASPT2", 
       RowBox[{"(", 
        RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.183", ",", 
       "1.538", ",", "1.926"}], "}"}], ",", "\n", "\n", 
     RowBox[{"(*", 
      RowBox[{"(*", " ", 
       RowBox[{"XMS", "-", 
        RowBox[{"CASPT2", 
         RowBox[{"(", 
          RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<XMS-CASPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
         "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ","}], "*)"}],
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"SC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<SC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.165", 
       ",", "1.546", ",", "1.892"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"PC", "-", 
       RowBox[{"NEVPT2", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<PC-NEVPT2(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.131", 
       ",", "1.476", ",", "1.756"}], "}"}], ",", "\n", "\n", 
     RowBox[{"(*", 
      RowBox[{"(*", " ", 
       RowBox[{"MRCI", 
        RowBox[{"(", 
         RowBox[{"12", ",", "12"}], ")"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<MRCI(12,12)\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", 
         ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}], ",", "\n", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", "CIPSI", " ", "*)"}], "\[IndentingNewLine]", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<CIPSI\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
         RowBox[{"Around", "[", 
          RowBox[{"0.169", ",", "0.029"}], "]"}], ",", 
         RowBox[{"Around", "[", 
          RowBox[{"1.630", ",", "0.045"}], "]"}], ",", "\"\<\>\""}], "}"}], 
       ","}], "*)"}], "\n", " ", "\n", " ", 
     RowBox[{"(*", " ", "CCSD", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSD\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.085", ",", "1.600", 
       ",", "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CC3", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CC3\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
       "1.662", ",", "2.720"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CCSDT", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSDT\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "0.149", ",", "1.631",
        ",", "2.537"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CC4", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CC4\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
       "1.511", ",", "1.836"}], "}"}], ",", "\n", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "CCSDTQ", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<CCSDTQ\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<\>\"", ",", 
       "1.500", ",", "1.849"}], "}"}], ",", "\n", " ", "\n", " ", 
     RowBox[{"(*", " ", "TBE", " ", "*)"}], "\n", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<TBE\>\"", ",", "\"\<aug-cc-pVTZ\>\"", ",", 
       RowBox[{"2", "*", "0.144"}], ",", 
       RowBox[{"2", "*", "1.500"}], ",", 
       RowBox[{"2", "*", "1.849"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]}], "Code",
 CellChangeTimes->{{3.851431224292811*^9, 3.8514313313834763`*^9}, {
   3.8514313783597183`*^9, 3.851431484990752*^9}, {3.851499722240069*^9, 
   3.8514997433828993`*^9}, {3.8514997818864307`*^9, 
   3.8515001206627703`*^9}, {3.851500156013105*^9, 3.8515002894411697`*^9}, {
   3.851500347313264*^9, 3.851500466239038*^9}, {3.851500630303135*^9, 
   3.851500729029662*^9}, {3.851500770806245*^9, 3.8515008009993773`*^9}, {
   3.8515706047551394`*^9, 3.851570611338975*^9}, {3.851570672201035*^9, 
   3.851570681679391*^9}, {3.8515714987821407`*^9, 3.851571560492464*^9}, {
   3.851571597569108*^9, 3.851571603664754*^9}, {3.8515723635550003`*^9, 
   3.851572374244227*^9}, 3.851572996764476*^9, {3.851573489686895*^9, 
   3.851573508609338*^9}, {3.851587643416317*^9, 3.8515876683648148`*^9}, {
   3.8515877217233953`*^9, 3.8515877320781813`*^9}, {3.851587779715686*^9, 
   3.851587780355632*^9}, {3.851587824422229*^9, 3.8515878343580217`*^9}, {
   3.8515884989330482`*^9, 3.851588520689846*^9}, {3.851588716068037*^9, 
   3.851588731406929*^9}, {3.851660544760496*^9, 3.851660611676668*^9}, {
   3.851660688199493*^9, 3.851660724387928*^9}, {3.851661033082815*^9, 
   3.851661087678487*^9}, {3.851661156355817*^9, 3.8516611881479*^9}, {
   3.8517488552103233`*^9, 3.851749063297076*^9}, 3.8517491752829533`*^9, {
   3.851749217116789*^9, 3.851749336778345*^9}, {3.851749473399953*^9, 
   3.851749726648855*^9}, {3.851749845064735*^9, 3.851749864508665*^9}, {
   3.851754421268154*^9, 3.8517544774007683`*^9}, {3.8517545359891872`*^9, 
   3.8517545742666073`*^9}, {3.851756197854558*^9, 3.8517562185918913`*^9}, {
   3.8517563233627453`*^9, 3.851756339045763*^9}, {3.851756515704154*^9, 
   3.851756554440434*^9}, {3.851756586062482*^9, 3.851756587092314*^9}, {
   3.851756772931384*^9, 3.851756773015995*^9}, 3.857783708486352*^9, {
   3.857786838228302*^9, 3.857786838526053*^9}, {3.8583997941221657`*^9, 
   3.8583997958111057`*^9}, {3.858399854170781*^9, 3.858399856065329*^9}, {
   3.858399916713929*^9, 3.8583999184636993`*^9}, {3.8584008910201693`*^9, 
   3.858400898414508*^9}, {3.858401034733034*^9, 3.858401037967328*^9}, {
   3.858401155396121*^9, 3.85840115971105*^9}, {3.858401225800462*^9, 
   3.8584012294009047`*^9}, {3.858401405768321*^9, 3.858401473850038*^9}, {
   3.85840151548249*^9, 3.858401600938205*^9}, {3.858401714471757*^9, 
   3.858401756270875*^9}, {3.858401968368573*^9, 3.858401970895589*^9}, {
   3.858402097317197*^9, 3.858402177079905*^9}, {3.861083339689796*^9, 
   3.861083344159184*^9}, {3.861084030189838*^9, 3.861084031040381*^9}, {
   3.861084649971675*^9, 3.861084653664878*^9}, {3.861084772721891*^9, 
   3.861084811802999*^9}, {3.861084886110283*^9, 3.861084892295574*^9}, {
   3.861085099141357*^9, 3.8610851045139503`*^9}, {3.86108763582819*^9, 
   3.861087637571454*^9}, {3.863595085390555*^9, 3.8635951157389383`*^9}, {
   3.863595183071917*^9, 3.863595220553268*^9}, {3.863595255778042*^9, 
   3.863595340420351*^9}, {3.863837018419737*^9, 3.86383718501005*^9}, {
   3.863837319499947*^9, 3.8638373537599297`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"9db1c95c-760c-440e-8135-69fa7029cb15"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
      RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", 
       RowBox[{"Length", "[", "AutoSF", "]"}]}], "}"}]}], "]"}], "//", 
   "MatrixForm"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TeXTableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
        RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"AutoSF", "\[LeftDoubleBracket]", 
         RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "-", 
        "ReferenceAB"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", 
       RowBox[{"Length", "[", "AutoSF", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.851433189816143*^9, 3.851433324603134*^9}, {
  3.851487226744997*^9, 3.851487228256752*^9}, {3.851487286533679*^9, 
  3.8514873017733803`*^9}, {3.851487861300743*^9, 3.851487871274238*^9}, {
  3.85148791380917*^9, 3.85148792007766*^9}, {3.851488055193684*^9, 
  3.851488118262285*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"b78cd508-3954-4eb5-b4b6-db109d991534"],

Cell["\<\
\\begin{tabular}{|*{1}{*{2}{|l}|}|}
$\\text{SF-TD-B3LYP}$ & $10.3586$ \\\\
$\\text{SF-TD-PBE0}$ & $8.90341$ \\\\
$\\text{SF-TD-BHHLYP}$ & $3.74373$ \\\\
$\\text{SF-TD-M06-2X}$ & $1.36579$ \\\\
$\\text{SF-TD-CAM-B3LYP}$ & $9.84915$ \\\\
$\\text{SF-TD-wB97X-V}$ & $9.95506$ \\\\
$\\text{SF-TD-M11}$ & $2.24033$ \\\\
$\\text{SF-TD-LC-wPBE08}$ & $10.7591$ \\\\
$\\text{SF-ADC2-s}$ & $-0.348579$ \\\\
$\\text{SF-ADC2-x}$ & $\\text{}-8.98$ \\\\
$\\text{SF-ADC3}$ & $0.597144$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{{3.851488047959499*^9, 3.8514881189427137`*^9}, 
   3.851498767332863*^9},
 CellLabel->
  "During evaluation of \
In[23]:=",ExpressionUUID->"062ada5b-a39d-401f-b841-c80bfb3eb3b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXTableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Auto", "\[LeftDoubleBracket]", 
        RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{
        RowBox[{"Auto", "\[LeftDoubleBracket]", 
         RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "-", 
        "ReferenceAB"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", 
       RowBox[{"Length", "[", "Auto", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.851488189877345*^9, 3.851488195109185*^9}, {
  3.8514993193178864`*^9, 3.851499324228599*^9}, {3.851499414696542*^9, 
  3.851499414978249*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"5bc0d770-473c-4153-a8dc-314866d49948"],

Cell["\<\
\\begin{tabular}{|*{1}{*{2}{|l}|}|}
$\\text{CASSCF(12,12)}$ & $2.61$ \\\\
$\\text{CASPT2(12,12)}$ & $-0.47$ \\\\
$\\text{NEVPT2(12,12)}$ & $-0.7$ \\\\
$\\text{CCSD}$ & $0.9$ \\\\
$\\text{CC3}$ & $-1.1$ \\\\
$\\text{CCSDT}$ & $-0.3$ \\\\
$\\text{CC4}$ & $\\text{}-8.98$ \\\\
$\\text{CCSDTQ}$ & $\\text{}-8.98$ \\\\
$\\text{CIPSI}$ & $\\text{}-8.98$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{{3.85148819359796*^9, 3.851488196372151*^9}, {
   3.8514987696386747`*^9, 3.851498796948679*^9}, 3.851499415843791*^9},
 CellLabel->
  "During evaluation of \
In[33]:=",ExpressionUUID->"810f8b28-4487-46ce-a2ac-b2777cc687df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"AutoAVTZ", "\[LeftDoubleBracket]", 
    RowBox[{"1", ",", "3"}], "\[RightDoubleBracket]"}], "*)"}], 
  RowBox[{"-", "ReferenceAB"}]}]], "Input",
 CellChangeTimes->{{3.851756692892918*^9, 3.8517567199903316`*^9}, {
  3.851756757299032*^9, 3.851756760063225*^9}},
 CellLabel->
  "In[13383]:=",ExpressionUUID->"1f4c883c-2ddc-48e3-ae94-5f0ac33dcccf"],

Cell[BoxData[
 RowBox[{"-", "8.93`"}]], "Output",
 CellChangeTimes->{{3.8517566933309517`*^9, 3.851756720283216*^9}, 
   3.851756760330974*^9, 3.857783757798112*^9},
 CellLabel->
  "Out[13383]=",ExpressionUUID->"a2a3e153-8b2d-4cee-aa7f-ad6253757dc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXTableForm", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"D2hAVTZ", "\[LeftDoubleBracket]", 
        RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"AutoAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceAB"}], ",", "3"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D2hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD2h3B1g"}], ",", "4"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D2hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD2h1B1g"}], ",", "4"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D2hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD2h1Ag"}], ",", "4"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D4hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD4h3A2g"}], ",", "4"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D4hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD4h1A1g"}], ",", "4"}], "]"}], ",", 
       RowBox[{"SetAccuracy", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D4hAVTZ", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", 
          "ReferenceD4h1B2g"}], ",", "4"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", 
       RowBox[{"Length", "[", "D2hAVTZ", "]"}]}], "}"}]}], "]"}], ",", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.851500530082398*^9, 3.851500532867097*^9}, {
   3.851500834284236*^9, 3.851500906160911*^9}, {3.8515009446214314`*^9, 
   3.851500944907199*^9}, {3.8515009856872177`*^9, 3.851501000945953*^9}, {
   3.851501109646241*^9, 3.851501133969183*^9}, {3.8515731272976*^9, 
   3.851573132225544*^9}, {3.851573211933034*^9, 3.851573212863027*^9}, {
   3.851573319055314*^9, 3.851573346778101*^9}, 3.851573519670493*^9, 
   3.851574629076406*^9, 3.851587773376995*^9, {3.85158817990726*^9, 
   3.8515882320477037`*^9}, {3.851588531942108*^9, 3.851588533784042*^9}, {
   3.851658080445586*^9, 3.851658104897717*^9}, {3.851661694777627*^9, 
   3.8516617219804173`*^9}, {3.851748780390851*^9, 3.8517488051285152`*^9}, {
   3.851754590542488*^9, 3.851754599437628*^9}, {3.8517562372998943`*^9, 
   3.851756237741531*^9}, {3.8517563533654633`*^9, 3.851756367174617*^9}, 
   3.851756439964945*^9, {3.8517569385262003`*^9, 3.851757019411895*^9}, {
   3.851757658387896*^9, 3.851757664051992*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"f83411ab-16de-4239-9b4d-33dfe32d0211"],

Cell["\<\
\\begin{tabular}{|*{1}{*{8}{|l}|}|}
$\\text{SF-TD-B3LYP}$ & $10.41$ & $0.270$ & $-0.926$ & $-0.050$ & $-0.164$ & \
$-1.028$ & $-1.316$ \\\\
$\\text{SF-TD-PBE0}$ & $8.95$ & $0.249$ & $-0.829$ & $0.043$ & $-0.163$ & \
$-0.903$ & $-1.172$ \\\\
$\\text{SF-TD-BHHLYP}$ & $3.79$ & $0.107$ & $-0.393$ & $0.454$ & $-0.099$ & \
$-0.251$ & $-0.418$ \\\\
$\\text{SF-TD-M06-2X}$ & $1.42$ & $0.029$ & $-0.354$ & $0.319$ & $-0.066$ & \
$-0.097$ & $-0.247$ \\\\
$\\text{SF-TD-CAM-B3LYP}$ & $9.90$ & $0.309$ & $-0.807$ & $0.10$ & $-0.134$ & \
$-0.920$ & $-1.185$ \\\\
$\\text{SF-TD-$\\omega $B97X-V}$ & $10.01$ & $0.364$ & $-0.774$ & $0.175$ & \
$-0.118$ & $-0.928$ & $-1.187$ \\\\
$\\text{SF-TD-LC-$\\omega $PBE08}$ & $10.81$ & $0.464$ & $-0.710$ & $0.310$ & \
$-0.086$ & $-0.939$ & $-1.191$ \\\\
$\\text{SF-TD-M11}$ & $2.29$ & $0.126$ & $-0.474$ & $0.262$ & $-0.063$ & \
$-0.312$ & $-0.490$ \\\\
$\\text{SF-ADC(2)-s}$ & $-0.30$ & $0.098$ & $-0.026$ & $0.093$ & $0.112$ & \
$0.112$ & $-0.005$ \\\\
$\\text{SF-ADC(2)-x}$ & $1.44$ & $0.106$ & $-0.094$ & $-0.335$ & $0.068$ & \
$-0.409$ & $-0.118$ \\\\
$\\text{SF-ADC(2.5)}$ & $0.18$ & $0.042$ & $0.006$ & $0.140$ & $0.024$ & \
$0.094$ & $\\text{0$\\grave{ }\\grave{ }$4.}$ \\\\
$\\text{SF-ADC(3)}$ & $0.65$ & $-0.014$ & $0.037$ & $0.186$ & $-0.065$ & \
$0.075$ & $0.004$ \\\\
$\\text{EOM-SF-CCSD}$ & $-1.53$ & $0.176$ & $0.168$ & $0.207$ & $0.210$ & \
$0.268$ & $0.211$ \\\\
$\\text{SA2-CASSCF(4,4)}$ & $-1.55$ & $0.237$ & $1.421$ & $0.403$ & $0.290$ & \
$0.734$ & $1.575$ \\\\
$\\text{CASPT2(4,4)}$ & $-1.16$ & $-0.021$ & $-0.202$ & $0.034$ & $-0.016$ & \
$0.006$ & $-0.214$ \\\\
$\\text{SC-NEVPT2(4,4)}$ & $0.30$ & $-0.054$ & $-0.703$ & $0.070$ & $-0.120$ \
& $-0.072$ & $-0.794$ \\\\
$\\text{PC-NEVPT2(4,4)}$ & $0.31$ & $-0.051$ & $-0.757$ & $0.045$ & $-0.118$ \
& $-0.097$ & $-0.846$ \\\\
$\\text{MRCI(4,4)}$ & $\\text{}-8.93$ & $0.135$ & $0.553$ & $0.232$ & $0.127$ \
& $0.324$ & $0.566$ \\\\
$\\text{MRCI(4,4)+Q}$ & $\\text{}-8.93$ & $0.086$ & $0.217$ & $0.121$ & \
$0.075$ & $0.167$ & $0.205$ \\\\
$\\text{SA2-CASSCF(12,12)}$ & $2.66$ & $0.253$ & $0.719$ & $0.179$ & $0.226$ \
& $0.443$ & $0.785$ \\\\
$\\text{CASPT2(12,12)}$ & $-0.42$ & $0.047$ & $0.058$ & $0.005$ & $0.039$ & \
$0.038$ & $0.077$ \\\\
$\\text{SC-NEVPT2(12,12)}$ & $-0.64$ & $0.068$ & $0.063$ & $0.048$ & $0.021$ \
& $0.046$ & $0.043$ \\\\
$\\text{PC-NEVPT2(12,12)}$ & $-0.65$ & $0.029$ & $-0.062$ & $0.018$ & \
$-0.013$ & $-0.024$ & $-0.093$ \\\\
$\\text{CCSD}$ & $0.95$ & $-0.116$ & $0.067$ & $\\text{}-4.038$ & $-0.059$ & \
$0.100$ & $\\text{}-1.849$ \\\\
$\\text{CC3}$ & $-1.05$ & $-0.031$ & $-0.006$ & $0.739$ & $\\text{}-0.144$ & \
$0.162$ & $0.871$ \\\\
$\\text{CCSDT}$ & $-0.25$ & $-0.022$ & $0.014$ & $0.391$ & $0.005$ & $0.131$ \
& $0.688$ \\\\
$\\text{CC4}$ & $-0.11$ & $\\text{0$\\grave{ }\\grave{ }$4.}$ & $0.003$ & \
$0.105$ & $\\text{}-0.144$ & $0.011$ & $-0.013$ \\\\
$\\text{CCSDTQ}$ & $\\text{0$\\grave{ }\\grave{ }$3.}$ & $\\text{}-1.433$ & $\
\\text{0$\\grave{ }\\grave{ }$4.}$ & $\\text{0$\\grave{ }\\grave{ }$4.}$ & \
$\\text{}-0.144$ & $\\text{0$\\grave{ }\\grave{ }$4.}$ & $\\text{0$\\grave{ }\
\\grave{ }$4.}$ \\\\
$\\text{TBE}$ & $8.93$ & $1.433$ & $3.125$ & $4.038$ & $0.144$ & $1.500$ & \
$1.849$ \\\\
\\end{tabular}\
\>", "Print",
 CellChangeTimes->{
  3.851501001416548*^9, {3.85150111970389*^9, 3.8515011344833107`*^9}, 
   3.851571614910665*^9, 3.851573213433795*^9, 3.851573348117754*^9, {
   3.851573494745264*^9, 3.8515735202662487`*^9}, 3.851574629968985*^9, {
   3.851587738377365*^9, 3.8515878016023817`*^9}, 3.8515878390081053`*^9, 
   3.851587899749385*^9, {3.851588180407772*^9, 3.85158823257763*^9}, 
   3.8515885342941027`*^9, 3.85158873687094*^9, 3.851658106359161*^9, 
   3.851661195242054*^9, {3.851661708357638*^9, 3.851661722590747*^9}, 
   3.8517488085935173`*^9, 3.851754602209086*^9, 3.8517562423848763`*^9, {
   3.851756355235086*^9, 3.851756374676529*^9}, 3.851756481201378*^9, {
   3.851756526086578*^9, 3.85175655932586*^9}, 3.85175659704774*^9, 
   3.8517567854737577`*^9, {3.851756945188506*^9, 3.85175695769375*^9}, 
   3.85175702110143*^9, 3.851757664697712*^9, 3.857783726192853*^9, 
   3.8577868469142237`*^9, 3.858399806773872*^9, 3.858399861569005*^9, 
   3.858399922353423*^9, 3.858400909804858*^9, 3.858400960615541*^9, 
   3.85840104344337*^9, 3.858401165618176*^9, 3.8584012860835733`*^9, 
   3.858401604995531*^9, 3.858401762427085*^9, 3.8584019737537603`*^9, 
   3.858402183086919*^9, 3.861083363504702*^9, 3.861084043481227*^9, 
   3.861084508246788*^9, 3.8610846648076267`*^9, 3.861084830011269*^9, 
   3.861084898320856*^9, 3.861085145785018*^9, 3.861087645316712*^9, 
   3.863595352592744*^9, 3.8638373640698833`*^9},
 CellLabel->
  "During evaluation of \
In[37]:=",ExpressionUUID->"312d8945-508c-4809-ba46-fbdc9389c92b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D4hAVTZ", "\[LeftDoubleBracket]", 
     RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"Length", "[", "D4hAVTZ", "]"}]}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.851499417917181*^9, 3.8514994430588217`*^9}, {
  3.851499495434458*^9, 3.851499495963913*^9}, {3.8514995678290253`*^9, 
  3.851499568348947*^9}, {3.851499649483169*^9, 3.851499677883964*^9}, {
  3.851500487202489*^9, 3.8515005226723623`*^9}, {3.858401641743412*^9, 
  3.858401646187063*^9}},
 CellLabel->
  "In[917]:=",ExpressionUUID->"f43d5bc7-6eb9-43cf-87ab-a4e12e44c8ee"],

Cell[BoxData["31"], "Output",
 CellChangeTimes->{{3.851499440347197*^9, 3.8514994433786182`*^9}, 
   3.851499496320128*^9, 3.851499568744732*^9, {3.851499656518372*^9, 
   3.851499678236547*^9}, {3.851500516388332*^9, 3.851500522986237*^9}, 
   3.851500732043384*^9, 3.851500803965444*^9, 3.858401244877307*^9, {
   3.858401618991975*^9, 3.8584016465057087`*^9}},
 CellLabel->
  "Out[917]=",ExpressionUUID->"20098fc1-c4e2-4f5d-8ac1-0ba0cc8ae589"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"D2hAVTZ", "\[LeftDoubleBracket]", 
     RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"Length", "[", "D4hAVTZ", "]"}]}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.858401634069046*^9, 3.858401653611356*^9}},
 CellLabel->
  "In[918]:=",ExpressionUUID->"327563a6-e3a6-4907-9dc5-4d606bfe90f8"],

Cell[BoxData["31"], "Output",
 CellChangeTimes->{{3.858401634545932*^9, 3.8584016539415007`*^9}},
 CellLabel->
  "Out[918]=",ExpressionUUID->"1cf12bc1-aae1-431b-ba5c-ad24d0c2a5b4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1135, 770},
WindowMargins->{{Automatic, 152}, {8, Automatic}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"086da43f-a955-4f26-af67-643efc339ce5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 183, 2, 146, "Title",ExpressionUUID->"4d386c5e-bcf5-4efd-b0bc-b836edb33cf9"],
Cell[766, 26, 10300, 269, 1732, "Code",ExpressionUUID->"3849ee34-b676-45ec-a0db-b50477ef25ea"],
Cell[CellGroupData[{
Cell[11091, 299, 334, 9, 101, "Section",ExpressionUUID->"48241247-a3bd-4198-b7fd-f18b8c06dc11"],
Cell[CellGroupData[{
Cell[11450, 312, 203, 3, 79, "Subsection",ExpressionUUID->"0025ff08-61f6-44d8-bf9d-6c6322a1bb4e"],
Cell[CellGroupData[{
Cell[11678, 319, 15179, 361, 2682, "Input",ExpressionUUID->"30ea571a-fd90-49f5-a0be-0d0f72b61b7c"],
Cell[26860, 682, 4658, 79, 1481, "Print",ExpressionUUID->"02b09c45-0395-4eee-987c-278525515d16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31555, 766, 168, 3, 67, "Subsubsection",ExpressionUUID->"55b55e50-4305-4d6b-88e7-3b6c5d655371"],
Cell[31726, 771, 18231, 393, 2806, "Input",ExpressionUUID->"a6190b50-ec0c-41fa-8d4a-598c2edd5c05"],
Cell[CellGroupData[{
Cell[49982, 1168, 1371, 33, 109, "Input",ExpressionUUID->"6ba0aeb1-f6b7-4e82-bd9a-8c81f0177335"],
Cell[51356, 1203, 4389, 75, 1383, "Print",ExpressionUUID->"e018958a-a84c-463b-a674-64a2b9d66ad9"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[55818, 1286, 334, 9, 101, "Section",ExpressionUUID->"e1f043dd-e0f0-40d8-99cd-32af5850d24c"],
Cell[CellGroupData[{
Cell[56177, 1299, 169, 3, 67, "Subsubsection",ExpressionUUID->"80926970-cd36-4007-96e6-a56ab4780c9e"],
Cell[56349, 1304, 12422, 304, 2310, "Input",ExpressionUUID->"bdb28a1a-78e2-44da-8b2c-e9e0a0cd75a6"],
Cell[CellGroupData[{
Cell[68796, 1612, 1601, 36, 171, "Input",ExpressionUUID->"08c236f9-f9bc-49cf-8a0e-4f32400832c0"],
Cell[70400, 1650, 4112, 68, 1334, "Print",ExpressionUUID->"bcb00e41-eb6c-4dd4-b38e-06fccce7fe57"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74561, 1724, 169, 3, 67, "Subsubsection",ExpressionUUID->"367bcf82-bf12-45bf-b15a-e1a947196502"],
Cell[CellGroupData[{
Cell[74755, 1731, 3412, 81, 512, "Input",ExpressionUUID->"05e4146f-566d-46ff-8804-af3ed608263a"],
Cell[78170, 1814, 858, 18, 280, "Print",ExpressionUUID->"56c34a58-0d7c-4c1f-a8af-8aa248a2c1fe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[79077, 1838, 170, 3, 67, "Subsubsection",ExpressionUUID->"f5d6d90d-7529-4522-bd85-996b627d9994"],
Cell[79250, 1843, 17213, 373, 2651, "Input",ExpressionUUID->"d96116fc-7d92-43e6-a1bf-f39ab96751eb"],
Cell[CellGroupData[{
Cell[96488, 2220, 1787, 39, 171, "Input",ExpressionUUID->"d2cb9813-0eac-4c1c-a50c-ff98c6f10b82"],
Cell[98278, 2261, 3619, 60, 1162, "Print",ExpressionUUID->"fafb1883-f696-4ace-a25e-350fdedd9c21"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[101946, 2327, 171, 3, 67, "Subsubsection",ExpressionUUID->"09d22e83-2e35-4e71-88d8-69ef1c1ed08c"],
Cell[CellGroupData[{
Cell[102142, 2334, 13300, 339, 2186, "Input",ExpressionUUID->"afb8aedf-8f3c-4abb-8614-dfc399605ca4"],
Cell[115445, 2675, 1351, 24, 329, "Print",ExpressionUUID->"1beeaff9-b5c8-4348-9774-9a91842154ec"]
}, Open  ]],
Cell[116811, 2702, 179, 3, 46, "Input",ExpressionUUID->"4dca07ac-4ba1-4db3-8355-493d4a6fd748"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117027, 2710, 156, 3, 67, "Subsubsection",ExpressionUUID->"6abe25a3-fdef-4777-9f88-a38a0343eeef"],
Cell[117186, 2715, 41975, 1007, 9011, "Code",ExpressionUUID->"9db1c95c-760c-440e-8135-69fa7029cb15"],
Cell[CellGroupData[{
Cell[159186, 3726, 1286, 32, 109, "Input",ExpressionUUID->"b78cd508-3954-4eb5-b4b6-db109d991534"],
Cell[160475, 3760, 713, 19, 329, "Print",ExpressionUUID->"062ada5b-a39d-401f-b841-c80bfb3eb3b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161225, 3784, 798, 20, 78, "Input",ExpressionUUID->"5bc0d770-473c-4153-a8dc-314866d49948"],
Cell[162026, 3806, 636, 17, 280, "Print",ExpressionUUID->"810f8b28-4487-46ce-a2ac-b2777cc687df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162699, 3828, 399, 9, 46, "Input",ExpressionUUID->"1f4c883c-2ddc-48e3-ae94-5f0ac33dcccf"],
Cell[163101, 3839, 250, 5, 52, "Output",ExpressionUUID->"a2a3e153-8b2d-4cee-aa7f-ad6253757dc4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163388, 3849, 3228, 69, 295, "Input",ExpressionUUID->"f83411ab-16de-4239-9b4d-33dfe32d0211"],
Cell[166619, 3920, 4812, 87, 770, "Print",ExpressionUUID->"312d8945-508c-4809-ba46-fbdc9389c92b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171468, 4012, 710, 16, 46, "Input",ExpressionUUID->"f43d5bc7-6eb9-43cf-87ab-a4e12e44c8ee"],
Cell[172181, 4030, 446, 7, 52, "Output",ExpressionUUID->"20098fc1-c4e2-4f5d-8ac1-0ba0cc8ae589"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172664, 4042, 462, 12, 46, "Input",ExpressionUUID->"327563a6-e3a6-4907-9dc5-4d606bfe90f8"],
Cell[173129, 4056, 180, 3, 52, "Output",ExpressionUUID->"1cf12bc1-aae1-431b-ba5c-ad24d0c2a5b4"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)