diff options
author | hawke <hawke@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2003-08-26 11:00:57 +0000 |
---|---|---|
committer | hawke <hawke@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2003-08-26 11:00:57 +0000 |
commit | 687c9796acf4b8dfafbbb490f2a2444d8aaf81d5 (patch) | |
tree | 29f1e817e6b86b65c2ae2769150d1d3972372a6f | |
parent | 2af69d024f8b10ae92ced944ef61cbb0ec4ec2c1 (diff) |
A piece of Fortran code snuck into the C code section. Spotted by Michael Koppitz and Florian Beyer.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@63 b1d164ef-f17a-46e7-89d4-021c7118ef4e
-rw-r--r-- | src/macro/TRRICCI_guts.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/macro/TRRICCI_guts.h b/src/macro/TRRICCI_guts.h index b8348f3..10700f1 100644 --- a/src/macro/TRRICCI_guts.h +++ b/src/macro/TRRICCI_guts.h @@ -26,7 +26,7 @@ #ifdef CCODE TRRICCI_TRRICCI = UPPERMET_UXX*RICCI_RXX + UPPERMET_UYY*RICCI_RYY - + UPPERMET_UZZ*RICCI_RZZ + 2D0*(UPPERMET_UXY*RICCI_RXY + + UPPERMET_UZZ*RICCI_RZZ + 2*(UPPERMET_UXY*RICCI_RXY + UPPERMET_UXZ*RICCI_RXZ + UPPERMET_UYZ*RICCI_RYZ); #endif |