mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-19 16:50:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r26866] Removed the default REAL and DOUBLE PRECESION dependency.

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-21 11:53:40 -05:00
parent c88f2abea5
commit 6813b25007
19 changed files with 1354 additions and 4562 deletions

10
CMakeLists.txt

@ -885,16 +885,6 @@ if (EXISTS "${HDF5_SOURCE_DIR}/tools" AND IS_DIRECTORY "${HDF5_SOURCE_DIR}/tools
endif (HDF5_BUILD_TOOLS)
endif (EXISTS "${HDF5_SOURCE_DIR}/tools" AND IS_DIRECTORY "${HDF5_SOURCE_DIR}/tools")
#-----------------------------------------------------------------------------
# Check if Fortran's default real is double precision. If it is and HL is
# being built then configure should fail due to bug HDFFV-889.
#-----------------------------------------------------------------------------
if (HDF5_BUILD_FORTRAN AND HDF5_BUILD_HL_LIB )
if (NOT FORTRAN_DEFAULT_REAL_NOT_DOUBLE)
message (FATAL_ERROR " **** Fortran high-level routines are not supported when the default REAL is DOUBLE PRECISION, use HDF5_BUILD_HL_LIB:BOOL=OFF **** ")
endif (NOT FORTRAN_DEFAULT_REAL_NOT_DOUBLE)
endif (HDF5_BUILD_FORTRAN AND HDF5_BUILD_HL_LIB )
#-----------------------------------------------------------------------------
# Generate the H5pubconf.h file containing user settings needed by compilation
#-----------------------------------------------------------------------------

2
MANIFEST

@ -272,8 +272,6 @@
./fortran/src/H5_f.c
./fortran/src/H5_ff.F90
./fortran/src/H5_DBLE_InterfaceInclude.F90
./fortran/src/H5_DBLE_InterfaceExclude.F90
./fortran/src/H5Af.c
./fortran/src/H5Aff.F90
./fortran/src/H5Df.c

62
configure vendored

@ -722,8 +722,6 @@ am__fastdepCXX_TRUE
CXXDEPMODE
ac_ct_CXX
CXXFLAGS
FORTRAN_DEFAULT_REALisDBLE_F_FALSE
FORTRAN_DEFAULT_REALisDBLE_F_TRUE
FORTRAN_2003_CONDITIONAL_F_FALSE
FORTRAN_2003_CONDITIONAL_F_TRUE
FCLIBS
@ -6556,48 +6554,6 @@ $as_echo "#define FORTRAN_HAVE_SIZEOF 1" >>confdefs.h
fi
## Check to see if -r8 was specified to determine if we need to
## compile the DOUBLE PRECISION interfaces.
FORTRAN_DEFAULT_REALisDBLE="no"
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if Fortran default REAL is DOUBLE PRECISION" >&5
$as_echo_n "checking if Fortran default REAL is DOUBLE PRECISION... " >&6; }
cat > conftest.$ac_ext <<_ACEOF
MODULE type_mod
INTERFACE h5t
MODULE PROCEDURE h5t_real
MODULE PROCEDURE h5t_dble
END INTERFACE
CONTAINS
SUBROUTINE h5t_real(r)
REAL :: r
END SUBROUTINE h5t_real
SUBROUTINE h5t_dble(d)
DOUBLE PRECISION :: d
END SUBROUTINE h5t_dble
END MODULE type_mod
PROGRAM main
USE type_mod
REAL :: r
DOUBLE PRECISION :: d
CALL h5t(r)
CALL h5t(d)
END PROGRAM main
_ACEOF
if ac_fn_fc_try_compile "$LINENO"; then :
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
$as_echo "no" >&6; }
else
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
$as_echo "yes" >&6; }
FORTRAN_DEFAULT_REALisDBLE="yes"
fi
rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
if test "X$HDF_FORTRAN2003" = "Xyes"; then
## Checking if the compiler supports the required Fortran 2003 features and
@ -6660,14 +6616,6 @@ else
FORTRAN_2003_CONDITIONAL_F_FALSE=
fi
if test "X$FORTRAN_DEFAULT_REALisDBLE" = "Xyes"; then
FORTRAN_DEFAULT_REALisDBLE_F_TRUE=
FORTRAN_DEFAULT_REALisDBLE_F_FALSE='#'
else
FORTRAN_DEFAULT_REALisDBLE_F_TRUE='#'
FORTRAN_DEFAULT_REALisDBLE_F_FALSE=
fi
## ----------------------------------------------------------------------
## Check if they would like the C++ interface compiled
@ -7422,12 +7370,6 @@ if test "X$HDF5_HL" = "Xyes"; then
$as_echo "#define INCLUDE_HL 1" >>confdefs.h
## If Fortran's default real is double precision and HL is being built then configure
## should fail due to bug HDFFV-889.
if test "X$FORTRAN_DEFAULT_REALisDBLE" = "Xyes"; then
as_fn_error $? "Fortran high-level routines are not supported when the default REAL is DOUBLE PRECISION, use configure option --disable-hl." "$LINENO" 5
fi
else
echo "no"
fi
@ -30220,10 +30162,6 @@ if test -z "${FORTRAN_2003_CONDITIONAL_F_TRUE}" && test -z "${FORTRAN_2003_CONDI
as_fn_error $? "conditional \"FORTRAN_2003_CONDITIONAL_F\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${FORTRAN_DEFAULT_REALisDBLE_F_TRUE}" && test -z "${FORTRAN_DEFAULT_REALisDBLE_F_FALSE}"; then
as_fn_error $? "conditional \"FORTRAN_DEFAULT_REALisDBLE_F\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then
as_fn_error $? "conditional \"am__fastdepCXX\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5

11
configure.ac

