diff options
| author | knarf <knarf@971fb155-194f-0410-9daf-e2eca44e59f5> | 2010-04-23 09:44:58 +0000 |
|---|---|---|
| committer | knarf <knarf@971fb155-194f-0410-9daf-e2eca44e59f5> | 2010-04-23 09:44:58 +0000 |
| commit | 81d1ec8f0c8a274359efee939a4835b1814bfc9d (patch) | |
| tree | 10a2a8c2b66825df5d223dc5b1c3f4b307a8844d | |
| parent | b280d63ae11914a75a0a16b5fba70940edbc176f (diff) | |
fix bug
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@40 971fb155-194f-0410-9daf-e2eca44e59f5
| -rw-r--r-- | src/DistortedBHIVP.F | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F index 4913781..50139ed 100644 --- a/src/DistortedBHIVP.F +++ b/src/DistortedBHIVP.F @@ -52,7 +52,7 @@ c@@ */ $ o48,o49,o50,o51,o52,o53,o54,o55,o56,o57,o58,o59,o60,o61,o62, $ o63,o64,o65,o66,o67 real*8 rmax,adm - real*8,parameter :: dbh_eps = 1.0d-9 + real*8 dbh_eps real*8 pi integer :: ne, nq, np integer :: nx,ny,nz @@ -68,6 +68,7 @@ c@@ */ CCTK_POINTER, dimension(10) :: in_arrays, out_arrays CCTK_INT, dimension(10), parameter :: type_codes = CCTK_VARIABLE_REAL + dbh_eps = 1.0d-9 c Check if we should create and store conformal factor stuff |