aboutsummaryrefslogtreecommitdiff
path: root/src/AHFinder_pow.F
diff options
context:
space:
mode:
authorpollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c>2002-12-13 15:39:01 +0000
committerpollney <pollney@89daf98e-ef62-4674-b946-b8ff9de2216c>2002-12-13 15:39:01 +0000
commitdf8bb95c19fd2476e762daa0f4880fea475e3b34 (patch)
treeaf3750bbe6d936b194f18d573873be69696f2ea2 /src/AHFinder_pow.F
parent148275738986b70f6321a67b19c167ccd057018d (diff)
Modified output so that data is appended after checkpoint, rather
than deleting any existing files. * Starting a run from scratch will still wipe out any files that already exist in the output directory, as is usual for cactus 1d data. * If you do a horizon find on the timestep when you are also checkpointing, then you'll end up with a duplicate point in the output, as the horizon is found again at restart. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@320 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_pow.F')
-rw-r--r--src/AHFinder_pow.F4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F
index fe53079..a928f76 100644
--- a/src/AHFinder_pow.F
+++ b/src/AHFinder_pow.F
@@ -77,7 +77,7 @@
CCTK_REAL, dimension(1:N) :: P,PT,PTT,XIT
CCTK_REAL, dimension(1:N,1:N) :: XI
- character*200 logf
+ character(len=200) :: logf
parameter (ZEPS=1.0D-10)
@@ -691,7 +691,7 @@
CCTK_REAL, dimension(1:N) :: P
- character*200 logf
+ character(len=200) :: logf
save iter,logf