diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:53:17 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:53:17 +0200 |
commit | 56b67942fc783fc984eb11302198e685f064d920 (patch) | |
tree | 58261cec255f34fd451612348704fb9bdb98b4b2 /Tests | |
parent | 1452be313bac1c3056021e5c675ee02878e2ef74 (diff) |
McLachlan.mt: Add DGFE test
Diffstat (limited to 'Tests')
-rw-r--r-- | Tests/McLachlan.mt | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Tests/McLachlan.mt b/Tests/McLachlan.mt index ab395e6..d4448b0 100644 --- a/Tests/McLachlan.mt +++ b/Tests/McLachlan.mt @@ -8,7 +8,9 @@ SetSourceLanguage["C"]; (* Options *) (******************************************************************************) -createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_, vectorise_, opencl_] := +Options[createCode] = {"DGFE" -> False}; + +createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_, vectorise_, opencl_, OptionsPattern[]] := Module[{prefix, suffix, thorn}, prefix = "ML_"; @@ -17,6 +19,7 @@ suffix = <> If [useJacobian, "_MP", ""] <> If [!vectorise, "_NoVec", ""] <> If [opencl, "_OpenCL", ""] + <> If [OptionValue[DGFE], "_DGFE", ""] <> If [derivOrder!=4, "_O" <> ToString[derivOrder], ""] <> If [splitUpwindDerivs, "", "_UPW"] (* <> If [evolutionTimelevels!=3, "_TL" <> ToString[evolutionTimelevels], ""] *) @@ -1407,6 +1410,7 @@ CreateKrancThornTT [groups, "TestThorns", thorn, UseLoopControl -> True, UseVectors -> vectorise, UseOpenCL -> opencl, + UseDGFE -> OptionValue[DGFE], InheritedImplementations -> inheritedImplementations, InheritedKeywordParameters -> inheritedKeywordParameters, ExtendedKeywordParameters -> extendedKeywordParameters, @@ -1461,3 +1465,12 @@ Test[ , TestID->"McLachlanOpenCL" ] + +Test[ + createCode[4, False, True , 3, 1, "BSSN", True, False, DGFE -> True]; + , + Null + , + TestID->"McLachlanDGFE" +] + |