From 7c501f7b1a37a66326cdf8140b7c91246187156b Mon Sep 17 00:00:00 2001
From: Erik Schnetter <schnetter@gmail.com>
Date: Wed, 2 May 2012 09:04:40 -0400
Subject: Do not generate *_O* and _MP thorns

---
 m/McLachlan_ADMConstraints.m | 20 +++++++++++---------
 m/McLachlan_ADMQuantities.m  | 20 +++++++++++---------
 m/McLachlan_BSSN.m           | 29 ++++++++++++++++-------------
 3 files changed, 38 insertions(+), 31 deletions(-)

(limited to 'm')

diff --git a/m/McLachlan_ADMConstraints.m b/m/McLachlan_ADMConstraints.m
index eaddae6..b096a69 100644
--- a/m/McLachlan_ADMConstraints.m
+++ b/m/McLachlan_ADMConstraints.m
@@ -191,7 +191,7 @@ CreateKrancThornTT [groups, ".", ADMConstraints,
   DeclaredGroups -> declaredGroupNames,
   PartialDerivatives -> derivatives,
   EvolutionTimelevels -> evolutionTimelevels,
-  UseJacobian -> useJacobian,
+  UseJacobian -> True,
   UseLoopControl -> True,
   InheritedImplementations -> inheritedImplementations
 ];
@@ -204,13 +204,15 @@ CreateKrancThornTT [groups, ".", ADMConstraints,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+*)
 
-createCode[2, False, 3, 1];
+(* createCode[2, False, 3, 1]; *)
 createCode[4, False, 3, 1];
-createCode[4, True,  3, 1];
+(* createCode[4, True,  3, 1]; *)
diff --git a/m/McLachlan_ADMQuantities.m b/m/McLachlan_ADMQuantities.m
index 2f78d56..e76b63d 100644
--- a/m/McLachlan_ADMQuantities.m
+++ b/m/McLachlan_ADMQuantities.m
@@ -308,7 +308,7 @@ CreateKrancThornTT [groups, ".", ADMQuantities,
   DeclaredGroups -> declaredGroupNames,
   PartialDerivatives -> derivatives,
   EvolutionTimelevels -> evolutionTimelevels,
-  UseJacobian -> useJacobian,
+  UseJacobian -> True,
   UseLoopControl -> True,
   InheritedImplementations -> inheritedImplementations,
   IntParameters -> intParameters
@@ -322,13 +322,15 @@ CreateKrancThornTT [groups, ".", ADMQuantities,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+*)
 
-createCode[2, False, 3, 1];
+(* createCode[2, False, 3, 1]; *)
 createCode[4, False, 3, 1];
-createCode[4, True,  3, 1];
+(* createCode[4, True,  3, 1]; *)
diff --git a/m/McLachlan_BSSN.m b/m/McLachlan_BSSN.m
index fa8e79c..1ac8816 100644
--- a/m/McLachlan_BSSN.m
+++ b/m/McLachlan_BSSN.m
@@ -1418,19 +1418,22 @@ CreateKrancThornTT [groups, ".", thorn,
 (* Options *)
 (******************************************************************************)
 
-(* derivative order: 2, 4, 6, 8, ... *)
-(* useJacobian: False or True *)
-(* split upwind derivatives: False or True *)
-(* timelevels: 2 or 3
-   (keep this at 3; this is better chosen with a run-time parameter) *)
-(* matter: 0 or 1
-   (matter seems cheap; it should be always enabled) *)
-
-createCode[2, False, True , 3, 1, "BSSN"];
+(* These are the arguments to createCode:
+   - derivative order: 2, 4, 6, 8, ...
+   - useJacobian: False or True
+   - split upwind derivatives: False or True
+   - timelevels: 2 or 3
+     (keep this at 3; this is better chosen with a run-time parameter)
+   - matter: 0 or 1
+     (matter seems cheap; it should be always enabled)
+   - thorn base name
+*)
+
+(* createCode[2, False, True , 3, 1, "BSSN"]; *)
 createCode[4, False, True , 3, 1, "BSSN"];
-createCode[4, False, False, 3, 1, "BSSN"];
-createCode[4, True , True , 3, 1, "BSSN"];
-createCode[8, False, True , 3, 1, "BSSN"];
-createCode[8, True , True , 3, 1, "BSSN"];
+(* createCode[4, False, False, 3, 1, "BSSN"]; *)
+(* createCode[4, True , True , 3, 1, "BSSN"]; *)
+(* createCode[8, False, True , 3, 1, "BSSN"]; *)
+(* createCode[8, True , True , 3, 1, "BSSN"]; *)
 
 createCode[4, False, True , 3, 1, "CCZ4"];
-- 
cgit v1.2.3