diff options
| -rw-r--r-- | fortran/src/H5Tff_F03.f90 | 5 | ||||
| -rw-r--r-- | 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 |