diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-07-03 23:07:56 +0200 |
|---|---|---|
| committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-07-03 23:07:56 +0200 |
| commit | 4c1c8380bb17b075f59f636492bed2d6c644046b (patch) | |
| tree | 82aa55429321233896f952d91ff7c65b1236ea1c | |
| parent | 83f09cb5384e902bb43ce07b0c3ee9f6acba3f61 (diff) | |
Register ADM variables as constrained variables, so that MoL copies them
before the first time step if they have multiple time levels.
209 files changed, 796 insertions, 478 deletions
diff --git a/ML_ADM/configuration.ccl b/ML_ADM/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_ADM/configuration.ccl +++ b/ML_ADM/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/interface.ccl b/ML_ADM/interface.ccl index 49172b8..b59be52 100644 --- a/ML_ADM/interface.ccl +++ b/ML_ADM/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/param.ccl b/ML_ADM/param.ccl index 91ffeb8..55eee02 100644 --- a/ML_ADM/param.ccl +++ b/ML_ADM/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/schedule.ccl b/ML_ADM/schedule.ccl index 4f18f49..6fe88ce 100644 --- a/ML_ADM/schedule.ccl +++ b/ML_ADM/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/src/Boundaries.c b/ML_ADM/src/Boundaries.c index 68ddc66..1be5d43 100644 --- a/ML_ADM/src/Boundaries.c +++ b/ML_ADM/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_Minkowski.c b/ML_ADM/src/ML_ADM_Minkowski.c index 3d64a9a..829a327 100644 --- a/ML_ADM/src/ML_ADM_Minkowski.c +++ b/ML_ADM/src/ML_ADM_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_RHS.c b/ML_ADM/src/ML_ADM_RHS.c index 5f0f51c..2db384e 100644 --- a/ML_ADM/src/ML_ADM_RHS.c +++ b/ML_ADM/src/ML_ADM_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_boundary.c b/ML_ADM/src/ML_ADM_boundary.c index d2ee732..00663d9 100644 --- a/ML_ADM/src/ML_ADM_boundary.c +++ b/ML_ADM/src/ML_ADM_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_constraints.c b/ML_ADM/src/ML_ADM_constraints.c index fe54f0d..d944da7 100644 --- a/ML_ADM/src/ML_ADM_constraints.c +++ b/ML_ADM/src/ML_ADM_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_constraints_boundary.c b/ML_ADM/src/ML_ADM_constraints_boundary.c index 565667e..1c66e36 100644 --- a/ML_ADM/src/ML_ADM_constraints_boundary.c +++ b/ML_ADM/src/ML_ADM_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.c b/ML_ADM/src/ML_ADM_convertFromADMBase.c index 84fc4eb..6131bd5 100644 --- a/ML_ADM/src/ML_ADM_convertFromADMBase.c +++ b/ML_ADM/src/ML_ADM_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.c b/ML_ADM/src/ML_ADM_convertToADMBase.c index 360dc7b..5e5ba1a 100644 --- a/ML_ADM/src/ML_ADM_convertToADMBase.c +++ b/ML_ADM/src/ML_ADM_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/RegisterMoL.c b/ML_ADM/src/RegisterMoL.c index 5921f17..ed378fc 100644 --- a/ML_ADM/src/RegisterMoL.c +++ b/ML_ADM/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/RegisterSymmetries.c b/ML_ADM/src/RegisterSymmetries.c index bb35307..ea1cb55 100644 --- a/ML_ADM/src/RegisterSymmetries.c +++ b/ML_ADM/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/Startup.c b/ML_ADM/src/Startup.c index f2fc60b..9837d37 100644 --- a/ML_ADM/src/Startup.c +++ b/ML_ADM/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/make.code.defn b/ML_ADM/src/make.code.defn index 5143870..42afc5b 100644 --- a/ML_ADM/src/make.code.defn +++ b/ML_ADM/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/configuration.ccl b/ML_BSSN/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSN/configuration.ccl +++ b/ML_BSSN/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/interface.ccl b/ML_BSSN/interface.ccl index bc4e88e..513ce9b 100644 --- a/ML_BSSN/interface.ccl +++ b/ML_BSSN/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/param.ccl b/ML_BSSN/param.ccl index 82a9c5a..13f1021 100644 --- a/ML_BSSN/param.ccl +++ b/ML_BSSN/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/schedule.ccl b/ML_BSSN/schedule.ccl index 7be8894..8d876f3 100644 --- a/ML_BSSN/schedule.ccl +++ b/ML_BSSN/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/src/Boundaries.c b/ML_BSSN/src/Boundaries.c index 064b986..f263562 100644 --- a/ML_BSSN/src/Boundaries.c +++ b/ML_BSSN/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c index f05b562..057fc23 100644 --- a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c +++ b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.c b/ML_BSSN/src/ML_BSSN_Minkowski.c index 8102b86..dbf3dc3 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.c +++ b/ML_BSSN/src/ML_BSSN_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c index c0b5e0f..2f3c6ad 100644 --- a/ML_BSSN/src/ML_BSSN_RHS.c +++ b/ML_BSSN/src/ML_BSSN_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_RHSBoundary.c b/ML_BSSN/src/ML_BSSN_RHSBoundary.c index 5c37c4e..a6ffb7d 100644 --- a/ML_BSSN/src/ML_BSSN_RHSBoundary.c +++ b/ML_BSSN/src/ML_BSSN_RHSBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_boundary.c b/ML_BSSN/src/ML_BSSN_boundary.c index 2ece92a..c5b81a5 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.c +++ b/ML_BSSN/src/ML_BSSN_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c index 79592f8..0bdc9d3 100644 --- a/ML_BSSN/src/ML_BSSN_constraints.c +++ b/ML_BSSN/src/ML_BSSN_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_constraints_boundary.c b/ML_BSSN/src/ML_BSSN_constraints_boundary.c index a82a474..81a41c9 100644 --- a/ML_BSSN/src/ML_BSSN_constraints_boundary.c +++ b/ML_BSSN/src/ML_BSSN_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c index f21583f..17ec4c9 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c index 3edefdb..beafc48 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.c b/ML_BSSN/src/ML_BSSN_convertToADMBase.c index 72f4a09..49132cf 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/ML_BSSN_enforce.c b/ML_BSSN/src/ML_BSSN_enforce.c index 79cd691..20cb031 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.c +++ b/ML_BSSN/src/ML_BSSN_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/RegisterMoL.c b/ML_BSSN/src/RegisterMoL.c index 5d2feac..99a9553 100644 --- a/ML_BSSN/src/RegisterMoL.c +++ b/ML_BSSN/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/RegisterSymmetries.c b/ML_BSSN/src/RegisterSymmetries.c index eddc61a..51a1e62 100644 --- a/ML_BSSN/src/RegisterSymmetries.c +++ b/ML_BSSN/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/Startup.c b/ML_BSSN/src/Startup.c index c0fbc17..e3f9537 100644 --- a/ML_BSSN/src/Startup.c +++ b/ML_BSSN/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/make.code.defn b/ML_BSSN/src/make.code.defn index 3c8ac71..d0e6516 100644 --- a/ML_BSSN/src/make.code.defn +++ b/ML_BSSN/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6/configuration.ccl b/ML_BSSN6/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSN6/configuration.ccl +++ b/ML_BSSN6/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6/interface.ccl b/ML_BSSN6/interface.ccl index 4a54e40..7a6c933 100644 --- a/ML_BSSN6/interface.ccl +++ b/ML_BSSN6/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6/param.ccl b/ML_BSSN6/param.ccl index 62d3571..ae45644 100644 --- a/ML_BSSN6/param.ccl +++ b/ML_BSSN6/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6/schedule.ccl b/ML_BSSN6/schedule.ccl index bc2cbfa..aae66ec 100644 --- a/ML_BSSN6/schedule.ccl +++ b/ML_BSSN6/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6/src/Boundaries.c b/ML_BSSN6/src/Boundaries.c index f3c6ba3..080769f 100644 --- a/ML_BSSN6/src/Boundaries.c +++ b/ML_BSSN6/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_ADMBaseBoundary.c b/ML_BSSN6/src/ML_BSSN6_ADMBaseBoundary.c index dda1c0b..28075b9 100644 --- a/ML_BSSN6/src/ML_BSSN6_ADMBaseBoundary.c +++ b/ML_BSSN6/src/ML_BSSN6_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_Minkowski.c b/ML_BSSN6/src/ML_BSSN6_Minkowski.c index e625668..f0103ba 100644 --- a/ML_BSSN6/src/ML_BSSN6_Minkowski.c +++ b/ML_BSSN6/src/ML_BSSN6_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_RHS.c b/ML_BSSN6/src/ML_BSSN6_RHS.c index 76546b2..57d5bba 100644 --- a/ML_BSSN6/src/ML_BSSN6_RHS.c +++ b/ML_BSSN6/src/ML_BSSN6_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_boundary.c b/ML_BSSN6/src/ML_BSSN6_boundary.c index 92fad12..c4da8a1 100644 --- a/ML_BSSN6/src/ML_BSSN6_boundary.c +++ b/ML_BSSN6/src/ML_BSSN6_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_constraints.c b/ML_BSSN6/src/ML_BSSN6_constraints.c index b4491f1..06d69e7 100644 --- a/ML_BSSN6/src/ML_BSSN6_constraints.c +++ b/ML_BSSN6/src/ML_BSSN6_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_constraints_boundary.c b/ML_BSSN6/src/ML_BSSN6_constraints_boundary.c index 5255b8e..68b3d4a 100644 --- a/ML_BSSN6/src/ML_BSSN6_constraints_boundary.c +++ b/ML_BSSN6/src/ML_BSSN6_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_convertFromADMBase.c b/ML_BSSN6/src/ML_BSSN6_convertFromADMBase.c index 8e08634..c7fd1ae 100644 --- a/ML_BSSN6/src/ML_BSSN6_convertFromADMBase.c +++ b/ML_BSSN6/src/ML_BSSN6_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_convertFromADMBaseGamma.c b/ML_BSSN6/src/ML_BSSN6_convertFromADMBaseGamma.c index fe91459..386790f 100644 --- a/ML_BSSN6/src/ML_BSSN6_convertFromADMBaseGamma.c +++ b/ML_BSSN6/src/ML_BSSN6_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_convertToADMBase.c b/ML_BSSN6/src/ML_BSSN6_convertToADMBase.c index 66488ad..977bd91 100644 --- a/ML_BSSN6/src/ML_BSSN6_convertToADMBase.c +++ b/ML_BSSN6/src/ML_BSSN6_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/ML_BSSN6_enforce.c b/ML_BSSN6/src/ML_BSSN6_enforce.c index d9419df..bcbe385 100644 --- a/ML_BSSN6/src/ML_BSSN6_enforce.c +++ b/ML_BSSN6/src/ML_BSSN6_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/RegisterMoL.c b/ML_BSSN6/src/RegisterMoL.c index b72e28b..ddf1249 100644 --- a/ML_BSSN6/src/RegisterMoL.c +++ b/ML_BSSN6/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/RegisterSymmetries.c b/ML_BSSN6/src/RegisterSymmetries.c index b63a950..72e50c7 100644 --- a/ML_BSSN6/src/RegisterSymmetries.c +++ b/ML_BSSN6/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/Startup.c b/ML_BSSN6/src/Startup.c index 41945d7..eb6c71a 100644 --- a/ML_BSSN6/src/Startup.c +++ b/ML_BSSN6/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN6/src/make.code.defn b/ML_BSSN6/src/make.code.defn index b1636b4..b874f85 100644 --- a/ML_BSSN6/src/make.code.defn +++ b/ML_BSSN6/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN6_Helper/param.ccl b/ML_BSSN6_Helper/param.ccl index 3ca305e..3c374fe 100644 --- a/ML_BSSN6_Helper/param.ccl +++ b/ML_BSSN6_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSN6 USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSN6_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSN6_Helper/schedule.ccl b/ML_BSSN6_Helper/schedule.ccl index 3028473..99f7fad 100644 --- a/ML_BSSN6_Helper/schedule.ccl +++ b/ML_BSSN6_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN6")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSN6_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSN6_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN6")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSN6_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSN6_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSN6_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN6_ApplyBCs ML_BSSN6_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSN6_Helper/src/RegisterConstrained.c b/ML_BSSN6_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..c9b39d6 --- /dev/null +++ b/ML_BSSN6_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSN6_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSN6_Helper/src/make.code.defn b/ML_BSSN6_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSN6_Helper/src/make.code.defn +++ b/ML_BSSN6_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_BSSNUp/configuration.ccl b/ML_BSSNUp/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSNUp/configuration.ccl +++ b/ML_BSSNUp/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNUp/interface.ccl b/ML_BSSNUp/interface.ccl index 6837735..943ec3e 100644 --- a/ML_BSSNUp/interface.ccl +++ b/ML_BSSNUp/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNUp/param.ccl b/ML_BSSNUp/param.ccl index 2d109a6..8f771d4 100644 --- a/ML_BSSNUp/param.ccl +++ b/ML_BSSNUp/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNUp/schedule.ccl b/ML_BSSNUp/schedule.ccl index 12f0213..c45eb87 100644 --- a/ML_BSSNUp/schedule.ccl +++ b/ML_BSSNUp/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNUp/src/Boundaries.c b/ML_BSSNUp/src/Boundaries.c index 664dd8a..3c69a2d 100644 --- a/ML_BSSNUp/src/Boundaries.c +++ b/ML_BSSNUp/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNUp/src/ML_BSSNUp_ADMBaseBoundary.c b/ML_BSSNUp/src/ML_BSSNUp_ADMBaseBoundary.c index 5720210..f81e08f 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_ADMBaseBoundary.c +++ b/ML_BSSNUp/src/ML_BSSNUp_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_Minkowski.c b/ML_BSSNUp/src/ML_BSSNUp_Minkowski.c index 0ec4ace..929eaee 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_Minkowski.c +++ b/ML_BSSNUp/src/ML_BSSNUp_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_RHS.c b/ML_BSSNUp/src/ML_BSSNUp_RHS.c index f89a228..38c59ff 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_RHS.c +++ b/ML_BSSNUp/src/ML_BSSNUp_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT c CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT c pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_boundary.c b/ML_BSSNUp/src/ML_BSSNUp_boundary.c index 2c6ad69..1f5f30b 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_boundary.c +++ b/ML_BSSNUp/src/ML_BSSNUp_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_constraints.c b/ML_BSSNUp/src/ML_BSSNUp_constraints.c index fd95586..d81bf8f 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_constraints.c +++ b/ML_BSSNUp/src/ML_BSSNUp_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CC CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CC pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_constraints_boundary.c b/ML_BSSNUp/src/ML_BSSNUp_constraints_boundary.c index f952b1b..ba803ac 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_constraints_boundary.c +++ b/ML_BSSNUp/src/ML_BSSNUp_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT cons CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT cons pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBase.c b/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBase.c index 1ff1b11..f3e9acb 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBase.c +++ b/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBaseGamma.c b/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBaseGamma.c index 3aec901..be9d811 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBaseGamma.c +++ b/ML_BSSNUp/src/ML_BSSNUp_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT c CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT c pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_convertToADMBase.c b/ML_BSSNUp/src/ML_BSSNUp_convertToADMBase.c index a6ef633..9233bbf 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_convertToADMBase.c +++ b/ML_BSSNUp/src/ML_BSSNUp_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const di CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const di pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/ML_BSSNUp_enforce.c b/ML_BSSNUp/src/ML_BSSNUp_enforce.c index 0dea46a..651d35f 100644 --- a/ML_BSSNUp/src/ML_BSSNUp_enforce.c +++ b/ML_BSSNUp/src/ML_BSSNUp_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNUp_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29907 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29931 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29955 = INITVALUE; - CCTK_REAL Differencing`Private`liName$29979 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30003 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30027 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23343 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23359 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23375 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23391 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23407 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23423 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNUp_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$29907 = Differencing_Private_num$29907*Differencing_Private_ss$29907*INV(Differencing_Private_den$29907); - Differencing`Private`liName$29931 = Differencing_Private_num$29931*Differencing_Private_ss$29931*INV(Differencing_Private_den$29931); - Differencing`Private`liName$29955 = Differencing_Private_num$29955*Differencing_Private_ss$29955*INV(Differencing_Private_den$29955); - Differencing`Private`liName$29979 = Differencing_Private_num$29979*Differencing_Private_ss$29979*INV(Differencing_Private_den$29979); - Differencing`Private`liName$30003 = Differencing_Private_num$30003*Differencing_Private_ss$30003*INV(Differencing_Private_den$30003); - Differencing`Private`liName$30027 = Differencing_Private_num$30027*Differencing_Private_ss$30027*INV(Differencing_Private_den$30027); + Differencing`Private`liName$23343 = Differencing_Private_num$23343*Differencing_Private_ss$23343*INV(Differencing_Private_den$23343); + Differencing`Private`liName$23359 = Differencing_Private_num$23359*Differencing_Private_ss$23359*INV(Differencing_Private_den$23359); + Differencing`Private`liName$23375 = Differencing_Private_num$23375*Differencing_Private_ss$23375*INV(Differencing_Private_den$23375); + Differencing`Private`liName$23391 = Differencing_Private_num$23391*Differencing_Private_ss$23391*INV(Differencing_Private_den$23391); + Differencing`Private`liName$23407 = Differencing_Private_num$23407*Differencing_Private_ss$23407*INV(Differencing_Private_den$23407); + Differencing`Private`liName$23423 = Differencing_Private_num$23423*Differencing_Private_ss$23423*INV(Differencing_Private_den$23423); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNUp/src/RegisterMoL.c b/ML_BSSNUp/src/RegisterMoL.c index 51d0b6d..1af1141 100644 --- a/ML_BSSNUp/src/RegisterMoL.c +++ b/ML_BSSNUp/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNUp/src/RegisterSymmetries.c b/ML_BSSNUp/src/RegisterSymmetries.c index 995c764..56e931f 100644 --- a/ML_BSSNUp/src/RegisterSymmetries.c +++ b/ML_BSSNUp/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNUp/src/Startup.c b/ML_BSSNUp/src/Startup.c index 0417bfc..53e5132 100644 --- a/ML_BSSNUp/src/Startup.c +++ b/ML_BSSNUp/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNUp/src/make.code.defn b/ML_BSSNUp/src/make.code.defn index 61683b8..ed54dfa 100644 --- a/ML_BSSNUp/src/make.code.defn +++ b/ML_BSSNUp/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNUp_Helper/param.ccl b/ML_BSSNUp_Helper/param.ccl index 8f9b815..7d4632d 100644 --- a/ML_BSSNUp_Helper/param.ccl +++ b/ML_BSSNUp_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSNUp USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSNUp_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSNUp_Helper/schedule.ccl b/ML_BSSNUp_Helper/schedule.ccl index 9574e20..901e59b 100644 --- a/ML_BSSNUp_Helper/schedule.ccl +++ b/ML_BSSNUp_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSNUp")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSNUp_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSNUp_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSNUp")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSNUp_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSNUp_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSNUp_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSNUp_ApplyBCs ML_BSSNUp_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSNUp_Helper/src/RegisterConstrained.c b/ML_BSSNUp_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..2cfcac2 --- /dev/null +++ b/ML_BSSNUp_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSNUp_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSNUp_Helper/src/make.code.defn b/ML_BSSNUp_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSNUp_Helper/src/make.code.defn +++ b/ML_BSSNUp_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_BSSNW/configuration.ccl b/ML_BSSNW/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSNW/configuration.ccl +++ b/ML_BSSNW/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/interface.ccl b/ML_BSSNW/interface.ccl index 1eb7590..b818b24 100644 --- a/ML_BSSNW/interface.ccl +++ b/ML_BSSNW/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/param.ccl b/ML_BSSNW/param.ccl index e90f817..5bf5d99 100644 --- a/ML_BSSNW/param.ccl +++ b/ML_BSSNW/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/schedule.ccl b/ML_BSSNW/schedule.ccl index 540daa7..e243119 100644 --- a/ML_BSSNW/schedule.ccl +++ b/ML_BSSNW/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/src/Boundaries.c b/ML_BSSNW/src/Boundaries.c index 5a061c1..67bd343 100644 --- a/ML_BSSNW/src/Boundaries.c +++ b/ML_BSSNW/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c b/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c index 3880cab..1d610fc 100644 --- a/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c +++ b/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_Minkowski.c b/ML_BSSNW/src/ML_BSSNW_Minkowski.c index ac4707c..27ca579 100644 --- a/ML_BSSNW/src/ML_BSSNW_Minkowski.c +++ b/ML_BSSNW/src/ML_BSSNW_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_RHS.c b/ML_BSSNW/src/ML_BSSNW_RHS.c index 0fdd47f..4ebf4ed 100644 --- a/ML_BSSNW/src/ML_BSSNW_RHS.c +++ b/ML_BSSNW/src/ML_BSSNW_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT co CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT co pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_boundary.c b/ML_BSSNW/src/ML_BSSNW_boundary.c index 20c2cdd..b228ee3 100644 --- a/ML_BSSNW/src/ML_BSSNW_boundary.c +++ b/ML_BSSNW/src/ML_BSSNW_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_constraints.c b/ML_BSSNW/src/ML_BSSNW_constraints.c index 8f6761b..1042b92 100644 --- a/ML_BSSNW/src/ML_BSSNW_constraints.c +++ b/ML_BSSNW/src/ML_BSSNW_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCT CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCT pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c b/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c index 126725c..117f5b9 100644 --- a/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c +++ b/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c b/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c index e1a6b6f..ed3552c 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c +++ b/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const d CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const d pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c b/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c index 2b38795..062c6f0 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c +++ b/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT co CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT co pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c b/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c index 92a6532..181a14e 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c +++ b/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/ML_BSSNW_enforce.c b/ML_BSSNW/src/ML_BSSNW_enforce.c index ebe4d94..55df288 100644 --- a/ML_BSSNW/src/ML_BSSNW_enforce.c +++ b/ML_BSSNW/src/ML_BSSNW_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -46,12 +46,12 @@ void ML_BSSNW_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN CCTK_REAL pm1o12dx2 = INITVALUE; CCTK_REAL pm1o12dy2 = INITVALUE; CCTK_REAL pm1o12dz2 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30259 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30283 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30307 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30331 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30355 = INITVALUE; - CCTK_REAL Differencing`Private`liName$30379 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23695 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23711 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23727 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23743 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23759 = INITVALUE; + CCTK_REAL Differencing`Private`liName$23775 = INITVALUE; if (verbose > 1) { @@ -91,12 +91,12 @@ void ML_BSSNW_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN pm1o12dx2 = -pow(dx,-2)/12.; pm1o12dy2 = -pow(dy,-2)/12.; pm1o12dz2 = -pow(dz,-2)/12.; - Differencing`Private`liName$30259 = Differencing_Private_num$30259*Differencing_Private_ss$30259*INV(Differencing_Private_den$30259); - Differencing`Private`liName$30283 = Differencing_Private_num$30283*Differencing_Private_ss$30283*INV(Differencing_Private_den$30283); - Differencing`Private`liName$30307 = Differencing_Private_num$30307*Differencing_Private_ss$30307*INV(Differencing_Private_den$30307); - Differencing`Private`liName$30331 = Differencing_Private_num$30331*Differencing_Private_ss$30331*INV(Differencing_Private_den$30331); - Differencing`Private`liName$30355 = Differencing_Private_num$30355*Differencing_Private_ss$30355*INV(Differencing_Private_den$30355); - Differencing`Private`liName$30379 = Differencing_Private_num$30379*Differencing_Private_ss$30379*INV(Differencing_Private_den$30379); + Differencing`Private`liName$23695 = Differencing_Private_num$23695*Differencing_Private_ss$23695*INV(Differencing_Private_den$23695); + Differencing`Private`liName$23711 = Differencing_Private_num$23711*Differencing_Private_ss$23711*INV(Differencing_Private_den$23711); + Differencing`Private`liName$23727 = Differencing_Private_num$23727*Differencing_Private_ss$23727*INV(Differencing_Private_den$23727); + Differencing`Private`liName$23743 = Differencing_Private_num$23743*Differencing_Private_ss$23743*INV(Differencing_Private_den$23743); + Differencing`Private`liName$23759 = Differencing_Private_num$23759*Differencing_Private_ss$23759*INV(Differencing_Private_den$23759); + Differencing`Private`liName$23775 = Differencing_Private_num$23775*Differencing_Private_ss$23775*INV(Differencing_Private_den$23775); /* Loop over the grid points */ #pragma omp parallel diff --git a/ML_BSSNW/src/RegisterMoL.c b/ML_BSSNW/src/RegisterMoL.c index cd6617e..8903de5 100644 --- a/ML_BSSNW/src/RegisterMoL.c +++ b/ML_BSSNW/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNW/src/RegisterSymmetries.c b/ML_BSSNW/src/RegisterSymmetries.c index 267aa55..32fcd79 100644 --- a/ML_BSSNW/src/RegisterSymmetries.c +++ b/ML_BSSNW/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNW/src/Startup.c b/ML_BSSNW/src/Startup.c index a11caf1..a210c26 100644 --- a/ML_BSSNW/src/Startup.c +++ b/ML_BSSNW/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNW/src/make.code.defn b/ML_BSSNW/src/make.code.defn index c59ec5d..308f456 100644 --- a/ML_BSSNW/src/make.code.defn +++ b/ML_BSSNW/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW_Helper/param.ccl b/ML_BSSNW_Helper/param.ccl index 29d227a..ac8b7c0 100644 --- a/ML_BSSNW_Helper/param.ccl +++ b/ML_BSSNW_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSNW USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSNW_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSNW_Helper/schedule.ccl b/ML_BSSNW_Helper/schedule.ccl index f01997e..f4e4390 100644 --- a/ML_BSSNW_Helper/schedule.ccl +++ b/ML_BSSNW_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSNW")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSNW_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSNW_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSNW")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSNW_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSNW_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSNW_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSNW_ApplyBCs ML_BSSNW_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSNW_Helper/src/RegisterConstrained.c b/ML_BSSNW_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..e9cb40d --- /dev/null +++ b/ML_BSSNW_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSNW_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSNW_Helper/src/make.code.defn b/ML_BSSNW_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSNW_Helper/src/make.code.defn +++ b/ML_BSSNW_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_BSSN_Helper/param.ccl b/ML_BSSN_Helper/param.ccl index 8669144..605ea7a 100644 --- a/ML_BSSN_Helper/param.ccl +++ b/ML_BSSN_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSN USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSN_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSN_Helper/schedule.ccl b/ML_BSSN_Helper/schedule.ccl index 08c8e1e..a2134a1 100644 --- a/ML_BSSN_Helper/schedule.ccl +++ b/ML_BSSN_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSN_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSN_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSN_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSN_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSN_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_ApplyBCs ML_BSSN_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSN_Helper/src/RegisterConstrained.c b/ML_BSSN_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..e6bdb5a --- /dev/null +++ b/ML_BSSN_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSN_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSN_Helper/src/make.code.defn b/ML_BSSN_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSN_Helper/src/make.code.defn +++ b/ML_BSSN_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_BSSN_M/configuration.ccl b/ML_BSSN_M/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSN_M/configuration.ccl +++ b/ML_BSSN_M/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_M/interface.ccl b/ML_BSSN_M/interface.ccl index c74256d..71b5816 100644 --- a/ML_BSSN_M/interface.ccl +++ b/ML_BSSN_M/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_M/param.ccl b/ML_BSSN_M/param.ccl index 40d9032..ffcf210 100644 --- a/ML_BSSN_M/param.ccl +++ b/ML_BSSN_M/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_M/schedule.ccl b/ML_BSSN_M/schedule.ccl index 0c468db..6479292 100644 --- a/ML_BSSN_M/schedule.ccl +++ b/ML_BSSN_M/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_M/src/Boundaries.c b/ML_BSSN_M/src/Boundaries.c index 5812ddc..4b8bcdb 100644 --- a/ML_BSSN_M/src/Boundaries.c +++ b/ML_BSSN_M/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_ADMBaseBoundary.c b/ML_BSSN_M/src/ML_BSSN_M_ADMBaseBoundary.c index f545b4f..10ca2c7 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_ADMBaseBoundary.c +++ b/ML_BSSN_M/src/ML_BSSN_M_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c b/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c index 6a83a3e..7286bc1 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c +++ b/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_RHS.c b/ML_BSSN_M/src/ML_BSSN_M_RHS.c index 60c3875..73bfcde 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_RHS.c +++ b/ML_BSSN_M/src/ML_BSSN_M_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_RHSBoundary.c b/ML_BSSN_M/src/ML_BSSN_M_RHSBoundary.c index dc85190..c62bf02 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_RHSBoundary.c +++ b/ML_BSSN_M/src/ML_BSSN_M_RHSBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_boundary.c b/ML_BSSN_M/src/ML_BSSN_M_boundary.c index d4310cc..3d0a787 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_boundary.c +++ b/ML_BSSN_M/src/ML_BSSN_M_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_constraints.c b/ML_BSSN_M/src/ML_BSSN_M_constraints.c index 8245683..03cb865 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_constraints.c +++ b/ML_BSSN_M/src/ML_BSSN_M_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_constraints_boundary.c b/ML_BSSN_M/src/ML_BSSN_M_constraints_boundary.c index b985f46..0a83809 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_constraints_boundary.c +++ b/ML_BSSN_M/src/ML_BSSN_M_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c index ebdbecf..449db97 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c +++ b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c index ada9934..3a99b73 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c +++ b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_convertToADMBase.c b/ML_BSSN_M/src/ML_BSSN_M_convertToADMBase.c index 4dd8570..1bee412 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_convertToADMBase.c +++ b/ML_BSSN_M/src/ML_BSSN_M_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/ML_BSSN_M_enforce.c b/ML_BSSN_M/src/ML_BSSN_M_enforce.c index 06f21c3..dbb78a1 100644 --- a/ML_BSSN_M/src/ML_BSSN_M_enforce.c +++ b/ML_BSSN_M/src/ML_BSSN_M_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/RegisterMoL.c b/ML_BSSN_M/src/RegisterMoL.c index 7adac7a..30a031f 100644 --- a/ML_BSSN_M/src/RegisterMoL.c +++ b/ML_BSSN_M/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/RegisterSymmetries.c b/ML_BSSN_M/src/RegisterSymmetries.c index e8a2872..0e46a0c 100644 --- a/ML_BSSN_M/src/RegisterSymmetries.c +++ b/ML_BSSN_M/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/Startup.c b/ML_BSSN_M/src/Startup.c index adcfa32..600e62b 100644 --- a/ML_BSSN_M/src/Startup.c +++ b/ML_BSSN_M/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_M/src/make.code.defn b/ML_BSSN_M/src/make.code.defn index 8e579fd..acc33c5 100644 --- a/ML_BSSN_M/src/make.code.defn +++ b/ML_BSSN_M/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP/configuration.ccl b/ML_BSSN_MP/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_BSSN_MP/configuration.ccl +++ b/ML_BSSN_MP/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP/interface.ccl b/ML_BSSN_MP/interface.ccl index 3776778..9949b9a 100644 --- a/ML_BSSN_MP/interface.ccl +++ b/ML_BSSN_MP/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP/param.ccl b/ML_BSSN_MP/param.ccl index 1c759c2..eec8e48 100644 --- a/ML_BSSN_MP/param.ccl +++ b/ML_BSSN_MP/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP/schedule.ccl b/ML_BSSN_MP/schedule.ccl index 119877e..f29ee48 100644 --- a/ML_BSSN_MP/schedule.ccl +++ b/ML_BSSN_MP/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP/src/Boundaries.c b/ML_BSSN_MP/src/Boundaries.c index 3199b54..f781105 100644 --- a/ML_BSSN_MP/src/Boundaries.c +++ b/ML_BSSN_MP/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_ADMBaseBoundary.c b/ML_BSSN_MP/src/ML_BSSN_MP_ADMBaseBoundary.c index 9fdab3c..19f14a0 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_ADMBaseBoundary.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_ADMBaseBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.c b/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.c index 1dcbad3..2ee26e1 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c b/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c index 925c7a8..2d48f25 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHSBoundary.c b/ML_BSSN_MP/src/ML_BSSN_MP_RHSBoundary.c index 36961f3..1468c9a 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHSBoundary.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHSBoundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.c b/ML_BSSN_MP/src/ML_BSSN_MP_boundary.c index 818b730..671c9e6 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c b/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c index 9ae9a43..309f3b5 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints_boundary.c b/ML_BSSN_MP/src/ML_BSSN_MP_constraints_boundary.c index e711cc4..990fd43 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints_boundary.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_constraints_boundary.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.c b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.c index 3ad0930..bd7330b 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.c b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.c index d409256..9a0a419 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.c b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.c index 5de207a..778f493 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_enforce.c b/ML_BSSN_MP/src/ML_BSSN_MP_enforce.c index 86975b2..9268869 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_enforce.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_enforce.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/RegisterMoL.c b/ML_BSSN_MP/src/RegisterMoL.c index 915ae54..ce091ee 100644 --- a/ML_BSSN_MP/src/RegisterMoL.c +++ b/ML_BSSN_MP/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/RegisterSymmetries.c b/ML_BSSN_MP/src/RegisterSymmetries.c index aa221f0..738f0e2 100644 --- a/ML_BSSN_MP/src/RegisterSymmetries.c +++ b/ML_BSSN_MP/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/Startup.c b/ML_BSSN_MP/src/Startup.c index fef3556..ea3e950 100644 --- a/ML_BSSN_MP/src/Startup.c +++ b/ML_BSSN_MP/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN_MP/src/make.code.defn b/ML_BSSN_MP/src/make.code.defn index 4dfbdb8..32c544f 100644 --- a/ML_BSSN_MP/src/make.code.defn +++ b/ML_BSSN_MP/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN_MP_Helper/param.ccl b/ML_BSSN_MP_Helper/param.ccl index 05396c9..c3bdcc9 100644 --- a/ML_BSSN_MP_Helper/param.ccl +++ b/ML_BSSN_MP_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSN_MP USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSN_MP_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSN_MP_Helper/schedule.ccl b/ML_BSSN_MP_Helper/schedule.ccl index 291d895..f950eaf 100644 --- a/ML_BSSN_MP_Helper/schedule.ccl +++ b/ML_BSSN_MP_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSN_MP_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSN_MP_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSN_MP_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSN_MP_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_MP_ApplyBCs ML_BSSN_MP_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSN_MP_Helper/src/RegisterConstrained.c b/ML_BSSN_MP_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..36948f2 --- /dev/null +++ b/ML_BSSN_MP_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSN_MP_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSN_MP_Helper/src/make.code.defn b/ML_BSSN_MP_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSN_MP_Helper/src/make.code.defn +++ b/ML_BSSN_MP_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_BSSN_M_Helper/param.ccl b/ML_BSSN_M_Helper/param.ccl index 1fbd30e..cc450fe 100644 --- a/ML_BSSN_M_Helper/param.ccl +++ b/ML_BSSN_M_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSN_M USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSN_M_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/ML_BSSN_M_Helper/schedule.ccl b/ML_BSSN_M_Helper/schedule.ccl index 0b26e7f..ae361c6 100644 --- a/ML_BSSN_M_Helper/schedule.ccl +++ b/ML_BSSN_M_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_M")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSN_M_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSN_M_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_M")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSN_M_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSN_M_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_M_ApplyBCs ML_BSSN_M_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/ML_BSSN_M_Helper/src/RegisterConstrained.c b/ML_BSSN_M_Helper/src/RegisterConstrained.c new file mode 100644 index 0000000..8f361f9 --- /dev/null +++ b/ML_BSSN_M_Helper/src/RegisterConstrained.c @@ -0,0 +1,32 @@ +#include <assert.h> +#include <stdlib.h> +#include <string.h> + +#include <cctk.h> +#include <cctk_Arguments.h> + +static void +register_constrained (char const * restrict const gn); + +void +ML_BSSN_M_RegisterConstrained (CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + + register_constrained ("ADMBase::metric"); + register_constrained ("ADMBase::curv"); + register_constrained ("ADMBase::lapse"); + register_constrained ("ADMBase::shift"); + register_constrained ("ADMBase::dtlapse"); + register_constrained ("ADMBase::dtshift"); +} + +static void +register_constrained (char const * restrict const gn) +{ + assert (gn); + + int const gi = CCTK_GroupIndex (gn); + int const ierr = MoLRegisterConstrainedGroup (gi); + assert (! ierr); +} diff --git a/ML_BSSN_M_Helper/src/make.code.defn b/ML_BSSN_M_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/ML_BSSN_M_Helper/src/make.code.defn +++ b/ML_BSSN_M_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c diff --git a/ML_FOWaveToy/configuration.ccl b/ML_FOWaveToy/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_FOWaveToy/configuration.ccl +++ b/ML_FOWaveToy/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/interface.ccl b/ML_FOWaveToy/interface.ccl index db143de..170dfba 100644 --- a/ML_FOWaveToy/interface.ccl +++ b/ML_FOWaveToy/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/param.ccl b/ML_FOWaveToy/param.ccl index cda440f..0aaa794 100644 --- a/ML_FOWaveToy/param.ccl +++ b/ML_FOWaveToy/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/schedule.ccl b/ML_FOWaveToy/schedule.ccl index 4820c7b..4fa2d19 100644 --- a/ML_FOWaveToy/schedule.ccl +++ b/ML_FOWaveToy/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/src/Boundaries.c b/ML_FOWaveToy/src/Boundaries.c index 5a2f13b..eb0aab1 100644 --- a/ML_FOWaveToy/src/Boundaries.c +++ b/ML_FOWaveToy/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/RegisterMoL.c b/ML_FOWaveToy/src/RegisterMoL.c index 0d73a66..77c7c77 100644 --- a/ML_FOWaveToy/src/RegisterMoL.c +++ b/ML_FOWaveToy/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/RegisterSymmetries.c b/ML_FOWaveToy/src/RegisterSymmetries.c index 2e2c505..60d7faf 100644 --- a/ML_FOWaveToy/src/RegisterSymmetries.c +++ b/ML_FOWaveToy/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/Startup.c b/ML_FOWaveToy/src/Startup.c index c7c840d..814a70c 100644 --- a/ML_FOWaveToy/src/Startup.c +++ b/ML_FOWaveToy/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/WTFO_Gaussian.c b/ML_FOWaveToy/src/WTFO_Gaussian.c index e2011d1..2df9ab4 100644 --- a/ML_FOWaveToy/src/WTFO_Gaussian.c +++ b/ML_FOWaveToy/src/WTFO_Gaussian.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/WTFO_RHS.c b/ML_FOWaveToy/src/WTFO_RHS.c index 140043d..ad128e0 100644 --- a/ML_FOWaveToy/src/WTFO_RHS.c +++ b/ML_FOWaveToy/src/WTFO_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/WTFO_constraints.c b/ML_FOWaveToy/src/WTFO_constraints.c index 8b471fa..70f2fb8 100644 --- a/ML_FOWaveToy/src/WTFO_constraints.c +++ b/ML_FOWaveToy/src/WTFO_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/make.code.defn b/ML_FOWaveToy/src/make.code.defn index 4e6c727..97ab1f1 100644 --- a/ML_FOWaveToy/src/make.code.defn +++ b/ML_FOWaveToy/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWavetoy/configuration.ccl b/ML_FOWavetoy/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_FOWavetoy/configuration.ccl +++ b/ML_FOWavetoy/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWavetoy/interface.ccl b/ML_FOWavetoy/interface.ccl index db143de..170dfba 100644 --- a/ML_FOWavetoy/interface.ccl +++ b/ML_FOWavetoy/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWavetoy/param.ccl b/ML_FOWavetoy/param.ccl index cda440f..0aaa794 100644 --- a/ML_FOWavetoy/param.ccl +++ b/ML_FOWavetoy/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWavetoy/schedule.ccl b/ML_FOWavetoy/schedule.ccl index 4820c7b..4fa2d19 100644 --- a/ML_FOWavetoy/schedule.ccl +++ b/ML_FOWavetoy/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWavetoy/src/Boundaries.c b/ML_FOWavetoy/src/Boundaries.c index 5a2f13b..eb0aab1 100644 --- a/ML_FOWavetoy/src/Boundaries.c +++ b/ML_FOWavetoy/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/RegisterMoL.c b/ML_FOWavetoy/src/RegisterMoL.c index 0d73a66..77c7c77 100644 --- a/ML_FOWavetoy/src/RegisterMoL.c +++ b/ML_FOWavetoy/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/RegisterSymmetries.c b/ML_FOWavetoy/src/RegisterSymmetries.c index 2e2c505..60d7faf 100644 --- a/ML_FOWavetoy/src/RegisterSymmetries.c +++ b/ML_FOWavetoy/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/Startup.c b/ML_FOWavetoy/src/Startup.c index c7c840d..814a70c 100644 --- a/ML_FOWavetoy/src/Startup.c +++ b/ML_FOWavetoy/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/WTFO_Gaussian.c b/ML_FOWavetoy/src/WTFO_Gaussian.c index e2011d1..2df9ab4 100644 --- a/ML_FOWavetoy/src/WTFO_Gaussian.c +++ b/ML_FOWavetoy/src/WTFO_Gaussian.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/WTFO_RHS.c b/ML_FOWavetoy/src/WTFO_RHS.c index 140043d..ad128e0 100644 --- a/ML_FOWavetoy/src/WTFO_RHS.c +++ b/ML_FOWavetoy/src/WTFO_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/WTFO_constraints.c b/ML_FOWavetoy/src/WTFO_constraints.c index 8b471fa..70f2fb8 100644 --- a/ML_FOWavetoy/src/WTFO_constraints.c +++ b/ML_FOWavetoy/src/WTFO_constraints.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWavetoy/src/make.code.defn b/ML_FOWavetoy/src/make.code.defn index 4e6c727..97ab1f1 100644 --- a/ML_FOWavetoy/src/make.code.defn +++ b/ML_FOWavetoy/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/configuration.ccl b/ML_WaveToy/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_WaveToy/configuration.ccl +++ b/ML_WaveToy/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/interface.ccl b/ML_WaveToy/interface.ccl index 6037ad5..174f631 100644 --- a/ML_WaveToy/interface.ccl +++ b/ML_WaveToy/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/param.ccl b/ML_WaveToy/param.ccl index 745aaa1..a495760 100644 --- a/ML_WaveToy/param.ccl +++ b/ML_WaveToy/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/schedule.ccl b/ML_WaveToy/schedule.ccl index 9b0da13..26a3d0b 100644 --- a/ML_WaveToy/schedule.ccl +++ b/ML_WaveToy/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/src/Boundaries.c b/ML_WaveToy/src/Boundaries.c index 294f430..6957ec4 100644 --- a/ML_WaveToy/src/Boundaries.c +++ b/ML_WaveToy/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/RegisterMoL.c b/ML_WaveToy/src/RegisterMoL.c index 7d7a356..d5a162a 100644 --- a/ML_WaveToy/src/RegisterMoL.c +++ b/ML_WaveToy/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/RegisterSymmetries.c b/ML_WaveToy/src/RegisterSymmetries.c index 77696e4..533cd5d 100644 --- a/ML_WaveToy/src/RegisterSymmetries.c +++ b/ML_WaveToy/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/Startup.c b/ML_WaveToy/src/Startup.c index 7016d26..b978ac6 100644 --- a/ML_WaveToy/src/Startup.c +++ b/ML_WaveToy/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/WT_Gaussian.c b/ML_WaveToy/src/WT_Gaussian.c index bec7489..13f9395 100644 --- a/ML_WaveToy/src/WT_Gaussian.c +++ b/ML_WaveToy/src/WT_Gaussian.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/WT_RHS.c b/ML_WaveToy/src/WT_RHS.c index 2b96bb3..ae7aaaf 100644 --- a/ML_WaveToy/src/WT_RHS.c +++ b/ML_WaveToy/src/WT_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/make.code.defn b/ML_WaveToy/src/make.code.defn index e88f77e..3ebe867 100644 --- a/ML_WaveToy/src/make.code.defn +++ b/ML_WaveToy/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_hydro/configuration.ccl b/ML_hydro/configuration.ccl index c4e15c5..290ba20 100644 --- a/ML_hydro/configuration.ccl +++ b/ML_hydro/configuration.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_hydro/interface.ccl b/ML_hydro/interface.ccl index 7be6e4a..a0ca7d6 100644 --- a/ML_hydro/interface.ccl +++ b/ML_hydro/interface.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_hydro/param.ccl b/ML_hydro/param.ccl index 92345c7..6d0ec4d 100644 --- a/ML_hydro/param.ccl +++ b/ML_hydro/param.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_hydro/schedule.ccl b/ML_hydro/schedule.ccl index 65fc35b..8cfedc6 100644 --- a/ML_hydro/schedule.ccl +++ b/ML_hydro/schedule.ccl @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_hydro/src/Boundaries.c b/ML_hydro/src/Boundaries.c index 50acde8..de8db23 100644 --- a/ML_hydro/src/Boundaries.c +++ b/ML_hydro/src/Boundaries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/RegisterMoL.c b/ML_hydro/src/RegisterMoL.c index b60060a..99f3312 100644 --- a/ML_hydro/src/RegisterMoL.c +++ b/ML_hydro/src/RegisterMoL.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/RegisterSymmetries.c b/ML_hydro/src/RegisterSymmetries.c index d4a1eb9..2917b7b 100644 --- a/ML_hydro/src/RegisterSymmetries.c +++ b/ML_hydro/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/Startup.c b/ML_hydro/src/Startup.c index 48f88d4..95ce900 100644 --- a/ML_hydro/src/Startup.c +++ b/ML_hydro/src/Startup.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/hydro_RHS.c b/ML_hydro/src/hydro_RHS.c index e063c64..e0b4324 100644 --- a/ML_hydro/src/hydro_RHS.c +++ b/ML_hydro/src/hydro_RHS.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/hydro_con2prim.c b/ML_hydro/src/hydro_con2prim.c index 241b126..ef96f15 100644 --- a/ML_hydro/src/hydro_con2prim.c +++ b/ML_hydro/src/hydro_con2prim.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/hydro_prim2con.c b/ML_hydro/src/hydro_prim2con.c index 4ec32a1..7171e5d 100644 --- a/ML_hydro/src/hydro_prim2con.c +++ b/ML_hydro/src/hydro_prim2con.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/hydro_soundWave.c b/ML_hydro/src/hydro_soundWave.c index 210ecab..bb16ddd 100644 --- a/ML_hydro/src/hydro_soundWave.c +++ b/ML_hydro/src/hydro_soundWave.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/hydro_vacuum.c b/ML_hydro/src/hydro_vacuum.c index fca88f2..5f2759b 100644 --- a/ML_hydro/src/hydro_vacuum.c +++ b/ML_hydro/src/hydro_vacuum.c @@ -1,5 +1,5 @@ /* File produced by user eschnett */ -/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ +/* Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_hydro/src/make.code.defn b/ML_hydro/src/make.code.defn index f7b1c06..170771a 100644 --- a/ML_hydro/src/make.code.defn +++ b/ML_hydro/src/make.code.defn @@ -1,5 +1,5 @@ # File produced by user eschnett -# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) +# Produced with Mathematica Version 7.0 for Mac OS X x86 (64-bit) (February 19, 2009) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/m/prototype/ML_BSSN_Helper/param.ccl b/m/prototype/ML_BSSN_Helper/param.ccl index 8669144..605ea7a 100644 --- a/m/prototype/ML_BSSN_Helper/param.ccl +++ b/m/prototype/ML_BSSN_Helper/param.ccl @@ -1,3 +1,7 @@ +SHARES: MethodofLines + +USES CCTK_INT MoL_Num_Constrained_Vars + SHARES: ADMBase USES KEYWORD evolution_method @@ -10,3 +14,10 @@ SHARES: ML_BSSN USES CCTK_INT timelevels USES KEYWORD calculate_ADMBase_variables_at + +PRIVATE: + +CCTK_INT ML_BSSN_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars +{ + 20:20 :: "Number of constrained variables used by this thorn" +} 20 diff --git a/m/prototype/ML_BSSN_Helper/schedule.ccl b/m/prototype/ML_BSSN_Helper/schedule.ccl index 08c8e1e..a2134a1 100644 --- a/m/prototype/ML_BSSN_Helper/schedule.ccl +++ b/m/prototype/ML_BSSN_Helper/schedule.ccl @@ -35,6 +35,12 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) { OPTIONS: meta } "Don't checkpoint ADMBase variables" + SCHEDULE ML_BSSN_RegisterConstrained IN MoL_Register + { + LANG: C + OPTIONS: meta + } "Register ADMBase variables as constrained" + SCHEDULE GROUP ML_BSSN_evolCalcGroup IN MoL_CalcRHS @@ -62,13 +68,13 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - if (timelevels > 1) - { - SCHEDULE ML_BSSN_CopyADMBase AT CCTK_PRESTEP - { - LANG: C - } "Copy ADMBase variables to current time level" - } + # if (timelevels > 1) + # { + # SCHEDULE ML_BSSN_CopyADMBase AT CCTK_PRESTEP + # { + # LANG: C + # } "Copy ADMBase variables to current time level" + # } SCHEDULE GROUP ML_BSSN_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_ApplyBCs ML_BSSN_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) { } "Calculate ADM variables" diff --git a/m/prototype/ML_BSSN_Helper/src/make.code.defn b/m/prototype/ML_BSSN_Helper/src/make.code.defn index 86aceb8..dcfe66e 100644 --- a/m/prototype/ML_BSSN_Helper/src/make.code.defn +++ b/m/prototype/ML_BSSN_Helper/src/make.code.defn @@ -1,2 +1,3 @@ # -*-Makefile-*- -SRCS = CopyADMBase.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +SRCS = RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c +# CopyADMBase.c |