From a6a5dc64dd42b3351de02669b8e8c084c893eeea Mon Sep 17 00:00:00 2001 From: knarf Date: Fri, 23 Apr 2010 09:52:21 +0000 Subject: bugfix (constant used as out function parameter) git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@55 b6f3ac56-194f-0410-8878-cdf6079d7f1b --- src/IDAxiOddBrillBH.F | 5 +++-- 1 file 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 -- cgit v1.2.3