diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 16:03:07 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 16:03:07 +0200 |
commit | 575191a13be47a5de7bc51dc682ccaf01fd9ac17 (patch) | |
tree | c72d081bda3e79206829665a9fa7835ba6b31822 /Tools/CodeGen/CodeGenCactus.m | |
parent | e4f7a20289f08f6696d09fbb14e9d062a31a348b (diff) |
CodeGenCactus.m: Remove Fortran FD spacing variable initialisation
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)"], |