diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-10-09 10:03:53 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-10-09 10:03:53 +0000 |
| commit | 09c65736ef6f31258543609bea417ebee783255f (patch) | |
| tree | 4b95663a100af57d311d1600df2cb3f844fb4084 /src/AHFinder.F | |
| parent | bb66cc1eda3369c4bc83b1ec60da2896cf11a532 (diff) | |
Fixed filename string generation.
This closes PR CactusEinstein/806.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@249 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder.F')
| -rw-r--r-- | src/AHFinder.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index 81e3454..d263cfc 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -321,7 +321,7 @@ logfile = .true. logf = filestr(1:nfile)//"/ahf_logfile" if (find3) then - logf = logf // "_" // char(48 + mfind - 1) + logf = trim(logf) // "_" // char(ichar('0') + mfind - 1) end if else logfile = .false. |