diff options
| author | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2001-10-23 11:37:43 +0000 |
|---|---|---|
| committer | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2001-10-23 11:37:43 +0000 |
| commit | 54f95be7db7b6116a20d2cb5aefa95d7e25234fc (patch) | |
| tree | d319cdadf51ff8823f5ab51ff3336f913708f6b9 /src/IDAxiOddBrillBH.F | |
| parent | c6cfc95ab964f9b4968c6ec55dd8ef266f79430d (diff) | |
should be pass testsuite now.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@37 b6f3ac56-194f-0410-8878-cdf6079d7f1b
Diffstat (limited to 'src/IDAxiOddBrillBH.F')
| -rw-r--r-- | src/IDAxiOddBrillBH.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/IDAxiOddBrillBH.F b/src/IDAxiOddBrillBH.F index 36d76c7..c49bf48 100644 --- a/src/IDAxiOddBrillBH.F +++ b/src/IDAxiOddBrillBH.F @@ -53,7 +53,7 @@ c Perhaps this and others should go into cctk.h real*8 t1,t2,t3,t4 real*8 gtil,dngtil,dnngtil,dnnngtil,dnnnngtil,dnnnnngtil, $ dnnnnnngtil,dnnnnnnngtil - real*8 rhsmax,rmax,odd_get2d,adm,Jmom,mass,a,R,rBL + real*8 rhsmax,rmax,odd_get2d,adm,Jmom,mass,a,r_iso,rBL real*8,parameter :: rbh_tol = 1.0d-7,rbh_eps = 1.0d-10 integer,parameter :: itmax = 100 real*8 pi,zero,one,two |