diff options
Diffstat (limited to 'src/macro/DETG_guts.h')
-rw-r--r-- | src/macro/DETG_guts.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/macro/DETG_guts.h b/src/macro/DETG_guts.h index 12b187a..dfa0fca 100644 --- a/src/macro/DETG_guts.h +++ b/src/macro/DETG_guts.h @@ -38,9 +38,9 @@ Gabrielle Allen, 5th November 1998 #ifdef CCODE #define Cal(x,y,z) ((x)?(y):(z)) -#define Power(x,y) (pow((double) (x), (double) (y))) +#define Power(x,y) (pow((CCTK_REAL) (x), (CCTK_REAL) (y))) -DET_PSI4 = ((conformal_state != CONFORMAL_METRIC)?1:Power(DETG_PSI,4)); +DETG_PSI4 = ((*conformal_state != CONFORMAL_METRIC)?1:DETG_PSI*DETG_PSI*DETG_PSI*DETG_PSI); DETG_TEMPXX = DETG_GYY*DETG_GZZ - DETG_GYZ*DETG_GYZ; DETG_TEMPXY = DETG_GXZ*DETG_GYZ - DETG_GXY*DETG_GZZ; @@ -54,7 +54,7 @@ DETG_DETCG = (DETG_TEMPXX*DETG_GXX + DETG_TEMPXY*DETG_GXY + DETG_TEMPXZ*DETG_GXZ); /* This is the physical determinat */ -DETG_DETG = DET_PSI4*DET_PSI4*DET_PSI4*DETG_DETCG +DETG_DETG = DETG_PSI4*DETG_PSI4*DETG_PSI4*DETG_DETCG; #endif |