diff options
Diffstat (limited to 'src/macro/DXXDG_guts.h')
| -rw-r--r-- | src/macro/DXXDG_guts.h | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/macro/DXXDG_guts.h b/src/macro/DXXDG_guts.h index 03276a1..9ccc569 100644 --- a/src/macro/DXXDG_guts.h +++ b/src/macro/DXXDG_guts.h @@ -22,13 +22,8 @@ #include "ADM_Derivative.h" - /* Factor involving 2nd derivative of conformal factor */ - 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) - ENDIF + /* Factor involving 2nd derivative of conformal factor, nowadays zero */ + DXXDG_FAC = 0 /* Now calculate the second derivatives */ @@ -74,9 +69,8 @@ #ifdef CCODE -/* Factor involving 2nd derivative of conformal factor */ -DXXDG_FAC = ((*conformal_state == 0)?0: - DXDG_PSI4*(4*DXXDG_DXXDPSI_O_PSI + 12*DXDG_DXDPSI_O_PSI*DXDG_DXDPSI_O_PSI)); +/* Factor involving 2nd derivative of conformal factor, nowadays zero */ +DXXDG_FAC = 0; /* Now calculate the second derivatives */ DXXDG_DXXDGXX = 2*DXDCG_DXDCGXX*DXDG_FAC+DXXDG_FAC*DXDG_GXX+DXDG_PSI4 |