From a378c8f026bb481cbca72d68eef174f0e7bcac21 Mon Sep 17 00:00:00 2001 From: jthorn Date: Thu, 18 Nov 2004 14:18:24 +0000 Subject: [[code is from Frank Loeffler; I'm just the person committing]] change two places where C code (presumably copied from Fortran) said TRK_TRK**2 to say TRK_TRK*TRK_TRK git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@76 b1d164ef-f17a-46e7-89d4-021c7118ef4e --- src/macro/HAMADM_guts.h | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/macro/HAMADM_guts.h b/src/macro/HAMADM_guts.h index 523d0d5..29be39e 100644 --- a/src/macro/HAMADM_guts.h +++ b/src/macro/HAMADM_guts.h @@ -27,8 +27,9 @@ #ifdef CCODE - HAMADM_HAMADM = TRRICCI_TRRICCI - TRKK_TRKK + TRK_TRK**2 - HAMADM_HAMADMABS = fabs(TRRICCI_TRRICCI) + fabs(TRKK_TRKK) + TRK_TRK**2 + HAMADM_HAMADM = TRRICCI_TRRICCI - TRKK_TRKK + TRK_TRK*TRK_TRK + HAMADM_HAMADMABS = fabs(TRRICCI_TRRICCI) + fabs(TRKK_TRKK) + + TRK_TRK*TRK_TRK #endif -- cgit v1.2.3