diff options
Diffstat (limited to 'Tools')
-rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index 2e9baef..c904fc9 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -186,21 +186,15 @@ removeRHS[x_] := (* Take a grid function name and return a name suitable for use in a local computation *) localName[x_] := ToExpression[ToString[x] <> "L"]; -localNameVectorised[x_] := ToExpression[ToString[x] <> "V"]; (* -------------------------------------------------------------------------- Predefinitions -------------------------------------------------------------------------- *) -declarePreDefinitions[pDefs_] := - CommentedBlock["Declare predefined quantities", - Map[DeclareVariable[#, "// CCTK_REAL"] &, Map[First, pDefs]]]; - definePreDefinitions[pDefs_] := CommentedBlock["Initialize predefined quantities", Map[DeclareAssignVariable["CCTK_REAL", #[[1]], #[[2]]] &, pDefs]]; - (* -------------------------------------------------------------------------- Equations -------------------------------------------------------------------------- *) @@ -226,12 +220,6 @@ printEq[eq_] := rhsString = ToString@CForm[rhsSplit[[1]]] <> rhsSplit[[2]]; InfoMessage[InfoFull, " " <> ToString@lhs <> " -> " <> rhsString]]; -simplifyEquationList[eqs_] := - Map[simplifyEquation, eqs]; - -simplifyEquation[lhs_ -> rhs_] := - lhs -> Simplify[rhs]; - (* Collect and simplify terms *) simpCollect[collectList_, eqrhs_, localvar_, debug_] := Module[{rhs, collectCoeff, all, localCollectList}, @@ -426,7 +414,6 @@ CreateCalculationFunction[calc_, debug_, useCSE_, opts:OptionsPattern[]] := "DECLARE_CCTK_PARAMETERS;\n\n", If[!OptionValue[UseLoopControl], DeclareGridLoopVariables[], {}], DeclareFDVariables[], - declarePreDefinitions[pDefs], ConditionalOnParameterTextual["verbose > 1", "CCTK_VInfo(CCTK_THORNSTRING,\"Entering " <> bodyFunctionName <> "\");\n"], @@ -593,7 +580,6 @@ equationLoop[eqs_, code ]; - End[]; EndPackage[]; |