diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 17:30:31 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 17:30:31 (GMT) |
| commit | f1ffd2202b3cd82da53b75016281c92706dfa8d3 (patch) | |
| tree | 552fa0c3522df126267b73e38e6bfda8faeb1d61 /fortran/src/H5Tff_F03.f90 | |
| parent | 73bb11dda3265abce3b32b8e28151f536d5d5afb (diff) | |
| download | hdf5-f1ffd2202b3cd82da53b75016281c92706dfa8d3.zip hdf5-f1ffd2202b3cd82da53b75016281c92706dfa8d3.tar.gz hdf5-f1ffd2202b3cd82da53b75016281c92706dfa8d3.tar.bz2 | |
[svn-r26210] Removed debugging statement and typos.
Diffstat (limited to 'fortran/src/H5Tff_F03.f90')
| -rw-r--r-- | fortran/src/H5Tff_F03.f90 | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/fortran/src/H5Tff_F03.f90 b/fortran/src/H5Tff_F03.f90 index 60a83e9..616ff58 100644 --- a/fortran/src/H5Tff_F03.f90 +++ b/fortran/src/H5Tff_F03.f90 @@ -151,18 +151,15 @@ CONTAINS INTEGER(C_INT), TARGET :: c_value TYPE(C_PTR) :: f_ptr - PRINT*,'b',value ! make sure 'value' is the same type as the C int c_value = INT(value, C_INT) f_ptr = C_LOC(c_value) - - PRINT*,value CALL h5tenum_insert_ptr(type_id, name, f_ptr, hdferr) END SUBROUTINE h5tenum_insert_integer ! -!****s* H5T/h5tenaum_insert_f_F03 +!****s* H5T/h5tenum_insert_f_F03 ! ! NAME ! h5tenaum_insert_f |