diff options
author | Peter Diener <diener@diener-3.lsu.edu> | 2008-02-18 17:35:29 -0600 |
---|---|---|
committer | Peter Diener <diener@diener-3.lsu.edu> | 2008-02-18 17:35:29 -0600 |
commit | 57f92d6d38ca670683493464c57b179cad0286e7 (patch) | |
tree | e33d2faed0fa88af28f6defa44dff5436bd5a535 | |
parent | efc4a186eed598e64856e8d0e740e2cbf295e401 (diff) |
dummy merge
dummy merge
Signed-off-by: Peter Diener <diener@diener-3.lsu.edu>
-rw-r--r-- | ML_ADM/interface.ccl | 4 | ||||
-rw-r--r-- | ML_BSSN/interface.ccl | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/configuration.ccl | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/interface.ccl | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/param.ccl | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/schedule.ccl | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/Boundaries.c | 180 | ||||
-rw-r--r-- | ML_FOWaveToy/src/RegisterMoL.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/RegisterSymmetries.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/Startup.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/WTFO_Gaussian.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/WTFO_RHS.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/WTFO_constraints.c | 4 | ||||
-rw-r--r-- | ML_FOWaveToy/src/make.code.defn | 4 | ||||
-rw-r--r-- | ML_WaveToy/configuration.ccl | 4 | ||||
-rw-r--r-- | ML_WaveToy/interface.ccl | 4 | ||||
-rw-r--r-- | ML_WaveToy/param.ccl | 4 | ||||
-rw-r--r-- | ML_WaveToy/schedule.ccl | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/Boundaries.c | 92 | ||||
-rw-r--r-- | ML_WaveToy/src/RegisterMoL.c | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/RegisterSymmetries.c | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/Startup.c | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/WT_Gaussian.c | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/WT_RHS.c | 4 | ||||
-rw-r--r-- | ML_WaveToy/src/make.code.defn | 4 |
25 files changed, 172 insertions, 192 deletions
diff --git a/ML_ADM/interface.ccl b/ML_ADM/interface.ccl index c664e3a..305c740 100644 --- a/ML_ADM/interface.ccl +++ b/ML_ADM/interface.ccl @@ -9,7 +9,9 @@ inherits: ADMBase TmunuBase Grid GenericFD Boundary -USES INCLUDE: GenericFD.hSymmetry.hsbp_calc_coeffs.h +USES INCLUDE: GenericFD.h +USES INCLUDE: Symmetry.h +USES INCLUDE: sbp_calc_coeffs.h USES INCLUDE: Boundary.h USES INCLUDE: loopcontrol.h diff --git a/ML_BSSN/interface.ccl b/ML_BSSN/interface.ccl index 9e38ee0..ea46ba0 100644 --- a/ML_BSSN/interface.ccl +++ b/ML_BSSN/interface.ccl @@ -9,7 +9,9 @@ inherits: ADMBase TmunuBase Grid GenericFD Boundary -USES INCLUDE: GenericFD.hSymmetry.hsbp_calc_coeffs.h +USES INCLUDE: GenericFD.h +USES INCLUDE: Symmetry.h +USES INCLUDE: sbp_calc_coeffs.h USES INCLUDE: Boundary.h USES INCLUDE: loopcontrol.h diff --git a/ML_FOWaveToy/configuration.ccl b/ML_FOWaveToy/configuration.ccl index f772d68..b343426 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/interface.ccl b/ML_FOWaveToy/interface.ccl index 05ae84b..65b68bf 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/param.ccl b/ML_FOWaveToy/param.ccl index 3066b49..884e9d5 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/schedule.ccl b/ML_FOWaveToy/schedule.ccl index 7703b78..3f1ca29 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_FOWaveToy/src/Boundaries.c b/ML_FOWaveToy/src/Boundaries.c index b368a8c..85e7466 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -43,7 +43,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::WT_rho", WT_rho_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_rho_bound BC for ML_FOWaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register WT_rho_bound BC for ML_FOWaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "none" ) || @@ -54,7 +54,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::WT_u", WT_u_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_u_bound BC for ML_FOWaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register WT_u_bound BC for ML_FOWaveToy::WT_u!"); } if (CCTK_EQUALS(WT_v_bound, "none" ) || @@ -65,7 +65,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::WT_v", WT_v_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_v_bound BC for ML_FOWaveToy::WT_v!"); + CCTK_WARN(-1, "Failed to register WT_v_bound BC for ML_FOWaveToy::WT_v!"); } if (CCTK_EQUALS(rho_bound, "none" ) || @@ -76,7 +76,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::rho", rho_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register rho_bound BC for ML_FOWaveToy::rho!"); + CCTK_WARN(-1, "Failed to register rho_bound BC for ML_FOWaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "none" ) || @@ -87,7 +87,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::u", u_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register u_bound BC for ML_FOWaveToy::u!"); + CCTK_WARN(-1, "Failed to register u_bound BC for ML_FOWaveToy::u!"); } if (CCTK_EQUALS(v1_bound, "none" ) || @@ -98,7 +98,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::v1", v1_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register v1_bound BC for ML_FOWaveToy::v1!"); + CCTK_WARN(-1, "Failed to register v1_bound BC for ML_FOWaveToy::v1!"); } if (CCTK_EQUALS(v2_bound, "none" ) || @@ -109,7 +109,7 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::v2", v2_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register v2_bound BC for ML_FOWaveToy::v2!"); + CCTK_WARN(-1, "Failed to register v2_bound BC for ML_FOWaveToy::v2!"); } if (CCTK_EQUALS(v3_bound, "none" ) || @@ -120,294 +120,278 @@ void ML_FOWaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_FOWaveToy::v3", v3_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register v3_bound BC for ML_FOWaveToy::v3!"); + CCTK_WARN(-1, "Failed to register v3_bound BC for ML_FOWaveToy::v3!"); } if (CCTK_EQUALS(WT_rho_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, "ML_FOWaveToy::WT_rho", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, "ML_FOWaveToy::WT_u", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::WT_u!"); } if (CCTK_EQUALS(WT_v_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_WT_v_bound = -1; - if (handle_WT_v_bound < 0) handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_v_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_v_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_v_bound , WT_v_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_WT_v_bound ,WT_v_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_v_bound, "ML_FOWaveToy::WT_v", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::WT_v!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::WT_v!"); } if (CCTK_EQUALS(rho_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, "ML_FOWaveToy::rho", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::rho!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, "ML_FOWaveToy::u", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::u!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::u!"); } if (CCTK_EQUALS(v1_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_v1_bound = -1; - if (handle_v1_bound < 0) handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v1_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v1_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v1_bound , v1_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_v1_bound ,v1_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v1_bound, "ML_FOWaveToy::v1", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::v1!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::v1!"); } if (CCTK_EQUALS(v2_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_v2_bound = -1; - if (handle_v2_bound < 0) handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v2_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v2_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v2_bound , v2_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_v2_bound ,v2_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v2_bound, "ML_FOWaveToy::v2", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::v2!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::v2!"); } if (CCTK_EQUALS(v3_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_v3_bound = -1; - if (handle_v3_bound < 0) handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v3_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v3_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v3_bound , v3_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_v3_bound ,v3_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v3_bound, "ML_FOWaveToy::v3", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_FOWaveToy::v3!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_FOWaveToy::v3!"); } if (CCTK_EQUALS(WT_rho_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, "ML_FOWaveToy::WT_rho", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_FOWaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_FOWaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, "ML_FOWaveToy::WT_u", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_FOWaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_FOWaveToy::WT_u!"); } if (CCTK_EQUALS(WT_v_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_WT_v_bound = -1; - if (handle_WT_v_bound < 0) handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_v_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_v_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_v_bound ,WT_v_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_v_bound, "ML_FOWaveToy::WT_v", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_FOWaveToy::WT_v!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_FOWaveToy::WT_v!"); } if (CCTK_EQUALS(rho_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, "ML_FOWaveToy::rho", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_FOWaveToy::rho!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_FOWaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, "ML_FOWaveToy::u", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_FOWaveToy::u!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_FOWaveToy::u!"); } if (CCTK_EQUALS(v1_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_v1_bound = -1; - if (handle_v1_bound < 0) handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v1_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v1_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v1_bound ,v1_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v1_bound, "ML_FOWaveToy::v1", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_FOWaveToy::v1!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_FOWaveToy::v1!"); } if (CCTK_EQUALS(v2_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_v2_bound = -1; - if (handle_v2_bound < 0) handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v2_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v2_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v2_bound ,v2_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v2_bound, "ML_FOWaveToy::v2", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_FOWaveToy::v2!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_FOWaveToy::v2!"); } if (CCTK_EQUALS(v3_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_v3_bound = -1; - if (handle_v3_bound < 0) handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_v3_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_v3_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_v3_bound ,v3_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v3_bound, "ML_FOWaveToy::v3", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_FOWaveToy::v3!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_FOWaveToy::v3!"); } return; diff --git a/ML_FOWaveToy/src/RegisterMoL.c b/ML_FOWaveToy/src/RegisterMoL.c index 7962bfa..fc480a5 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/RegisterSymmetries.c b/ML_FOWaveToy/src/RegisterSymmetries.c index 87ecbae..280641d 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_FOWaveToy/src/Startup.c b/ML_FOWaveToy/src/Startup.c index ba9af38..a80ab04 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 8e3e4d3..e4bf559 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 12be3a1..e0e3c11 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 f725310..c84180b 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 c034141..fcbf585 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/configuration.ccl b/ML_WaveToy/configuration.ccl index f772d68..b343426 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/interface.ccl b/ML_WaveToy/interface.ccl index c644d9b..fae6a52 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/param.ccl b/ML_WaveToy/param.ccl index 6c5e289..d32c338 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/schedule.ccl b/ML_WaveToy/schedule.ccl index b52fd02..a02f75f 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_WaveToy/src/Boundaries.c b/ML_WaveToy/src/Boundaries.c index 419a25f..e119d69 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -43,7 +43,7 @@ void ML_WaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_WaveToy::WT_rho", WT_rho_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_rho_bound BC for ML_WaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register WT_rho_bound BC for ML_WaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "none" ) || @@ -54,7 +54,7 @@ void ML_WaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_WaveToy::WT_u", WT_u_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register WT_u_bound BC for ML_WaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register WT_u_bound BC for ML_WaveToy::WT_u!"); } if (CCTK_EQUALS(rho_bound, "none" ) || @@ -65,7 +65,7 @@ void ML_WaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_WaveToy::rho", rho_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register rho_bound BC for ML_WaveToy::rho!"); + CCTK_WARN(-1, "Failed to register rho_bound BC for ML_WaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "none" ) || @@ -76,150 +76,142 @@ void ML_WaveToy_ApplyBoundConds(CCTK_ARGUMENTS) ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "ML_WaveToy::u", u_bound); if (ierr < 0) - CCTK_WARN(0, "Failed to register u_bound BC for ML_WaveToy::u!"); + CCTK_WARN(-1, "Failed to register u_bound BC for ML_WaveToy::u!"); } if (CCTK_EQUALS(WT_rho_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, "ML_WaveToy::WT_rho", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_WaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, "ML_WaveToy::WT_u", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_WaveToy::WT_u!"); } if (CCTK_EQUALS(rho_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, "ML_WaveToy::rho", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::rho!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_WaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "radiative")) { /* apply radiation boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0) - CCTK_WARN(0, "could not set LIMIT value in table!"); + CCTK_WARN(-1, "could not set LIMIT value in table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_speed, "SPEED") < 0) - CCTK_WARN(0, "could not set SPEED value in table!"); + CCTK_WARN(-1, "could not set SPEED value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, "ML_WaveToy::u", "Radiation"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::u!"); + CCTK_WARN(-1, "Failed to register Radiation BC for ML_WaveToy::u!"); } if (CCTK_EQUALS(WT_rho_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_WT_rho_bound = -1; - if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, "ML_WaveToy::WT_rho", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_rho!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_WaveToy::WT_rho!"); } if (CCTK_EQUALS(WT_u_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_WT_u_bound = -1; - if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_WT_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, "ML_WaveToy::WT_u", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_u!"); + CCTK_WARN(-1, "Failed to register Scalar BC for ML_WaveToy::WT_u!"); } if (CCTK_EQUALS(rho_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_rho_bound = -1; - if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_rho_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, "ML_WaveToy::rho", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::rho!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_WaveToy::rho!"); } if (CCTK_EQUALS(u_bound, "scalar")) { /* apply scalar boundary condition */ - static CCTK_INT handle_u_bound = -1; - if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); - if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!"); + CCTK_INT handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE); + if (handle_u_bound < 0) CCTK_WARN(-1, "could not create table!"); if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0) - CCTK_WARN(0, "could not set SCALAR value in table!"); + CCTK_WARN(-1, "could not set SCALAR value in table!"); ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, "ML_WaveToy::u", "scalar"); if (ierr < 0) - CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::u!"); + CCTK_WARN(-1, "Error in registering Scalar BC for ML_WaveToy::u!"); } return; diff --git a/ML_WaveToy/src/RegisterMoL.c b/ML_WaveToy/src/RegisterMoL.c index b394a5d..86ccf50 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/RegisterSymmetries.c b/ML_WaveToy/src/RegisterSymmetries.c index cf9633e..82a4f12 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_WaveToy/src/Startup.c b/ML_WaveToy/src/Startup.c index 71be71f..49b9a0b 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 34cc2fa..26dba99 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 060c0b8..9755093 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 (32-bit) (April 20, 2007) */ +/* File produced by user diener */ +/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ /* 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 1cd6049..0fa6a98 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 (32-bit) (April 20, 2007) +# File produced by user diener +# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) # Mathematica script written by Ian Hinder and Sascha Husa |