From f1ffd2202b3cd82da53b75016281c92706dfa8d3 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 18 Feb 2015 12:30:31 -0500 Subject: [svn-r26210] Removed debugging statement and typos. --- fortran/src/H5Tff_F03.f90 | 5 +---- fortran/src/H5Tff_F90.f90 | 2 +- 2 files changed, 2 insertions(+), 5 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 diff --git a/fortran/src/H5Tff_F90.f90 b/fortran/src/H5Tff_F90.f90 index f2ff543..24af4bb 100644 --- a/fortran/src/H5Tff_F90.f90 +++ b/fortran/src/H5Tff_F90.f90 @@ -40,7 +40,7 @@ MODULE H5T_PROVISIONAL CONTAINS ! -!****s* H5T/h5tenaum_insert_f +!****s* H5T/h5tenum_insert_f ! ! NAME ! h5tenaum_insert_f -- cgit v0.12