diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:45:53 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-05 19:45:53 +0200 |
commit | 1452be313bac1c3056021e5c675ee02878e2ef74 (patch) | |
tree | dec428928ea5259265400f78eea84925202fdae3 /Tests | |
parent | bbd031f9f8b8e787ca38b48002db54dfcf50d1f4 (diff) |
McLachlan.mt: Add OpenCL test
Diffstat (limited to 'Tests')
-rw-r--r-- | Tests/McLachlan.mt | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/Tests/McLachlan.mt b/Tests/McLachlan.mt index 35a23a3..ab395e6 100644 --- a/Tests/McLachlan.mt +++ b/Tests/McLachlan.mt @@ -8,7 +8,7 @@ SetSourceLanguage["C"]; (* Options *) (******************************************************************************) -createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_, vectorise_] := +createCode[derivOrder_, useJacobian_, splitUpwindDerivs_, evolutionTimelevels_, addMatter_, formulation_, vectorise_, opencl_] := Module[{prefix, suffix, thorn}, prefix = "ML_"; @@ -16,6 +16,7 @@ suffix = "" <> If [useJacobian, "_MP", ""] <> If [!vectorise, "_NoVec", ""] + <> If [opencl, "_OpenCL", ""] <> If [derivOrder!=4, "_O" <> ToString[derivOrder], ""] <> If [splitUpwindDerivs, "", "_UPW"] (* <> If [evolutionTimelevels!=3, "_TL" <> ToString[evolutionTimelevels], ""] *) @@ -1405,6 +1406,7 @@ CreateKrancThornTT [groups, "TestThorns", thorn, UseJacobian -> True, UseLoopControl -> True, UseVectors -> vectorise, + UseOpenCL -> opencl, InheritedImplementations -> inheritedImplementations, InheritedKeywordParameters -> inheritedKeywordParameters, ExtendedKeywordParameters -> extendedKeywordParameters, @@ -1433,10 +1435,11 @@ CreateKrancThornTT [groups, "TestThorns", thorn, (matter seems cheap; it should be always enabled) - thorn base name - vectorise + - opencl *) Test[ - createCode[4, False, True , 3, 1, "BSSN", True]; + createCode[4, False, True , 3, 1, "BSSN", True, False]; , Null , @@ -1444,9 +1447,17 @@ Test[ ] Test[ - createCode[4, False, True , 3, 1, "BSSN", False]; + createCode[4, False, True , 3, 1, "BSSN", False, False]; , Null , TestID->"McLachlanNoVec" ] + +Test[ + createCode[4, False, True , 3, 1, "BSSN", True, True]; + , + Null + , + TestID->"McLachlanOpenCL" +] |