diff options
Diffstat (limited to 'src/macro/DXDG_guts.h')
-rw-r--r-- | src/macro/DXDG_guts.h | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/macro/DXDG_guts.h b/src/macro/DXDG_guts.h index c95ffc9..9cb3e65 100644 --- a/src/macro/DXDG_guts.h +++ b/src/macro/DXDG_guts.h @@ -18,13 +18,8 @@ #ifdef FCODE - IF (conformal_state .eq. 0) THEN - DXDG_PSI4 = 1 - DXDG_FAC = 0 - ELSE - DXDG_PSI4 = DXDG_PSI**4 - DXDG_FAC = 4*DXDG_PSI4*DXDG_DXDPSI_O_PSI - ENDIF + DXDG_PSI4 = 1 + DXDG_FAC = 0 DXDG_DXDGXX = DXDCG_DXDCGXX*DXDG_PSI4 + DXDG_FAC*DXDG_GXX DXDG_DXDGXY = DXDCG_DXDCGXY*DXDG_PSI4 + DXDG_FAC*DXDG_GXY @@ -37,9 +32,9 @@ #ifdef CCODE - DXDG_PSI4 = ((*conformal_state == 0)?1:DXDG_PSI*DXDG_PSI*DXDG_PSI*DXDG_PSI); + DXDG_PSI4 = 1; - DXDG_FAC = ((*conformal_state == 0)?0:4*DXDG_PSI4*DXDG_DXDPSI_O_PSI); + DXDG_FAC = 0; DXDG_DXDGXX = DXDCG_DXDCGXX*DXDG_PSI4 + DXDG_FAC*DXDG_GXX; DXDG_DXDGXY = DXDCG_DXDCGXY*DXDG_PSI4 + DXDG_FAC*DXDG_GXY; |