diff options
Diffstat (limited to 'src/macro/DXXDG_guts.h')
-rw-r--r-- | src/macro/DXXDG_guts.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/macro/DXXDG_guts.h b/src/macro/DXXDG_guts.h index 6e34a24..09074ca 100644 --- a/src/macro/DXXDG_guts.h +++ b/src/macro/DXXDG_guts.h @@ -23,7 +23,7 @@ DXXDG_OODX2 = 1D0/(cctk_delta_space(1)*cctk_delta_space(1)) /* Factor involving 2nd derivative of conformal factor */ - IF (conformal_state /= CONFORMAL_METRIC) THEN + IF (conformal_state .eq. 0) THEN DXXDG_FAC = 0 ELSE DXXDG_FAC = DXDG_PSI4*(4*DXXDG_DXXDPSI_O_PSI + 12*DXDG_DXDPSI_O_PSI*DXDG_DXDPSI_O_PSI) @@ -53,7 +53,7 @@ #ifdef CCODE /* Factor involving 2nd derivative of conformal factor */ -DXXDG_FAC = ((*conformal_state != CONFORMAL_METRIC)?0: +DXXDG_FAC = ((*conformal_state == 0)?0: DXDG_PSI4*(4*DXXDG_DXXDPSI_O_PSI + 12*DXDG_DXDPSI_O_PSI*DXDG_DXDPSI_O_PSI)); /* Now calculate the second derivatives */ |