diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-22 20:22:11 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-09-22 20:22:11 (GMT) |
| commit | 362233bd452ea7997b5961a753ebd8be3876e64f (patch) | |
| tree | 702d8cfdaa82ac87f9856f349072e82995d21666 /fortran/src/H5_ff.F90 | |
| parent | 8eb76e1f65d029f7e651bc4ce2570a2fc31616ed (diff) | |
| download | hdf5-362233bd452ea7997b5961a753ebd8be3876e64f.zip hdf5-362233bd452ea7997b5961a753ebd8be3876e64f.tar.gz hdf5-362233bd452ea7997b5961a753ebd8be3876e64f.tar.bz2 | |
Code clean-up.
Diffstat (limited to 'fortran/src/H5_ff.F90')
| -rw-r--r-- | fortran/src/H5_ff.F90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index 9717d17..228e148 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -392,7 +392,6 @@ CONTAINS IF(flag.EQ.H5_INTEGER_KIND)THEN do_kind: DO i = 1, H5_FORTRAN_NUM_INTEGER_KINDS IF(ikind.EQ.Fortran_INTEGER_AVAIL_KINDS(i))THEN - !PRINT*,ikind, Fortran_INTEGER_AVAIL_KINDS(i),H5T_NATIVE_INTEGER_KIND(i) h5_type = H5T_NATIVE_INTEGER_KIND(i) EXIT do_kind ENDIF @@ -406,7 +405,7 @@ CONTAINS ELSE IF(ikind.EQ.KIND(1.0_C_LONG_DOUBLE))THEN h5_type = H5T_NATIVE_REAL_C_LONG_DOUBLE #endif -#if H5_PAC_FC_MAX_REAL_PRECISION > 28 +#if H5_PAC_FC_MAX_REAL_PRECISION > 28 #if H5_HAVE_FLOAT128 == 1 ELSE h5_type = H5T_NATIVE_FLOAT_128 |