diff options
author | knarf <knarf@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2010-04-23 09:52:21 +0000 |
---|---|---|
committer | knarf <knarf@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2010-04-23 09:52:21 +0000 |
commit | a6a5dc64dd42b3351de02669b8e8c084c893eeea (patch) | |
tree | 085442fad4b5d46b97db53679d84c8dc51a03f09 | |
parent | 551425be6ce8e192dda01484a0cd5fec60c8eac0 (diff) |
bugfix (constant used as out function parameter)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@55 b6f3ac56-194f-0410-8878-cdf6079d7f1b
-rw-r--r-- | src/IDAxiOddBrillBH.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/IDAxiOddBrillBH.F b/src/IDAxiOddBrillBH.F index 781fd36..f8dd25f 100644 --- a/src/IDAxiOddBrillBH.F +++ b/src/IDAxiOddBrillBH.F @@ -50,8 +50,8 @@ c@@*/ 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_iso,rBL - real*8,parameter :: rbh_tol = 1.0d-7,rbh_eps = 1.0d-10 + real*8 rhsmax,rmax,odd_get2d,adm,Jmom,mass,a,r_iso,rBL,rbh_eps + real*8,parameter :: rbh_tol = 1.0d-7 integer,parameter :: itmax = 100 real*8 pi,zero,one,two CCTK_REAL :: xmin,xmax,ymin,ymax,zmin,zmax @@ -70,6 +70,7 @@ c@@*/ CCTK_INT, dimension(6), parameter :: type_codes = CCTK_VARIABLE_REAL + rbh_eps = 1.0d-10 pi = 4.0d0*atan(1.0d0) c DO NOT use integer*4 ne = neta |