qlanth - Table Generator.nb

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

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

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     27743,        643]
NotebookOptionsPosition[     24138,        582]
NotebookOutlinePosition[     24914,        606]
CellTagsIndexPosition[     24871,        603]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["qLanth : Table Generator", "Title",
 CellChangeTimes->{{3.866561008726151*^9, 3.866561012858223*^9}, {
  3.866561154959708*^9, 3.866561182398954*^9}, {3.906728019105769*^9, 
  3.906728021136181*^9}},
 TextAlignment->Center,ExpressionUUID->"f3dab00c-756e-4b1f-9a29-d532363347ff"],

Cell["\<\
All of the data included in the final Hamiltonians is generated from two \
files: 
* B1F_ALL.txt, which contains the coefficients of fractional parentage 
* NielsonKosterLabels_f6_f7.txt which contains the labels for the terms in f6 \
and f7.

From these the following files (all located in the /data folder) can be \
generated to expedite the calculation of the final Hamiltonian.
\[LineSeparator]fnTerms.m
CFPAssoc.m, CFPs.m, CFPTable.m
ReducedV1kTable.m
ReducedUkTable.m
SOOandECSOTable.m
ReducedT22Table.m
SpinSpinTable.m
SpinOrbitTable.m
ElectrostaticTable.m
ReducedSOOandECSOLSTable.m
ThreeBodyTables.m
ThreeBodyTable.m
chenDeltas.m
Carnall.m

CrystalFieldTable_f1.zip
CrystalFieldTable_f2.zip
CrystalFieldTable_f3.zip
CrystalFieldTable_f4.zip
CrystalFieldTable_f5.zip
CrystalFieldTable_f6.zip
CrystalFieldTable_f7.zip

The first block above takes about 20 minutes to be generated, while the \
crystal field tables may take in total about two hours.

By default the electrostatic term in the Hamiltonian is computed in terms of \
Slater integrals, however it may also be computed in terms of Racah \
parameters. This transformation can also be done after.\
\>", "Text",
 CellChangeTimes->{{3.884338541433605*^9, 3.884338573866145*^9}, {
   3.884339039840309*^9, 3.884339047838854*^9}, {3.892029591652556*^9, 
   3.892029591888661*^9}, {3.9064868171715384`*^9, 3.906486821664096*^9}, {
   3.906728781318788*^9, 3.9067288855603437`*^9}, {3.906728930043571*^9, 
   3.906728953785007*^9}, {3.906729603354409*^9, 3.906729621325438*^9}, {
   3.906732357692666*^9, 3.9067324537080297`*^9}, 3.9139961013745317`*^9, 
   3.914009057351668*^9, {3.9150973665688334`*^9, 3.9150974182334557`*^9}, {
   3.91557368439631*^9, 3.915573818599155*^9}, {3.915573859846478*^9, 
   3.9155740733074007`*^9}, {3.915574103439467*^9, 3.9155741045566072`*^9}, {
   3.915574164237962*^9, 3.915574201836862*^9}, {3.915574251163795*^9, 
   3.915574265823578*^9}, {3.915746640303152*^9, 3.9157466409454203`*^9}, {
   3.915746844619549*^9, 3.9157468512181883`*^9}},
 TextAlignment->Center,ExpressionUUID->"47503aaa-7b50-458a-bffb-5f91a3d860bc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"$Path", ",", 
    RowBox[{"NotebookDirectory", "[", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", "\"\<qlanth.m\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", "\"\<misc.m\>\"", "]"}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.866625158893896*^9, 3.8666251699518127`*^9}, {
   3.86662565468071*^9, 3.866625655065934*^9}, {3.867925727834807*^9, 
   3.867925730467511*^9}, {3.878673720338455*^9, 3.878673721191774*^9}, 
   3.87867383810907*^9, 3.878675191901079*^9, 3.8786752835763073`*^9, 
   3.8787416478732557`*^9, {3.8799526959199963`*^9, 3.8799526960770903`*^9}, {
   3.892029582337204*^9, 3.8920295889408827`*^9}, {3.892552302793804*^9, 
   3.892552311308173*^9}, 3.8980141354678907`*^9, {3.9067294207882433`*^9, 
   3.906729421016581*^9}, {3.913996149608245*^9, 3.9139961544992*^9}, 
   3.9149401396091347`*^9, 3.915112303559952*^9, {3.915574433878394*^9, 
   3.915574434003777*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"2539f139-b8a7-430c-b1c8-4ad556ecc2d0"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Loading data for state labels in the f^n \
configurations...\"\>"], "PrintTemporary",
 CellChangeTimes->{3.923755560097156*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"0cb3d788-3b8b-48b7-a256-3b4b8b551bdb"],

Cell[BoxData["\<\"Loading CFPtable ...\"\>"], "PrintTemporary",
 CellChangeTimes->{3.9237555602045183`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"8ded93b8-a1be-40f4-8085-5d0d0d2648be"],

