From e8031a78ab5abaeebc11dc1afa04523d872f9321 Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 10 Mar 1999 13:23:47 +0000 Subject: changes shift_active to shift_state git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@3 b1d164ef-f17a-46e7-89d4-021c7118ef4e --- src/macro/DCGDT_guts.h | 2 +- src/macro/DKDT_guts.h | 2 +- src/macro/TRT_guts.h | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/macro/DCGDT_guts.h b/src/macro/DCGDT_guts.h index 10553c4..acac1a0 100644 --- a/src/macro/DCGDT_guts.h +++ b/src/macro/DCGDT_guts.h @@ -38,7 +38,7 @@ END IF - IF (shift_active .ne. SHIFT_INACTIVE) THEN + IF (shift_state .ne. SHIFT_INACTIVE) THEN #include "../../packages/CactusEinstein/Einstein/src/macro/LIEG_guts.h" diff --git a/src/macro/DKDT_guts.h b/src/macro/DKDT_guts.h index 583cf2b..6078936 100644 --- a/src/macro/DKDT_guts.h +++ b/src/macro/DKDT_guts.h @@ -30,7 +30,7 @@ DKDT_DKYZDT = DKDT_A*(RICCI_RYZ-2*KK_KKYZ+DKDT_KYZ*TRK_TRK)-CDCDA_CDYZDA DKDT_DKZZDT = DKDT_A*(RICCI_RZZ-2*KK_KKZZ+DKDT_KZZ*TRK_TRK)-CDCDA_CDZZDA - IF (shift_active .ne. SHIFT_INACTIVE) THEN + IF (shift_state .ne. SHIFT_INACTIVE) THEN #include "../../packages/CactusEinstein/Einstein/src/macro/LIEK_guts.h" diff --git a/src/macro/TRT_guts.h b/src/macro/TRT_guts.h index efda382..eec7b10 100644 --- a/src/macro/TRT_guts.h +++ b/src/macro/TRT_guts.h @@ -24,7 +24,7 @@ & UPPERMET_UYZ) - if (shift_active /= SHIFT_INACTIVE) then + if (shift_state /= SHIFT_INACTIVE) then TRT_TRT = TRT_TRT - TRT_IALP2*(TRT_TXX*TRT_BX*TRT_BX & + TRT_TYY*TRT_BY*TRT_BY + TRT_TZZ*TRT_BZ*TRT_BZ -- cgit v1.2.3