diff options
author | knarf <knarf@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2013-11-26 17:13:26 +0000 |
---|---|---|
committer | knarf <knarf@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2013-11-26 17:13:26 +0000 |
commit | f8a381abe621a87803ffb1c438683f6957cf6c76 (patch) | |
tree | 48c655852e7d3e8241ccff9d01c73d184f1f8051 /src/macro/DCGDT_guts.h | |
parent | 672b64b5c786096a4ae124c5fc1e6d7ea1bb0c19 (diff) |
remove support for StaticConformalsvn
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@119 b1d164ef-f17a-46e7-89d4-021c7118ef4e
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) { |