diff options
Diffstat (limited to 'src/macro/UPPERMET_guts.h')
-rw-r--r-- | src/macro/UPPERMET_guts.h | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/macro/UPPERMET_guts.h b/src/macro/UPPERMET_guts.h index 238e919..3562b1c 100644 --- a/src/macro/UPPERMET_guts.h +++ b/src/macro/UPPERMET_guts.h @@ -15,27 +15,27 @@ Gabrielle Allen, 11th June 1998 #ifdef FCODE - UPPERMET_PSI4DET = DETG_PSI4*DETG_DETCG + IUPPERMET_PSI4DET = 1.d0 / (DETG_PSI4*DETG_DETCG) - UPPERMET_UXX = DETG_TEMPXX/UPPERMET_PSI4DET - UPPERMET_UXY = DETG_TEMPXY/UPPERMET_PSI4DET - UPPERMET_UXZ = DETG_TEMPXZ/UPPERMET_PSI4DET - UPPERMET_UYY = DETG_TEMPYY/UPPERMET_PSI4DET - UPPERMET_UYZ = DETG_TEMPYZ/UPPERMET_PSI4DET - UPPERMET_UZZ = DETG_TEMPZZ/UPPERMET_PSI4DET + UPPERMET_UXX = DETG_TEMPXX*IUPPERMET_PSI4DET + UPPERMET_UXY = DETG_TEMPXY*IUPPERMET_PSI4DET + UPPERMET_UXZ = DETG_TEMPXZ*IUPPERMET_PSI4DET + UPPERMET_UYY = DETG_TEMPYY*IUPPERMET_PSI4DET + UPPERMET_UYZ = DETG_TEMPYZ*IUPPERMET_PSI4DET + UPPERMET_UZZ = DETG_TEMPZZ*IUPPERMET_PSI4DET #endif #ifdef CCODE -UPPERMET_PSI4DET = DETG_PSI4*DETG_DETCG; +IUPPERMET_PSI4DET = 1.0 / (DETG_PSI4*DETG_DETCG); -UPPERMET_UXX = DETG_TEMPXX/UPPERMET_PSI4DET; -UPPERMET_UXY = DETG_TEMPXY/UPPERMET_PSI4DET; -UPPERMET_UXZ = DETG_TEMPXZ/UPPERMET_PSI4DET; -UPPERMET_UYY = DETG_TEMPYY/UPPERMET_PSI4DET; -UPPERMET_UYZ = DETG_TEMPYZ/UPPERMET_PSI4DET; -UPPERMET_UZZ = DETG_TEMPZZ/UPPERMET_PSI4DET; +UPPERMET_UXX = DETG_TEMPXX*IUPPERMET_PSI4DET; +UPPERMET_UXY = DETG_TEMPXY*IUPPERMET_PSI4DET; +UPPERMET_UXZ = DETG_TEMPXZ*IUPPERMET_PSI4DET; +UPPERMET_UYY = DETG_TEMPYY*IUPPERMET_PSI4DET; +UPPERMET_UYZ = DETG_TEMPYZ*IUPPERMET_PSI4DET; +UPPERMET_UZZ = DETG_TEMPZZ*IUPPERMET_PSI4DET; #endif |