diff options
Diffstat (limited to 'src/macro/TRRICCI_guts.h')
| -rw-r--r-- | src/macro/TRRICCI_guts.h | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/macro/TRRICCI_guts.h b/src/macro/TRRICCI_guts.h new file mode 100644 index 0000000..88e78df --- /dev/null +++ b/src/macro/TRRICCI_guts.h @@ -0,0 +1,35 @@ +/*@@ + @header TRRICCI_guts.h + @date Aug 98 + @author Gabrielle Allen + @desc + + Macro to calculate the trace of the 3-Ricci + + @enddesc +@@*/ + +#ifndef TRRICCI_GUTS +#define TRRICCI_GUTS + +#include "../../packages/CactusEinstein/Einstein/src/macro/UPPERMET_guts.h" +#include "../../packages/CactusEinstein/Einstein/src/macro/RICCI_guts.h" + +#ifdef FCODE + + TRRICCI_TRRICCI = UPPERMET_UXX*RICCI_RXX + UPPERMET_UYY*RICCI_RYY + & + UPPERMET_UZZ*RICCI_RZZ + 2D0*(UPPERMET_UXY*RICCI_RXY + & + UPPERMET_UXZ*RICCI_RXZ + UPPERMET_UYZ*RICCI_RYZ) + +#endif + +#ifdef CCODE + + TRRICCI_TRRICCI = UPPERMET_UXX*RICCI_RXX + UPPERMET_UYY*RICCI_RYY + + UPPERMET_UZZ*RICCI_RZZ + 2D0*(UPPERMET_UXY*RICCI_RXY + + UPPERMET_UXZ*RICCI_RXZ + UPPERMET_UYZ*RICCI_RYZ); + +#endif + +#endif + |