putting files into outdir (appending a / after outdir)

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

4 files changed, 36 insertions, 36 deletions

diff --git a/src/AHFinder.F b/src/AHFinder.F
index 3e7a6ec..d7aee7b 100644
--- a/src/AHFinder.F
+++ b/src/AHFinder.F
@@ -221,53 +221,53 @@ c@@*/
             
          if (mfind.eq.0) then
 
-            logf = filestr(1:nfile)//"ahf_logfile_0"
-            almf = filestr(1:nfile)//"ahf_coeff_0.alm"
+            logf = filestr(1:nfile)//"/ahf_logfile_0"
+            almf = filestr(1:nfile)//"/ahf_coeff_0.alm"
 
-            areaf = filestr(1:nfile)//"ahf_area_0.tl"
-            massf = filestr(1:nfile)//"ahf_mass_0.tl"
+            areaf = filestr(1:nfile)//"/ahf_area_0.tl"
+            massf = filestr(1:nfile)//"/ahf_mass_0.tl"
 
-            circeqf = filestr(1:nfile)//"ahf_circ_eq_0.tl"
-            merip1f = filestr(1:nfile)//"ahf_meri_p1_0.tl"
-            merip2f = filestr(1:nfile)//"ahf_meri_p2_0.tl"
+            circeqf = filestr(1:nfile)//"/ahf_circ_eq_0.tl"
+            merip1f = filestr(1:nfile)//"/ahf_meri_p1_0.tl"
+            merip2f = filestr(1:nfile)//"/ahf_meri_p2_0.tl"
 
          else if (mfind.eq.1) then
 
-            logf = filestr(1:nfile)//"ahf_logfile_1"
-            almf = filestr(1:nfile)//"ahf_coeff_1.alm"
+            logf = filestr(1:nfile)//"/ahf_logfile_1"
+            almf = filestr(1:nfile)//"/ahf_coeff_1.alm"
 
-            areaf = filestr(1:nfile)//"ahf_area_1.tl"
-            massf = filestr(1:nfile)//"ahf_mass_1.tl"
+            areaf = filestr(1:nfile)//"/ahf_area_1.tl"
+            massf = filestr(1:nfile)//"/ahf_mass_1.tl"
 
-            circeqf = filestr(1:nfile)//"ahf_circ_eq_1.tl"
-            merip1f = filestr(1:nfile)//"ahf_meri_p1_1.tl"
-            merip2f = filestr(1:nfile)//"ahf_meri_p2_1.tl"
+            circeqf = filestr(1:nfile)//"/ahf_circ_eq_1.tl"
+            merip1f = filestr(1:nfile)//"/ahf_meri_p1_1.tl"
+            merip2f = filestr(1:nfile)//"/ahf_meri_p2_1.tl"
 
          else
 
-            logf = filestr(1:nfile)//"ahf_logfile_2"
-            almf = filestr(1:nfile)//"ahf_coeff_2.alm"
+            logf = filestr(1:nfile)//"/ahf_logfile_2"
+            almf = filestr(1:nfile)//"/ahf_coeff_2.alm"
 
-            areaf = filestr(1:nfile)//"ahf_area_2.tl"
-            massf = filestr(1:nfile)//"ahf_mass_2.tl"
+            areaf = filestr(1:nfile)//"/ahf_area_2.tl"
+            massf = filestr(1:nfile)//"/ahf_mass_2.tl"
 
-            circeqf = filestr(1:nfile)//"ahf_circ_eq_2.tl"
-            merip1f = filestr(1:nfile)//"ahf_meri_p1_2.tl"
-            merip2f = filestr(1:nfile)//"ahf_meri_p2_2.tl"
+            circeqf = filestr(1:nfile)//"/ahf_circ_eq_2.tl"
+            merip1f = filestr(1:nfile)//"/ahf_meri_p1_2.tl"
+            merip2f = filestr(1:nfile)//"/ahf_meri_p2_2.tl"
 
          end if
 
       else
 
-         logf = filestr(1:nfile)//"ahf_logfile"
-         almf = filestr(1:nfile)//"ahf_coeff.alm"
+         logf = filestr(1:nfile)//"/ahf_logfile"
+         almf = filestr(1:nfile)//"/ahf_coeff.alm"
             
-         areaf = filestr(1:nfile)//"ahf_area.tl"
-         massf = filestr(1:nfile)//"ahf_mass.tl"
+         areaf = filestr(1:nfile)//"/ahf_area.tl"
+         massf = filestr(1:nfile)//"/ahf_mass.tl"
          
-         circeqf = filestr(1:nfile)//"ahf_circ_eq.tl"
-         merip1f = filestr(1:nfile)//"ahf_meri_p1.tl"
-         merip2f = filestr(1:nfile)//"ahf_meri_p2.tl"
+         circeqf = filestr(1:nfile)//"/ahf_circ_eq.tl"
+         merip1f = filestr(1:nfile)//"/ahf_meri_p1.tl"
+         merip2f = filestr(1:nfile)//"/ahf_meri_p2.tl"
 
       end if
 
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F
index c0b141e..35a4d72 100644
--- a/src/AHFinder_flow.F
+++ b/src/AHFinder_flow.F
@@ -329,7 +329,7 @@ c@@*/
 
 !        Open logfile.
 
-         logf = filestr(1:nfile)//"ahf_logfile"
+         logf = filestr(1:nfile)//"/ahf_logfile"
 
          if (logfile.and.(myproc.eq.0)) then
             open(1,file=logf,form='formatted',status='old',
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F
index 4f2f0b9..89e51c4 100644
--- a/src/AHFinder_gau.F
+++ b/src/AHFinder_gau.F
@@ -1,4 +1,4 @@
-c/*@@
+/*@@
 c  @file      AHFinder_gau.F
 c  @date      October 1998
 c  @author    Miguel Alcubierre
@@ -1105,14 +1105,14 @@ cc#endif
 
          if (find3) then
             if (mfind.eq.0) then
-               gaussf = filestr(1:nfile)//"mahf_0.gauss"
+               gaussf = filestr(1:nfile)//"/mahf_0.gauss"
             else if (mfind.eq.1) then
-               gaussf = filestr(1:nfile)//"mahf_1.gauss"
+               gaussf = filestr(1:nfile)//"/mahf_1.gauss"
             else if (mfind.eq.2) then
-               gaussf = filestr(1:nfile)//"mahf_2.gauss"
+               gaussf = filestr(1:nfile)//"/mahf_2.gauss"
             end if
          else
-            gaussf = filestr(1:nfile)//"mahf.gauss"
+            gaussf = filestr(1:nfile)//"/mahf.gauss"
          end if
 
 
diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F
index 9acf62b..e3f1dd7 100644
--- a/src/AHFinder_pow.F
+++ b/src/AHFinder_pow.F
@@ -103,7 +103,7 @@ c Note that including cactus.h will also include AHFinder.h
       end if
 
       if ((myproc.eq.0).and.logfile) then
-         logf = filestr(1:nfile)//"ahf_logfile"
+         logf = filestr(1:nfile)//"/ahf_logfile"
          open(1,file=logf,form='formatted',status='old',
      .   position='append')
          write(1,*)
@@ -708,7 +708,7 @@ c Note that including cactus.h will also include AHFinder.h
 !     ***   OPEN LOGFILE   ***
 !     ************************
 
-      logf = filestr(1:nfile)//"ahf_logfile"
+      logf = filestr(1:nfile)//"/ahf_logfile"
 
       if (logfile.and.(myproc.eq.0)) then
          open(1,file=logf,form='formatted',status='old',