@ -462,10 +462,6 @@ if test "X$HDF_FORTRAN" = "Xyes"; then
AC_DEFINE([FORTRAN_HAVE_SIZEOF], [1], [Define if we have Fortran intrinsic SIZEOF])
fi
## Check to see if -r8 was specified to determine if we need to
## compile the DOUBLE PRECISION interfaces.
PAC_PROG_FC_DEFAULT_REALisDBLE
if test "X$HDF_FORTRAN2003" = "Xyes"; then
## Checking if the compiler supports the required Fortran 2003 features and
@ -486,7 +482,6 @@ fi
AC_LANG_POP(Fortran)
AM_CONDITIONAL([FORTRAN_2003_CONDITIONAL_F], [test "X$HAVE_FORTRAN_2003" = "Xyes"])
AM_CONDITIONAL([FORTRAN_DEFAULT_REALisDBLE_F], [test "X$FORTRAN_DEFAULT_REALisDBLE" = "Xyes"])
## ----------------------------------------------------------------------
## Check if they would like the C++ interface compiled
@ -551,12 +546,6 @@ if test "X$HDF5_HL" = "Xyes"; then
HL="hl"
AC_DEFINE([INCLUDE_HL], [1],
[Define if HDF5's high-level library headers should be included in hdf5.h])
## If Fortran's default real is double precision and HL is being built then configure
## should fail due to bug HDFFV-889.
if test "X$FORTRAN_DEFAULT_REALisDBLE" = "Xyes"; then
AC_MSG_ERROR([Fortran high-level routines are not supported when the default REAL is DOUBLE PRECISION, use configure option --disable-hl.])
fi
else
echo "no"
fi

23
fortran/src/CMakeLists.txt

@ -144,17 +144,6 @@ set_target_properties (${HDF5_F90_C_LIB_TARGET} PROPERTIES
INTERFACE_INCLUDE_DIRECTORIES "$<INSTALL_INTERFACE:$<INSTALL_PREFIX>/include>"
)
#-----------------------------------------------------------------------------
# Fortran Real Size
#-----------------------------------------------------------------------------
if (FORTRAN_DEFAULT_REAL_NOT_DOUBLE)
# default real is 4 bytes, so include double signatures
set (F_DBLE "Include")
else (FORTRAN_DEFAULT_REAL_NOT_DOUBLE)
# default real is 8 bytes, so exclude double signatures
set (F_DBLE "Exclude")
endif (FORTRAN_DEFAULT_REAL_NOT_DOUBLE)
#-----------------------------------------------------------------------------
# Fortran Modules
#-----------------------------------------------------------------------------
@ -178,7 +167,6 @@ set (f90_F_SRCS
${HDF5_F90_SRC_SOURCE_DIR}/H5Sff.F90
${HDF5_F90_SRC_SOURCE_DIR}/H5Tff.F90
${HDF5_F90_SRC_SOURCE_DIR}/H5Zff.F90
${HDF5_F90_SRC_SOURCE_DIR}/H5_DBLE_Interface${F_DBLE}.F90
)
set (f90_F_SRCS
@ -262,17 +250,6 @@ set (mod_files
${MOD_BUILD_DIR}/h5s.mod
${MOD_BUILD_DIR}/h5t.mod
${MOD_BUILD_DIR}/h5z.mod
${MOD_BUILD_DIR}/h5a_provisional.mod
${MOD_BUILD_DIR}/h5d_provisional.mod
${MOD_BUILD_DIR}/h5e_provisional.mod
${MOD_BUILD_DIR}/h5f_provisional.mod
${MOD_BUILD_DIR}/h5l_provisional.mod
${MOD_BUILD_DIR}/h5lib_provisional.mod
${MOD_BUILD_DIR}/h5o_provisional.mod
${MOD_BUILD_DIR}/h5p_provisional.mod
${MOD_BUILD_DIR}/h5r_provisional.mod
${MOD_BUILD_DIR}/h5t_provisional.mod
${MOD_BUILD_DIR}/h5_dble_interface.mod
)
install (
FILES

775
fortran/src/H5Af.c

@ -118,383 +118,6 @@ done:
return ret_value;
}
/****if* H5Af/h5awritec_c
* NAME
* h5awritec_c
* PURPOSE
* Call h5awrite_c to write a character attribute
* INPUTS
* attr_id - dataset identifier
* mem_type_id - memory datatype identifier
* buf - character data buffer
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Thursday , August 12, 1999
* HISTORY
* dims paramete added.
* April 4, 2001
* SOURCE
*/
int_f
h5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
/****if* H5Af/h5awrite_c
* NAME
* h5awrite_c
* PURPOSE
* Call H5Awrite to write a attribute
* INPUTS
* attr_id - attribute identifier
* mem_type_id - memory datatype identifier
* buf - data buffer
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Thursday, August 12, 1999
* HISTORY
* dims parameter added
* April 4, 2001
* Added h5awrite_integer(real,double)_s,1-7 functions to eliminate
* complains about wrong parameters types in h5awrite_c function
* called by Fortran routines.
* October 9, 2006 EIP
* SOURCE
*/
int_f
h5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
{
/*
* Call h5awrite_c function.
*/
return h5awrite_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
/******/
@ -512,404 +135,6 @@ done:
}
/****if* H5Af/h5areadc_c
* NAME
* h5areadc_c
* PURPOSE
* Call h5aread_c to read character attribute
* INPUTS
* dset_id - dataset identifier
* mem_type_id - memory datatype identifier
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* OUTPUTS
* buf - character data buffer
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Thursday, August 12, 1999
* HISTORY
* dims parameter added.
* April 4, 2001
* Added h5areadc_s,1-7 functions to eliminate
* complains about wrong parameters types in h5awrite_c function
* called by Fortran routines.
* October 9, 2006 EIP
* SOURCE
*/
int_f
h5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
int_f
h5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
}
/****if* H5Af/h5aread_c
* NAME
* h5aread_c
* PURPOSE
* Call H5Aread to read an attribute
* INPUTS
* dset_id - dataset identifier
* mem_type_id - memory datatype identifier
* dims - array to store dimensions sizes of buf; used only
* by Fortran routine.
* OUTPUTS
* buf - data buffer
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Thursday, August 12, 1999
* HISTORY
* dims paramete added.
* April 4, 2001
* Added h5aread_integer(real,double)_s,1-7 functions to eliminate
* complains about wrong parameters types in h5awrite_c function
* called by Fortran routines.
* October 9, 2006 EIP
* SOURCE
*/
int_f
h5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
int_f ret_value=0; /* Return value */
/*
* Call H5Aread function.
*/
if (H5Aread((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0)
HGOTO_DONE(FAIL);
done:
return ret_value;
}
int_f
h5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
int_f
h5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
/******/
{
/*
* Call h5aread_c function.
*/
return h5aread_c(attr_id, mem_type_id, buf, dims);
}
/****if* H5Af/h5aclose_c
* NAME

577
fortran/src/H5Aff.F90

File diff suppressed because it is too large Load Diff

1012
fortran/src/H5Df.c

File diff suppressed because it is too large Load Diff

772
fortran/src/H5Dff.F90

File diff suppressed because it is too large Load Diff

358
fortran/src/H5Pf.c

@ -394,36 +394,6 @@ h5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
return ret_value;
}
/****if* H5Pf/h5pset_fill_valuec_c
* NAME
* h5pset_fill_valuec_c
* PURPOSE
* Call h5pset_fill_value_c to a character fill value
* INPUTS
* prp_id - property list identifier
* type_id - datatype identifier (fill value is of type type_id)
* fillvalue - character value
* RETURNS
* 0 on success, -1 on failure
* Saturday, August 14, 1999
* AUTHOR
* Elena Pourmal
* SOURCE
*/
int_f
h5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
/******/
{
int ret_value = -1;
/*
* Call h5pset_fill_value_c function.
*/
ret_value = h5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
return ret_value;
}
/****if* H5Pf/h5pset_fill_value_c
* NAME
* h5pset_fill_value_c
@ -461,68 +431,6 @@ h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
return ret_value;
}
int_f
h5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
/******/
{
/*
* Call h5pset_fill_value_c function.
*/
return h5pset_fill_value_c(prp_id, type_id, fillvalue);
}
int_f
h5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
/*
* Call h5pset_fill_value_c function.
*/
return h5pset_fill_value_c(prp_id, type_id, fillvalue);
}
int_f
h5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
/*
* Call h5pset_fill_value_c function.
*/
return h5pset_fill_value_c(prp_id, type_id, fillvalue);
}
/****if* H5Pf/h5pget_fill_valuec_c
* NAME
* h5pget_fill_valuec_c
* PURPOSE
* Call h5pget_fill_value_c to a character fill value
* INPUTS
* prp_id - property list identifier
* type_id - datatype identifier (fill value is of type type_id)
* fillvalue - character value
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Saturday, August 14, 1999
* HISTORY
* Fixed wrong call to C wrapper, was h5pset_fill_value_c, changed
* to h5pget_fill_value_c. MSB - 7/21/2014
*
* SOURCE
*/
int_f
h5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
/******/
{
int ret_value = -1;
/*
* Call h5pget_fill_value_c function.
*/
ret_value = h5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
return ret_value;
}
/****if* H5Pf/h5pget_fill_value_c
* NAME
* h5pget_fill_value_c
@ -560,33 +468,6 @@ h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
return ret_value;
}
int_f
h5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
/*
* Call h5pget_fill_value_c function.
*/
return h5pget_fill_value_c(prp_id, type_id, fillvalue);
}
int_f
h5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
/*
* Call h5pget_fill_value_c function.
*/
return h5pget_fill_value_c(prp_id, type_id, fillvalue);
}
int_f
h5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
{
/*
* Call h5pget_fill_value_c function.
*/
return h5pget_fill_value_c(prp_id, type_id, fillvalue);
}
/****if* H5Pf/h5pget_version_c
* NAME
* h5pget_version_c
@ -2831,40 +2712,6 @@ DONE:
return ret_value;
}
/****if* H5Pf/h5pregisterc_c
* NAME
* h5pregisterc_c
* PURPOSE
* Call h5pregister_c to registers a permanent property
* INPUTS
* class - property list class identifier
* name - name of the new property
* name_len - length of the "name" buffer
* size - property size
* value - property value of character type
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* October 11, 2002
* HISTORY
*
* SOURCE
*/
int_f
h5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
/******/
{
int ret_value = -1;
/*
* Call h5pregister_c function
*/
ret_value = h5pregister_c(cls, name, name_len, size, _fcdtocp(value));
return ret_value;
}
/****if* H5Pf/h5pregister_c
* NAME
* h5pregister_c
@ -2908,66 +2755,6 @@ DONE:
return ret_value;
}
int_f
h5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pregister_c function
*/
return h5pregister_c(cls, name, name_len, size, value);
}
int_f
h5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pregister_c function
*/
return h5pregister_c(cls, name, name_len, size, value);
}
int_f
h5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pregister_c function
*/
return h5pregister_c(cls, name, name_len, size, value);
}
/****if* H5Pf/h5pinsertc_c
* NAME
* h5pinsertc_c
* PURPOSE
* Call h5pinsert_c to register a temporary property
* INPUTS
* plist - property list identifier
* name - name of the new property
* name_len - length of the "name" buffer
* size - property size
* value - property value of character type
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* October 11, 2002
* HISTORY
*
* SOURCE
*/
int_f
h5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
/******/
{
int_f ret_value = -1;
/*
* Call h5pinsert_c function
*/
ret_value = h5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
return ret_value;
}
/****if* H5Pf/h5pinsert_c
* NAME
* h5pinsert_c
@ -3011,33 +2798,6 @@ DONE:
return ret_value;
}
int_f
h5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pinsert_c function
*/
return h5pinsert_c(plist, name, name_len, size, value);
}
int_f
h5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pinsert_c function
*/
return h5pinsert_c(plist, name, name_len, size, value);
}
int_f
h5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
{
/*
* Call h5pinsert_c function
*/
return h5pinsert_c(plist, name, name_len, size, value);
}
/****if* H5Pf/h5pexist_c
* NAME
* h5pexist_c
@ -3434,38 +3194,6 @@ DONE:
return ret_value;
}
/****if* H5Pf/h5psetc_c
* NAME
* h5psetc_c
* PURPOSE
* Call h5setc_c to set property with the character string value
* INPUTS
* plist - property list identifier
* name - name of property
* name_len - length of the "name" buffer
* value - property value of character type
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* October 11, 2002
* HISTORY
*
* SOURCE
*/
int_f
h5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
/******/
{
int_f ret_value = -1;
/*
* Call h5pset_c function
*/
ret_value = h5pset_c(plist, name, name_len, _fcdtocp(value));
return ret_value;
}
/****if* H5Pf/h5pset_c
* NAME
* h5pset_c
@ -3506,64 +3234,6 @@ DONE:
return ret_value;
}
int_f
h5pset_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pset_c function
*/
return h5pset_c(plist, name, name_len, value);
}
int_f
h5pset_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pset_c function
*/
return h5pset_c(plist, name, name_len, value);
}
int_f
h5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pset_c function
*/
return h5pset_c(plist, name, name_len, value);
}
/****if* H5Pf/h5pgetc_c
* NAME
* h5pgetc_c
* PURPOSE
* Call h5set_c to set property with the character string value
* INPUTS
* plist - property list identifier
* name - name of property
* name_len - length of the "name" buffer
* Output: value - property value of character type
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* October 11, 2002
* HISTORY
*
* SOURCE
*/
int_f
h5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
/******/
{
int_f ret_value = -1;
/*
* Call h5pget_c function
*/
ret_value = h5pget_c(plist, name, name_len, _fcdtocp(value));
return ret_value;
}
/****if* H5Pf/h5pget_c
* NAME
* h5pget_c
@ -3605,34 +3275,6 @@ DONE:
return ret_value;
}
int_f
h5pget_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pget_c function
*/
return h5pget_c(plist, name, name_len, value);
}
int_f
h5pget_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pget_c function
*/
return h5pget_c(plist, name, name_len, value);
}
int_f
h5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
{
/*
* Call h5pget_c function
*/
return h5pget_c(plist, name, name_len, value);
}
/****if* H5Pf/h5pset_shuffle_c
* NAME
* h5pset_shuffle_c

259
fortran/src/H5Pff.F90

@ -1,12 +1,10 @@
!****h* ROBODoc/H5P (F90)
!****h* ROBODoc/H5Pff
!
! NAME
! H5P_PROVISIONAL
! H5P
!
! PURPOSE
! This file contains Fortran interfaces for H5P functions. It includes
! all the functions that are independent on whether the Fortran 2003 functions
! are enabled or disabled.
! This file contains Fortran interfaces for H5P functions.
!
! COPYRIGHT
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
@ -36,7 +34,7 @@
MODULE H5P
USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_ptr, c_null_ptr, c_funptr, c_null_funptr, &
c_char, c_int, C_NULL_CHAR, C_LOC
c_char, c_int, C_NULL_CHAR, C_LOC, C_DOUBLE, C_FLOAT
USE H5GLOBAL
INTERFACE h5pset_fapl_multi_f
@ -46,7 +44,8 @@ MODULE H5P
INTERFACE h5pset_fill_value_f
MODULE PROCEDURE h5pset_fill_value_integer
MODULE PROCEDURE h5pset_fill_value_real
MODULE PROCEDURE h5pset_fill_value_c_float
MODULE PROCEDURE h5pset_fill_value_c_double
MODULE PROCEDURE h5pset_fill_value_char
! Recommended procedure:
MODULE PROCEDURE h5pset_fill_value_ptr
@ -55,7 +54,8 @@ MODULE H5P
INTERFACE h5pget_fill_value_f
MODULE PROCEDURE h5pget_fill_value_integer
MODULE PROCEDURE h5pget_fill_value_real
MODULE PROCEDURE h5pget_fill_value_c_float
MODULE PROCEDURE h5pget_fill_value_c_double
MODULE PROCEDURE h5pget_fill_value_char
! Recommended procedure:
MODULE PROCEDURE h5pget_fill_value_ptr
@ -64,7 +64,8 @@ MODULE H5P
INTERFACE h5pset_f
MODULE PROCEDURE h5pset_integer
MODULE PROCEDURE h5pset_real
MODULE PROCEDURE h5pset_c_float
MODULE PROCEDURE h5pset_c_double
MODULE PROCEDURE h5pset_char
! Recommended procedure:
MODULE PROCEDURE h5pset_ptr
@ -73,23 +74,24 @@ MODULE H5P
INTERFACE h5pget_f
MODULE PROCEDURE h5pget_integer
MODULE PROCEDURE h5pget_real
MODULE PROCEDURE h5pget_char
MODULE PROCEDURE h5pget_c_float
MODULE PROCEDURE h5pget_c_double
! Recommended procedure:
MODULE PROCEDURE h5pget_ptr
END INTERFACE
INTERFACE h5pregister_f
MODULE PROCEDURE h5pregister_integer
MODULE PROCEDURE h5pregister_real
MODULE PROCEDURE h5pregister_char
MODULE PROCEDURE h5pregister_c_float
MODULE PROCEDURE h5pregister_c_double
! Recommended procedure:
MODULE PROCEDURE h5pregister_ptr
END INTERFACE
INTERFACE h5pinsert_f
MODULE PROCEDURE h5pinsert_integer
MODULE PROCEDURE h5pinsert_real
MODULE PROCEDURE h5pinsert_c_float
MODULE PROCEDURE h5pinsert_c_double
MODULE PROCEDURE h5pinsert_char
! Recommended procedure:
MODULE PROCEDURE h5pinsert_ptr
@ -6257,38 +6259,65 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
END SUBROUTINE h5pget_fill_value_integer
SUBROUTINE h5pset_fill_value_real(prp_id, type_id, fillvalue, hdferr)
SUBROUTINE h5pset_fill_value_c_float(prp_id, type_id, fillvalue, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
! of fillvalue datatype
! (in memory)
REAL, INTENT(IN), TARGET :: fillvalue ! Fillvalue
REAL(KIND=C_FLOAT), INTENT(IN), TARGET :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(fillvalue)
hdferr = h5pset_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pset_fill_value_real
END SUBROUTINE h5pset_fill_value_c_float
SUBROUTINE h5pset_fill_value_c_double(prp_id, type_id, fillvalue, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
! of fillvalue datatype
! (in memory)
REAL(KIND=C_DOUBLE), INTENT(IN), TARGET :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
TYPE(C_PTR) :: f_ptr ! C address
SUBROUTINE h5pget_fill_value_real(prp_id, type_id, fillvalue, hdferr)
f_ptr = C_LOC(fillvalue)
hdferr = h5pset_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pset_fill_value_c_double
SUBROUTINE h5pget_fill_value_c_float(prp_id, type_id, fillvalue, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
! of fillvalue datatype
! (in memory)
REAL, INTENT(OUT), TARGET :: fillvalue ! Fillvalue
REAL(KIND=C_FLOAT), INTENT(OUT), TARGET :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(fillvalue)
hdferr = h5pget_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pget_fill_value_real
END SUBROUTINE h5pget_fill_value_c_float
SUBROUTINE h5pget_fill_value_c_double(prp_id, type_id, fillvalue, &
hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier of
! of fillvalue datatype
! (in memory)
REAL(KIND=C_DOUBLE), INTENT(IN), TARGET :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(fillvalue)
hdferr = h5pget_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pget_fill_value_c_double
SUBROUTINE h5pset_fill_value_char(prp_id, type_id, fillvalue, hdferr)
IMPLICIT NONE
@ -6301,7 +6330,6 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(fillvalue)
hdferr = h5pset_fill_value_c(prp_id, type_id, f_ptr)
END SUBROUTINE h5pset_fill_value_char
@ -6331,7 +6359,6 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
ENDIF
f_ptr = C_LOC(chr(1)(1:1))
hdferr = h5pget_fill_value_c(prp_id, type_id, f_ptr)
DO i = 1, chr_len
@ -6500,11 +6527,11 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
END SUBROUTINE h5pset_integer
SUBROUTINE h5pset_real(prp_id, name, value, hdferr)
SUBROUTINE h5pset_c_float(prp_id, name, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name ! Name of property to modify
REAL, INTENT(IN), TARGET :: value ! Property value
REAL(KIND=C_FLOAT), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr
@ -6514,7 +6541,45 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
name_len = LEN(name)
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
END SUBROUTINE h5pset_real
END SUBROUTINE h5pset_c_float
!
!****s* H5P (F90)/h5pset_c_double
!
! NAME
! h5pset_c_double
!
! PURPOSE
! Sets a property list value
!
! INPUTS
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! value - value to set property to
! OUTPUTS
! hdferr: - error code
! Success: 0
! Failure: -1
! AUTHOR
! Elena Pourmal
! October 9, 2002
! SOURCE
SUBROUTINE h5pset_c_double(prp_id, name, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
REAL(KIND=C_DOUBLE), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(value)
name_len = LEN(name)
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
END SUBROUTINE h5pset_c_double
SUBROUTINE h5pset_char(prp_id, name, value, hdferr)
IMPLICIT NONE
@ -6599,11 +6664,11 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
END SUBROUTINE h5pget_integer
SUBROUTINE h5pget_real(prp_id, name, value, hdferr)
SUBROUTINE h5pget_c_float(prp_id, name, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
REAL, INTENT(OUT), TARGET :: value ! Property value
REAL(KIND=C_FLOAT), INTENT(OUT), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr
@ -6612,7 +6677,44 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
name_len = LEN(name)
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
END SUBROUTINE h5pget_real
END SUBROUTINE h5pget_c_float
!****s* H5P (F90)/h5pget_c_double
!
! NAME
! h5pget_c_double
!
! PURPOSE
! Gets a property list value
!
! INPUTS
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! OUTPUTS
! value - value of property
! hdferr - error code
! Success: 0
! Failure: -1
! AUTHOR
! Elena Pourmal
! October 9, 2002
!
! SOURCE
SUBROUTINE h5pget_c_double(prp_id, name, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
REAL(KIND=C_DOUBLE), INTENT(OUT), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(value)
name_len = LEN(name)
hdferr = h5pget_c(prp_id, name, name_len, f_ptr)
END SUBROUTINE h5pget_c_double
SUBROUTINE h5pget_char(prp_id, name, value, hdferr)
IMPLICIT NONE
@ -6778,12 +6880,12 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
END SUBROUTINE h5pregister_integer
SUBROUTINE h5pregister_real(class, name, size, value, hdferr)
SUBROUTINE h5pregister_c_float(class, name, size, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to register
INTEGER(SIZE_T), INTENT(IN) :: size ! size of the property value
REAL, INTENT(IN), TARGET :: value ! Property value
REAL(KIND=C_FLOAT), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr
@ -6793,7 +6895,51 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
name_len = LEN(name)
hdferr = h5pregister_c(class, name, name_len, size, f_ptr)
END SUBROUTINE h5pregister_real
END SUBROUTINE h5pregister_c_float
!
!****s* H5P (F90)/h5pregister_c_double
!
! NAME
! h5pregister_c_double
!
! PURPOSE
! Registers a permanent property with a property list class.
!
! INPUTS
! class - property list class to register
! permanent property within
! name - name of property to register
! size - size of property in bytes
! value - default value for property in newly
! created property lists
! OUTPUTS
! hdferr - error code
! Success: 0
! Failure: -1
! AUTHOR
! Elena Pourmal
! October 10, 2002
!
! SOURCE
SUBROUTINE h5pregister_c_double(class, name, size, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to register
INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value
REAL(KIND=C_DOUBLE), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
INTEGER :: name_len
TYPE(C_PTR) :: f_ptr ! C address
f_ptr = C_LOC(value)
name_len = LEN(name)
hdferr = h5pregister_c(class, name, name_len, size, f_ptr)
END SUBROUTINE h5pregister_c_double
SUBROUTINE h5pregister_char(class, name, size, value, hdferr)
IMPLICIT NONE
@ -6921,12 +7067,12 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr)
END SUBROUTINE h5pinsert_integer
SUBROUTINE h5pinsert_real(plist, name, size, value, hdferr)
SUBROUTINE h5pinsert_c_float(plist, name, size, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to insert
INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value
REAL, INTENT(IN), TARGET :: value ! Property value
REAL(KIND=C_FLOAT), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
TYPE(c_ptr) :: f_ptr
@ -6936,7 +7082,48 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
name_len = LEN(name)
hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr)
END SUBROUTINE h5pinsert_real
END SUBROUTINE h5pinsert_c_float
!****s* H5P (F90)/h5pinsert_c_double
!
! NAME
!
! h5pinsert_c_double
!
! PURPOSE
! Registers a temporary property with a property list class.
!
! INPUTS
! plist - property list identifier
! permanent property within
! name - name of property to insert
! size - size of property in bytes
! value - initial value for the property
! OUTPUTS
! hdferr - error code
! Success: 0
! Failure: -1
! AUTHOR
! Elena Pourmal
! October 10, 2002
! SOURCE
SUBROUTINE h5pinsert_c_double(plist, name, size, value, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to insert
INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value
REAL(KIND=C_DOUBLE), INTENT(IN), TARGET :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
!*****
INTEGER :: name_len
TYPE(c_ptr) :: f_ptr
f_ptr = c_loc(value)
name_len = LEN(name)
hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr)
END SUBROUTINE h5pinsert_c_double
SUBROUTINE h5pinsert_char(plist, name, size, value, hdferr)
IMPLICIT NONE

39
fortran/src/H5_DBLE_InterfaceExclude.F90

@ -1,39 +0,0 @@
!****h* fortran/src/H5_DBLE_InterfaceExclude.f90
!
! NAME
! H5_DBLE_INTERFACE
!
! FUNCTION
! This module is used for when the default REAL is of type DOUBLE PRECISION.
! We do not include the double precision interfaces if the defaut REAL is
! DOUBLE PRECISION since this would lead to a non-unique conflict with the
! generic interfaces declared as REAL and those declared as DOUBLE PRECISION.
!
! NOTES
! Empty module.
!
! COPYRIGHT
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
! *
! This file is part of HDF5. The full HDF5 copyright notice, including *
! terms governing use, modification, and redistribution, is contained in *
! the files COPYING and Copyright.html. COPYING can be found at the root *
! of the source code distribution tree; Copyright.html can be found at the *
! root level of an installed copy of the electronic HDF5 document set and *
! is linked from the top-level documents page. It can also be found at *
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
! access to either file, you may request a copy from help@hdfgroup.org. *
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
! AUTHOR
! M. Scot Breitenfeld
!
!*****
MODULE H5_DBLE_INTERFACE
END MODULE H5_DBLE_INTERFACE

1701
fortran/src/H5_DBLE_InterfaceInclude.F90

File diff suppressed because it is too large Load Diff

176
fortran/src/H5f90proto.h

@ -141,110 +141,25 @@ H5_FCDLL int_f h5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f
hid_t_f *lcpl_id, hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id);
H5_FCDLL int_f h5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dapl_id, hid_t_f *dset_id);
H5_FCDLL int_f h5dclose_c ( hid_t_f *dset_id );
H5_FCDLL int_f h5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dwrite_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dwrite_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dread_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dread_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
H5_FCDLL int_f h5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f * buf, hsize_t_f *dims);
H5_FCDLL int_f h5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f * buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
H5_FCDLL int_f h5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id);
H5_FCDLL int_f h5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id);
H5_FCDLL int_f h5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id);
H5_FCDLL int_f h5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id);
H5_FCDLL int_f h5dset_extent_c ( hid_t_f *dset_id , hsize_t_f *dims);
H5_FCDLL int_f h5dvlen_get_max_len_c(hid_t_f *dataset_id, hid_t_f *type_id, hid_t_f *space_id, size_t_f *len);
H5_FCDLL int_f h5dget_storage_size_c(hid_t_f *dataset_id, hsize_t_f *size);
H5_FCDLL int_f h5dfillc_c(_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf, hid_t_f *mem_type_id);
H5_FCDLL int_f h5dfill_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
H5_FCDLL int_f h5dfill_integer_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
H5_FCDLL int_f h5dfill_real_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
H5_FCDLL int_f h5dfill_double_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
H5_FCDLL int_f h5dget_space_status_c ( hid_t_f *dset_id, int_f *flag);
H5_FCDLL int_f h5dcreate_anon_c (hid_t_f *loc_id, hid_t_f *type_id, hid_t_f *space_id,
hid_t_f *dcpl_id, hid_t_f *dapl_id, hid_t_f *dset_id);
@ -286,75 +201,7 @@ H5_FCDLL int_f h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f
H5_FCDLL int_f h5acreate_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id);
H5_FCDLL int_f h5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id);
H5_FCDLL int_f h5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5awrite_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
H5_FCDLL int_f h5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
H5_FCDLL int_f h5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
H5_FCDLL int_f h5aread_f_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf);
H5_FCDLL int_f h5aclose_c ( hid_t_f *attr_id );
H5_FCDLL int_f h5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen);
@ -514,17 +361,9 @@ H5_FCDLL int_f h5pset_deflate_c ( hid_t_f *prp_id , int_f *level);
H5_FCDLL int_f h5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims );
H5_FCDLL int_f h5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims );
H5_FCDLL int_f h5pset_file_image_c (hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len);
H5_FCDLL int_f h5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
H5_FCDLL int_f h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pget_file_image_c (hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len);
H5_FCDLL int_f h5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
H5_FCDLL int_f h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
H5_FCDLL int_f h5pset_preserve_c ( hid_t_f *prp_id , int_f *flag);
H5_FCDLL int_f h5pget_preserve_c ( hid_t_f *prp_id , int_f *flag);
H5_FCDLL int_f h5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr);
@ -592,25 +431,10 @@ H5_FCDLL int_f h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hi
H5P_cls_close_func_t close, void *close_data);
H5_FCDLL int_f h5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls);
H5_FCDLL int_f h5pregister_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pregister_integer_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pregister_real_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pregister_double_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pregisterc_c(hid_t_f *cls, _fcd name, int_f * name_len, size_t_f *size, _fcd value, int_f *value_len);
H5_FCDLL int_f h5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
H5_FCDLL int_f h5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len);
H5_FCDLL int_f h5pset_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pset_integer_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pset_real_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pset_double_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5psetc_c(hid_t_f *prp_id, _fcd name, int_f *name_len, _fcd value, int_f *value_len);
H5_FCDLL int_f h5pget_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pget_double_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pget_integer_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pget_real_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
H5_FCDLL int_f h5pgetc_c(hid_t_f *prp_id, _fcd name, int_f *name_len, _fcd value, int_f *value_len);
H5_FCDLL int_f h5pexist_c(hid_t_f *prp_id, _fcd name, int_f *name_len);
H5_FCDLL int_f h5pget_size_c(hid_t_f *prp_id, _fcd name, int_f *name_len, size_t_f *size);
H5_FCDLL int_f h5pget_nprops_c(hid_t_f *prp_id, size_t_f *nprops);

1
fortran/src/HDF5.F90

@ -41,6 +41,5 @@ MODULE HDF5
USE H5P
USE H5R
USE H5Z
USE H5_DBLE_INTERFACE
USE H5LIB
END MODULE HDF5

18
fortran/src/Makefile.am

@ -42,23 +42,11 @@ else
AM_LDFLAGS+=-static
endif
# Condition for including/excluding the DBLE interfaces for when the
# default REAL is of type DOUBLE PRECISION.
# We do not include the double precision interfaces if the defaut REAL is
# DOUBLE PRECISION since this would lead to a non-unique conflict with the
# generic interfaces declared as REAL.
if FORTRAN_DEFAULT_REALisDBLE_F
F_DBLE = Exclude
else
F_DBLE = Include
endif
# Source files for the library.
libhdf5_fortran_la_SOURCES=H5f90global.F90 \
H5fortran_types.F90 H5_ff.F90 H5Aff.F90 H5Dff.F90 H5Eff.F90 \
H5Fff.F90 H5Gff.F90 H5Iff.F90 H5Lff.F90 H5Off.F90 H5Pff.F90 H5Rff.F90 H5Sff.F90 \
H5Tff.F90 H5Zff.F90 \
H5_DBLE_Interface$(F_DBLE).F90 \
H5Tff.F90 H5Zff.F90 \
H5f90kit.c H5_f.c H5Af.c H5Df.c H5Ef.c H5Ff.c H5Gf.c \
H5If.c H5Lf.c H5Of.c H5Pf.c H5Rf.c H5Sf.c H5Tf.c H5Zf.c HDF5.f90
@ -186,13 +174,11 @@ H5Rff.lo: $(srcdir)/H5Rff.F90 H5f90global.lo
H5Sff.lo: $(srcdir)/H5Sff.F90 H5f90global.lo
H5Tff.lo: $(srcdir)/H5Tff.F90 H5f90global.lo
H5Zff.lo: $(srcdir)/H5Zff.F90 H5f90global.lo
H5_DBLE_Interface$(F_DBLE).lo: $(srcdir)/H5_DBLE_Interface$(F_DBLE).F90 H5f90global.lo
HDF5.lo: $(srcdir)/HDF5.F90 H5f90global.lo H5_ff.lo H5Aff.lo \
H5Dff.lo \
H5Eff.lo \
H5Fff.lo H5Gff.lo H5Iff.lo H5Lff.lo \
H5Off.lo H5Pff.lo H5Rff.lo \
H5Sff.lo H5Tff.lo H5Zff.lo \
H5_DBLE_Interface$(F_DBLE).lo
H5Sff.lo H5Tff.lo H5Zff.lo
include $(top_srcdir)/config/conclude.am

21
fortran/src/Makefile.in

@ -153,9 +153,9 @@ libhdf5_fortran_la_DEPENDENCIES = $(LIBHDF5)
am_libhdf5_fortran_la_OBJECTS = H5f90global.lo H5fortran_types.lo \
H5_ff.lo H5Aff.lo H5Dff.lo H5Eff.lo H5Fff.lo H5Gff.lo H5Iff.lo \
H5Lff.lo H5Off.lo H5Pff.lo H5Rff.lo H5Sff.lo H5Tff.lo H5Zff.lo \
H5_DBLE_Interface$(F_DBLE).lo H5f90kit.lo H5_f.lo H5Af.lo \
H5Df.lo H5Ef.lo H5Ff.lo H5Gf.lo H5If.lo H5Lf.lo H5Of.lo \
H5Pf.lo H5Rf.lo H5Sf.lo H5Tf.lo H5Zf.lo HDF5.lo
H5f90kit.lo H5_f.lo H5Af.lo H5Df.lo H5Ef.lo H5Ff.lo H5Gf.lo \
H5If.lo H5Lf.lo H5Of.lo H5Pf.lo H5Rf.lo H5Sf.lo H5Tf.lo \
H5Zf.lo HDF5.lo
libhdf5_fortran_la_OBJECTS = $(am_libhdf5_fortran_la_OBJECTS)
AM_V_lt = $(am__v_lt_@AM_V@)
am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
@ -722,21 +722,12 @@ lib_LTLIBRARIES = libhdf5_fortran.la
# Add libtool numbers to the HDF5 Fortran library (from config/lt_vers.am)
libhdf5_fortran_la_LDFLAGS = -version-info $(LT_VERS_INTERFACE):$(LT_VERS_REVISION):$(LT_VERS_AGE) $(AM_LDFLAGS)
@FORTRAN_DEFAULT_REALisDBLE_F_FALSE@F_DBLE = Include
# Condition for including/excluding the DBLE interfaces for when the
# default REAL is of type DOUBLE PRECISION.
# We do not include the double precision interfaces if the defaut REAL is
# DOUBLE PRECISION since this would lead to a non-unique conflict with the
# generic interfaces declared as REAL.
@FORTRAN_DEFAULT_REALisDBLE_F_TRUE@F_DBLE = Exclude
# Source files for the library.
libhdf5_fortran_la_SOURCES = H5f90global.F90 \
H5fortran_types.F90 H5_ff.F90 H5Aff.F90 H5Dff.F90 H5Eff.F90 \
H5Fff.F90 H5Gff.F90 H5Iff.F90 H5Lff.F90 H5Off.F90 H5Pff.F90 H5Rff.F90 H5Sff.F90 \
H5Tff.F90 H5Zff.F90 \
H5_DBLE_Interface$(F_DBLE).F90 \
H5Tff.F90 H5Zff.F90 \
H5f90kit.c H5_f.c H5Af.c H5Df.c H5Ef.c H5Ff.c H5Gf.c \
H5If.c H5Lf.c H5Of.c H5Pf.c H5Rf.c H5Sf.c H5Tf.c H5Zf.c HDF5.f90
@ -1434,14 +1425,12 @@ H5Rff.lo: $(srcdir)/H5Rff.F90 H5f90global.lo
H5Sff.lo: $(srcdir)/H5Sff.F90 H5f90global.lo
H5Tff.lo: $(srcdir)/H5Tff.F90 H5f90global.lo
H5Zff.lo: $(srcdir)/H5Zff.F90 H5f90global.lo
H5_DBLE_Interface$(F_DBLE).lo: $(srcdir)/H5_DBLE_Interface$(F_DBLE).F90 H5f90global.lo
HDF5.lo: $(srcdir)/HDF5.F90 H5f90global.lo H5_ff.lo H5Aff.lo \
H5Dff.lo \
H5Eff.lo \
H5Fff.lo H5Gff.lo H5Iff.lo H5Lff.lo \
H5Off.lo H5Pff.lo H5Rff.lo \
H5Sff.lo H5Tff.lo H5Zff.lo \
H5_DBLE_Interface$(F_DBLE).lo
H5Sff.lo H5Tff.lo H5Zff.lo
# lib/progs/tests targets recurse into subdirectories. build-* targets
# build files in this directory.

66
fortran/src/hdf5_fortrandll.def.in

@ -9,22 +9,6 @@ H5LIB_mp_H5DONT_ATEXIT_F
H5LIB_mp_H5KIND_TO_TYPE
@H5_NOF03EXP@H5LIB_PROVISIONAL_mp_H5OFFSETOF
; H5_DBLE_INTERFACE
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_SCALAR
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_1
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_2
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_3
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_4
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_5
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_6
H5_DBLE_INTERFACE_mp_H5AREAD_DOUBLE_7
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_SCALAR
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_1
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_2
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_3
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_4
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_5
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_6
H5_DBLE_INTERFACE_mp_H5AWRITE_DOUBLE_7
H5_DBLE_INTERFACE_mp_H5DFILL_DOUBLE
H5_DBLE_INTERFACE_mp_H5DREAD_DOUBLE_SCALAR
H5_DBLE_INTERFACE_mp_H5DREAD_DOUBLE_1
@ -52,54 +36,6 @@ H5_DBLE_INTERFACE_mp_H5PREGISTER_DOUBLE
H5A_mp_H5ACREATE_F
H5A_mp_H5AOPEN_NAME_F
H5A_mp_H5AOPEN_IDX_F
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_SCALAR
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_1
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_2
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_3
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_4
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_5
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_6
H5A_PROVISIONAL_mp_H5AWRITE_INTEGER_7
H5A_PROVISIONAL_mp_H5AWRITE_REAL_SCALAR
H5A_PROVISIONAL_mp_H5AWRITE_REAL_1
H5A_PROVISIONAL_mp_H5AWRITE_REAL_2
H5A_PROVISIONAL_mp_H5AWRITE_REAL_3
H5A_PROVISIONAL_mp_H5AWRITE_REAL_4
H5A_PROVISIONAL_mp_H5AWRITE_REAL_5
H5A_PROVISIONAL_mp_H5AWRITE_REAL_6
H5A_PROVISIONAL_mp_H5AWRITE_REAL_7
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_SCALAR
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_1
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_2
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_3
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_4
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_5
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_6
H5A_PROVISIONAL_mp_H5AWRITE_CHAR_7
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_SCALAR
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_1
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_2
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_3
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_4
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_5
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_6
H5A_PROVISIONAL_mp_H5AREAD_INTEGER_7
H5A_PROVISIONAL_mp_H5AREAD_REAL_SCALAR
H5A_PROVISIONAL_mp_H5AREAD_REAL_1
H5A_PROVISIONAL_mp_H5AREAD_REAL_2
H5A_PROVISIONAL_mp_H5AREAD_REAL_3
H5A_PROVISIONAL_mp_H5AREAD_REAL_4
H5A_PROVISIONAL_mp_H5AREAD_REAL_5
H5A_PROVISIONAL_mp_H5AREAD_REAL_6
H5A_PROVISIONAL_mp_H5AREAD_REAL_7
H5A_PROVISIONAL_mp_H5AREAD_CHAR_SCALAR
H5A_PROVISIONAL_mp_H5AREAD_CHAR_1
H5A_PROVISIONAL_mp_H5AREAD_CHAR_2
H5A_PROVISIONAL_mp_H5AREAD_CHAR_3
H5A_PROVISIONAL_mp_H5AREAD_CHAR_4
H5A_PROVISIONAL_mp_H5AREAD_CHAR_5
H5A_PROVISIONAL_mp_H5AREAD_CHAR_6
H5A_PROVISIONAL_mp_H5AREAD_CHAR_7
H5A_mp_H5AGET_SPACE_F
H5A_mp_H5AGET_TYPE_F
H5A_mp_H5AGET_NAME_F
@ -122,8 +58,6 @@ H5A_mp_H5AEXISTS_F
H5A_mp_H5AEXISTS_BY_NAME_F
H5A_mp_H5AOPEN_BY_NAME_F
H5A_mp_H5ARENAME_F
@H5_NOF03EXP@H5A_PROVISIONAL_mp_H5AWRITE_PTR
@H5_NOF03EXP@H5A_PROVISIONAL_mp_H5AREAD_PTR
; H5D
H5D_mp_H5DCREATE_F
H5D_mp_H5DOPEN_F

33
m4/aclocal_fc.m4

@ -111,39 +111,6 @@ AC_DEFUN([PAC_PROG_FC_STORAGE_SIZE],[
])
dnl Check to see if -r8 was specified to determine if we need to
dnl compile the DOUBLE PRECISION interfaces.
AC_DEFUN([PAC_PROG_FC_DEFAULT_REALisDBLE],[
FORTRAN_DEFAULT_REALisDBLE="no"
AC_MSG_CHECKING([if Fortran default REAL is DOUBLE PRECISION])
AC_COMPILE_IFELSE([AC_LANG_SOURCE([
MODULE type_mod
INTERFACE h5t
MODULE PROCEDURE h5t_real
MODULE PROCEDURE h5t_dble
END INTERFACE
CONTAINS
SUBROUTINE h5t_real(r)
REAL :: r
END SUBROUTINE h5t_real
SUBROUTINE h5t_dble(d)
DOUBLE PRECISION :: d
END SUBROUTINE h5t_dble
END MODULE type_mod
PROGRAM main
USE type_mod
REAL :: r
DOUBLE PRECISION :: d
CALL h5t(r)
CALL h5t(d)
END PROGRAM main
])], [AC_MSG_RESULT([no])],
[AC_MSG_RESULT([yes])
FORTRAN_DEFAULT_REALisDBLE="yes"])
])
dnl Checking if the compiler supports the required Fortran 2003 features and
dnl disable Fortran 2003 if it does not.