diff options
Diffstat (limited to 'Tools/CodeGen/CodeGenCactus.m')
| -rw-r--r-- | Tools/CodeGen/CodeGenCactus.m | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 1192b8e..80bae7b 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -152,22 +152,11 @@ DefFn[ }]; DefFn[ - InitialiseFDSpacingVariablesFortran[] := - { - AssignVariable["dt", "CCTK_DELTA_TIME"], - AssignVariable["dx", "CCTK_DELTA_SPACE(1)"], - AssignVariable["dy", "CCTK_DELTA_SPACE(2)"], - AssignVariable["dz", "CCTK_DELTA_SPACE(3)"] - }]; - -DefFn[ InitialiseFDVariables[vectorise:Boolean] := CommentedBlock[ "Initialise finite differencing variables", { - If[SOURCELANGUAGE == "Fortran", - InitialiseFDSpacingVariablesFortran[], - InitialiseFDSpacingVariablesC[]], + InitialiseFDSpacingVariablesC[], DeclareAssignVariable[DataType[], "dxi", "INV(dx)"], DeclareAssignVariable[DataType[], "dyi", "INV(dy)"], |