diff options
author | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 1999-12-01 13:33:12 +0000 |
---|---|---|
committer | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 1999-12-01 13:33:12 +0000 |
commit | 48bdeae31ba62e1c50008f441e580278115a6bee (patch) | |
tree | 7b4a4f7e5562c6851fe08c93fb5f8ad561c815e3 /src/gauss2d.x | |
parent | 690f17dee0bdce4556f58fa6558a63cbef1cbf41 (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/IDAxiOddBrillBH/trunk@3 b6f3ac56-194f-0410-8878-cdf6079d7f1b
Diffstat (limited to 'src/gauss2d.x')
-rw-r--r-- | src/gauss2d.x | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/gauss2d.x b/src/gauss2d.x new file mode 100644 index 0000000..19af15f --- /dev/null +++ b/src/gauss2d.x @@ -0,0 +1,5 @@ + gtil = amp*(exp(-((etagrd(i) - eta0)**2/sigma**2)) + exp(-((etagrd(i) + eta0 + & )**2/sigma**2))) + dngtil = amp*((-2.00000000000000d0*(etagrd(i) - eta0)*exp(-((etagrd(i) - eta + & 0)**2/sigma**2)))/sigma**2 - (2.00000000000000d0*(etagrd(i) + eta0)*ex + & p(-((etagrd(i) + eta0)**2/sigma**2)))/sigma**2) |