diff options
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/KrancTensor.m | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m index e9c9876..9149aa4 100644 --- a/Tools/CodeGen/KrancTensor.m +++ b/Tools/CodeGen/KrancTensor.m @@ -23,9 +23,9 @@ (****************************************************************************) (* Wrapper providing tensor support to Kranc (from TensorTools or xTensor) *) (****************************************************************************) -If[!ValueQ[$KrancTensorPackage], $KrancTensorPackage = "TensorToolsKranc`"]; -BeginPackage["KrancTensor`", {"Errors`", "KrancThorn`", "MapLookup`", "KrancGroups`", "Kranc`", $KrancTensorPackage}]; +$KrancTensorPackage = "TensorToolsKranc`"; + BeginPackage["KrancTensor`", {"Errors`", "KrancThorn`", "MapLookup`", "KrancGroups`", "Kranc`", $KrancTensorPackage, "ConservationCalculation`", "TensorTools`"}]; CreateKrancThornTT::usage = "Construct a Kranc thorn using tensor expressions."; @@ -48,6 +48,8 @@ CreateKrancThornTT[groups_, parentDirectory_, thornName_, opts___] := expCalcs = Map[makeCalculationExplicit, calcs]; expConsCalcs = Map[makeCalculationExplicit, consCalcs]; + Print["expConsCalcs = ", expConsCalcs]; + InfoMessage[Info, "Group definitions:", groups]; VerifyGroups[groups]; |