qcmath.nb

(* 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[     29787,        799]
NotebookOptionsPosition[     26841,        753]
NotebookOutlinePosition[     27305,        771]
CellTagsIndexPosition[     27262,        768]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "This", " ", "will", " ", "define", " ", "the", " ", "working", " ", 
    "directory"}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
   "Run", " ", "this", " ", "cell", " ", "before", " ", "any", " ", "qcmath", 
    " ", "calculation"}], "*)"}], "\n", "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"path", "=", 
     RowBox[{"Directory", "[", "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
    "py", "=", 
     "\"\</Users/monino/opt/anaconda3/envs/python38/bin/python3.7\>\""}], 
    ";"}], "\n", 
   RowBox[{"NotebookEvaluate", "[", 
    RowBox[{"path", "<>", "\"\</src/Main/Main.nb\>\""}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.8722155997054253`*^9, 3.872215609029756*^9}, {
   3.8722157349637737`*^9, 3.872215737311574*^9}, {3.87221581641341*^9, 
   3.872215820733683*^9}, 3.872215870798491*^9, {3.872215932892333*^9, 
   3.872215983819497*^9}, {3.872235259698202*^9, 3.872235326135878*^9}, 
   3.8726544652294083`*^9, {3.872663433100112*^9, 3.8726634342540293`*^9}, 
   3.872826040327668*^9, {3.8732561819401073`*^9, 3.873256182714529*^9}, 
   3.873344354344447*^9, {3.8735158677093477`*^9, 3.8735158685372868`*^9}, {
   3.873786496378894*^9, 3.873786497588236*^9}, {3.8762077606545143`*^9, 
   3.8762077623301363`*^9}, 3.881739151560554*^9, {3.881825371649169*^9, 
   3.881825372382516*^9}, {3.892613226466113*^9, 3.892613235899514*^9}, {
   3.8926132733292503`*^9, 3.892613275367173*^9}, {3.892613307965209*^9, 
   3.892613313065217*^9}, {3.892618754912313*^9, 3.892618755181328*^9}, {
   3.8926188094646263`*^9, 3.892618810900269*^9}, {3.892618877063336*^9, 
   3.8926188773217983`*^9}, 3.892619321908066*^9, {3.89806861001031*^9, 
   3.8980686112492237`*^9}, {3.898577769645862*^9, 3.898577770338196*^9}, {
   3.89858683399193*^9, 3.898586834590177*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"f8c899d9-6799-4379-b4a4-a92347b942c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qcmath", "[", 
  RowBox[{"\"\<H2\>\"", ",", "\"\<6-31g\>\"", ",", 
   RowBox[{"{", "\"\<crCCD\>\"", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.898938592996071*^9, 3.898939850995287*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"6fb3364f-c5fa-42c0-82f9-a5248a63923a"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"RHF outputs:\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0, 0],
  FrontFaceColor->RGBColor[1, 0, 0],
  BackFaceColor->RGBColor[1, 0, 0],
  GraphicsColor->RGBColor[1, 0, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0, 0]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.8989398557316027`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"2fb19676-dbec-4423-82ae-219e2f1b6266"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(N\\), \\(elc\\)]\\)\"\>",
       HoldForm], "2"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(N\\), \\(Basis\\)]\\)\"\>",
       HoldForm], "4"},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(N\\), \\(SCF\\)]\\)\"\>",
       HoldForm], "9"},
     {
      TagBox["\<\"Conv\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox[
         RowBox[{"\<\"5.164\"\>", "\[Times]", 
          SuperscriptBox["10", "\<\"-8\"\>"]}],
         ShowStringCharacters->False],
        5.164253868983337*^-8,
        AutoDelete->True],
       NumberForm[#, {6, 3}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(E\\), \\(0\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"-1.126733\"\>",
         ShowStringCharacters->False],
        -1.1267333108755397`,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(E\\), \\(Nuc\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"0.713715\"\>",
         ShowStringCharacters->False],
        0.7137154869688589,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(E\\), \\(HF\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"-1.840449\"\>",
         ShowStringCharacters->False],
        -1.8404487978443986`,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(HF\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"1.123805\"\>",
         ShowStringCharacters->False],
        1.1238053803447245`,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(V\\), \\(HF\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"-3.613942\"\>",
         ShowStringCharacters->False],
        -3.613941930449225,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(J\\), \\(HF\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"1.299376\"\>",
         ShowStringCharacters->False],
        1.2993755045202027`,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(K\\), \\(HF\\)]\\)\"\>",
       HoldForm], 
      TagBox[
       InterpretationBox[
        StyleBox["\<\"-0.649688\"\>",
         ShowStringCharacters->False],
        -0.649687752260101,
        AutoDelete->True],
       NumberForm[#, {9, 6}]& ]},
     {
      TagBox["\<\"MO energies\"\>",
       HoldForm], 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", "0.5953805227921454`"}]},
           {"0.23808978174035667`"},
           {"0.7754164324608337`"},
           {"1.4025112118623855`"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "Rows" -> {{False}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[1.2]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, None}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"\!\(\*SubscriptBox[\(N\), \(elc\)]\)", 
       "\!\(\*SubscriptBox[\(N\), \(Basis\)]\)", 
       "\!\(\*SubscriptBox[\(N\), \(SCF\)]\)", "Conv", 
       "\!\(\*SubscriptBox[\(E\), \(0\)]\)", 
       "\!\(\*SubscriptBox[\(E\), \(Nuc\)]\)", 
       "\!\(\*SubscriptBox[\(E\), \(HF\)]\)", 
       "\!\(\*SubscriptBox[\(T\), \(HF\)]\)", 
       "\!\(\*SubscriptBox[\(V\), \(HF\)]\)", 
       "\!\(\*SubscriptBox[\(J\), \(HF\)]\)", 
       "\!\(\*SubscriptBox[\(K\), \(HF\)]\)", "MO energies"}}, 
    TableDirections -> Row, TableAlignments -> Center]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939855733275*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"8436a611-d9ec-4894-bf55-00e768df8737"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"It.\"\>", "\<\"\\!\\(\\*SuperscriptBox[\\(E\\), \\(rCCD\\)]\\)      \
         \"\>", "\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(c\\), \\(rCCD\\)]\
\\)        \"\>", "\<\"Conv\"\>"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856204761*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"5da21377-5fea-4384-bfe6-429fb5bede99"],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", 
     RowBox[{"-", "1.10201100960543296736204865737818181515`15."}], 
     "0.02472230127010673766951853735918120947`9.", "0.3291459563740756`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856215665*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"01cdc550-b184-4a06-99e6-228cbb50528a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"2", 
     RowBox[{"-", "1.11983311987165334855376386258285492659`15."}], 
     "0.00690019100388642066257194329637059127`9.", "0.12923469858092246`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856227352*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"7c39a3b1-d6df-4849-9d89-96e6b08a3eeb"],

