diff options
Diffstat (limited to 'src/macro/DCGDT_guts.h')
-rw-r--r-- | src/macro/DCGDT_guts.h | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/macro/DCGDT_guts.h b/src/macro/DCGDT_guts.h index 84f57f5..d331a42 100644 --- a/src/macro/DCGDT_guts.h +++ b/src/macro/DCGDT_guts.h @@ -25,19 +25,6 @@ DCGDT_DCGYZDT = - 2*DCGDT_A*DCGDT_KYZ DCGDT_DCGZZDT = - 2*DCGDT_A*DCGDT_KZZ - IF (conformal_state .gt. 0) THEN - - DCGDT_IPSI4 = 1D0/(DCGDT_PSI**4) - - DCGDT_DCGXXDT = DCGDT_DCGXXDT*DCGDT_IPSI4 - DCGDT_DCGXYDT = DCGDT_DCGXYDT*DCGDT_IPSI4 - DCGDT_DCGXZDT = DCGDT_DCGXZDT*DCGDT_IPSI4 - DCGDT_DCGYYDT = DCGDT_DCGYYDT*DCGDT_IPSI4 - DCGDT_DCGYZDT = DCGDT_DCGYZDT*DCGDT_IPSI4 - DCGDT_DCGZZDT = DCGDT_DCGZZDT*DCGDT_IPSI4 - - END IF - IF (shift_state .ne. 0) THEN #include "LIEG_guts.h" @@ -62,20 +49,6 @@ DCGDT_DCGYZDT = - 2*DCGDT_A*DCGDT_KYZ; DCGDT_DCGZZDT = - 2*DCGDT_A*DCGDT_KZZ; - if (*conformal_state > 0) - { - - DCGDT_IPSI4 = 1/(DCGDT_PSI*DCGDT_PSI*DCGDT_PSI*DCGDT_PSI); - - DCGDT_DCGXXDT = DCGDT_DCGXXDT*DCGDT_IPSI4; - DCGDT_DCGXYDT = DCGDT_DCGXYDT*DCGDT_IPSI4; - DCGDT_DCGXZDT = DCGDT_DCGXZDT*DCGDT_IPSI4; - DCGDT_DCGYYDT = DCGDT_DCGYYDT*DCGDT_IPSI4; - DCGDT_DCGYZDT = DCGDT_DCGYZDT*DCGDT_IPSI4; - DCGDT_DCGZZDT = DCGDT_DCGZZDT*DCGDT_IPSI4; - - } - if (*shift_state != 0) { |