From 3a9abc47d0b1ff5387f31ab1672d233a911b190a Mon Sep 17 00:00:00 2001 From: ryoji Date: Tue, 25 Jan 2000 10:50:20 +0000 Subject: 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 --- src/ksq_bs.x | 8 ++++---- 1 file 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) -- cgit v1.2.3