diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder.F | 56 | ||||
-rw-r--r-- | src/AHFinder_flow.F | 2 | ||||
-rw-r--r-- | src/AHFinder_gau.F | 10 | ||||
-rw-r--r-- | src/AHFinder_pow.F | 4 |
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', |