diff options
author | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-01-25 10:52:21 +0000 |
---|---|---|
committer | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-01-25 10:52:21 +0000 |
commit | d3d75254a4f5fb92c85c3ebe56fc2c51a6fd257e (patch) | |
tree | 4684810fc7e21ebd48d6ed5f4140257f64e4a0b8 | |
parent | bb2ee246db9490b1564a0289261fa31ca3f11b01 (diff) |
Thanks Thomas, it's same one.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@7 971fb155-194f-0410-9daf-e2eca44e59f5
-rw-r--r-- | src/qfunc.x | 4 |
1 files 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 |