diff options
Diffstat (limited to 'src/macro/WAVEG_guts.h')
-rw-r--r-- | src/macro/WAVEG_guts.h | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/src/macro/WAVEG_guts.h b/src/macro/WAVEG_guts.h index 2635ca9..3ed78c2 100644 --- a/src/macro/WAVEG_guts.h +++ b/src/macro/WAVEG_guts.h @@ -18,47 +18,47 @@ #ifdef FCODE - WAVEG_DDGXX = UPPERMET_UXX*DDG_DXXDGXX + - & 2D0*UPPERMET_UXY*DDG_DXYDGXX + - & 2D0*UPPERMET_UXZ*DDG_DXZDGXX + - & UPPERMET_UYY*DDG_DYYDGXX + - & 2D0*UPPERMET_UYZ*DDG_DYZDGXX + - & UPPERMET_UZZ*DDG_DZZDGXX - - WAVEG_DDGXY = UPPERMET_UXX*DDG_DXXDGXY + - & 2D0*UPPERMET_UXY*DDG_DXYDGXY + - & 2D0*UPPERMET_UXZ*DDG_DXZDGXY + - & UPPERMET_UYY*DDG_DYYDGXY + - & 2D0*UPPERMET_UYZ*DDG_DYZDGXY + - & UPPERMET_UZZ*DDG_DZZDGXY - - WAVEG_DDGXZ = UPPERMET_UXX*DDG_DXXDGXZ + - & 2D0*UPPERMET_UXY*DDG_DXYDGXZ + - & 2D0*UPPERMET_UXZ*DDG_DXZDGXZ + - & UPPERMET_UYY*DDG_DYYDGXZ + - & 2D0*UPPERMET_UYZ*DDG_DYZDGXZ + - & UPPERMET_UZZ*DDG_DZZDGXZ - - WAVEG_DDGYY = UPPERMET_UXX*DDG_DXXDGYY + - & 2D0*UPPERMET_UXY*DDG_DXYDGYY + - & 2D0*UPPERMET_UXZ*DDG_DXZDGYY + - & UPPERMET_UYY*DDG_DYYDGYY + - & 2D0*UPPERMET_UYZ*DDG_DYZDGYY + - & UPPERMET_UZZ*DDG_DZZDGYY - - WAVEG_DDGYZ = UPPERMET_UXX*DDG_DXXDGYZ + - & 2D0*UPPERMET_UXY*DDG_DXYDGYZ + - & 2D0*UPPERMET_UXZ*DDG_DXZDGYZ + - & UPPERMET_UYY*DDG_DYYDGYZ + - & 2D0*UPPERMET_UYZ*DDG_DYZDGYZ + - & UPPERMET_UZZ*DDG_DZZDGYZ - - WAVEG_DDGZZ = UPPERMET_UXX*DDG_DXXDGZZ + - & 2D0*UPPERMET_UXY*DDG_DXYDGZZ + - & 2D0*UPPERMET_UXZ*DDG_DXZDGZZ + - & UPPERMET_UYY*DDG_DYYDGZZ + - & 2D0*UPPERMET_UYZ*DDG_DYZDGZZ + - & UPPERMET_UZZ*DDG_DZZDGZZ + WAVEG_DDGXX = UPPERMET_UXX*DDG_DXXDGXX + \ + 2D0*UPPERMET_UXY*DDG_DXYDGXX + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGXX + \ + UPPERMET_UYY*DDG_DYYDGXX + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGXX + \ + UPPERMET_UZZ*DDG_DZZDGXX + + WAVEG_DDGXY = UPPERMET_UXX*DDG_DXXDGXY + \ + 2D0*UPPERMET_UXY*DDG_DXYDGXY + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGXY + \ + UPPERMET_UYY*DDG_DYYDGXY + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGXY + \ + UPPERMET_UZZ*DDG_DZZDGXY + + WAVEG_DDGXZ = UPPERMET_UXX*DDG_DXXDGXZ + \ + 2D0*UPPERMET_UXY*DDG_DXYDGXZ + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGXZ + \ + UPPERMET_UYY*DDG_DYYDGXZ + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGXZ + \ + UPPERMET_UZZ*DDG_DZZDGXZ + + WAVEG_DDGYY = UPPERMET_UXX*DDG_DXXDGYY + \ + 2D0*UPPERMET_UXY*DDG_DXYDGYY + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGYY + \ + UPPERMET_UYY*DDG_DYYDGYY + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGYY + \ + UPPERMET_UZZ*DDG_DZZDGYY + + WAVEG_DDGYZ = UPPERMET_UXX*DDG_DXXDGYZ + \ + 2D0*UPPERMET_UXY*DDG_DXYDGYZ + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGYZ + \ + UPPERMET_UYY*DDG_DYYDGYZ + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGYZ + \ + UPPERMET_UZZ*DDG_DZZDGYZ + + WAVEG_DDGZZ = UPPERMET_UXX*DDG_DXXDGZZ + \ + 2D0*UPPERMET_UXY*DDG_DXYDGZZ + \ + 2D0*UPPERMET_UXZ*DDG_DXZDGZZ + \ + UPPERMET_UYY*DDG_DYYDGZZ + \ + 2D0*UPPERMET_UYZ*DDG_DYZDGZZ + \ + UPPERMET_UZZ*DDG_DZZDGZZ #endif |