diff options
Diffstat (limited to 'Tools/CodeGen/KrancTensor.m')
-rw-r--r-- | Tools/CodeGen/KrancTensor.m | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m index 1bd8bdb..33635b0 100644 --- a/Tools/CodeGen/KrancTensor.m +++ b/Tools/CodeGen/KrancTensor.m @@ -47,12 +47,16 @@ Begin["`Private`"]; Options[CreateKrancThornTT] = ThornOptions; CreateKrancThornTT[groups_, parentDirectory_, thornName_, opts:OptionsPattern[]] := - Module[{calcs, expCalcs, expGroups, options, derivs, expDerivs, reflectionSymmetries, declaredGroups, consCalcs, expConsCalcs}, + Module[{calcs, expCalcs, expGroups, options, derivs, expDerivs, reflectionSymmetries, declaredGroups, consCalcs, expConsCalcs, pds}, InfoMessage[Terse, "Creating thorn "<>thornName]; InfoMessage[Terse, "Processing tensorial arguments"]; calcs = lookup[{opts}, Calculations]; consCalcs = lookupDefault[{opts}, ConservationCalculations, {}]; derivs = lookupDefault[{opts}, PartialDerivatives, {}]; + + pds = Union[derivs[[All,1,0]]]; + Map[DefineDerivative, pds]; + Map[CheckCalculationTensors, calcs]; If[OptionValue[GenerateScript], WriteScript[groups, parentDirectory, thornName, opts]]; |