diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-08-20 21:07:10 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-08-20 21:07:10 +0000 |
| commit | 9e3be98d93baec12d982efe64ff3d057ab6f75a4 (patch) | |
| tree | 4b26fc4b2499cd535f179f75fa6914773271b7ab /src/AHFinder_output.F | |
| parent | 34bbeb884f55437b40db9ef2c2ace837b5648107 (diff) | |
Replaced "char('0' + int)" by "char(48 + int)" in string concatenation.
The first notation didn't compile with Lahey compilers.
This closes PR CactusEinstein-765.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@227 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_output.F')
| -rw-r--r-- | src/AHFinder_output.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index e4586c4..137697d 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -38,7 +38,7 @@ extlen = 0 if (find3) then - ext = "_" // char('0' + mfind - 1) + ext = "_" // char(48 + mfind - 1) extlen = 2 end if @@ -373,7 +373,7 @@ ! *** OUTPUT AHFINDER DATA IN HDF5 FORMAT *** ! *********************************************** - options = "mfind=" // char('0' + mfind) // " mtype=" // char('0' + mtype) + options = "mfind=" // char(48 + mfind) // " mtype=" // char(48 + mtype) if (status) then options = options(1:15) // " status=1" else |