diff options
| author | jthorn <jthorn@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2004-11-18 14:18:24 +0000 |
|---|---|---|
| committer | jthorn <jthorn@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2004-11-18 14:18:24 +0000 |
| commit | a378c8f026bb481cbca72d68eef174f0e7bcac21 (patch) | |
| tree | 2e9d297498d816ecdf9d32324ddd02c6d84e1076 | |
| parent | d905c9b9d6b63707ce8b2b3c4c708535a7c25e09 (diff) | |
[[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
| -rw-r--r-- | src/macro/HAMADM_guts.h | 5 |
1 files 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 |