diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-01-04 17:18:56 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-01-04 17:18:56 +0000 |
| commit | fcae0b207ae061d26b7b2d9a06d5f2c90093fcc4 (patch) | |
| tree | 1e1c59ff4bcd056476289a22cfd030e61e8bc16d /src/AHFinder_output.F | |
| parent | 076f0b893f1c170428d3fde62157ce4796db439e (diff) | |
Fix for building the output filenames: Sun fortran compiler cannot trim() an
empty string.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@273 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_output.F')
| -rw-r--r-- | src/AHFinder_output.F | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index 0861aaa..91213bb 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -26,7 +26,7 @@ CCTK_REAL intarea_h integer l, m, ierror - character*2 ext + character*3 ext character*200 almf,areaf,massf,radf,circeqf,merip1f,merip2f character*200 asymxf,asymyf,asymzf character*200 options @@ -36,24 +36,25 @@ ! *** BUILD FILE NAMES *** ! **************************** +c some compilers cannot trim an empty string, so we add at least one char if (find3) then - ext = "_" // char(ichar('0') + mfind - 1) + ext = "_" // char(ichar('0') + mfind - 1) // "." else - ext = "" + ext = "." end if - almf = filestr(1:nfile) // "/ahf_coeff" // trim(ext) // ".alm" - areaf = filestr(1:nfile) // "/ahf_area" // trim(ext) // ".tl" - massf = filestr(1:nfile) // "/ahf_mass" // trim(ext) // ".tl" - radf = filestr(1:nfile) // "/ahf_rad" // trim(ext) // ".tl" + almf = filestr(1:nfile) // "/ahf_coeff" // trim(ext) // "alm" + areaf = filestr(1:nfile) // "/ahf_area" // trim(ext) // "tl" + massf = filestr(1:nfile) // "/ahf_mass" // trim(ext) // "tl" + radf = filestr(1:nfile) // "/ahf_rad" // trim(ext) // "tl" - circeqf = filestr(1:nfile) // "/ahf_circ_eq" // trim(ext) // ".tl" - merip1f = filestr(1:nfile) // "/ahf_meri_p1" // trim(ext) // ".tl" - merip2f = filestr(1:nfile) // "/ahf_meri_p2" // trim(ext) // ".tl" + circeqf = filestr(1:nfile) // "/ahf_circ_eq" // trim(ext) // "tl" + merip1f = filestr(1:nfile) // "/ahf_meri_p1" // trim(ext) // "tl" + merip2f = filestr(1:nfile) // "/ahf_meri_p2" // trim(ext) // "tl" - asymxf = filestr(1:nfile) // "/ahf_asymx" // trim(ext) // ".tl" - asymyf = filestr(1:nfile) // "/ahf_asymy" // trim(ext) // ".tl" - asymzf = filestr(1:nfile) // "/ahf_asymz" // trim(ext) // ".tl" + asymxf = filestr(1:nfile) // "/ahf_asymx" // trim(ext) // "tl" + asymyf = filestr(1:nfile) // "/ahf_asymy" // trim(ext) // "tl" + asymzf = filestr(1:nfile) // "/ahf_asymz" // trim(ext) // "tl" ! ********************************* |