[svn-r26211] revert ci 26204

1 files changed, 51 insertions, 0 deletions

diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index 4b4c0b6..0e1dbb0 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -2335,6 +2335,57 @@ CONTAINS
 
             hdferr = h5tenum_create_c(parent_id, new_type_id)
           END SUBROUTINE h5tenum_create_f
+
+!
+!****s* H5T/h5tenaum_insert_f
+!
+! NAME
+!  h5tenaum_insert_f
+!
+! PURPOSE
+!  Inserts a new enumeration datatype member.
+!
+! INPUTS
+!  type_id 	 - datatype identifier
+! OUTPUTS
+!  hdferr 	 - Returns 0 if successful and -1 if fails
+!
+! AUTHOR
+!  Elena Pourmal
+!  August 12, 1999
+!
+! HISTORY
+!  Explicit Fortran interfaces were added for
+!  called C functions (it is needed for Windows
+!  port).  March 7, 2001
+! SOURCE
+  SUBROUTINE h5tenum_insert_f(type_id,  name, value, hdferr)
+            IMPLICIT NONE
+            INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+            CHARACTER(LEN=*), INTENT(IN) :: name  !Name of  the new member
+            INTEGER, INTENT(IN) :: value !value of the new member
+            INTEGER, INTENT(OUT) :: hdferr        ! Error code
+!*****
+            INTEGER :: namelen
+
+            INTERFACE
+              INTEGER FUNCTION h5tenum_insert_c(type_id, name, namelen, value)
+              USE H5GLOBAL
+              !DEC$IF DEFINED(HDF5F90_WINDOWS)
+              !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TENUM_INSERT_C'::h5tenum_insert_c
+              !DEC$ENDIF
+              !DEC$ATTRIBUTES reference :: name
+              INTEGER(HID_T), INTENT(IN) :: type_id
+              CHARACTER(LEN=*), INTENT(IN) :: name
+              INTEGER, INTENT(IN) :: value
+              INTEGER :: namelen
+              END FUNCTION h5tenum_insert_c
+            END INTERFACE
+
+            namelen = LEN(name)
+            hdferr = h5tenum_insert_c(type_id, name, namelen, value)
+          END SUBROUTINE h5tenum_insert_f
+
 !
 !****s* H5T/h5tenum_nameof_f
 !