diff options
author | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 1999-12-01 13:34:57 +0000 |
---|---|---|
committer | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 1999-12-01 13:34:57 +0000 |
commit | 5d27c1507b8402c8be8ec6433bbc5483db0203ec (patch) | |
tree | ccef534f16a8818747f1faafb1d946e9fad79d45 /src/ksq2d_odd.x | |
parent | 4f2663df48d28c15194cde1de8e03a279534fb0b (diff) |
This commit was generated by cvs2svn to compensate for changes in r2,
which included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@3 535fb057-194f-0410-b5a5-c63992f15602
Diffstat (limited to 'src/ksq2d_odd.x')
-rw-r--r-- | src/ksq2d_odd.x | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/ksq2d_odd.x b/src/ksq2d_odd.x new file mode 100644 index 0000000..39a175f --- /dev/null +++ b/src/ksq2d_odd.x @@ -0,0 +1,23 @@ + o1 = cos(q) + o2 = 1. + o3 = o2**2 + o4 = 1/o3 + o5 = sin(q) + o6 = 2.00000000000000d0 + 3.0d0 + o7 = o5**2 + o8 = -(o6*o7) + o9 = 1.00000000000000d0 + 3.0d0 + o8 + o10 = o3**2 + o11 = o10**2 + o12 = dngtil**2 + o13 = o1**2 + o14 = gtil**2 + o15 = o9**2 +c exc33(i,j,k) = 0 +c exc32(i,j,k) = -(dngtil*o1*o4*o5**n) +c exc31(i,j,k) = gtil*o4*o5**(-1.00000000000000d0 + n)*o9 +c exc22(i,j,k) = 0 +c exc21(i,j,k) = 0 +c exc11(i,j,k) = 0 + ksq(i,j,k) = (2.00000000000000d0*o5**(2.00000000000000d0*(-2.000 + & 00000000000d0 + 3.d0))*(o14*o15 + o12*o13*o7))/(o10*o11) |