From d3d75254a4f5fb92c85c3ebe56fc2c51a6fd257e Mon Sep 17 00:00:00 2001 From: ryoji Date: Tue, 25 Jan 2000 10:52:21 +0000 Subject: Thanks Thomas, it's same one. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@7 971fb155-194f-0410-9daf-e2eca44e59f5 --- src/qfunc.x | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/qfunc.x b/src/qfunc.x index d26919d..7901fe0 100644 --- a/src/qfunc.x +++ b/src/qfunc.x @@ -12,8 +12,8 @@ qfqq(i,j,k) = amp*(-1.00000000000000d0+n)*n*(1.00000000 $ 000000d0+c*cos(phigrd(k))**2)*cos(qgrd(j))**2*(exp(-((etagrd(i)-eta0)**2/ - $ sigma**2))+exp(-((etagrd(i)+eta0)**2/sigma**2)))*sin(qgrd(j))**(-2. - $ 00000000000000d0+n)-amp*n*(1.00000000000000d0+c*cos(phigrd(k)) + $ sigma**2))+exp(-((etagrd(i)+eta0)**2/sigma**2)))*sin(qgrd(j))**(-2 + $ +n)-amp*n*(1.00000000000000d0+c*cos(phigrd(k)) $ **2)*(exp(-((etagrd(i)-eta0)**2/sigma**2))+exp(-((etagrd(i)+eta0)**2 $ /sigma**2)))*sin(qgrd(j))**n -- cgit v1.2.3