diff options
Diffstat (limited to 'src/macro/CHR1_guts.h')
-rw-r--r-- | src/macro/CHR1_guts.h | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/src/macro/CHR1_guts.h b/src/macro/CHR1_guts.h index aa565d6..834957b 100644 --- a/src/macro/CHR1_guts.h +++ b/src/macro/CHR1_guts.h @@ -17,47 +17,47 @@ #ifdef FCODE - CHR1_XXX = DXDG_DXDGXX/2D0 - CHR1_XXY = DYDG_DYDGXX/2D0 - CHR1_XXZ = DZDG_DZDGXX/2D0 - CHR1_XYY = -DXDG_DXDGYY/2D0 + DYDG_DYDGXY - CHR1_XYZ = (-DXDG_DXDGYZ + DYDG_DYDGXZ + DZDG_DZDGXY)/2D0 - CHR1_XZZ = -DXDG_DXDGZZ/2D0 + DZDG_DZDGXZ - CHR1_YXX = DXDG_DXDGXY - DYDG_DYDGXX/2D0 - CHR1_YXY = DXDG_DXDGYY/2D0 - CHR1_YXZ = ( DXDG_DXDGYZ - DYDG_DYDGXZ + DZDG_DZDGXY)/2D0 - CHR1_YYY = DYDG_DYDGYY/2D0 - CHR1_YYZ = DZDG_DZDGYY/2D0 - CHR1_YZZ = -DYDG_DYDGZZ/2D0 + DZDG_DZDGYZ - CHR1_ZXX = DXDG_DXDGXZ - DZDG_DZDGXX/2D0 - CHR1_ZXY = ( DXDG_DXDGYZ + DYDG_DYDGXZ - DZDG_DZDGXY)/2D0 - CHR1_ZXZ = DXDG_DXDGZZ/2D0 - CHR1_ZYY = DYDG_DYDGYZ - DZDG_DZDGYY/2D0 - CHR1_ZYZ = DYDG_DYDGZZ/2D0 - CHR1_ZZZ = DZDG_DZDGZZ/2D0 + CHR1_XXX = DXDG_DXDGXX*0.5 + CHR1_XXY = DYDG_DYDGXX*0.5 + CHR1_XXZ = DZDG_DZDGXX*0.5 + CHR1_XYY = -DXDG_DXDGYY*0.5 + DYDG_DYDGXY + CHR1_XYZ = (-DXDG_DXDGYZ + DYDG_DYDGXZ + DZDG_DZDGXY)*0.5 + CHR1_XZZ = -DXDG_DXDGZZ*0.5 + DZDG_DZDGXZ + CHR1_YXX = DXDG_DXDGXY - DYDG_DYDGXX*0.5 + CHR1_YXY = DXDG_DXDGYY*0.5 + CHR1_YXZ = ( DXDG_DXDGYZ - DYDG_DYDGXZ + DZDG_DZDGXY)*0.5 + CHR1_YYY = DYDG_DYDGYY*0.5 + CHR1_YYZ = DZDG_DZDGYY*0.5 + CHR1_YZZ = -DYDG_DYDGZZ*0.5 + DZDG_DZDGYZ + CHR1_ZXX = DXDG_DXDGXZ - DZDG_DZDGXX*0.5 + CHR1_ZXY = ( DXDG_DXDGYZ + DYDG_DYDGXZ - DZDG_DZDGXY)*0.5 + CHR1_ZXZ = DXDG_DXDGZZ*0.5 + CHR1_ZYY = DYDG_DYDGYZ - DZDG_DZDGYY*0.5 + CHR1_ZYZ = DYDG_DYDGZZ*0.5 + CHR1_ZZZ = DZDG_DZDGZZ*0.5 #endif #ifdef CCODE - CHR1_XXX = DXDG_DXDGXX/2; - CHR1_XXY = DYDG_DYDGXX/2; - CHR1_XXZ = DZDG_DZDGXX/2; - CHR1_XYY = -DXDG_DXDGYY/2 + DYDG_DYDGXY; - CHR1_XYZ = (-DXDG_DXDGYZ + DYDG_DYDGXZ + DZDG_DZDGXY)/2; - CHR1_XZZ = -DXDG_DXDGZZ/2 + DZDG_DZDGXZ; - CHR1_YXX = DXDG_DXDGXY - DYDG_DYDGXX/2; - CHR1_YXY = DXDG_DXDGYY/2; - CHR1_YXZ = ( DXDG_DXDGYZ - DYDG_DYDGXZ + DZDG_DZDGXY)/2; - CHR1_YYY = DYDG_DYDGYY/2; - CHR1_YYZ = DZDG_DZDGYY/2; - CHR1_YZZ = -DYDG_DYDGZZ/2 + DZDG_DZDGYZ; - CHR1_ZXX = DXDG_DXDGXZ - DZDG_DZDGXX/2; - CHR1_ZXY = ( DXDG_DXDGYZ + DYDG_DYDGXZ - DZDG_DZDGXY)/2; - CHR1_ZXZ = DXDG_DXDGZZ/2; - CHR1_ZYY = DYDG_DYDGYZ - DZDG_DZDGYY/2; - CHR1_ZYZ = DYDG_DYDGZZ/2; - CHR1_ZZZ = DZDG_DZDGZZ/2; + CHR1_XXX = DXDG_DXDGXX*0.5; + CHR1_XXY = DYDG_DYDGXX*0.5; + CHR1_XXZ = DZDG_DZDGXX*0.5; + CHR1_XYY = -DXDG_DXDGYY*0.5 + DYDG_DYDGXY; + CHR1_XYZ = (-DXDG_DXDGYZ + DYDG_DYDGXZ + DZDG_DZDGXY)*0.5; + CHR1_XZZ = -DXDG_DXDGZZ*0.5 + DZDG_DZDGXZ; + CHR1_YXX = DXDG_DXDGXY - DYDG_DYDGXX*0.5; + CHR1_YXY = DXDG_DXDGYY*0.5; + CHR1_YXZ = ( DXDG_DXDGYZ - DYDG_DYDGXZ + DZDG_DZDGXY)*0.5; + CHR1_YYY = DYDG_DYDGYY*0.5; + CHR1_YYZ = DZDG_DZDGYY*0.5; + CHR1_YZZ = -DYDG_DYDGZZ*0.5 + DZDG_DZDGYZ; + CHR1_ZXX = DXDG_DXDGXZ - DZDG_DZDGXX*0.5; + CHR1_ZXY = ( DXDG_DXDGYZ + DYDG_DYDGXZ - DZDG_DZDGXY)*0.5; + CHR1_ZXZ = DXDG_DXDGZZ*0.5; + CHR1_ZYY = DYDG_DYDGYZ - DZDG_DZDGYY*0.5; + CHR1_ZYZ = DYDG_DYDGZZ*0.5; + CHR1_ZZZ = DZDG_DZDGZZ*0.5; #endif |