Adding output directory name

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@17 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 6 insertions, 15 deletions

diff --git a/src/AHFinder.F b/src/AHFinder.F
index f45ad29..8240fa4 100644
--- a/src/AHFinder.F
+++ b/src/AHFinder.F
@@ -124,8 +124,6 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc
 !     ***   CHECK IF WE WANT TO FIND 3 HORIZONS   ***
 !     ***********************************************
 
-
-!      find3 = contains("ahf_find3","yes").ne.0
       if (ahf_find3.ne.0) then
          find3 = .true.
       else
@@ -230,18 +228,12 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc
 !     ***   GET THE NAME OF OUTPUT DIRECTORY   ***
 !     ********************************************
 
-      write(*,*) 'outdir =',outdir
-!         write(*,*) 'filestr =', filestr
-!         write(*,*) 'nfile =',nfile
+      call CCTK_FortranString(nfile,outdir,filestr)
+
+cGAB : should there still be an if statement here
+
+      if (.true.) then
 
-      if (.false.) then
-!      nfile = getoutpfx(GH,filestr)
-!         filestr = outdir
-!         nfile = LEN(outdir)
-!         write(*,*) 'filestr =', filestr
-!         write(*,*) 'nfile =',nfile
-!         
-         write(*,*) 'jetzt bin ich da, wo ich nicht sein sollte ( ?? sounds like Jim Kopf und die Wilde 13 - gl)'
          if (find3) then
             
             if (mfind.eq.0) then
@@ -347,8 +339,7 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc
       end if   
 
 
-!      if (logfile.and.(myproc.eq.0)) then
-      if (.false.) then
+      if (logfile.and.(myproc.eq.0)) then
          if (logfile) then
             if (myproc.eq.0) then
                open(1,file=logf,form='formatted',status='replace')