diff options
Diffstat (limited to 'src/Analysis.c')
| -rw-r--r-- | src/Analysis.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/Analysis.c b/src/Analysis.c index d4ad471..72ee53a 100644 --- a/src/Analysis.c +++ b/src/Analysis.c @@ -68,11 +68,13 @@ void ADMAnalysis_CurvCartToSphere(CCTK_ARGUMENTS); @@*/ void ADMAnalysis_EvaltrK(CCTK_ARGUMENTS) { - int i; + int i, d; + CCTK_INT lsh[3]; DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - ADMAnalysis_Trace(cctk_lsh, + for (d=0; d<3; ++d) lsh[d] = cctk_lsh[d]; + ADMAnalysis_Trace(lsh, gxx, gxy, gxz, @@ -115,10 +117,13 @@ void ADMAnalysis_EvaltrK(CCTK_ARGUMENTS) @@*/ void ADMAnalysis_MetricCartToSphere(CCTK_ARGUMENTS) { + int d; + CCTK_INT lsh[3]; DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - ADMAnalysis_CartToSphere(cctk_lsh, + for (d=0; d<3; ++d) lsh[d] = cctk_lsh[d]; + ADMAnalysis_CartToSphere(lsh, normalize_dtheta_dphi, x, y, @@ -155,10 +160,13 @@ void ADMAnalysis_MetricCartToSphere(CCTK_ARGUMENTS) @@*/ void ADMAnalysis_CurvCartToSphere(CCTK_ARGUMENTS) { + int d; + CCTK_INT lsh[3]; DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; - ADMAnalysis_CartToSphere(cctk_lsh, + for (d=0; d<3; ++d) lsh[d] = cctk_lsh[d]; + ADMAnalysis_CartToSphere(lsh, normalize_dtheta_dphi, x, y, |