diff options
author | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-01-25 10:50:20 +0000 |
---|---|---|
committer | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-01-25 10:50:20 +0000 |
commit | 3a9abc47d0b1ff5387f31ab1672d233a911b190a (patch) | |
tree | 5a401d51611b6af4e0752e03f0e3167c2240b39a | |
parent | 73e8870cb390cf828bbb276fe979ba3da46440a1 (diff) |
it's same as Thomas found one in IDAxiBrillBH.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@8 b6f3ac56-194f-0410-8878-cdf6079d7f1b
-rw-r--r-- | src/ksq_bs.x | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/ksq_bs.x b/src/ksq_bs.x index 200d117..31ea632 100644 --- a/src/ksq_bs.x +++ b/src/ksq_bs.x @@ -3,10 +3,10 @@ o3 = o2**2 o4 = 1/o3 o5 = sin(qgrd(j)) - o6 = 2.00000000000000d0 + n + o6 = 2.0d0 + n o7 = o5**2 o8 = -(o6*o7) - o9 = 1.00000000000000d0 + n + o8 + o9 = 1.0d0 + n + o8 o10 = o3**2 o11 = o10**2 o12 = dngtil**2 @@ -19,5 +19,5 @@ c exc31(i,j) = gtil*o4*o5**(-1.00000000000000d0 + n)*o9 c exc22(i,j) = 0 c exc21(i,j) = 0 c exc11(i,j) = 0 - ksq(i,j) = (2.00000000000000d0*o5**(2.00000000000000d0*(-2.000 - & 00000000000d0 + n))*(o14*o15 + o12*o13*o7))/(o10*o11) + ksq(i,j) = (2.0d0*o5**(2*( + $ -2 + n))*(o14*o15 + o12*o13*o7))/(o10*o11) |