From 687c9796acf4b8dfafbbb490f2a2444d8aaf81d5 Mon Sep 17 00:00:00 2001 From: hawke Date: Tue, 26 Aug 2003 11:00:57 +0000 Subject: 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 --- src/macro/TRRICCI_guts.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3