diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:41:18 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:41:18 +0200 |
| commit | bbd031f9f8b8e787ca38b48002db54dfcf50d1f4 (patch) | |
| tree | 439d0282db1875af1212b405295f34eaac236638 /Tests | |
| parent | 43fb95a52d54e99879985293b1a5371e96f07d6e (diff) | |
McLachlan.mt: Add unvectorised test
Diffstat (limited to 'Tests')
| -rw-r--r-- | Tests/McLachlan.mt | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/Tests/McLachlan.mt b/Tests/McLachlan.mt index bfa4ba5..35a23a3 100644 --- a/Tests/McLachlan.mt +++ b/Tests/McLachlan.mt @@ -8,13 +8,14 @@ SetSourceLanguage["C"]; (* Options *) (******************************************************************************) -createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_] := +createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_, vectorise_] := Module[{prefix, suffix, thorn}, prefix = "ML_"; suffix = "" <> If [useJacobian, "_MP", ""] + <> If [!vectorise, "_NoVec", ""] <> If [derivOrder!=4, "_O" <> ToString[derivOrder], ""] <> If [splitUpwindDerivs, "", "_UPW"] (* <> If [evolutionTimelevels!=3, "_TL" <> ToString[evolutionTimelevels], ""] *) @@ -1403,7 +1404,7 @@ CreateKrancThornTT [groups, "TestThorns", thorn, DefaultEvolutionTimelevels -> 3, UseJacobian -> True, UseLoopControl -> True, - UseVectors -> True, + UseVectors -> vectorise, InheritedImplementations -> inheritedImplementations, InheritedKeywordParameters -> inheritedKeywordParameters, ExtendedKeywordParameters -> extendedKeywordParameters, @@ -1418,8 +1419,6 @@ CreateKrancThornTT [groups, "TestThorns", thorn, (* McLachlan *) (****************************************************************) -Test[ - (******************************************************************************) (* Options *) (******************************************************************************) @@ -1433,12 +1432,21 @@ Test[ - matter: 0 or 1 (matter seems cheap; it should be always enabled) - thorn base name + - vectorise *) -createCode[4, False, True , 3, 1, "BSSN"]; -(* createCode[4, False, True , 3, 1, "CCZ4"]; *) - , - Null - , - TestID->"McLachlan" +Test[ + createCode[4, False, True , 3, 1, "BSSN", True]; + , + Null + , + TestID->"McLachlanVec" +] + +Test[ + createCode[4, False, True , 3, 1, "BSSN", False]; + , + Null + , + TestID->"McLachlanNoVec" ] |