diff options
Diffstat (limited to 'src/macro/DETG_guts.h')
| -rw-r--r-- | src/macro/DETG_guts.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/macro/DETG_guts.h b/src/macro/DETG_guts.h index dfa0fca..7d836bd 100644 --- a/src/macro/DETG_guts.h +++ b/src/macro/DETG_guts.h @@ -13,7 +13,7 @@ Gabrielle Allen, 5th November 1998 #ifdef FCODE - IF (conformal_state /= CONFORMAL_METRIC) THEN + IF (conformal_state .eq. 0) THEN DETG_PSI4 = 1.0d0 ELSE DETG_PSI4 = DETG_PSI**4 @@ -40,7 +40,7 @@ Gabrielle Allen, 5th November 1998 #define Cal(x,y,z) ((x)?(y):(z)) #define Power(x,y) (pow((CCTK_REAL) (x), (CCTK_REAL) (y))) -DETG_PSI4 = ((*conformal_state != CONFORMAL_METRIC)?1:DETG_PSI*DETG_PSI*DETG_PSI*DETG_PSI); +DETG_PSI4 = ((*conformal_state == 0)?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; |