Cell[BoxData[
 TagBox[GridBox[{
    {"3", 
     RowBox[{"-", "1.11161678559610499483767398487543687224`15."}], 
     "0.01511652527943476917449139307336736238`9.", "0.0768617740232858`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.8989398562387123`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"90a49e09-5e7b-4cfa-8d17-3fff0dfc0d54"],

Cell[BoxData[
 TagBox[GridBox[{
    {"4", 
     RowBox[{"-", "1.11569081596059160865763715264620259404`15."}], 
     "0.01104249491494816576286908116344420705`9.", "0.045265719211374116`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856249909*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"56f9cf33-e7c7-41af-9f33-67576ac4bc22"],

Cell[BoxData[
 TagBox[GridBox[{
    {"5", 
     RowBox[{"-", "1.11358561664111754829775691177928820252`15."}], 
     "0.01314769423442209428376514779301942326`9.", "0.026252524895956312`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856261938*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"dfd5f328-8056-4cfe-a658-b49650cdd9bd"],

Cell[BoxData[
 TagBox[GridBox[{
    {"6", 
     RowBox[{"-", "1.11470708504927795701178183662705123425`15."}], 
     "0.01202622582626176189757316592476854566`9.", "0.01512908559003704`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856273305*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"06b4de42-0ec4-4ac9-8199-c9448d232627"],

Cell[BoxData[
 TagBox[GridBox[{
    {"7", 
     RowBox[{"-", "1.11409855843828475840950886777136474848`15."}], 
     "0.01263475243725507499159554924972326262`9.", "0.008658173647730256`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.89893985628465*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"860e7522-97b1-4026-adbd-c8c5c4059f77"],

Cell[BoxData[
 TagBox[GridBox[{
    {"8", 
     RowBox[{"-", "1.11443322473668326999529654131038114429`15."}], 
     "0.01230008613885653911967921203540754505`9.", "0.004938046255721758`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856295998*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"cab0f24c-cd42-4563-8120-a9dd7b62a781"],

Cell[BoxData[
 TagBox[GridBox[{
    {"9", 
     RowBox[{"-", "1.11424759697516861933763721026480197906`15."}], 
     "0.01248571390037102844805527723792692996`9.", "0.002807469235952771`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856307542*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"23f67bc8-a064-402b-b8dd-45bf07407908"],

Cell[BoxData[
 TagBox[GridBox[{
    {"10", 
     RowBox[{"-", "1.11435119075457733650580394169082865119`15."}], 
     "0.01238212012096237546465715695376275107`9.", "0.0015934126985221037`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856320923*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"4e876801-05c0-459d-97de-890872036115"],

Cell[BoxData[
 TagBox[GridBox[{
    {"11", 
     RowBox[{"-", "1.11429314760962916430742097873007878661`15."}], 
     "0.01244016326591060664363830312595382566`9.", "0.0009030683823337375`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856329928*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"21614d93-7d53-4bf1-851f-d22ea5671269"],

Cell[BoxData[
 TagBox[GridBox[{
    {"12", 
     RowBox[{"-", "1.11432576052225540408358028798829764128`15."}], 
     "0.01240755035328437380637289777496334864`9.", "0.0005113872689354766`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.8989398563414907`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"b331076e-fef1-4105-80a5-f698f24e56f0"],

Cell[BoxData[
 TagBox[GridBox[{
    {"13", 
     RowBox[{"-", "1.11430740222355240121032693423330783844`15."}], 
     "0.01242590865198741484354272301970922854`9.", 
     "0.00028939862467278546`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856354093*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"cda61beb-cec8-4dac-b3b4-13f82589d698"],

Cell[BoxData[
 TagBox[GridBox[{
    {"14", 
     RowBox[{"-", "1.11431774976260844489672763302223756909`15."}], 
     "0.012415561112931329523778600787409232`9.", "0.0001637079391939196`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856364045*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"6e1a30b1-cd99-4c1f-b8f0-059c6812d6db"],

Cell[BoxData[
 TagBox[GridBox[{
    {"15", 
     RowBox[{"-", "1.11431191242011862208016736985882744193`15."}], 
     "0.0124213984554211141764223924610632821`9.", "0.00009257928866529888`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856375675*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"63727122-84fc-4377-803b-4a5a9c10432e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"16", 
     RowBox[{"-", "1.11431520739376588302604886848712339997`15."}], 
     "0.01241810348177396425284335634842136642`9.", 
     "0.00005234511899037883`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856387724*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"8b750d1b-0eb2-4574-9523-024f64e4722c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"17", 
     RowBox[{"-", "1.11431334675587168092647516459692269564`15."}], 
     "0.01241996411966813686211796863290146575`9.", "0.000029592343067569304`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856398292*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"b3d6aa31-34e8-4004-a484-d515e987dc0d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"18", 
     RowBox[{"-", "1.11431439772760021433839483506744727492`15."}], 
     "0.01241891314793948028483150380907318322`9.", "0.000016728007892072988`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.8989398564098063`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"aa608fa2-38c1-40f7-9150-cca4fccc944d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"19", 
     RowBox[{"-", "1.11431380398195534198180212115403264761`15."}], 
     "0.01241950689358445325538582437729928643`9.", "9.455443753782211`*^-6"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856421823*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"6b372d70-d6c4-448a-b884-43e71deea4a9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\\!\\(\\*SuperscriptBox[\\(E\\), \\(crCCD\\)]\\) = \"\>", 
     RowBox[{
     "-", "0.40059831701309644991226832644315436482`15."}], \
"\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(c\\), \\(crCCD\\)]\\) = \"\>", 
     "0.01241950689358445325538582437729928643`9."}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.898939856422986*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"d03652f0-6c32-4115-ba15-3be01d32dd8f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"CPU time for crCCD calculation= \"\>", "\[InvisibleSpace]", 
   "0.253912`"}],
  SequenceForm["CPU time for crCCD calculation= ", 0.253912],
  Editable->False]], "Print",
 CellChangeTimes->{3.898938979668413*^9, 3.8989391642084913`*^9, 
  3.898939227234235*^9, 3.8989392642044086`*^9, 3.898939404072076*^9, 
  3.8989398564241867`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"332f210e-a04a-4dc6-b588-766ca7aa626e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"ERHF\"\>", "\[Rule]", 
    RowBox[{"-", "1.1267333108755397`"}]}], ",", 
   RowBox[{"\<\"IP\"\>", "\[Rule]", "IP$9949"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.8989397974363728`*^9, 3.898939856425468*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"d2ca8153-bf7d-4bc4-9ba3-5954ac4e5556"]
}, Open  ]]
},
WindowSize->{1440, 692},
WindowMargins->{{0, Automatic}, {Automatic, 37}},
TaggingRules->{"TryRealOnly" -> False},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7055d6b5-8326-456c-bff5-ec1e87717938"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2012, 40, 210, "Code",ExpressionUUID->"f8c899d9-6799-4379-b4a4-a92347b942c3"],
Cell[CellGroupData[{
Cell[2595, 64, 292, 5, 37, "Input",ExpressionUUID->"6fb3364f-c5fa-42c0-82f9-a5248a63923a"],
Cell[CellGroupData[{
Cell[2912, 73, 542, 14, 29, "Print",ExpressionUUID->"2fb19676-dbec-4423-82ae-219e2f1b6266"],
Cell[3457, 89, 4929, 150, 441, "Print",ExpressionUUID->"8436a611-d9ec-4894-bf55-00e768df8737"],
Cell[8389, 241, 860, 21, 32, "Print",ExpressionUUID->"5da21377-5fea-4384-bfe6-429fb5bede99"],
Cell[9252, 264, 822, 21, 29, "Print",ExpressionUUID->"01cdc550-b184-4a06-99e6-228cbb50528a"],
Cell[10077, 287, 823, 21, 29, "Print",ExpressionUUID->"7c39a3b1-d6df-4849-9d89-96e6b08a3eeb"],
Cell[10903, 310, 824, 21, 29, "Print",ExpressionUUID->"90a49e09-5e7b-4cfa-8d17-3fff0dfc0d54"],
Cell[11730, 333, 824, 21, 29, "Print",ExpressionUUID->"56f9cf33-e7c7-41af-9f33-67576ac4bc22"],
Cell[12557, 356, 824, 21, 29, "Print",ExpressionUUID->"dfd5f328-8056-4cfe-a658-b49650cdd9bd"],
Cell[13384, 379, 823, 21, 29, "Print",ExpressionUUID->"06b4de42-0ec4-4ac9-8199-c9448d232627"],
Cell[14210, 402, 823, 21, 29, "Print",ExpressionUUID->"860e7522-97b1-4026-adbd-c8c5c4059f77"],
Cell[15036, 425, 824, 21, 29, "Print",ExpressionUUID->"cab0f24c-cd42-4563-8120-a9dd7b62a781"],
Cell[15863, 448, 824, 21, 29, "Print",ExpressionUUID->"23f67bc8-a064-402b-b8dd-45bf07407908"],
Cell[16690, 471, 826, 21, 29, "Print",ExpressionUUID->"4e876801-05c0-459d-97de-890872036115"],
Cell[17519, 494, 826, 21, 29, "Print",ExpressionUUID->"21614d93-7d53-4bf1-851f-d22ea5671269"],
Cell[18348, 517, 828, 21, 29, "Print",ExpressionUUID->"b331076e-fef1-4105-80a5-f698f24e56f0"],
Cell[19179, 540, 833, 22, 29, "Print",ExpressionUUID->"cda61beb-cec8-4dac-b3b4-13f82589d698"],
Cell[20015, 564, 824, 21, 29, "Print",ExpressionUUID->"6e1a30b1-cd99-4c1f-b8f0-059c6812d6db"],
Cell[20842, 587, 826, 21, 29, "Print",ExpressionUUID->"63727122-84fc-4377-803b-4a5a9c10432e"],
Cell[21671, 610, 833, 22, 29, "Print",ExpressionUUID->"8b750d1b-0eb2-4574-9523-024f64e4722c"],
Cell[22507, 634, 828, 21, 29, "Print",ExpressionUUID->"b3d6aa31-34e8-4004-a484-d515e987dc0d"],
Cell[23338, 657, 830, 21, 29, "Print",ExpressionUUID->"aa608fa2-38c1-40f7-9150-cca4fccc944d"],
Cell[24171, 680, 826, 21, 32, "Print",ExpressionUUID->"6b372d70-d6c4-448a-b884-43e71deea4a9"],
Cell[25000, 703, 940, 23, 32, "Print",ExpressionUUID->"d03652f0-6c32-4115-ba15-3be01d32dd8f"],
Cell[25943, 728, 487, 11, 29, "Print",ExpressionUUID->"332f210e-a04a-4dc6-b588-766ca7aa626e"]
}, Open  ]],
Cell[26445, 742, 380, 8, 65, "Output",ExpressionUUID->"d2ca8153-bf7d-4bc4-9ba3-5954ac4e5556"]
}, Open  ]]
}
]
*)