diff options
Diffstat (limited to 'src/macro/DCGDT_guts.h')
| -rw-r--r-- | src/macro/DCGDT_guts.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/macro/DCGDT_guts.h b/src/macro/DCGDT_guts.h index e950f3e..04417cf 100644 --- a/src/macro/DCGDT_guts.h +++ b/src/macro/DCGDT_guts.h @@ -25,7 +25,7 @@ DCGDT_DCGYZDT = - 2*DCGDT_A*DCGDT_KYZ DCGDT_DCGZZDT = - 2*DCGDT_A*DCGDT_KZZ - IF (conformal_state .eq. CONFORMAL_METRIC) THEN + IF (conformal_state .gt. 0) THEN DCGDT_IPSI4 = 1D0/(DCGDT_PSI**4) @@ -38,7 +38,7 @@ END IF - IF (shift_state .ne. SHIFT_INACTIVE) THEN + IF (shift_state .ne. 0) THEN #include "CactusEinstein/Einstein/src/macro/LIEG_guts.h" @@ -62,7 +62,7 @@ DCGDT_DCGYZDT = - 2*DCGDT_A*DCGDT_KYZ; DCGDT_DCGZZDT = - 2*DCGDT_A*DCGDT_KZZ; - if (*conformal_state == CONFORMAL_METRIC) + if (*conformal_state > 0) { DCGDT_IPSI4 = 1/(DCGDT_PSI*DCGDT_PSI*DCGDT_PSI*DCGDT_PSI); @@ -76,7 +76,7 @@ } - if (*shift_state != SHIFT_INACTIVE) + if (*shift_state != 0) { #include "CactusEinstein/Einstein/src/macro/LIEG_guts.h" |