Cell[BoxData["\<\"Loading CFPs.m ...\"\>"], "PrintTemporary",
 CellChangeTimes->{3.9237555603286133`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"4f2f65aa-0d90-49a9-af59-9dc9159bd083"],

Cell[BoxData["\<\"Loading CFPAssoc.m ...\"\>"], "PrintTemporary",
 CellChangeTimes->{3.9237555605257072`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"ec4ff15b-544d-4795-b502-a179564d9aa4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ParallelCrystal", "[", "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{"ParallelDo", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Get", "[", "\"\<qlanth.m\>\"", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"LoadUk", "[", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"GenerateCrystalFieldTable", "[", 
        RowBox[{
         RowBox[{"{", "numE", "}"}], ",", 
         RowBox[{"\"\<Export\>\"", "->", "True"}], ",", 
         RowBox[{"\"\<Progress\>\"", "->", "False"}], ",", 
         RowBox[{"\"\<Compress\>\"", "->", "True"}]}], "]"}]}], ")"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"numE", ",", "1", ",", "7"}], "}"}]}], "\[IndentingNewLine]", 
    "]"}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SerialCrystal", "[", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LoadUk", "[", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"GenerateCrystalFieldTable", "[", 
         RowBox[{
          RowBox[{"{", "numE", "}"}], ",", 
          RowBox[{"\"\<Export\>\"", "->", "True"}], ",", 
          RowBox[{"\"\<Progress\>\"", "->", "True"}], ",", 
          RowBox[{"\"\<Compress\>\"", "->", "True"}]}], "]"}]}], ")"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"numE", ",", "1", ",", "7"}], "}"}]}], "\[IndentingNewLine]", 
     "]"}], "\[IndentingNewLine]", ")"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"loadLog", "=", 
   RowBox[{"<|", "|>"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"loadFuns", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "LoadTermLabels", ",", "LoadCFP", ",", "LoadUk", ",", "LoadV1k", ",", 
      "LoadT22", ",", "LoadSOOandECSOLS", ",", "LoadElectrostatic", ",", 
      "LoadSpinOrbit", ",", "LoadSOOandECSO", ",", "LoadSpinSpin", ",", 
      "LoadThreeBody", ",", "LoadCarnall", ",", "LoadChenDeltas", ",", " ", 
      "SerialCrystal"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"start", "=", "Now"}], ";", "\[IndentingNewLine]", 
      RowBox[{"loadFun", "[", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"end", "=", "Now"}], ";", "\[IndentingNewLine]", 
      RowBox[{"taken", "=", 
       RowBox[{"Round", "[", 
        RowBox[{
         RowBox[{"QuantityMagnitude", "[", 
          RowBox[{"UnitConvert", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"end", "-", "start"}], ")"}], ",", "\"\<min\>\""}], 
           "]"}], "]"}], ",", "0.0001"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"loadFunString", "=", 
       RowBox[{"ToString", "[", "loadFun", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"loadLog", "[", "loadFunString", "]"}], "=", "taken"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"loadFunString", ",", "\"\< took \>\"", ",", 
        RowBox[{"ToString", "[", "taken", "]"}], ",", "\"\< min\>\""}], 
       "]"}]}], ")"}], ",", 
    RowBox[{"{", 
     RowBox[{"loadFun", ",", "loadFuns"}], "}"}]}], "]"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{"moduleDir", ",", "\"\<loadlog.m\>\""}], "}"}], "]"}], ",", 
    "loadLog"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.915275818193843*^9, 3.915275826784575*^9}, {
   3.915275873434367*^9, 3.915275900367477*^9}, {3.915377472762187*^9, 
   3.9153774729227057`*^9}, {3.915377510765168*^9, 3.915377545357727*^9}, {
   3.9153775908299294`*^9, 3.9153775968376207`*^9}, {3.91538068444143*^9, 
   3.915380686551403*^9}, {3.915399843993298*^9, 3.915399844420933*^9}, {
   3.915439898482624*^9, 3.915439919332761*^9}, {3.915440002027855*^9, 
   3.915440024947551*^9}, {3.915574305246879*^9, 3.915574311666848*^9}, {
   3.915574366217869*^9, 3.9155743678506536`*^9}, 3.915574453198048*^9, 
   3.915574622924768*^9, {3.915746586187611*^9, 3.915746596892807*^9}, 
   3.915813471522255*^9},ExpressionUUID->"9537e2f8-3514-4aa8-a73e-\
d37af832d78b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadTermLabels\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.\"\>", "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadTermLabels", " took ", "0.", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.9155745813652897`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"2f8be680-73e1-4beb-9687-d8bec0a65be5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadCFP\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.\"\>", "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadCFP", " took ", "0.", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574581398576*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"cfebdd6d-841d-4836-b9e6-eb8c7109bf40"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadUk\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0115\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadUk", " took ", "0.0115", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574582052884*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"8f12abbe-2871-4b5b-8bb2-794323b9abd4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadVk1\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0033\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadVk1", " took ", "0.0033", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574582249332*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"f3a3eb61-2232-472b-8abf-d1ab28da8fa2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadT22\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0054\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadT22", " took ", "0.0054", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.9155745825738487`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"b785904f-e6f8-42bc-8b2f-dd1a4e66b4b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadSOOandECSOLS\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0125\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadSOOandECSOLS", " took ", "0.0125", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574583322225*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"dfe01063-25e3-4b1a-93fa-59b3b84c377f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadElectrostatic\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0024\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadElectrostatic", " took ", "0.0024", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.9155745834640093`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"6e1f115f-9d36-43a4-a6b8-e95c53d9cf84"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadSpinOrbit\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0042\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadSpinOrbit", " took ", "0.0042", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574583715222*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"99f80699-a5ed-4e90-b9b3-0fb18550cf02"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadSOOandECSO\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0247\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadSOOandECSO", " took ", "0.0247", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574585198472*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"adff3ce2-f3f1-4836-b7ed-4f84d9b255c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadSpinSpin\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0103\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadSpinSpin", " took ", "0.0103", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574585819861*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"0220475a-d2f1-40a5-bfd6-10957093ff1e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadThreeBody\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0219\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadThreeBody", " took ", "0.0219", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587133313*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"984077f6-fb8d-43fa-b46f-3e8f2805ef9e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadCarnall\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0004\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadCarnall", " took ", "0.0004", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587171232*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"6ae69ad8-91f6-4b1c-9ac1-ade1047651b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"LoadChenDeltas\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0013\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["LoadChenDeltas", " took ", "0.0013", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.9155745872409697`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"1ab328c6-08d7-4459-af72-53a2a7448c19"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587304501*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"20976c90-2a38-4f89-8221-4910600a18e5"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587367978*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"18cf5960-0f46-464a-9dbc-cdba36d68916"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587546856*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"b9554e35-b66c-4d5d-9582-23f88c33a310"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587738267*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"43a199ba-a060-4afc-808b-6006e26899a5"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574587903034*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"5e0d88ba-e4f3-4891-8ff6-47cd0dec1af5"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.9155745883381443`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"3c8d0884-2c7b-41d6-9428-5044a1dd4cc2"],

Cell[BoxData["\<\"File exists, skipping ...\"\>"], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574588759637*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"7d9e69fd-a9e3-4bce-8107-cb6689c03cb2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"SerialCrystal\"\>", "\[InvisibleSpace]", "\<\" took \"\>", 
   "\[InvisibleSpace]", "\<\"0.0253\"\>", 
   "\[InvisibleSpace]", "\<\" min\"\>"}],
  SequenceForm["SerialCrystal", " took ", "0.0253", " min"],
  Editable->False]], "Print",
 ShowCellLabel->True,
 CellChangeTimes->{
  3.915312266530093*^9, 3.915377754199575*^9, {3.9153787132140512`*^9, 
   3.915378747414522*^9}, 3.915378792673826*^9, 3.915379073759145*^9, 
   3.9153807516115007`*^9, 3.915380859201898*^9, 3.91539985909726*^9, 
   3.9154399259214907`*^9, 3.915440032337228*^9, 3.9154454139840918`*^9, 
   3.915445855924735*^9, 3.915574588787682*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"59bc52d4-98a9-41f3-8e32-96c644321c5e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{864, 1052},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
CellEpilog:>SelectionMove[
  EvaluationNotebook[], Next, Cell],
SpellingDictionaries->{"CorrectWords"->{
 "Sugano", "Kurvits", "Tanabe", "Dq", "Undoped", "Nielson", "Koster", "numpy",
   "mrays", "Velkov", "qlanth", "Carnall", "Wybourne", "Crosswhite", 
  "Gruber"}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"77e6bb94-2926-4014-bb5f-43edbd668f7c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 284, 4, 97, "Title",ExpressionUUID->"f3dab00c-756e-4b1f-9a29-d532363347ff"],
Cell[867, 28, 2127, 51, 816, "Text",ExpressionUUID->"47503aaa-7b50-458a-bffb-5f91a3d860bc"],
Cell[CellGroupData[{
Cell[3019, 83, 1247, 25, 105, "Input",ExpressionUUID->"2539f139-b8a7-430c-b1c8-4ad556ecc2d0",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[4291, 112, 249, 5, 24, "PrintTemporary",ExpressionUUID->"0cb3d788-3b8b-48b7-a256-3b4b8b551bdb"],
Cell[4543, 119, 211, 4, 24, "PrintTemporary",ExpressionUUID->"8ded93b8-a1be-40f4-8085-5d0d0d2648be"],
Cell[4757, 125, 209, 4, 24, "PrintTemporary",ExpressionUUID->"4f2f65aa-0d90-49a9-af59-9dc9159bd083"],
Cell[4969, 131, 213, 4, 24, "PrintTemporary",ExpressionUUID->"ec4ff15b-544d-4795-b502-a179564d9aa4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5231, 141, 4321, 100, 651, "Input",ExpressionUUID->"9537e2f8-3514-4aa8-a73e-d37af832d78b"],
Cell[CellGroupData[{
Cell[9577, 245, 758, 15, 38, "Print",ExpressionUUID->"2f8be680-73e1-4beb-9687-d8bec0a65be5"],
Cell[10338, 262, 742, 15, 38, "Print",ExpressionUUID->"cfebdd6d-841d-4836-b9e6-eb8c7109bf40"],
Cell[11083, 279, 752, 16, 38, "Print",ExpressionUUID->"8f12abbe-2871-4b5b-8bb2-794323b9abd4"],
Cell[11838, 297, 754, 16, 38, "Print",ExpressionUUID->"f3a3eb61-2232-472b-8abf-d1ab28da8fa2"],
Cell[12595, 315, 756, 16, 38, "Print",ExpressionUUID->"b785904f-e6f8-42bc-8b2f-dd1a4e66b4b3"],
Cell[13354, 333, 772, 16, 38, "Print",ExpressionUUID->"dfe01063-25e3-4b1a-93fa-59b3b84c377f"],
Cell[14129, 351, 776, 16, 38, "Print",ExpressionUUID->"6e1f115f-9d36-43a4-a6b8-e95c53d9cf84"],
Cell[14908, 369, 766, 16, 38, "Print",ExpressionUUID->"99f80699-a5ed-4e90-b9b3-0fb18550cf02"],
Cell[15677, 387, 768, 16, 38, "Print",ExpressionUUID->"adff3ce2-f3f1-4836-b7ed-4f84d9b255c8"],
Cell[16448, 405, 764, 16, 38, "Print",ExpressionUUID->"0220475a-d2f1-40a5-bfd6-10957093ff1e"],
Cell[17215, 423, 766, 16, 38, "Print",ExpressionUUID->"984077f6-fb8d-43fa-b46f-3e8f2805ef9e"],
Cell[17984, 441, 762, 16, 38, "Print",ExpressionUUID->"6ae69ad8-91f6-4b1c-9ac1-ade1047651b9"],
Cell[18749, 459, 770, 16, 38, "Print",ExpressionUUID->"1ab328c6-08d7-4459-af72-53a2a7448c19"],
Cell[19522, 477, 541, 10, 38, "Print",ExpressionUUID->"20976c90-2a38-4f89-8221-4910600a18e5"],
Cell[20066, 489, 541, 10, 38, "Print",ExpressionUUID->"18cf5960-0f46-464a-9dbc-cdba36d68916"],
Cell[20610, 501, 541, 10, 38, "Print",ExpressionUUID->"b9554e35-b66c-4d5d-9582-23f88c33a310"],
Cell[21154, 513, 541, 10, 38, "Print",ExpressionUUID->"43a199ba-a060-4afc-808b-6006e26899a5"],
Cell[21698, 525, 541, 10, 38, "Print",ExpressionUUID->"5e0d88ba-e4f3-4891-8ff6-47cd0dec1af5"],
Cell[22242, 537, 543, 10, 38, "Print",ExpressionUUID->"3c8d0884-2c7b-41d6-9428-5044a1dd4cc2"],
Cell[22788, 549, 541, 10, 38, "Print",ExpressionUUID->"7d9e69fd-a9e3-4bce-8107-cb6689c03cb2"],
Cell[23332, 561, 766, 16, 38, "Print",ExpressionUUID->"59bc52d4-98a9-41f3-8e32-96c644321c5e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)