summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2010-01-30 04:33:04 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2010-01-30 04:33:04 (GMT)
commitfa1f33701da4489a4626a057844fa799878feddf (patch)
treebfb0efbe3f126b46fbf0bf9bd8516bf1076ab8a4
parente3c80277440ec153a180ef89f7867bdedb51b87a (diff)
downloadhdf5-fa1f33701da4489a4626a057844fa799878feddf.zip
hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.gz
hdf5-fa1f33701da4489a4626a057844fa799878feddf.tar.bz2
[svn-r18198] Description:
Trim trailing whitespace from source code files, with following command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
-rw-r--r--c++/src/H5Attribute.cpp2
-rw-r--r--c++/src/H5DataSet.cpp14
-rw-r--r--c++/src/H5DataType.cpp2
-rw-r--r--c++/src/H5Group.cpp2
-rw-r--r--c++/src/H5Object.cpp2
-rw-r--r--c++/test/tlinks.cpp4
-rw-r--r--fortran/examples/attrexample.f9058
-rw-r--r--fortran/examples/compound.f9044
-rw-r--r--fortran/examples/dsetexample.f9030
-rw-r--r--fortran/examples/fileexample.f9016
-rw-r--r--fortran/examples/groupexample.f9022
-rw-r--r--fortran/examples/grpdsetexample.f9032
-rw-r--r--fortran/examples/grpit.f9038
-rw-r--r--fortran/examples/grpsexample.f9032
-rw-r--r--fortran/examples/hyperslab.f9068
-rw-r--r--fortran/examples/mountexample.f9080
-rw-r--r--fortran/examples/ph5example.f9042
-rw-r--r--fortran/examples/refobjexample.f9058
-rw-r--r--fortran/examples/refregexample.f9088
-rw-r--r--fortran/examples/rwdsetexample.f9034
-rw-r--r--fortran/examples/selectele.f9096
-rw-r--r--fortran/src/H5Aff.f901148
-rw-r--r--fortran/src/H5Df.c2
-rw-r--r--fortran/src/H5Dff.f902362
-rw-r--r--fortran/src/H5Ef.c12
-rw-r--r--fortran/src/H5Eff.f90142
-rw-r--r--fortran/src/H5FDmpioff.f90122
-rw-r--r--fortran/src/H5Ff.c2
-rw-r--r--fortran/src/H5Fff.f90502
-rw-r--r--fortran/src/H5Gff.f90608
-rw-r--r--fortran/src/H5If.c4
-rw-r--r--fortran/src/H5Iff.f90132
-rw-r--r--fortran/src/H5Lff.f90424
-rw-r--r--fortran/src/H5Off.f9062
-rw-r--r--fortran/src/H5Pf.c12
-rw-r--r--fortran/src/H5Pff.f902984
-rw-r--r--fortran/src/H5Rff.f90338
-rw-r--r--fortran/src/H5Sf.c14
-rw-r--r--fortran/src/H5Sff.f901092
-rw-r--r--fortran/src/H5Tff.f901568
-rw-r--r--fortran/src/H5Zff.f9086
-rw-r--r--fortran/src/H5_DBLE_InterfaceExclude.f906
-rw-r--r--fortran/src/H5_DBLE_InterfaceInclude.f90742
-rw-r--r--fortran/src/H5_ff.f90136
-rw-r--r--fortran/src/H5f90global.f90142
-rw-r--r--fortran/src/H5match_types.c12
-rw-r--r--fortran/src/H5test_kind.f9030
-rw-r--r--fortran/src/H5test_kind_SIZEOF.f9018
-rw-r--r--fortran/src/HDF5.f904
-rw-r--r--fortran/src/HDF5mpio.f904
-rw-r--r--fortran/test/fflush1.f9048
-rw-r--r--fortran/test/fflush2.f9042
-rw-r--r--fortran/test/fortranlib_test.f9030
-rw-r--r--fortran/test/fortranlib_test_1_8.f9050
-rw-r--r--fortran/test/t.c4
-rw-r--r--fortran/test/tH5A.f90150
-rw-r--r--fortran/test/tH5A_1_8.f90298
-rw-r--r--fortran/test/tH5D.f90110
-rw-r--r--fortran/test/tH5E.f9024
-rw-r--r--fortran/test/tH5F.f90178
-rw-r--r--fortran/test/tH5G.f9086
-rw-r--r--fortran/test/tH5G_1_8.f90192
-rw-r--r--fortran/test/tH5I.f9076
-rw-r--r--fortran/test/tH5O.f9056
-rw-r--r--fortran/test/tH5P.f90122
-rw-r--r--fortran/test/tH5R.f90178
-rw-r--r--fortran/test/tH5S.f9092
-rw-r--r--fortran/test/tH5Sselect.f90328
-rw-r--r--fortran/test/tH5T.f90168
-rw-r--r--fortran/test/tH5VL.f90126
-rw-r--r--fortran/test/tH5Z.f9092
-rw-r--r--fortran/test/tf.f90104
-rw-r--r--fortran/testpar/hyper.f9026
-rw-r--r--fortran/testpar/mdset.f9026
-rw-r--r--fortran/testpar/ptest.f9014
-rw-r--r--hl/fortran/examples/exlite.f9018
-rwxr-xr-xhl/fortran/src/H5IMfc.c58
-rwxr-xr-xhl/fortran/src/H5IMff.f90212
-rwxr-xr-xhl/fortran/src/H5LTfc.c72
-rwxr-xr-xhl/fortran/src/H5LTff.f901226
-rwxr-xr-xhl/fortran/src/H5TBfc.c2
-rwxr-xr-xhl/fortran/src/H5TBff.f90642
-rwxr-xr-xhl/fortran/test/tstimage.f9090
-rw-r--r--hl/fortran/test/tstlite.f90162
-rwxr-xr-xhl/fortran/test/tsttable.f9044
-rw-r--r--hl/src/H5DS.c82
-rw-r--r--hl/src/H5IM.c6
-rw-r--r--hl/src/H5LT.c2
-rw-r--r--hl/src/H5LTparse.c60
-rw-r--r--hl/src/H5PT.c4
-rw-r--r--hl/src/H5TB.c48
-rw-r--r--hl/test/gen_test_ds.c126
-rw-r--r--hl/test/test_ds.c486
-rw-r--r--hl/test/test_lite.c2
-rw-r--r--hl/test/test_table.c6
-rw-r--r--src/H5AC.c4
-rw-r--r--src/H5Aint.c6
-rw-r--r--src/H5Apkg.h2
-rw-r--r--src/H5B2.c4
-rw-r--r--src/H5B2pkg.h6
-rw-r--r--src/H5C.c130
-rw-r--r--src/H5Cpkg.h16
-rw-r--r--src/H5D.c2
-rw-r--r--src/H5Dchunk.c14
-rw-r--r--src/H5Dint.c6
-rw-r--r--src/H5Eterm.h288
-rw-r--r--src/H5F.c22
-rw-r--r--src/H5FDcore.c2
-rw-r--r--src/H5FDfamily.c4
-rw-r--r--src/H5FDsec2.c2
-rw-r--r--src/H5Fsuper.c6
-rw-r--r--src/H5Fsuper_cache.c52
-rw-r--r--src/H5Gdense.c18
-rw-r--r--src/H5MF.c4
-rw-r--r--src/H5MFaggr.c6
-rw-r--r--src/H5MFsection.c2
-rw-r--r--src/H5O.c2
-rw-r--r--src/H5Oainfo.c6
-rw-r--r--src/H5Oalloc.c2
-rw-r--r--src/H5Oattr.c4
-rw-r--r--src/H5Shyper.c4
-rw-r--r--src/H5T.c8
-rw-r--r--src/H5Tnative.c4
-rw-r--r--src/H5Tvlen.c4
-rw-r--r--src/H5system.c4
-rw-r--r--test/cache.c300
-rw-r--r--test/cache_common.c62
-rw-r--r--test/cache_common.h4
-rw-r--r--test/dsets.c62
-rw-r--r--test/dtypes.c16
-rw-r--r--test/error_test.c2
-rw-r--r--test/external.c4
-rw-r--r--test/gen_idx.c4
-rw-r--r--test/h5test.c16
-rw-r--r--test/h5test.h2
-rw-r--r--test/links.c2
-rw-r--r--test/mf.c18
-rw-r--r--test/ntypes.c12
-rwxr-xr-xtest/objcopy.c2
-rw-r--r--test/ohdr.c6
-rw-r--r--test/set_extent.c1266
-rw-r--r--test/tattr.c4
-rw-r--r--test/tconfig.c2
-rw-r--r--test/tfile.c4
-rw-r--r--test/tmisc.c2
-rw-r--r--test/tsohm.c16
-rw-r--r--test/vfd.c2
-rw-r--r--testpar/t_cache.c58
-rw-r--r--testpar/t_chunk_alloc.c2
-rw-r--r--tools/h5diff/h5diff_common.c8
-rw-r--r--tools/h5diff/h5diffgentest.c24
-rw-r--r--tools/h5dump/h5dump.c20
-rwxr-xr-xtools/h5import/h5import.c20
-rwxr-xr-xtools/h5import/h5import.h2
-rw-r--r--tools/h5jam/h5jamgentest.c2
-rw-r--r--tools/h5ls/h5ls.c18
-rw-r--r--tools/h5repack/h5repack.c20
-rw-r--r--tools/h5repack/h5repack.h6
-rw-r--r--tools/h5repack/h5repack_copy.c222
-rw-r--r--tools/h5repack/h5repack_filters.c16
-rw-r--r--tools/h5repack/h5repack_main.c28
-rw-r--r--tools/h5repack/h5repack_parse.c2
-rw-r--r--tools/h5repack/h5repack_refs.c46
-rw-r--r--tools/h5repack/h5repack_verify.c4
-rw-r--r--tools/h5repack/h5repacktst.c148
-rw-r--r--tools/h5stat/h5stat.c2
-rw-r--r--tools/lib/h5diff.c16
-rw-r--r--tools/lib/h5diff_array.c78
-rw-r--r--tools/lib/h5diff_dset.c250
-rw-r--r--tools/lib/h5diff_util.c4
-rw-r--r--tools/lib/h5tools.c312
-rw-r--r--tools/lib/h5tools.h18
-rw-r--r--tools/lib/h5tools_error.h6
-rw-r--r--tools/lib/h5tools_str.c36
-rw-r--r--tools/lib/h5tools_str.h2
-rw-r--r--tools/lib/h5tools_utils.c12
-rw-r--r--tools/lib/h5trav.c2
-rwxr-xr-xwindows/src/H5pubconf.h2
178 files changed, 11635 insertions, 11635 deletions
diff --git a/c++/src/H5Attribute.cpp b/c++/src/H5Attribute.cpp
index e1de976..cf53526 100644
--- a/c++/src/H5Attribute.cpp
+++ b/c++/src/H5Attribute.cpp
@@ -166,7 +166,7 @@ void Attribute::read( const DataType& mem_type, void *buf ) const
// Used getInMemDataSize to get attribute data size. - BMR
// Jul 2009
// Divided into specific private functions for fixed- and
-// variable-len string data: p_read_fixed_len and
+// variable-len string data: p_read_fixed_len and
// p_read_variable_len. This should improve readability.
//--------------------------------------------------------------------------
void Attribute::read(const DataType& mem_type, H5std_string& strg) const
diff --git a/c++/src/H5DataSet.cpp b/c++/src/H5DataSet.cpp
index 50ab3b1..92b68b5 100644
--- a/c++/src/H5DataSet.cpp
+++ b/c++/src/H5DataSet.cpp
@@ -79,7 +79,7 @@ DataSet::DataSet(const DataSet& original) : AbstractDs(original), H5Object(origi
//--------------------------------------------------------------------------
// Function: DataSet overload constructor - dereference
-///\brief Given a reference, ref, to an hdf5 dataset, creates a
+///\brief Given a reference, ref, to an hdf5 dataset, creates a
/// DataSet object
///\param obj - IN: Dataset reference object is in or location of
/// object that the dataset is located within.
@@ -87,7 +87,7 @@ DataSet::DataSet(const DataSet& original) : AbstractDs(original), H5Object(origi
///\param ref_type - IN: Reference type - default to H5R_OBJECT
///\exception H5::DataSetIException
///\par Description
-/// \c obj can be DataSet, Group, H5File, or named DataType, that
+/// \c obj can be DataSet, Group, H5File, or named DataType, that
/// is a datatype that has been named by DataType::commit.
// Programmer Binh-Minh Ribler - Oct, 2006
// Modification
@@ -99,14 +99,14 @@ DataSet::DataSet(H5Object& obj, const void* ref, H5R_type_t ref_type) : Abstract
try {
id = p_dereference(obj.getId(), ref, ref_type);
} catch (ReferenceException deref_error) {
- throw ReferenceException("DataSet constructor - located by object",
+ throw ReferenceException("DataSet constructor - located by object",
deref_error.getDetailMsg());
}
}
//--------------------------------------------------------------------------
// Function: DataSet overload constructor - dereference
-///\brief Given a reference, ref, to an hdf5 dataset, creates a
+///\brief Given a reference, ref, to an hdf5 dataset, creates a
/// DataSet object
///\param h5file - IN: Location referenced object is in
///\param ref - IN: Reference pointer
@@ -122,14 +122,14 @@ DataSet::DataSet(H5File& h5file, const void* ref, H5R_type_t ref_type) : Abstrac
try {
id = p_dereference(h5file.getId(), ref, ref_type);
} catch (ReferenceException deref_error) {
- throw ReferenceException("DataSet constructor - located by HDF5 file",
+ throw ReferenceException("DataSet constructor - located by HDF5 file",
deref_error.getDetailMsg());
}
}
//--------------------------------------------------------------------------
// Function: DataSet overload constructor - dereference
-///\brief Given a reference, ref, to an hdf5 dataset, creates a
+///\brief Given a reference, ref, to an hdf5 dataset, creates a
/// DataSet object
///\param attr - IN: Specifying location where the referenced object is in
///\param ref - IN: Reference pointer
@@ -145,7 +145,7 @@ DataSet::DataSet(Attribute& attr, const void* ref, H5R_type_t ref_type) : Abstra
try {
id = p_dereference(attr.getId(), ref, ref_type);
} catch (ReferenceException deref_error) {
- throw ReferenceException("DataSet constructor - located by attribute",
+ throw ReferenceException("DataSet constructor - located by attribute",
deref_error.getDetailMsg());
}
}
diff --git a/c++/src/H5DataType.cpp b/c++/src/H5DataType.cpp
index 0b82bb1..4c995e3 100644
--- a/c++/src/H5DataType.cpp
+++ b/c++/src/H5DataType.cpp
@@ -93,7 +93,7 @@ DataType::DataType( const H5T_class_t type_class, size_t size ) : H5Object()
///\param ref_type - IN: Reference type - default to H5R_OBJECT
///\exception H5::ReferenceException
///\par Description
-/// \c obj can be DataSet, Group, or named DataType, that
+/// \c obj can be DataSet, Group, or named DataType, that
/// is a datatype that has been named by DataType::commit.
// Programmer Binh-Minh Ribler - Oct, 2006
// Modification
diff --git a/c++/src/H5Group.cpp b/c++/src/H5Group.cpp
index dd4bf53..410261f 100644
--- a/c++/src/H5Group.cpp
+++ b/c++/src/H5Group.cpp
@@ -95,7 +95,7 @@ Group::Group(const hid_t existing_id) : H5Object()
///\param ref_type - IN: Reference type - default to H5R_OBJECT
///\exception H5::ReferenceException
///\par Description
-/// \c obj can be DataSet, Group, or named DataType, that
+/// \c obj can be DataSet, Group, or named DataType, that
/// is a datatype that has been named by DataType::commit.
// Programmer Binh-Minh Ribler - Oct, 2006
//--------------------------------------------------------------------------
diff --git a/c++/src/H5Object.cpp b/c++/src/H5Object.cpp
index 9245635..4f3d6ed 100644
--- a/c++/src/H5Object.cpp
+++ b/c++/src/H5Object.cpp
@@ -424,7 +424,7 @@ void H5Object::reference(void* ref, const H5std_string& name) const
// Function: H5Object::p_dereference (protected)
// Purpose Dereference a ref into an hdf5 object.
// Parameters
-// loc_id - IN: An hdf5 identifier specifying the location of the
+// loc_id - IN: An hdf5 identifier specifying the location of the
// referenced object
// ref - IN: Reference pointer
// ref_type - IN: Reference type
diff --git a/c++/test/tlinks.cpp b/c++/test/tlinks.cpp
index 83e33e1..870efae 100644
--- a/c++/test/tlinks.cpp
+++ b/c++/test/tlinks.cpp
@@ -484,7 +484,7 @@ static void test_basic_links(hid_t fapl_id, hbool_t new_format)
// Verify link existence
if(H5Lexists(file.getId(), "dset1", H5P_DEFAULT) != TRUE)
throw InvalidActionException("H5Lexists", "dset1 doesn't exist");
- if(H5Lexists(file.getId(), "grp1/soft", H5P_DEFAULT) != TRUE)
+ if(H5Lexists(file.getId(), "grp1/soft", H5P_DEFAULT) != TRUE)
throw InvalidActionException("H5Lexists", "grp1/soft doesn't exist");
// Verify link values
@@ -689,7 +689,7 @@ void test_links()
* called last so the reset doesn't interfere with the property lists. This
* routine will delete its own file. */
/* nerrors += external_reset_register() < 0 ? 1 : 0;
- */
+ */
}
catch (Exception E)
{
diff --git a/fortran/examples/attrexample.f90 b/fortran/examples/attrexample.f90
index 9cf96dc..ffbeabe 100644
--- a/fortran/examples/attrexample.f90
+++ b/fortran/examples/attrexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,30 +11,30 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
-! This example shows how to create and write a dataset attribute.
+! This example shows how to create and write a dataset attribute.
! It opens the existing file 'dset.h5', obtains the identifier of
-! the dataset "/dset", defines attribute's dataspace,
+! the dataset "/dset", defines attribute's dataspace,
! creates dataset attribute, writes the attribute, and then closes
-! the attribute's dataspace, attribute, dataset, and file.
+! the attribute's dataspace, attribute, dataset, and file.
PROGRAM ATTREXAMPLE
-
- USE HDF5 ! This module contains all necessary modules
-
+
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=8), PARAMETER :: filename = "dsetf.h5" ! File name
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
CHARACTER(LEN=9), PARAMETER :: aname = "attr_long" ! Attribute name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: attr_id ! Attribute identifier
- INTEGER(HID_T) :: aspace_id ! Attribute Dataspace identifier
- INTEGER(HID_T) :: atype_id ! Attribute Dataspace identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: attr_id ! Attribute identifier
+ INTEGER(HID_T) :: aspace_id ! Attribute Dataspace identifier
+ INTEGER(HID_T) :: atype_id ! Attribute Dataspace identifier
INTEGER(HSIZE_T), DIMENSION(1) :: adims = (/2/) ! Attribute dimension
INTEGER :: arank = 1 ! Attribure rank
INTEGER(SIZE_T) :: attrlen ! Length of the attribute string
@@ -43,31 +43,31 @@
INTEGER :: error ! Error flag
INTEGER(HSIZE_T), DIMENSION(1) :: data_dims
-
+
!
! Initialize attribute's data
!
attr_data(1) = "Dataset character attribute"
attr_data(2) = "Some other string here "
- attrlen = 80
+ attrlen = 80
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
-
+ CALL h5open_f(error)
+
!
! Open an existing file.
!
CALL h5fopen_f (filename, H5F_ACC_RDWR_F, file_id, error)
!
- ! Open an existing dataset.
+ ! Open an existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
!
- ! Create scalar data space for the attribute.
+ ! Create scalar data space for the attribute.
!
CALL h5screate_simple_f(arank, adims, aspace_id, error)
!
@@ -75,35 +75,35 @@
!
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, atype_id, error)
CALL h5tset_size_f(atype_id, attrlen, error)
-
+
!
! Create dataset attribute.
!
CALL h5acreate_f(dset_id, aname, atype_id, aspace_id, &
attr_id, error)
-
+
!
! Write the attribute data.
!
data_dims(1) = 2
CALL h5awrite_f(attr_id, atype_id, attr_data, data_dims, error)
-
+
!
- ! Close the attribute.
+ ! Close the attribute.
!
CALL h5aclose_f(attr_id, error)
-
+
!
! Terminate access to the data space.
!
CALL h5sclose_f(aspace_id, error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -113,5 +113,5 @@
!
CALL h5close_f(error)
- END PROGRAM ATTREXAMPLE
-
+ END PROGRAM ATTREXAMPLE
+
diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90
index a315fb0..2005f41 100644
--- a/fortran/examples/compound.f90
+++ b/fortran/examples/compound.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This program creates a dataset that is one dimensional array of
@@ -26,23 +26,23 @@
PROGRAM COMPOUNDEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=11), PARAMETER :: filename = "compound.h5" ! File name
CHARACTER(LEN=8), PARAMETER :: dsetname = "Compound" ! Dataset name
INTEGER, PARAMETER :: dimsize = 6 ! Size of the dataset
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: dtype_id ! Compound datatype identifier
INTEGER(HID_T) :: dt1_id ! Memory datatype identifier (for character field)
INTEGER(HID_T) :: dt2_id ! Memory datatype identifier (for integer field)
INTEGER(HID_T) :: dt3_id ! Memory datatype identifier (for double precision field)
INTEGER(HID_T) :: dt4_id ! Memory datatype identifier (for real field)
- INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
+ INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
INTEGER(HID_T) :: plist_id ! Dataset trasfer property
INTEGER(SIZE_T) :: typesize
@@ -52,7 +52,7 @@
INTEGER :: error ! Error flag
INTEGER(SIZE_T) :: type_size ! Size of the datatype
- INTEGER(SIZE_T) :: type_sizec ! Size of the character datatype
+ INTEGER(SIZE_T) :: type_sizec ! Size of the character datatype
INTEGER(SIZE_T) :: type_sizei ! Size of the integer datatype
INTEGER(SIZE_T) :: type_sized ! Size of the double precision datatype
INTEGER(SIZE_T) :: type_sizer ! Size of the real datatype
@@ -63,7 +63,7 @@
DOUBLE PRECISION, DIMENSION(dimsize) :: double_member
REAL, DIMENSION(dimsize) :: real_member
INTEGER :: i
- INTEGER(HSIZE_T), DIMENSION(1) :: data_dims
+ INTEGER(HSIZE_T), DIMENSION(1) :: data_dims
data_dims(1) = dimsize
!
! Initialize data buffer.
@@ -71,8 +71,8 @@
do i = 1, dimsize
char_member(i)(1:1) = char(65+i)
char_member(i)(2:2) = char(65+i)
- char_member_out(i)(1:1) = char(65)
- char_member_out(i)(2:2) = char(65)
+ char_member_out(i)(1:1) = char(65)
+ char_member_out(i)(2:2) = char(65)
int_member(i) = i
double_member(i) = 2.* i
real_member(i) = 3. * i
@@ -91,10 +91,10 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -141,8 +141,8 @@
CALL h5dcreate_f(file_id, dsetname, dtype_id, dspace_id, &
dset_id, error)
!
- ! Create memory types. We have to create a compound datatype
- ! for each member we want to write.
+ ! Create memory types. We have to create a compound datatype
+ ! for each member we want to write.
!
CALL h5tcreate_f(H5T_COMPOUND_F, type_sizec, dt1_id, error)
offset = 0
@@ -167,9 +167,9 @@
CALL h5dwrite_f(dset_id, dt3_id, double_member, data_dims, error, xfer_prp = plist_id)
CALL h5dwrite_f(dset_id, dt2_id, int_member, data_dims, error, xfer_prp = plist_id)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
!
@@ -186,11 +186,11 @@
CALL h5tclose_f(dt4_id, error)
CALL h5tclose_f(dt5_id, error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
-
+
!
! Open the file.
!
@@ -227,6 +227,6 @@
!
CALL h5close_f(error)
- END PROGRAM COMPOUNDEXAMPLE
-
-
+ END PROGRAM COMPOUNDEXAMPLE
+
+
diff --git a/fortran/examples/dsetexample.f90 b/fortran/examples/dsetexample.f90
index 69609b4..209a516 100644
--- a/fortran/examples/dsetexample.f90
+++ b/fortran/examples/dsetexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! The following example shows how to create an empty dataset.
+! The following example shows how to create an empty dataset.
! It creates a file called 'dsetf.h5', defines the
! dataset dataspace, creates a dataset which is a 4x6 integer array,
! and then closes the dataspace, the dataset, and the file.
@@ -22,15 +22,15 @@
PROGRAM DSETEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=8), PARAMETER :: filename = "dsetf.h5" ! File name
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
@@ -46,10 +46,10 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -60,9 +60,9 @@
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dspace_id, &
dset_id, error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
!
@@ -70,7 +70,7 @@
!
CALL h5sclose_f(dspace_id, error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -80,6 +80,6 @@
!
CALL h5close_f(error)
- END PROGRAM DSETEXAMPLE
-
-
+ END PROGRAM DSETEXAMPLE
+
+
diff --git a/fortran/examples/fileexample.f90 b/fortran/examples/fileexample.f90
index c25bfef..87119d2 100644
--- a/fortran/examples/fileexample.f90
+++ b/fortran/examples/fileexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! The following example demonstrates how to create and close an HDF5 file.
@@ -20,22 +20,22 @@
PROGRAM FILEEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=8), PARAMETER :: filename = "filef.h5" ! File name
INTEGER(HID_T) :: file_id ! File identifier
-
+
INTEGER :: error ! Error flag
-
+
!
! Initialize FORTRAN interface.
!
CALL h5open_f (error)
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
!
@@ -46,4 +46,4 @@
! Close FORTRAN interface.
!
CALL h5close_f(error)
- END PROGRAM FILEEXAMPLE
+ END PROGRAM FILEEXAMPLE
diff --git a/fortran/examples/groupexample.f90 b/fortran/examples/groupexample.f90
index cb069df..91ebc50 100644
--- a/fortran/examples/groupexample.f90
+++ b/fortran/examples/groupexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,35 +11,35 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! The following example shows how to create and close a group.
+! The following example shows how to create and close a group.
! It creates a file called 'group.h5', creates a group
! called MyGroup in the root group, and then closes the group and file.
-!
+!
PROGRAM GROUPEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=9), PARAMETER :: filename = "groupf.h5" ! File name
CHARACTER(LEN=7), PARAMETER :: groupname = "MyGroup" ! Group name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: group_id ! Group identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: group_id ! Group identifier
INTEGER :: error ! Error flag
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
!
@@ -61,4 +61,4 @@
!
CALL h5close_f(error)
- END PROGRAM GROUPEXAMPLE
+ END PROGRAM GROUPEXAMPLE
diff --git a/fortran/examples/grpdsetexample.f90 b/fortran/examples/grpdsetexample.f90
index ce89304..19fc660 100644
--- a/fortran/examples/grpdsetexample.f90
+++ b/fortran/examples/grpdsetexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This example shows how to create a dataset in a particular group.
@@ -22,8 +22,8 @@
PROGRAM GRPDSETEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=10), PARAMETER :: filename = "groupsf.h5" ! File name
@@ -31,17 +31,17 @@
CHARACTER(LEN=13), PARAMETER :: dsetname1 = "MyGroup/dset1" ! Dataset name
CHARACTER(LEN=5), PARAMETER :: dsetname2 = "dset2" ! dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: group_id ! Group identifier
- INTEGER(HID_T) :: dataset_id ! Dataset identifier
- INTEGER(HID_T) :: dataspace_id ! Data space identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: group_id ! Group identifier
+ INTEGER(HID_T) :: dataset_id ! Dataset identifier
+ INTEGER(HID_T) :: dataspace_id ! Data space identifier
- INTEGER :: i, j
+ INTEGER :: i, j
INTEGER :: error ! Error flag
- INTEGER, DIMENSION(3,3) :: dset1_data ! Data arrays
+ INTEGER, DIMENSION(3,3) :: dset1_data ! Data arrays
INTEGER, DIMENSION(2,10) :: dset2_data !
-
+
INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Datasets dimensions
INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)!
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
@@ -70,7 +70,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Open an existing file.
@@ -78,7 +78,7 @@
CALL h5fopen_f (filename, H5F_ACC_RDWR_F, file_id, error)
!
- ! Create the data space for the first dataset.
+ ! Create the data space for the first dataset.
!
CALL h5screate_simple_f(rank, dims1, dataspace_id, error)
@@ -111,7 +111,7 @@
CALL h5gopen_f(file_id, groupname, group_id, error)
!
- !Create the data space for the second dataset.
+ !Create the data space for the second dataset.
!
CALL h5screate_simple_f(rank, dims2, dataspace_id, error)
@@ -125,7 +125,7 @@
! Write the second dataset.
!
data_dims(1) = 2
- data_dims(1) = 10
+ data_dims(1) = 10
CALL h5dwrite_f(dataset_id, H5T_NATIVE_INTEGER, dset2_data, data_dims, error)
!
@@ -153,4 +153,4 @@
!
CALL h5close_f(error)
- END PROGRAM GRPDSETEXAMPLE
+ END PROGRAM GRPDSETEXAMPLE
diff --git a/fortran/examples/grpit.f90 b/fortran/examples/grpit.f90
index 86a87b1..9361b17 100644
--- a/fortran/examples/grpit.f90
+++ b/fortran/examples/grpit.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! In this example we iterate through the members of the groups.
@@ -20,8 +20,8 @@
PROGRAM GRPITEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=11), PARAMETER :: filename = "iteratef.h5" ! File name
@@ -34,12 +34,12 @@
INTEGER :: type ! Type of the object
INTEGER :: nmembers ! Number of group members
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dataset1_id ! Dataset1 identifier
- INTEGER(HID_T) :: dataset2_id ! Dataset2 identifier
- INTEGER(HID_T) :: dataspace1_id ! Data space identifier
- INTEGER(HID_T) :: dataspace2_id ! Data space identifier
- INTEGER(HID_T) :: group1_id, group2_id ! Group identifiers
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dataset1_id ! Dataset1 identifier
+ INTEGER(HID_T) :: dataset2_id ! Dataset2 identifier
+ INTEGER(HID_T) :: dataspace1_id ! Data space identifier
+ INTEGER(HID_T) :: dataspace2_id ! Data space identifier
+ INTEGER(HID_T) :: group1_id, group2_id ! Group identifiers
INTEGER :: i, j
@@ -47,11 +47,11 @@
INTEGER, DIMENSION(3,3) :: dset1_data ! Arrays to hold data
INTEGER, DIMENSION(2,10) :: dset2_data !
-
-
+
+
INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/3,3/) ! Dataset dimensions
INTEGER(HSIZE_T), DIMENSION(2) :: dims2 = (/2,10/)!
- INTEGER :: rank = 2 ! Datasets rank
+ INTEGER :: rank = 2 ! Datasets rank
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
!
@@ -76,11 +76,11 @@
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
!
@@ -94,7 +94,7 @@
CALL h5gcreate_f(group1_id, groupname2, group2_id, error)
!
- ! Create the data space for the first dataset.
+ ! Create the data space for the first dataset.
!
CALL h5screate_simple_f(rank, dims1, dataspace1_id, error)
@@ -112,7 +112,7 @@
CALL h5dwrite_f(dataset1_id, H5T_NATIVE_INTEGER, dset1_data, data_dims, error)
!
- ! Create the data space for the second dataset.
+ ! Create the data space for the second dataset.
!
CALL h5screate_simple_f(rank, dims2, dataspace2_id, error)
@@ -206,10 +206,10 @@
! Close the file.
!
CALL h5fclose_f(file_id, error)
-
+
!
! Close FORTRAN interface.
!
CALL h5close_f(error)
- END PROGRAM GRPITEXAMPLE
+ END PROGRAM GRPITEXAMPLE
diff --git a/fortran/examples/grpsexample.f90 b/fortran/examples/grpsexample.f90
index 3a6efac..0f694e9 100644
--- a/fortran/examples/grpsexample.f90
+++ b/fortran/examples/grpsexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,41 +11,41 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! The following example code shows how to create groups
+! The following example code shows how to create groups
! using absolute and relative names. It creates three groups:
-! the first two groups are created using the file identifier and
-! the group absolute names, and the third group is created using
+! the first two groups are created using the file identifier and
+! the group absolute names, and the third group is created using
! a group identifier and the name relative to the specified group.
!
PROGRAM GRPSEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=10), PARAMETER :: filename = "groupsf.h5" ! File name
CHARACTER(LEN=8), PARAMETER :: groupname1 = "/MyGroup" ! Group name
- CHARACTER(LEN=16), PARAMETER :: groupname2 = "/MyGroup/Group_A"
+ CHARACTER(LEN=16), PARAMETER :: groupname2 = "/MyGroup/Group_A"
! Group name
CHARACTER(LEN=7), PARAMETER :: groupname3 = "Group_B" ! Group name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: group1_id, group2_id, group3_id ! Group identifiers
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: group1_id, group2_id, group3_id ! Group identifiers
INTEGER :: error ! Error flag
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
-
+ CALL h5open_f(error)
+
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
!
@@ -62,7 +62,7 @@
! Create group "Group_B" in group "MyGroup" using relative name.
!
CALL h5gcreate_f(group1_id, groupname3, group3_id, error)
-
+
!
! Close the groups.
!
@@ -78,6 +78,6 @@
!
! Close FORTRAN interface.
!
- CALL h5close_f(error)
+ CALL h5close_f(error)
- END PROGRAM GRPSEXAMPLE
+ END PROGRAM GRPSEXAMPLE
diff --git a/fortran/examples/hyperslab.f90 b/fortran/examples/hyperslab.f90
index 151ecf3..ca27f35 100644
--- a/fortran/examples/hyperslab.f90
+++ b/fortran/examples/hyperslab.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,57 +11,57 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This example shows how to write and read a hyperslab.
+! This example shows how to write and read a hyperslab.
!
PROGRAM SELECTEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=7), PARAMETER :: filename = "sdsf.h5" ! File name
CHARACTER(LEN=8), PARAMETER :: dsetname = "IntArray" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: dataspace ! Dataspace identifier
- INTEGER(HID_T) :: memspace ! memspace identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: dataspace ! Dataspace identifier
+ INTEGER(HID_T) :: memspace ! memspace identifier
INTEGER(HSIZE_T), DIMENSION(3) :: dimsm = (/7,7,3/) ! Dataset dimensions
! in memory
- INTEGER(HSIZE_T), DIMENSION(2) :: dims_out ! Buffer to read in dataset
+ INTEGER(HSIZE_T), DIMENSION(2) :: dims_out ! Buffer to read in dataset
! dimesions
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/5,6/) ! Dataset dimensions.
- INTEGER(HSIZE_T), DIMENSION(2) :: count = (/3,4/)
+ INTEGER(HSIZE_T), DIMENSION(2) :: count = (/3,4/)
! Size of the hyperslab in the file
INTEGER(HSIZE_T), DIMENSION(2) :: offset = (/1,2/)
- !hyperslab offset in the file
+ !hyperslab offset in the file
INTEGER(HSIZE_T), DIMENSION(3) :: count_out = (/3,4,1/)
- !Size of the hyperslab in memory
+ !Size of the hyperslab in memory
INTEGER(HSIZE_T), DIMENSION(3) :: offset_out = (/3,0,0/)
- !hyperslab offset in memory
+ !hyperslab offset in memory
INTEGER, DIMENSION(5,6) :: data ! Data to write
INTEGER, DIMENSION(7,7,3) :: data_out ! Output buffer
INTEGER :: dsetrank = 2 ! Dataset rank ( in file )
INTEGER :: memrank = 3 ! Dataset rank ( in memory )
- INTEGER :: rank
- INTEGER :: i, j, k
+ INTEGER :: rank
+ INTEGER :: i, j, k
INTEGER :: error, error_n ! Error flags
INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
!
- ! Write data to the HDF5 file.
+ ! Write data to the HDF5 file.
!
!
- ! Data initialization.
+ ! Data initialization.
!
do i = 1, 5
do j = 1, 6
@@ -75,19 +75,19 @@
! 3, 4, 5, 6, 7, 8
! 4, 5, 6, 7, 8, 9
!
-
+
!
- ! Initialize FORTRAN interface.
+ ! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Create a new file using default properties.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
!
- ! Create the data space for the dataset.
+ ! Create the data space for the dataset.
!
CALL h5screate_simple_f(dsetrank, dimsf, dataspace, error)
@@ -101,7 +101,7 @@
! Write the dataset.
!
data_dims(1) = 5
- data_dims(2) = 6
+ data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data, data_dims, error)
!
@@ -120,14 +120,14 @@
CALL h5fclose_f(file_id, error)
!
- ! This part of the code reads the hyperslab from the sds.h5 file just
+ ! This part of the code reads the hyperslab from the sds.h5 file just
! created, into a 2-dimensional plane of the 3-dimensional dataset.
!
!
! Initialize data_out array.
!
- do k = 1, 3
+ do k = 1, 3
do j = 1, 7
do i = 1, 7
data_out(i,j,k) = 0;
@@ -141,7 +141,7 @@
! CALL h5fopen_f (filename, H5F_ACC_RDONLY_F, file_id, error)
CALL h5fopen_f (filename, H5F_ACC_RDWR_F, file_id, error)
write(*,*) error
-
+
!
! Open the dataset.
!
@@ -156,7 +156,7 @@
! Select hyperslab in the dataset.
!
CALL h5sselect_hyperslab_f(dataspace, H5S_SELECT_SET_F, &
- offset, count, error)
+ offset, count, error)
!
! Create memory dataspace.
!
@@ -166,18 +166,18 @@
! Select hyperslab in memory.
!
CALL h5sselect_hyperslab_f(memspace, H5S_SELECT_SET_F, &
- offset_out, count_out, error)
+ offset_out, count_out, error)
!
- ! Read data from hyperslab in the file into the hyperslab in
+ ! Read data from hyperslab in the file into the hyperslab in
! memory and display.
!
data_dims(1) = 7
data_dims(2) = 7
- data_dims(3) = 3
+ data_dims(3) = 3
CALL H5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error, &
memspace, dataspace)
-
+
!
! Display data_out array
!
@@ -188,7 +188,7 @@
! 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0
- ! 3 4 5 6 0 0 0
+ ! 3 4 5 6 0 0 0
! 4 5 6 7 0 0 0
! 5 6 7 8 0 0 0
! 0 0 0 0 0 0 0
@@ -219,4 +219,4 @@
!
CALL h5close_f(error)
- END PROGRAM SELECTEXAMPLE
+ END PROGRAM SELECTEXAMPLE
diff --git a/fortran/examples/mountexample.f90 b/fortran/examples/mountexample.f90
index fe9eb7e..5bdec2a 100644
--- a/fortran/examples/mountexample.f90
+++ b/fortran/examples/mountexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,19 +11,19 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-!In the following example we create one file with a group in it,
+!In the following example we create one file with a group in it,
!and another file with a dataset. Mounting is used to
-!access the dataset from the second file as a member of a group
-!in the first file.
+!access the dataset from the second file as a member of a group
+!in the first file.
!
PROGRAM MOUNTEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
!
@@ -42,53 +42,53 @@
!
! File identifiers
!
- INTEGER(HID_T) :: file1_id, file2_id
-
+ INTEGER(HID_T) :: file1_id, file2_id
+
!
! Group identifier
!
- INTEGER(HID_T) :: gid
+ INTEGER(HID_T) :: gid
!
! Dataset identifier
!
INTEGER(HID_T) :: dset_id
-
+
!
! Data space identifier
!
INTEGER(HID_T) :: dataspace
-
+
!
! Data type identifier
!
INTEGER(HID_T) :: dtype_id
- !
+ !
! The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
- ! Flag to check operation success
- !
+ ! Flag to check operation success
+ !
INTEGER :: error
!
- ! General purpose integer
- !
+ ! General purpose integer
+ !
INTEGER :: i, j
!
- ! Data buffers
- !
+ ! Data buffers
+ !
INTEGER, DIMENSION(NX,NY) :: data_in, data_out
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
!
- ! Initialize FORTRAN interface.
+ ! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Initialize data_in buffer
@@ -101,36 +101,36 @@
!
! Create first file "mount1.h5" using default properties.
- !
+ !
CALL h5fcreate_f(filename1, H5F_ACC_TRUNC_F, file1_id, error)
!
! Create group "/G" inside file "mount1.h5".
- !
+ !
CALL h5gcreate_f(file1_id, "/G", gid, error)
!
! Close file and group identifiers.
- !
+ !
CALL h5gclose_f(gid, error)
CALL h5fclose_f(file1_id, error)
!
! Create second file "mount2.h5" using default properties.
- !
+ !
CALL h5fcreate_f(filename2, H5F_ACC_TRUNC_F, file2_id, error)
!
- ! Create data space for the dataset.
+ ! Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
!
! Create dataset "/D" inside file "mount2.h5".
- !
+ !
CALL h5dcreate_f(file2_id, "/D", H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
-
+
!
! Write data_in to the dataset
!
@@ -140,41 +140,41 @@
!
! Close file, dataset and dataspace identifiers.
- !
+ !
CALL h5sclose_f(dataspace, error)
CALL h5dclose_f(dset_id, error)
CALL h5fclose_f(file2_id, error)
!
! Reopen both files.
- !
+ !
CALL h5fopen_f (filename1, H5F_ACC_RDWR_F, file1_id, error)
CALL h5fopen_f (filename2, H5F_ACC_RDWR_F, file2_id, error)
!
! Mount the second file under the first file's "/G" group.
- !
+ !
CALL h5fmount_f (file1_id, "/G", file2_id, error)
!
! Access dataset D in the first file under /G/D name.
- !
+ !
CALL h5dopen_f(file1_id, "/G/D", dset_id, error)
!
! Get dataset's data type.
- !
+ !
CALL h5dget_type_f(dset_id, dtype_id, error)
!
! Read the dataset.
- !
+ !
CALL h5dread_f(dset_id, dtype_id, data_out, data_dims, error)
!
! Print out the data.
- !
+ !
do i = 1, NX
print *, (data_out(i,j), j = 1, NY)
end do
@@ -182,24 +182,24 @@
!
!Close dset_id and dtype_id.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL h5tclose_f(dtype_id, error)
!
! Unmount the second file.
- !
+ !
CALL h5funmount_f(file1_id, "/G", error);
!
! Close both files.
- !
+ !
CALL h5fclose_f(file1_id, error)
CALL h5fclose_f(file2_id, error)
!
- ! Close FORTRAN interface.
+ ! Close FORTRAN interface.
!
- CALL h5close_f(error)
+ CALL h5close_f(error)
END PROGRAM MOUNTEXAMPLE
diff --git a/fortran/examples/ph5example.f90 b/fortran/examples/ph5example.f90
index 208ebc7..a0db200 100644
--- a/fortran/examples/ph5example.f90
+++ b/fortran/examples/ph5example.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,15 +11,15 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
! Fortran parallel example. Copied from Tutorial's example program of
! dataset.f90.
PROGRAM DATASET
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INCLUDE 'mpif.h'
@@ -28,18 +28,18 @@
CHARACTER(LEN=100) :: filename ! File name
INTEGER :: fnamelen ! File name length
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: filespace ! Dataspace identifier in file
- INTEGER(HID_T) :: plist_id ! Property list identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: filespace ! Dataspace identifier in file
+ INTEGER(HID_T) :: plist_id ! Property list identifier
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/5,8/) ! Dataset dimensions.
-! INTEGER, DIMENSION(7) :: dimsfi = (/5,8,0,0,0,0,0/)
+! INTEGER, DIMENSION(7) :: dimsfi = (/5,8,0,0,0,0,0/)
! INTEGER(HSIZE_T), DIMENSION(2) :: dimsfi = (/5,8/)
INTEGER(HSIZE_T), DIMENSION(2) :: dimsfi
INTEGER, ALLOCATABLE :: data(:,:) ! Data to write
- INTEGER :: rank = 2 ! Dataset rank
+ INTEGER :: rank = 2 ! Dataset rank
INTEGER :: error, error_n ! Error flags
INTEGER :: i, j
@@ -53,22 +53,22 @@
info = MPI_INFO_NULL
CALL MPI_INIT(mpierror)
CALL MPI_COMM_SIZE(comm, mpi_size, mpierror)
- CALL MPI_COMM_RANK(comm, mpi_rank, mpierror)
- !
+ CALL MPI_COMM_RANK(comm, mpi_rank, mpierror)
+ !
! Initialize data buffer with trivial data.
!
ALLOCATE ( data(dimsf(1),dimsf(2)))
do i = 1, dimsf(2)
do j = 1, dimsf(1)
- data(j,i) = j - 1 + (i-1)*dimsf(1)
+ data(j,i) = j - 1 + (i-1)*dimsf(1)
enddo
enddo
!
! Initialize FORTRAN interface
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
- !
+ !
! Setup file access property list with parallel I/O access.
!
CALL h5pcreate_f(H5P_FILE_ACCESS_F, plist_id, error)
@@ -89,11 +89,11 @@
!
! Create the file collectively.
- !
+ !
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = plist_id)
CALL h5pclose_f(plist_id, error)
!
- ! Create the data space for the dataset.
+ ! Create the data space for the dataset.
!
CALL h5screate_simple_f(rank, dimsf, filespace, error)
@@ -105,15 +105,15 @@
!
! Create property list for collective dataset write
!
- CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
+ CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
CALL h5pset_dxpl_mpio_f(plist_id, H5FD_MPIO_COLLECTIVE_F, error)
!
- ! For independent write use
+ ! For independent write use
! CALL h5pset_dxpl_mpio_f(plist_id, H5FD_MPIO_INDEPENDENT_F, error)
!
-
+
!
- ! Write the dataset collectively.
+ ! Write the dataset collectively.
!
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data, dimsfi, error, &
xfer_prp = plist_id)
diff --git a/fortran/examples/refobjexample.f90 b/fortran/examples/refobjexample.f90
index 1889b8b..c8622a7 100644
--- a/fortran/examples/refobjexample.f90
+++ b/fortran/examples/refobjexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,49 +11,49 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This program shows how to create and store references to the objects.
-! Program creates a file, two groups, a dataset to store integer data and
-! a dataset to store references to the objects.
+! Program creates a file, two groups, a dataset to store integer data and
+! a dataset to store references to the objects.
! Stored references are used to open the objects they are point to.
! Data is written to the dereferenced dataset, and class type is displayed for
! the shared datatype.
!
- PROGRAM OBJ_REFERENCES
+ PROGRAM OBJ_REFERENCES
+
+ USE HDF5 ! This module contains all necessary modules
- USE HDF5 ! This module contains all necessary modules
-
IMPLICIT NONE
- CHARACTER(LEN=10), PARAMETER :: filename = "FORTRAN.h5" ! File
+ CHARACTER(LEN=10), PARAMETER :: filename = "FORTRAN.h5" ! File
CHARACTER(LEN=8), PARAMETER :: dsetnamei = "INTEGERS" ! Dataset with the integer data
CHARACTER(LEN=17), PARAMETER :: dsetnamer = "OBJECT_REFERENCES" ! Dataset wtih object
! references
CHARACTER(LEN=6), PARAMETER :: groupname1 = "GROUP1" ! Groups in the file
CHARACTER(LEN=6), PARAMETER :: groupname2 = "GROUP2" !
-
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: grp1_id ! Group identifiers
- INTEGER(HID_T) :: grp2_id !
- INTEGER(HID_T) :: dset_id ! Dataset identifiers
- INTEGER(HID_T) :: dsetr_id !
- INTEGER(HID_T) :: type_id ! Type identifier
- INTEGER(HID_T) :: space_id ! Dataspace identifiers
- INTEGER(HID_T) :: spacer_id !
+
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: grp1_id ! Group identifiers
+ INTEGER(HID_T) :: grp2_id !
+ INTEGER(HID_T) :: dset_id ! Dataset identifiers
+ INTEGER(HID_T) :: dsetr_id !
+ INTEGER(HID_T) :: type_id ! Type identifier
+ INTEGER(HID_T) :: space_id ! Dataspace identifiers
+ INTEGER(HID_T) :: spacer_id !
INTEGER :: error
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/5/)
INTEGER(HSIZE_T), DIMENSION(1) :: dimsr= (/4/)
INTEGER(HSIZE_T), DIMENSION(1) :: my_maxdims = (/5/)
- INTEGER :: rank = 1
- INTEGER :: rankr = 1
+ INTEGER :: rank = 1
+ INTEGER :: rankr = 1
TYPE(hobj_ref_t_f), DIMENSION(4) :: ref
TYPE(hobj_ref_t_f), DIMENSION(4) :: ref_out
INTEGER, DIMENSION(5) :: data = (/1, 2, 3, 4, 5/)
INTEGER :: class
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims, ref_size
!
- ! Initialize FORTRAN interface.
+ ! Initialize FORTRAN interface.
!
CALL h5open_f(error)
!
@@ -61,17 +61,17 @@
!
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
! Default file access and file creation
- ! properties are used.
+ ! properties are used.
!
! Create a group in the file
!
CALL h5gcreate_f(file_id, groupname1, grp1_id, error)
!
- ! Create a group inside the created gorup
+ ! Create a group inside the created gorup
!
CALL h5gcreate_f(grp1_id, groupname2, grp2_id, error)
- !
- ! Create dataspaces for datasets
+ !
+ ! Create dataspaces for datasets
!
CALL h5screate_simple_f(rank, dims, space_id, error, maxdims=my_maxdims)
CALL h5screate_simple_f(rankr, dimsr, spacer_id, error)
@@ -92,7 +92,7 @@
CALL h5tcommit_f(file_id, "MyType", type_id, error)
!
! Close dataspaces, groups and integer dataset
- !
+ !
CALL h5sclose_f(space_id, error)
CALL h5sclose_f(spacer_id, error)
CALL h5tclose_f(type_id, error)
@@ -113,7 +113,7 @@
! Close the dataset
!
CALL h5dclose_f(dsetr_id, error)
- !
+ !
! Reopen the dataset with object references and read references to the buffer
!
CALL h5dopen_f(file_id, dsetnamer,dsetr_id,error)
@@ -141,7 +141,7 @@
! Get datatype class and display it if it is of a FLOAT class.
!
CALL h5tget_class_f(type_id, class, error)
- if(class .eq. H5T_FLOAT_F) write(*,*) "Stored datatype is of a FLOAT class"
+ if(class .eq. H5T_FLOAT_F) write(*,*) "Stored datatype is of a FLOAT class"
!
! Close all objects.
!
@@ -150,10 +150,10 @@
CALL h5dclose_f(dsetr_id, error)
CALL h5fclose_f(file_id, error)
!
- ! Close FORTRAN interface.
+ ! Close FORTRAN interface.
!
CALL h5close_f(error)
- END PROGRAM OBJ_REFERENCES
+ END PROGRAM OBJ_REFERENCES
diff --git a/fortran/examples/refregexample.f90 b/fortran/examples/refregexample.f90
index e7728bb..68fbd24 100644
--- a/fortran/examples/refregexample.f90
+++ b/fortran/examples/refregexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,43 +11,43 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This program shows how to create, store and dereference references
+! This program shows how to create, store and dereference references
! to the dataset regions.
! Program creates a file and writes two dimensional integer dataset
! to it. Then program creates and stores references to the hyperslab
-! and 3 points selected in the integer dataset, in the second dataset.
+! and 3 points selected in the integer dataset, in the second dataset.
! Program reopens the second dataset, reads and dereferences region
-! references, and then reads and displays selected data from the
+! references, and then reads and displays selected data from the
! integer dataset.
-!
+!
PROGRAM REG_REFERENCE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=10), PARAMETER :: filename = "FORTRAN.h5"
CHARACTER(LEN=6), PARAMETER :: dsetnamev = "MATRIX"
CHARACTER(LEN=17), PARAMETER :: dsetnamer = "REGION_REFERENCES"
-
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: space_id ! Dataspace identifier
- INTEGER(HID_T) :: spacer_id ! Dataspace identifier
- INTEGER(HID_T) :: dsetv_id ! Dataset identifier
- INTEGER(HID_T) :: dsetr_id ! Dataset identifier
+
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: space_id ! Dataspace identifier
+ INTEGER(HID_T) :: spacer_id ! Dataspace identifier
+ INTEGER(HID_T) :: dsetv_id ! Dataset identifier
+ INTEGER(HID_T) :: dsetr_id ! Dataset identifier
INTEGER :: error
TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref ! Buffers to store references
TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref_out !
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/2,9/) ! Datasets dimensions
- INTEGER(HSIZE_T), DIMENSION(1) :: dimsr = (/2/) !
+ INTEGER(HSIZE_T), DIMENSION(1) :: dimsr = (/2/) !
INTEGER(HSIZE_T), DIMENSION(2) :: start
INTEGER(HSIZE_T), DIMENSION(2) :: count
- INTEGER :: rankr = 1
+ INTEGER :: rankr = 1
INTEGER :: rank = 2
- INTEGER , DIMENSION(2,9) :: data
- INTEGER , DIMENSION(2,9) :: data_out = 0
+ INTEGER , DIMENSION(2,9) :: data
+ INTEGER , DIMENSION(2,9) :: data_out = 0
INTEGER(HSIZE_T) , DIMENSION(2,3) :: coord
INTEGER(SIZE_T) ::num_points = 3 ! Number of selected points
INTEGER :: i, j
@@ -64,26 +64,26 @@
!
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error)
! Default file access and file creation
- ! properties are used.
- !
+ ! properties are used.
+ !
! Create dataspaces:
- !
- ! for dataset with references to dataset regions
+ !
+ ! for dataset with references to dataset regions
!
CALL h5screate_simple_f(rankr, dimsr, spacer_id, error)
!
- ! for integer dataset
+ ! for integer dataset
!
CALL h5screate_simple_f(rank, dims, space_id, error)
!
! Create and write datasets:
!
- ! Integer dataset
+ ! Integer dataset
!
CALL h5dcreate_f(file_id, dsetnamev, H5T_NATIVE_INTEGER, space_id, &
dsetv_id, error)
data_dims(1) = 2
- data_dims(2) = 9
+ data_dims(2) = 9
CALL h5dwrite_f(dsetv_id, H5T_NATIVE_INTEGER, data, data_dims, error)
CALL h5dclose_f(dsetv_id, error)
!
@@ -94,25 +94,25 @@
!
! Create a reference to the hyperslab selection.
!
- start(1) = 0
- start(2) = 3
+ start(1) = 0
+ start(2) = 3
count(1) = 2
count(2) = 3
CALL h5sselect_hyperslab_f(space_id, H5S_SELECT_SET_F, &
- start, count, error)
- CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(1), error)
+ start, count, error)
+ CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(1), error)
!
! Create a reference to elements selection.
!
CALL h5sselect_none_f(space_id, error)
CALL h5sselect_elements_f(space_id, H5S_SELECT_SET_F, rank, num_points,&
- coord, error)
- CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(2), error)
+ coord, error)
+ CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(2), error)
!
- ! Write dataset with the references.
+ ! Write dataset with the references.
!
ref_size(1) = size(ref)
- CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, ref_size, error)
+ CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, ref_size, error)
!
! Close all objects.
!
@@ -129,12 +129,12 @@
! Read references to the dataset regions.
!
ref_size(1) = size(ref_out)
- CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, ref_size, error)
- !
+ CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, ref_size, error)
+ !
! Dereference the first reference.
- !
+ !
CALL H5rdereference_f(dsetr_id, ref_out(1), dsetv_id, error)
- CALL H5rget_region_f(dsetr_id, ref_out(1), space_id, error)
+ CALL H5rget_region_f(dsetr_id, ref_out(1), space_id, error)
!
! Read selected data from the dataset.
!
@@ -142,18 +142,18 @@
mem_space_id = space_id, file_space_id = space_id)
write(*,*) "Hypeslab selection"
write(*,*)
- do i = 1,2
+ do i = 1,2
write(*,*) (data_out (i,j), j = 1,9)
enddo
write(*,*)
CALL h5sclose_f(space_id, error)
CALL h5dclose_f(dsetv_id, error)
data_out = 0
- !
+ !
! Dereference the second reference.
- !
+ !
CALL H5rdereference_f(dsetr_id, ref_out(2), dsetv_id, error)
- CALL H5rget_region_f(dsetr_id, ref_out(2), space_id, error)
+ CALL H5rget_region_f(dsetr_id, ref_out(2), space_id, error)
!
! Read selected data from the dataset.
!
@@ -161,7 +161,7 @@
mem_space_id = space_id, file_space_id = space_id)
write(*,*) "Point selection"
write(*,*)
- do i = 1,2
+ do i = 1,2
write(*,*) (data_out (i,j), j = 1,9)
enddo
!
@@ -173,8 +173,8 @@
!
! Close FORTRAN interface.
!
- CALL h5close_f(error)
+ CALL h5close_f(error)
- END PROGRAM REG_REFERENCE
+ END PROGRAM REG_REFERENCE
diff --git a/fortran/examples/rwdsetexample.f90 b/fortran/examples/rwdsetexample.f90
index 37ee282..1e84e23 100644
--- a/fortran/examples/rwdsetexample.f90
+++ b/fortran/examples/rwdsetexample.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,34 +11,34 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! The following example shows how to write and read to/from an existing dataset.
-! It opens the file created in the previous example, obtains the dataset
-! identifier, writes the data to the dataset in the file,
-! then reads the dataset to memory.
+! The following example shows how to write and read to/from an existing dataset.
+! It opens the file created in the previous example, obtains the dataset
+! identifier, writes the data to the dataset in the file,
+! then reads the dataset to memory.
!
PROGRAM RWDSETEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=8), PARAMETER :: filename = "dsetf.h5" ! File name
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER :: error ! Error flag
INTEGER :: i, j
INTEGER, DIMENSION(4,6) :: dset_data, data_out ! Data buffers
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
-
+
!
! Initialize the dset_data array.
!
@@ -51,7 +51,7 @@
!
! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Open an existing file.
@@ -59,7 +59,7 @@
CALL h5fopen_f (filename, H5F_ACC_RDWR_F, file_id, error)
!
- ! Open an existing dataset.
+ ! Open an existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
@@ -67,7 +67,7 @@
! Write the dataset.
!
data_dims(1) = 4
- data_dims(2) = 6
+ data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
!
@@ -84,13 +84,13 @@
! Close the file.
!
CALL h5fclose_f(file_id, error)
-
+
!
! Close FORTRAN interface.
!
CALL h5close_f(error)
- END PROGRAM RWDSETEXAMPLE
+ END PROGRAM RWDSETEXAMPLE
+
-
diff --git a/fortran/examples/selectele.f90 b/fortran/examples/selectele.f90
index 461fd0b..3ab7ebc 100644
--- a/fortran/examples/selectele.f90
+++ b/fortran/examples/selectele.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,25 +11,25 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This program creates two files, copy1.h5, and copy2.h5.
-! In copy1.h5, it creates a 3x4 dataset called 'Copy1',
-! and write 0's to this dataset.
-! In copy2.h5, it create a 3x4 dataset called 'Copy2',
-! and write 1's to this dataset.
-! It closes both files, reopens both files, selects two
-! points in copy1.h5 and writes values to them. Then it
-! uses an H5Scopy to write the same selection to copy2.h5.
-! Program reopens the files, and reads and prints the contents of
-! the two datasets.
-!
+! This program creates two files, copy1.h5, and copy2.h5.
+! In copy1.h5, it creates a 3x4 dataset called 'Copy1',
+! and write 0's to this dataset.
+! In copy2.h5, it create a 3x4 dataset called 'Copy2',
+! and write 1's to this dataset.
+! It closes both files, reopens both files, selects two
+! points in copy1.h5 and writes values to them. Then it
+! uses an H5Scopy to write the same selection to copy2.h5.
+! Program reopens the files, and reads and prints the contents of
+! the two datasets.
+!
PROGRAM SELECTEXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=8), PARAMETER :: filename1 = "copy1.h5" ! File name
@@ -41,27 +41,27 @@
INTEGER(SIZE_T), PARAMETER :: NUMP = 2 ! Number of points selected
- INTEGER(HID_T) :: file1_id ! File1 identifier
- INTEGER(HID_T) :: file2_id ! File2 identifier
- INTEGER(HID_T) :: dset1_id ! Dataset1 identifier
- INTEGER(HID_T) :: dset2_id ! Dataset2 identifier
- INTEGER(HID_T) :: dataspace1 ! Dataspace identifier
- INTEGER(HID_T) :: dataspace2 ! Dataspace identifier
- INTEGER(HID_T) :: memspace ! memspace identifier
+ INTEGER(HID_T) :: file1_id ! File1 identifier
+ INTEGER(HID_T) :: file2_id ! File2 identifier
+ INTEGER(HID_T) :: dset1_id ! Dataset1 identifier
+ INTEGER(HID_T) :: dset2_id ! Dataset2 identifier
+ INTEGER(HID_T) :: dataspace1 ! Dataspace identifier
+ INTEGER(HID_T) :: dataspace2 ! Dataspace identifier
+ INTEGER(HID_T) :: memspace ! memspace identifier
- INTEGER(HSIZE_T), DIMENSION(1) :: dimsm = (/2/)
- ! Memory dataspace dimensions
+ INTEGER(HSIZE_T), DIMENSION(1) :: dimsm = (/2/)
+ ! Memory dataspace dimensions
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/3,4/)
! File dataspace dimensions
INTEGER(HSIZE_T), DIMENSION(RANK,NUMP) :: coord ! Elements coordinates
- ! in the file
+ ! in the file
INTEGER, DIMENSION(3,4) :: buf1, buf2, bufnew ! Data buffers
INTEGER, DIMENSION(2) :: val = (/53, 59/) ! Values to write
-
+
INTEGER :: memrank = 1 ! Rank of the dataset in memory
- INTEGER :: i, j
+ INTEGER :: i, j
INTEGER :: error ! Error flag
LOGICAL :: status
@@ -70,11 +70,11 @@
!
! Create two files containing identical datasets. Write 0's to one
- ! and 1's to the other.
+ ! and 1's to the other.
!
!
- ! Data initialization.
+ ! Data initialization.
!
do i = 1, 3
do j = 1, 4
@@ -87,21 +87,21 @@
buf2(i,j) = 1;
end do
end do
-
+
!
- ! Initialize FORTRAN interface.
+ ! Initialize FORTRAN interface.
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
!
! Create file1, file2 using default properties.
- !
+ !
CALL h5fcreate_f(filename1, H5F_ACC_TRUNC_F, file1_id, error)
CALL h5fcreate_f(filename2, H5F_ACC_TRUNC_F, file2_id, error)
!
- ! Create the data space for the datasets.
+ ! Create the data space for the datasets.
!
CALL h5screate_simple_f(RANK, dimsf, dataspace1, error)
@@ -120,7 +120,7 @@
! Write the datasets.
!
data_dims(1) = 3
- data_dims(2) = 4
+ data_dims(2) = 4
CALL h5dwrite_f(dset1_id, H5T_NATIVE_INTEGER, buf1, data_dims, error)
CALL h5dwrite_f(dset2_id, H5T_NATIVE_INTEGER, buf2, data_dims, error)
@@ -147,8 +147,8 @@
CALL h5fclose_f(file2_id, error)
!
- ! Open the two files. Select two points in one file, write values to
- ! those point locations, then do H5Scopy and write the values to the
+ ! Open the two files. Select two points in one file, write values to
+ ! those point locations, then do H5Scopy and write the values to the
! other file. Close files.
!
@@ -156,7 +156,7 @@
! Open the files.
!
CALL h5fopen_f (filename1, H5F_ACC_RDWR_F, file1_id, error)
-
+
CALL h5fopen_f (filename2, H5F_ACC_RDWR_F, file2_id, error)
!
@@ -170,19 +170,19 @@
! Get dataset1's dataspace identifier.
!
CALL h5dget_space_f(dset1_id, dataspace1, error)
-
+
!
! Create memory dataspace.
!
CALL h5screate_simple_f(memrank, dimsm, memspace, error)
-
+
!
- ! Set the selected point positions. Because Fortran array index starts
+ ! Set the selected point positions. Because Fortran array index starts
! from 1, so add one to the actual select points in C.
!
- coord(1,1) = 1
- coord(2,1) = 2
- coord(1,2) = 1
+ coord(1,1) = 1
+ coord(2,1) = 2
+ coord(1,2) = 1
coord(2,2) = 4
!
@@ -201,7 +201,7 @@
!
! Copy the daspace1 into dataspace2.
!
- CALL h5scopy_f(dataspace1, dataspace2, error)
+ CALL h5scopy_f(dataspace1, dataspace2, error)
!
! Write value into the selected points in dataset2.
@@ -244,7 +244,7 @@
! Open the files.
!
CALL h5fopen_f (filename1, H5F_ACC_RDWR_F, file1_id, error)
-
+
CALL h5fopen_f (filename2, H5F_ACC_RDWR_F, file2_id, error)
!
@@ -257,8 +257,8 @@
!
! Read dataset from the first file.
!
- data_dims(1) = 3
- data_dims(2) = 4
+ data_dims(1) = 3
+ data_dims(2) = 4
CALL h5dread_f(dset1_id, H5T_NATIVE_INTEGER, bufnew, data_dims, error)
!
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
index 9eda259..49f3e70 100644
--- a/fortran/src/H5Aff.f90
+++ b/fortran/src/H5Aff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5A functions.
@@ -20,29 +20,29 @@ MODULE H5A
USE H5GLOBAL
!
-!On Windows there are no big (integer*8) integers, so overloading
+!On Windows there are no big (integer*8) integers, so overloading
!for bug #670 does not work. I have to use DEC compilation directives to make
!Windows DEC Visual Fortran and OSF compilers happy and do right things.
! 05/01/02 EP
!
INTERFACE h5awrite_f
- MODULE PROCEDURE h5awrite_integer_scalar
- MODULE PROCEDURE h5awrite_integer_1
- MODULE PROCEDURE h5awrite_integer_2
- MODULE PROCEDURE h5awrite_integer_3
- MODULE PROCEDURE h5awrite_integer_4
- MODULE PROCEDURE h5awrite_integer_5
- MODULE PROCEDURE h5awrite_integer_6
- MODULE PROCEDURE h5awrite_integer_7
- MODULE PROCEDURE h5awrite_char_scalar
- MODULE PROCEDURE h5awrite_char_1
- MODULE PROCEDURE h5awrite_char_2
- MODULE PROCEDURE h5awrite_char_3
- MODULE PROCEDURE h5awrite_char_4
- MODULE PROCEDURE h5awrite_char_5
- MODULE PROCEDURE h5awrite_char_6
- MODULE PROCEDURE h5awrite_char_7
+ MODULE PROCEDURE h5awrite_integer_scalar
+ MODULE PROCEDURE h5awrite_integer_1
+ MODULE PROCEDURE h5awrite_integer_2
+ MODULE PROCEDURE h5awrite_integer_3
+ MODULE PROCEDURE h5awrite_integer_4
+ MODULE PROCEDURE h5awrite_integer_5
+ MODULE PROCEDURE h5awrite_integer_6
+ MODULE PROCEDURE h5awrite_integer_7
+ MODULE PROCEDURE h5awrite_char_scalar
+ MODULE PROCEDURE h5awrite_char_1
+ MODULE PROCEDURE h5awrite_char_2
+ MODULE PROCEDURE h5awrite_char_3
+ MODULE PROCEDURE h5awrite_char_4
+ MODULE PROCEDURE h5awrite_char_5
+ MODULE PROCEDURE h5awrite_char_6
+ MODULE PROCEDURE h5awrite_char_7
MODULE PROCEDURE h5awrite_real_scalar
MODULE PROCEDURE h5awrite_real_1
MODULE PROCEDURE h5awrite_real_2
@@ -57,21 +57,21 @@ MODULE H5A
INTERFACE h5aread_f
MODULE PROCEDURE h5aread_integer_scalar
- MODULE PROCEDURE h5aread_integer_1
- MODULE PROCEDURE h5aread_integer_2
- MODULE PROCEDURE h5aread_integer_3
- MODULE PROCEDURE h5aread_integer_4
- MODULE PROCEDURE h5aread_integer_5
- MODULE PROCEDURE h5aread_integer_6
- MODULE PROCEDURE h5aread_integer_7
- MODULE PROCEDURE h5aread_char_scalar
- MODULE PROCEDURE h5aread_char_1
- MODULE PROCEDURE h5aread_char_2
- MODULE PROCEDURE h5aread_char_3
- MODULE PROCEDURE h5aread_char_4
- MODULE PROCEDURE h5aread_char_5
- MODULE PROCEDURE h5aread_char_6
- MODULE PROCEDURE h5aread_char_7
+ MODULE PROCEDURE h5aread_integer_1
+ MODULE PROCEDURE h5aread_integer_2
+ MODULE PROCEDURE h5aread_integer_3
+ MODULE PROCEDURE h5aread_integer_4
+ MODULE PROCEDURE h5aread_integer_5
+ MODULE PROCEDURE h5aread_integer_6
+ MODULE PROCEDURE h5aread_integer_7
+ MODULE PROCEDURE h5aread_char_scalar
+ MODULE PROCEDURE h5aread_char_1
+ MODULE PROCEDURE h5aread_char_2
+ MODULE PROCEDURE h5aread_char_3
+ MODULE PROCEDURE h5aread_char_4
+ MODULE PROCEDURE h5aread_char_5
+ MODULE PROCEDURE h5aread_char_6
+ MODULE PROCEDURE h5aread_char_7
MODULE PROCEDURE h5aread_real_scalar
MODULE PROCEDURE h5aread_real_1
MODULE PROCEDURE h5aread_real_2
@@ -82,56 +82,56 @@ MODULE H5A
MODULE PROCEDURE h5aread_real_7
END INTERFACE
-
+
CONTAINS
!----------------------------------------------------------------------
-! Name: h5acreate_f
+! Name: h5acreate_f
!
-! Purpose: Creates a dataset as an attribute of a group, dataset,
-! or named datatype
+! Purpose: Creates a dataset as an attribute of a group, dataset,
+! or named datatype
!
-! Inputs:
+! Inputs:
! loc_id - identifier of an object (group, dataset,
! or named datatype) attribute is attached to
! name - attribute name
! type_id - attribute datatype identifier
! space_id - attribute dataspace identifier
!
-! Outputs:
+! Outputs:
! attr_id - attribute identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! acpl_id - Attribute creation property list identifier
-! appl_id - Attribute access property list identifier
+! appl_id - Attribute access property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5acreate_f(loc_id, name, type_id, space_id, attr_id, &
hdferr, acpl_id, aapl_id )
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Object identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
- INTEGER(HID_T), INTENT(IN) :: type_id
- ! Attribute datatype identifier
- INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ ! Attribute datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id
! Attribute dataspace identifier
- INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: acpl_id ! Attribute creation property list identifier
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: aapl_id ! Attribute access property list identifier
-
+
INTEGER(HID_T) :: acpl_id_default
- INTEGER(HID_T) :: aapl_id_default
+ INTEGER(HID_T) :: aapl_id_default
INTEGER(SIZE_T) :: namelen
! INTEGER, EXTERNAL :: h5acreate_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -154,7 +154,7 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: attr_id
END FUNCTION h5acreate_c
END INTERFACE
-
+
acpl_id_default = H5P_DEFAULT_F
aapl_id_default = H5P_DEFAULT_F
namelen = LEN(NAME)
@@ -168,36 +168,36 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5aopen_name_f
+! Name: h5aopen_name_f
!
-! Purpose: Opens an attribute specified by name.
+! Purpose: Opens an attribute specified by name.
!
-! Inputs:
-! obj_id - identifier of a group, dataset, or named
+! Inputs:
+! obj_id - identifier of a group, dataset, or named
! datatype atttribute to be attached to
! name - attribute name
-! Outputs:
+! Outputs:
! attr_id - attribute identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aopen_name_f(obj_id, name, attr_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
- INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(SIZE_T) :: namelen
@@ -217,45 +217,45 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: attr_id
END FUNCTION h5aopen_name_c
END INTERFACE
-
+
namelen = LEN(name)
hdferr = h5aopen_name_c(obj_id, name, namelen, attr_id)
END SUBROUTINE h5aopen_name_f
!----------------------------------------------------------------------
-! Name: h5aopen_idx_f
+! Name: h5aopen_idx_f
!
! Purpose: Opens the attribute specified by its index.
!
-! Inputs:
+! Inputs:
! obj_id - identifier of a group, dataset, or named
! datatype an attribute to be attached to
! index - index of the attribute to open (zero-based)
-! Outputs:
+! Outputs:
! attr_id - attribute identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aopen_idx_f(obj_id, index, attr_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
- INTEGER, INTENT(IN) :: index ! Attribute index
- INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER, INTENT(IN) :: index ! Attribute index
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! INTEGER, EXTERNAL :: h5aopen_idx_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -270,18 +270,18 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: attr_id
END FUNCTION h5aopen_idx_c
END INTERFACE
-
+
hdferr = h5aopen_idx_c(obj_id, index, attr_id)
END SUBROUTINE h5aopen_idx_f
SUBROUTINE h5awrite_integer_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- INTEGER, INTENT(IN) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER, INTENT(IN) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_integer_s_c
@@ -293,27 +293,27 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_S_C'::h5awrite_integer_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN)::buf
END FUNCTION h5awrite_integer_s_c
END INTERFACE
-
+
hdferr = h5awrite_integer_s_c(attr_id, memtype_id, buf, dims)
END SUBROUTINE h5awrite_integer_scalar
SUBROUTINE h5awrite_integer_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN) , &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! INTEGER, EXTERNAL :: h5awrite_integer_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -323,7 +323,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_1_C'::h5awrite_integer_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), DIMENSION(dims(1)) :: buf
@@ -337,15 +337,15 @@ CONTAINS
SUBROUTINE h5awrite_integer_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN) , &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! INTEGER, EXTERNAL :: h5awrite_integer_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -355,7 +355,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_2_C'::h5awrite_integer_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2)) :: buf
@@ -368,12 +368,12 @@ CONTAINS
SUBROUTINE h5awrite_integer_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_integer_3_c
@@ -385,26 +385,26 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_3_C'::h5awrite_integer_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)) :: buf
END FUNCTION h5awrite_integer_3_c
END INTERFACE
-
+
hdferr = h5awrite_integer_3_c(attr_id, memtype_id, buf, dims)
END SUBROUTINE h5awrite_integer_3
SUBROUTINE h5awrite_integer_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_integer_4_c
@@ -416,7 +416,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_4_C'::h5awrite_integer_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
@@ -429,12 +429,12 @@ CONTAINS
SUBROUTINE h5awrite_integer_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_integer_5_c
@@ -446,7 +446,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_5_C'::h5awrite_integer_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
@@ -459,15 +459,15 @@ CONTAINS
SUBROUTINE h5awrite_integer_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! INTEGER, EXTERNAL :: h5awrite_integer_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -477,7 +477,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_6_C'::h5awrite_integer_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), &
@@ -491,13 +491,13 @@ CONTAINS
SUBROUTINE h5awrite_integer_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_integer_7_c
@@ -509,7 +509,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_INTEGER_7_C'::h5awrite_integer_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(IN), &
@@ -523,11 +523,11 @@ CONTAINS
SUBROUTINE h5awrite_real_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- REAL, INTENT(IN) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ REAL, INTENT(IN) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_s_c
@@ -539,7 +539,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_S_C'::h5awrite_real_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN)::buf
@@ -551,13 +551,13 @@ CONTAINS
SUBROUTINE h5awrite_real_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_1_c
@@ -569,7 +569,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_1_C'::h5awrite_real_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -583,13 +583,13 @@ CONTAINS
SUBROUTINE h5awrite_real_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_2_c
@@ -601,7 +601,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_2_C'::h5awrite_real_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -615,13 +615,13 @@ CONTAINS
SUBROUTINE h5awrite_real_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_3_c
@@ -633,7 +633,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_3_C'::h5awrite_real_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -647,13 +647,13 @@ CONTAINS
SUBROUTINE h5awrite_real_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_4_c
@@ -665,7 +665,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_4_C'::h5awrite_real_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -679,13 +679,13 @@ CONTAINS
SUBROUTINE h5awrite_real_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_5_c
@@ -697,7 +697,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_5_C'::h5awrite_real_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -711,13 +711,13 @@ CONTAINS
SUBROUTINE h5awrite_real_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_6_c
@@ -729,7 +729,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_6_C'::h5awrite_real_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -743,13 +743,13 @@ CONTAINS
SUBROUTINE h5awrite_real_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_real_7_c
@@ -761,7 +761,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_REAL_7_C'::h5awrite_real_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(IN), &
@@ -775,12 +775,12 @@ CONTAINS
SUBROUTINE h5awrite_char_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- CHARACTER(LEN=*),INTENT(IN) :: buf
- ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ CHARACTER(LEN=*),INTENT(IN) :: buf
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_s_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -791,7 +791,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_S_C'::h5awritec_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -804,13 +804,13 @@ CONTAINS
SUBROUTINE h5awrite_char_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_1_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -822,7 +822,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_1_C'::h5awritec_1_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1))::buf
@@ -835,13 +835,13 @@ CONTAINS
SUBROUTINE h5awrite_char_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_2_c
@@ -853,7 +853,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_2_C'::h5awritec_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
!DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
@@ -868,13 +868,13 @@ CONTAINS
SUBROUTINE h5awrite_char_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_3_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -886,7 +886,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_3_C'::h5awritec_3_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), &
@@ -900,13 +900,13 @@ CONTAINS
SUBROUTINE h5awrite_char_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_4_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -918,7 +918,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_4_C'::h5awritec_4_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), &
@@ -932,13 +932,13 @@ CONTAINS
SUBROUTINE h5awrite_char_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_5_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -950,7 +950,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_5_C'::h5awritec_5_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), &
@@ -964,13 +964,13 @@ CONTAINS
SUBROUTINE h5awrite_char_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_6_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -982,7 +982,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_6_C'::h5awritec_6_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), &
@@ -996,13 +996,13 @@ CONTAINS
SUBROUTINE h5awrite_char_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awritec_7_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1014,7 +1014,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITEC_7_C'::h5awritec_7_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(IN), &
@@ -1026,29 +1026,29 @@ CONTAINS
END SUBROUTINE h5awrite_char_7
!----------------------------------------------------------------------
-! Name: h5aread_f
+! Name: h5aread_f
!
! Purpose: Reads an attribute.
!
-! Inputs:
+! Inputs:
! attr_id - attribute identifier
! memtype_id - attribute memory type identifier
-! dims - 1D array of size 7, stores sizes of the
+! dims - 1D array of size 7, stores sizes of the
! - buf array dimensions.
-! Outputs:
+! Outputs:
! buf - buffer to read attribute data in
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
! dims parameter was added to make code portable;
! Aprile 4, 2001
@@ -1060,16 +1060,16 @@ CONTAINS
!
! Comment: This function is overloaded to write INTEGER,
! REAL, DOUBLE PRECISION and CHARACTER buffers
-! up to 7 dimensions.
+! up to 7 dimensions.
!----------------------------------------------------------------------
SUBROUTINE h5aread_integer_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- INTEGER, INTENT(INOUT) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER, INTENT(INOUT) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_integer_s_c
@@ -1081,7 +1081,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_S_C'::h5aread_integer_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT)::buf
@@ -1092,10 +1092,10 @@ CONTAINS
SUBROUTINE h5aread_integer_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), DIMENSION(dims(1)) :: buf
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1108,7 +1108,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_1_C'::h5aread_integer_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), DIMENSION(dims(1)) :: buf
@@ -1121,10 +1121,10 @@ CONTAINS
SUBROUTINE h5aread_integer_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT),DIMENSION(dims(1),dims(2)) :: buf
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1137,7 +1137,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_2_C'::h5aread_integer_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), DIMENSION(dims(1),dims(2)) :: buf
@@ -1150,10 +1150,10 @@ CONTAINS
SUBROUTINE h5aread_integer_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1167,7 +1167,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_3_C'::h5aread_integer_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), &
@@ -1181,13 +1181,13 @@ CONTAINS
SUBROUTINE h5aread_integer_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_integer_4_c
@@ -1199,7 +1199,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_4_C'::h5aread_integer_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), &
@@ -1213,13 +1213,13 @@ CONTAINS
SUBROUTINE h5aread_integer_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_integer_5_c
@@ -1231,7 +1231,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_5_C'::h5aread_integer_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), &
@@ -1245,13 +1245,13 @@ CONTAINS
SUBROUTINE h5aread_integer_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_integer_6_c
@@ -1263,7 +1263,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_6_C'::h5aread_integer_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), &
@@ -1277,13 +1277,13 @@ CONTAINS
SUBROUTINE h5aread_integer_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_integer_7_c
@@ -1295,7 +1295,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_INTEGER_7_C'::h5aread_integer_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
INTEGER, INTENT(INOUT), &
@@ -1309,11 +1309,11 @@ CONTAINS
SUBROUTINE h5aread_real_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- REAL, INTENT(INOUT) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ REAL, INTENT(INOUT) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_s_c
@@ -1325,7 +1325,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_S_C'::h5aread_real_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT)::buf
@@ -1337,13 +1337,13 @@ CONTAINS
SUBROUTINE h5aread_real_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_1_c
@@ -1355,7 +1355,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_1_C'::h5aread_real_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1369,13 +1369,13 @@ CONTAINS
SUBROUTINE h5aread_real_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_2_c
@@ -1387,7 +1387,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_2_C'::h5aread_real_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1401,13 +1401,13 @@ CONTAINS
SUBROUTINE h5aread_real_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_3_c
@@ -1419,7 +1419,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_3_C'::h5aread_real_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1433,13 +1433,13 @@ CONTAINS
SUBROUTINE h5aread_real_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_4_c
@@ -1451,7 +1451,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_4_C'::h5aread_real_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1465,13 +1465,13 @@ CONTAINS
SUBROUTINE h5aread_real_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_5_c
@@ -1483,7 +1483,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_5_C'::h5aread_real_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1497,13 +1497,13 @@ CONTAINS
SUBROUTINE h5aread_real_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_6_c
@@ -1515,7 +1515,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_6_C'::h5aread_real_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1529,13 +1529,13 @@ CONTAINS
SUBROUTINE h5aread_real_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_real_7_c
@@ -1547,7 +1547,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_REAL_7_C'::h5aread_real_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
REAL, INTENT(INOUT), &
@@ -1560,12 +1560,12 @@ CONTAINS
SUBROUTINE h5aread_char_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- CHARACTER(LEN=*), INTENT(INOUT) :: buf
- ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ CHARACTER(LEN=*), INTENT(INOUT) :: buf
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_s_c
@@ -1578,7 +1578,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_S_C'::h5areadc_s_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT) :: buf
@@ -1590,13 +1590,13 @@ CONTAINS
SUBROUTINE h5aread_char_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_1_c
@@ -1609,7 +1609,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_1_C'::h5areadc_1_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1623,13 +1623,13 @@ CONTAINS
SUBROUTINE h5aread_char_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_2_c
@@ -1642,7 +1642,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_2_C'::h5areadc_2_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1656,13 +1656,13 @@ CONTAINS
SUBROUTINE h5aread_char_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_3_c
@@ -1675,7 +1675,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_3_C'::h5areadc_3_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1689,13 +1689,13 @@ CONTAINS
SUBROUTINE h5aread_char_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_4_c
@@ -1708,7 +1708,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_4_C'::h5areadc_4_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1722,13 +1722,13 @@ CONTAINS
SUBROUTINE h5aread_char_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_5_c
@@ -1741,7 +1741,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_5_C'::h5areadc_5_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1755,13 +1755,13 @@ CONTAINS
SUBROUTINE h5aread_char_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_6_c
@@ -1774,7 +1774,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_6_C'::h5areadc_6_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1788,13 +1788,13 @@ CONTAINS
SUBROUTINE h5aread_char_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5areadc_7_c
@@ -1807,7 +1807,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREADC_7_C'::h5areadc_7_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: buf
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
CHARACTER(LEN=*), INTENT(INOUT), &
@@ -1820,33 +1820,33 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5aget_space_f
+! Name: h5aget_space_f
!
! Purpose: Gets a copy of the dataspace for an attribute.
!
-! Inputs:
+! Inputs:
! attr_id - attribute identifier
-! Outputs:
+! Outputs:
! space_id - attribite dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aget_space_f(attr_id, space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(OUT) :: space_id
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: space_id
! Attribute dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1868,33 +1868,33 @@ CONTAINS
END SUBROUTINE h5aget_space_f
!----------------------------------------------------------------------
-! Name: h5aget_type_f
+! Name: h5aget_type_f
!
! Purpose: Gets an attribute datatype.
!
-! Inputs:
+! Inputs:
! attr_id - attribute identifier
-! Outputs:
+! Outputs:
! type_id - attribute datatype identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aget_type_f(attr_id, type_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(OUT) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(OUT) :: type_id
! Attribute datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1916,36 +1916,36 @@ CONTAINS
END SUBROUTINE h5aget_type_f
!----------------------------------------------------------------------
-! Name: h5aget_name_f
+! Name: h5aget_name_f
!
-! Purpose: Gets an attribute name.
+! Purpose: Gets an attribute name.
!
-! Inputs:
+! Inputs:
! attr_id - attribute identifier
! size - size of a buffer to read name in
-! Outputs:
+! Outputs:
! buf - buffer to read name in
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aget_name_f(attr_id, size, buf, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(SIZE_T), INTENT(IN) :: size ! Buffer size
- CHARACTER(LEN=*), INTENT(INOUT) :: buf
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Buffer size
+ CHARACTER(LEN=*), INTENT(INOUT) :: buf
! Buffer to hold attribute name
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! name length is successful,
@@ -1972,9 +1972,9 @@ CONTAINS
!----------------------------------------------------------------------
! Name: h5aget_name_by_idx_f
!
-! Purpose: Gets an attribute name, by attribute index position.
+! Purpose: Gets an attribute name, by attribute index position.
!
-! Inputs:
+! Inputs:
! loc_id - Location of object to which attribute is attached
! obj_name - Name of object to which attribute is attached, relative to location
! idx_type - Type of index; Possible values are:
@@ -1995,13 +1995,13 @@ CONTAINS
! order - Index traversal order
! n - Attribute’s position in index
!
-! Outputs:
+! Outputs:
! name - Attribute name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list
+! lapl_id - Link access property list
! size - Size, in bytes, of attribute name
!
! Programmer: M.S. Breitenfeld
@@ -2030,10 +2030,10 @@ CONTAINS
! H5_ITER_N_F - Number of iteration orders
INTEGER(HSIZE_T), INTENT(IN) :: n ! Attribute’s position in index
-
+
CHARACTER(LEN=*), INTENT(OUT) :: name ! Attribute name
-
+
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! Returns attribute name size,
! -1 if fail
@@ -2058,7 +2058,7 @@ CONTAINS
INTEGER, INTENT(IN) :: idx_type
INTEGER, INTENT(IN) :: order
INTEGER(HSIZE_T), INTENT(IN) :: n
-
+
CHARACTER(LEN=*), INTENT(OUT) :: name
INTEGER(SIZE_T) :: size_default
INTEGER(HID_T) :: lapl_id_default
@@ -2074,7 +2074,7 @@ CONTAINS
hdferr = h5aget_name_by_idx_c(loc_id, obj_name, obj_namelen, idx_type, order, &
n, name, size_default, lapl_id_default)
-
+
IF(PRESENT(size)) size = size_default
@@ -2082,33 +2082,33 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5aget_num_attrs_f
+! Name: h5aget_num_attrs_f
!
! Purpose: Determines the number of attributes attached to an object.
!
-! Inputs:
+! Inputs:
! obj_id - object (group, dataset, or named datatype)
! identifier
-! Outputs:
+! Outputs:
! attr_num - number of attributes attached to the object
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aget_num_attrs_f(obj_id, attr_num, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
INTEGER, INTENT(OUT) :: attr_num ! Number of attributes of the
! object
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2126,39 +2126,39 @@ CONTAINS
INTEGER, INTENT(OUT) :: attr_num
END FUNCTION h5aget_num_attrs_c
END INTERFACE
-
+
hdferr = h5aget_num_attrs_c(obj_id, attr_num)
END SUBROUTINE h5aget_num_attrs_f
!----------------------------------------------------------------------
-! Name: h5adelete_f
+! Name: h5adelete_f
!
! Purpose: Deletes an attribute of an object (group, dataset or
! named datatype)
!
-! Inputs:
+! Inputs:
! obj_id - object identifier
! name - attribute name
-! Outputs:
+! Outputs:
!
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5adelete_f(obj_id, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Attribute name
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(SIZE_T) :: namelen
@@ -2167,7 +2167,7 @@ CONTAINS
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5adelete_c(obj_id, name, namelen)
+ INTEGER FUNCTION h5adelete_c(obj_id, name, namelen)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5ADELETE_C'::h5adelete_c
@@ -2178,38 +2178,38 @@ CONTAINS
INTEGER(SIZE_T) :: namelen
END FUNCTION h5adelete_c
END INTERFACE
-
+
namelen = LEN(name)
hdferr = h5adelete_c(obj_id, name, namelen)
END SUBROUTINE h5adelete_f
!----------------------------------------------------------------------
-! Name: h5aclose_f
+! Name: h5aclose_f
!
! Purpose: Closes the specified attribute.
-!
-! Inputs:
+!
+! Inputs:
! attr_id - attribute identifier
-! Outputs:
+! Outputs:
!
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces are added for
+! Modifications: Explicit Fortran interfaces are added for
! called C functions (it is needed for Windows
-! port). February 27, 2001
+! port). February 27, 2001
!
!----------------------------------------------------------------------
SUBROUTINE h5aclose_f(attr_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! INTEGER, EXTERNAL :: h5aclose_c
@@ -2224,27 +2224,27 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: attr_id
END FUNCTION h5aclose_c
END INTERFACE
-
+
hdferr = h5aclose_c(attr_id)
END SUBROUTINE h5aclose_f
!----------------------------------------------------------------------
-! Name: h5aget_storage_size_f
+! Name: h5aget_storage_size_f
!
! Purpose: Returns the amount of storage required for an attribute.
-!
-! Inputs:
+!
+! Inputs:
! attr_id - attribute identifier
-! Outputs:
+! Outputs:
! size - attribute storage size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M. S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2252,7 +2252,7 @@ CONTAINS
SUBROUTINE h5aget_storage_size_f(attr_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
INTEGER(HSIZE_T), INTENT(OUT) :: size ! Attribute storage requirement
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2268,27 +2268,27 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(OUT) :: size
END FUNCTION h5aget_storage_size_c
END INTERFACE
-
+
hdferr = h5aget_storage_size_c(attr_id, size)
END SUBROUTINE h5aget_storage_size_f
!----------------------------------------------------------------------
-! Name: h5aget_create_plist_f
+! Name: h5aget_create_plist_f
!
! Purpose: Gets an attribute creation property list identifier
-!
-! Inputs:
+!
+! Inputs:
! attr_id - Identifier of the attribute
-! Outputs:
+! Outputs:
! creation_prop_id - Identifier for the attribute’s creation property
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M. S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2296,7 +2296,7 @@ CONTAINS
SUBROUTINE h5aget_create_plist_f(attr_id, creation_prop_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Identifier of the attribute
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Identifier of the attribute
INTEGER(HID_T), INTENT(OUT) :: creation_prop_id ! Identifier for the attribute’s creation property
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
@@ -2313,30 +2313,30 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: creation_prop_id
END FUNCTION h5aget_create_plist_c
END INTERFACE
-
+
hdferr = h5aget_create_plist_c(attr_id, creation_prop_id)
END SUBROUTINE h5aget_create_plist_f
!----------------------------------------------------------------------
-! Name: h5arename_by_name_f
+! Name: h5arename_by_name_f
!
! Purpose: Renames an attribute
!
-! Inputs:
+! Inputs:
! loc_id - Location or object identifier; may be dataset or group
-! obj_name - Name of object, relative to location,
+! obj_name - Name of object, relative to location,
! whose attribute is to be renamed
! old_attr_name - Prior attribute name
! new_attr_name - New attribute name
! lapl_id - Link access property list identifier
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: M.S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2345,12 +2345,12 @@ CONTAINS
SUBROUTINE h5arename_by_name_f(loc_id, obj_name, old_attr_name, new_attr_name, &
hdferr, lapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Object identifier
- CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Object identifier
+ CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
! whose attribute is to be renamed
CHARACTER(LEN=*), INTENT(IN) :: old_attr_name ! Prior attribute name
CHARACTER(LEN=*), INTENT(IN) :: new_attr_name ! New attribute name
-
+
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
@@ -2359,7 +2359,7 @@ CONTAINS
INTEGER(SIZE_T) :: obj_namelen
INTEGER(SIZE_T) :: old_attr_namelen
INTEGER(SIZE_T) :: new_attr_namelen
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -2379,7 +2379,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: new_attr_name
INTEGER(SIZE_T) :: new_attr_namelen
INTEGER(HID_T) :: lapl_id_default
-
+
END FUNCTION h5arename_by_name_c
END INTERFACE
@@ -2389,45 +2389,45 @@ CONTAINS
lapl_id_default = H5P_DEFAULT_F
IF(PRESENT(lapl_id)) lapl_id_default=lapl_id
-
+
hdferr = h5arename_by_name_c(loc_id, obj_name, obj_namelen, &
old_attr_name, old_attr_namelen, new_attr_name, new_attr_namelen, &
lapl_id_default)
-
+
END SUBROUTINE h5arename_by_name_f
!----------------------------------------------------------------------
-! Name: h5aopen_f
+! Name: h5aopen_f
!
-! Purpose: Opens an attribute for an object specified by object
+! Purpose: Opens an attribute for an object specified by object
! identifier and attribute name
!
-! Inputs:
+! Inputs:
! obj_id - Identifer for object to which attribute is attached
! attr_name - Name of attribute to open
-! Outputs:
+! Outputs:
! attr_id - attribute identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! aapl_id - Attribute access property list
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
SUBROUTINE h5aopen_f(obj_id, attr_name, attr_id, hdferr, aapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Attribute name
- INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: aapl_id ! Attribute access property list
INTEGER(HID_T) :: aapl_id_default
@@ -2445,7 +2445,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(IN) :: attr_name
INTEGER(HID_T) :: aapl_id_default
- INTEGER(SIZE_T) :: attr_namelen
+ INTEGER(SIZE_T) :: attr_namelen
INTEGER(HID_T), INTENT(OUT) :: attr_id
END FUNCTION h5aopen_c
END INTERFACE
@@ -2460,11 +2460,11 @@ CONTAINS
END SUBROUTINE h5aopen_f
!----------------------------------------------------------------------
-! Name: h5adelete_by_idx_f
+! Name: h5adelete_by_idx_f
!
-! Purpose: Deletes an attribute from an object according to index order
+! Purpose: Deletes an attribute from an object according to index order
!
-! Inputs:
+! Inputs:
! loc_id - Location or object identifier; may be dataset or group
! obj_name - Name of object, relative to location, from which attribute is to be removed
! idx_type - Type of index; Possible values are:
@@ -2473,7 +2473,7 @@ CONTAINS
! H5_INDEX_NAME_F - Index on names
! H5_INDEX_CRT_ORDER_F - Index on creation order
! H5_INDEX_N_F - Number of indices defined
-!
+!
! order - Order in which to iterate over index; Possible values are:
!
! H5_ITER_UNKNOWN_F - Unknown order
@@ -2484,22 +2484,22 @@ CONTAINS
!
! n - Offset within index
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Link access property list
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
SUBROUTINE h5adelete_by_idx_f(loc_id, obj_name, idx_type, order, n, hdferr, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
- CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
+ CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
! from which attribute is to be removed
INTEGER, INTENT(IN) :: idx_type ! Type of index; Possible values are:
! H5_INDEX_UNKNOWN_F - Unknown index type
@@ -2514,14 +2514,14 @@ CONTAINS
! H5_ITER_NATIVE_F - No particular order, whatever is fastest
! H5_ITER_N_F - Number of iteration orders
!
- INTEGER(HSIZE_T), INTENT(IN) :: n ! Offset within index
+ INTEGER(HSIZE_T), INTENT(IN) :: n ! Offset within index
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(SIZE_T) :: obj_namelen
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(HID_T) :: lapl_id_default
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -2535,7 +2535,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER, INTENT(IN) :: idx_type
INTEGER, INTENT(IN) :: order
- INTEGER(HSIZE_T), INTENT(IN) :: n
+ INTEGER(HSIZE_T), INTENT(IN) :: n
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: obj_namelen
END FUNCTION h5adelete_by_idx_c
@@ -2543,44 +2543,44 @@ CONTAINS
lapl_id_default = H5P_DEFAULT_F
IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
-
+
obj_namelen = LEN(obj_name)
hdferr = h5adelete_by_idx_c(loc_id, obj_name, obj_namelen, idx_type, order, n, lapl_id_default)
-
+
END SUBROUTINE h5adelete_by_idx_f
!----------------------------------------------------------------------
-! Name: h5adelete_by_name_f
+! Name: h5adelete_by_name_f
!
! Purpose: Removes an attribute from a specified location
!
-! Inputs:
+! Inputs:
! loc_id - Identifer for object to which attribute is attached
! obj_name - Name of attribute to open
! attr_name - Attribute access property list
! lapl_id - Link access property list
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
SUBROUTINE h5adelete_by_name_f(loc_id, obj_name, attr_name, hdferr, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
- CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
+ CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
! from which attribute is to be removed
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Name of attribute to delete
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(SIZE_T) :: attr_namelen
INTEGER(SIZE_T) :: obj_namelen
@@ -2603,7 +2603,7 @@ CONTAINS
INTEGER(SIZE_T) :: obj_namelen
END FUNCTION h5adelete_by_name_c
END INTERFACE
-
+
obj_namelen = LEN(obj_name)
attr_namelen = LEN(attr_name)
@@ -2615,28 +2615,28 @@ CONTAINS
END SUBROUTINE h5adelete_by_name_f
!----------------------------------------------------------------------
-! Name: h5aopen_by_idx_f
+! Name: h5aopen_by_idx_f
!
! Purpose: Opens an existing attribute that is attached to an object specified by location and name
!
-! Inputs:
+! Inputs:
! loc_id - Location of object to which attribute is attached
! obj_name - Name of object to which attribute is attached, relative to location
! idx_type - Type of index
! order - Index traversal order
! n - Attribute’s position in index
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! aapl_id - Attribute access property list
! lapl_id - Link access property list
!
! Programmer: M.S. Breitenfeld
-! January, 2008
+! January, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
@@ -2654,7 +2654,7 @@ CONTAINS
! H5_ITER_INC_F - Increasing order
! H5_ITER_DEC_F - Decreasing order
! H5_ITER_NATIVE_F - No particular order, whatever is fastest
-
+
INTEGER(HSIZE_T), INTENT(IN) :: n ! Attribute’s position in index
INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
@@ -2664,7 +2664,7 @@ CONTAINS
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(SIZE_T) :: obj_namelen
- INTEGER(HID_T) :: aapl_id_default
+ INTEGER(HID_T) :: aapl_id_default
INTEGER(HID_T) :: lapl_id_default
!
@@ -2706,25 +2706,25 @@ CONTAINS
! Name: h5aget_info_f
!
! Purpose: Retrieves attribute information, by attribute identifier
-!
-! Inputs:
+!
+! Inputs:
! attr_id - attribute identifier
!
! Outputs: NOTE: In C it is defined as a structure: H5A_info_t
!
! corder_valid - indicates whether the creation order data is valid for this attribute
-! corder - is a positive integer containing the creation order of the attribute
-! cset - indicates the character set used for the attribute’s name
+! corder - is a positive integer containing the creation order of the attribute
+! cset - indicates the character set used for the attribute’s name
! data_size - indicates the size, in the number of characters, of the attribute
-!
-! hdferr - error code
+!
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M. S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2734,7 +2734,7 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER, INTENT(OUT) :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T), INTENT(OUT) :: data_size ! Indicates the size, in the number of characters, of the attribute
@@ -2761,10 +2761,10 @@ CONTAINS
END INTERFACE
hdferr = h5aget_info_c(attr_id, corder_valid, corder, cset, data_size)
-
+
f_corder_valid =.FALSE.
IF (corder_valid .EQ. 1) f_corder_valid =.TRUE.
-
+
END SUBROUTINE h5aget_info_f
@@ -2773,7 +2773,7 @@ CONTAINS
! Name: h5aget_info_by_idx_f
!
! Purpose: Retrieves attribute information, by attribute index position
-!
+!
! Inputs:
! loc_id - Location of object to which attribute is attached
! obj_name - Name of object to which attribute is attached, relative to location
@@ -2783,17 +2783,17 @@ CONTAINS
!
! Outputs: NOTE: In C it is defined as a structure: H5A_info_t
! corder_valid - indicates whether the creation order data is valid for this attribute
-! corder - is a positive integer containing the creation order of the attribute
-! cset - indicates the character set used for the attribute’s name
-! data_size - indicates the size, in the number of characters, of the attribute
-! hdferr - error code
+! corder - is a positive integer containing the creation order of the attribute
+! cset - indicates the character set used for the attribute’s name
+! data_size - indicates the size, in the number of characters, of the attribute
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list
+! lapl_id - Link access property list
!
! Programmer: M. S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2813,11 +2813,11 @@ CONTAINS
! H5_ITER_INC_F - Increasing order
! H5_ITER_DEC_F - Decreasing order
! H5_ITER_NATIVE_F - No particular order, whatever is fastest
-
+
INTEGER(HSIZE_T), INTENT(IN) :: n ! Attribute’s position in index
- LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER, INTENT(OUT) :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T), INTENT(OUT) :: data_size ! Indicates the size, in the number of characters, of the attribute
@@ -2844,7 +2844,7 @@ CONTAINS
INTEGER, INTENT(IN) :: order
INTEGER(HSIZE_T), INTENT(IN) :: n
INTEGER(HID_T) :: lapl_id_default
- INTEGER, INTENT(OUT) :: corder_valid
+ INTEGER, INTENT(OUT) :: corder_valid
INTEGER, INTENT(OUT) :: corder
INTEGER, INTENT(OUT) :: cset
INTEGER(HSIZE_T), INTENT(OUT) :: data_size
@@ -2863,14 +2863,14 @@ CONTAINS
f_corder_valid =.FALSE.
IF (corder_valid .EQ. 1) f_corder_valid =.TRUE.
-
+
END SUBROUTINE h5aget_info_by_idx_f
!----------------------------------------------------------------------
! Name: h5aget_info_by_name_f
!
! Purpose: Retrieves attribute information, by attribute name
-!
+!
! Inputs:
! loc_id - Location of object to which attribute is attached
! obj_name - Name of object to which attribute is attached, relative to location
@@ -2878,17 +2878,17 @@ CONTAINS
!
! Outputs: NOTE: In C it is defined as a structure: H5A_info_t
! corder_valid - indicates whether the creation order data is valid for this attribute
-! corder - is a positive integer containing the creation order of the attribute
-! cset - indicates the character set used for the attribute’s name
-! data_size - indicates the size, in the number of characters, of the attribute
-! hdferr - error code
+! corder - is a positive integer containing the creation order of the attribute
+! cset - indicates the character set used for the attribute’s name
+! data_size - indicates the size, in the number of characters, of the attribute
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list
+! lapl_id - Link access property list
!
! Programmer: M. S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -2901,7 +2901,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Attribute name
- LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER, INTENT(OUT) :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T), INTENT(OUT) :: data_size ! Indicates the size, in the number of characters, of the attribute
@@ -2912,7 +2912,7 @@ CONTAINS
INTEGER(SIZE_T) :: attr_namelen
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(HID_T) :: lapl_id_default
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -2930,7 +2930,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: attr_name
INTEGER(SIZE_T), INTENT(IN) :: attr_namelen
INTEGER(HID_T) :: lapl_id_default
- INTEGER, INTENT(OUT) :: corder_valid
+ INTEGER, INTENT(OUT) :: corder_valid
INTEGER, INTENT(OUT) :: corder
INTEGER, INTENT(OUT) :: cset
INTEGER(HSIZE_T), INTENT(OUT) :: data_size
@@ -2942,21 +2942,21 @@ CONTAINS
attr_namelen = LEN(attr_name)
lapl_id_default = H5P_DEFAULT_F
- IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
+ IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
hdferr = h5aget_info_by_name_c(loc_id, obj_name, obj_namelen, attr_name, attr_namelen, lapl_id_default, &
corder_valid, corder, cset, data_size)
f_corder_valid =.FALSE.
IF (corder_valid .EQ. 1) f_corder_valid =.TRUE.
-
+
END SUBROUTINE h5aget_info_by_name_f
!----------------------------------------------------------------------
-! Name: H5Acreate_by_name_f
+! Name: H5Acreate_by_name_f
!
! Purpose: Creates an attribute attached to a specified object
-!
+!
! Inputs:
! loc_id - Location or object identifier; may be dataset or group
! obj_name - Name, relative to loc_id, of object that attribute is to be attached to
@@ -2966,16 +2966,16 @@ CONTAINS
!
! Outputs:
! attr - an attribute identifier
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! acpl_id - Attribute creation property list identifier (Currently not used.)
! aapl_id - Attribute access property list identifier (Currently not used.)
-! lapl_id - Link access property list
+! lapl_id - Link access property list
!
! Programmer: M. S. Breitenfeld
-! February, 2008
+! February, 2008
!
! Modifications: N/A
!
@@ -3020,7 +3020,7 @@ CONTAINS
INTEGER(SIZE_T), INTENT(IN) :: obj_namelen
CHARACTER(LEN=*), INTENT(IN) :: attr_name
INTEGER(SIZE_T), INTENT(IN) :: attr_namelen
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HID_T) :: acpl_id_default
INTEGER(HID_T) :: aapl_id_default
@@ -3040,30 +3040,30 @@ CONTAINS
IF(PRESENT(acpl_id)) acpl_id_default = acpl_id
IF(PRESENT(aapl_id)) aapl_id_default = aapl_id
IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
-
+
hdferr = h5acreate_by_name_c(loc_id, obj_name, obj_namelen, attr_name, attr_namelen, &
type_id, space_id, acpl_id_default, aapl_id_default, lapl_id_default, attr)
END SUBROUTINE h5acreate_by_name_f
!----------------------------------------------------------------------
-! Name: H5Aexists_f
+! Name: H5Aexists_f
!
! Purpose: Determines whether an attribute with a given name exists on an object
-!
+!
! Inputs:
! obj_id - Object identifier
! attr_name - Attribute name
!
! Outputs:
! attr_exists - attribute exists status
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M. S. Breitenfeld
-! February, 2008
+! February, 2008
!
! Modifications: N/A
!
@@ -3099,15 +3099,15 @@ CONTAINS
hdferr = h5aexists_c(obj_id, attr_name, attr_namelen, attr_exists_c)
attr_exists = .FALSE.
- IF(attr_exists_c.GT.0) attr_exists = .TRUE.
+ IF(attr_exists_c.GT.0) attr_exists = .TRUE.
END SUBROUTINE h5aexists_f
!----------------------------------------------------------------------
-! Name: H5Aexists_by_name_f
+! Name: H5Aexists_by_name_f
!
! Purpose: Determines whether an attribute with a given name exists on an object
-!
+!
! Inputs:
! loc_id - Location identifier
! obj_name - Object name either relative to loc_id, absolute from the file’s root group, or '.' (a dot)
@@ -3115,14 +3115,14 @@ CONTAINS
!
! Outputs:
! attr_exists - attribute exists status
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list identifier
+! lapl_id - Link access property list identifier
!
! Programmer: M. S. Breitenfeld
-! February, 2008
+! February, 2008
!
! Modifications: N/A
!
@@ -3130,7 +3130,7 @@ CONTAINS
SUBROUTINE h5aexists_by_name_f(loc_id, obj_name, attr_name, attr_exists, hdferr, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
- CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Object name either relative to loc_id,
+ CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Object name either relative to loc_id,
! absolute from the file’s root group, or '.'
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Attribute name
LOGICAL, INTENT(OUT) :: attr_exists ! .TRUE. if exists, .FALSE. otherwise
@@ -3151,8 +3151,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AEXISTS_BY_NAME_C'::h5aexists_by_name_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: obj_name, attr_name
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ !DEC$ATTRIBUTES reference :: obj_name, attr_name
+ INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER(SIZE_T), INTENT(IN) :: obj_namelen
CHARACTER(LEN=*), INTENT(IN) :: attr_name
@@ -3171,30 +3171,30 @@ CONTAINS
hdferr = h5aexists_by_name_c(loc_id, obj_name, obj_namelen, attr_name, attr_namelen, lapl_id_default, attr_exists_c)
attr_exists = .FALSE.
- IF(attr_exists_c.GT.0) attr_exists = .TRUE.
+ IF(attr_exists_c.GT.0) attr_exists = .TRUE.
END SUBROUTINE h5aexists_by_name_f
!----------------------------------------------------------------------
-! Name: H5Aopen_by_name_f
+! Name: H5Aopen_by_name_f
!
! Purpose: Opens an attribute for an object by object name and attribute name.
-!
+!
! Inputs:
-! loc_id - Location from which to find object to which attribute is attached
+! loc_id - Location from which to find object to which attribute is attached
! obj_name - Object name either relative to loc_id, absolute from the file’s root group, or '.' (a dot)
! attr_name - Attribute name
!
! Outputs:
! attr_id - attribute identifier
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! aapl_id - Attribute access property list (Currently unused; should be passed in as H5P_DEFAULT.)
-! lapl_id - Link access property list identifier
+! lapl_id - Link access property list identifier
!
! Programmer: M. S. Breitenfeld
-! February, 2008
+! February, 2008
!
! Modifications: N/A
!
@@ -3202,16 +3202,16 @@ CONTAINS
SUBROUTINE h5aopen_by_name_f(loc_id, obj_name, attr_name, attr_id, hdferr, aapl_id, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
- CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Object name either relative to loc_id,
+ CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Object name either relative to loc_id,
! absolute from the file’s root group, or '.'
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Attribute name
INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: aapl_id ! Attribute access property list
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: aapl_id ! Attribute access property list
! (Currently unused; should be passed in as H5P_DEFAULT_F)
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
-
+
INTEGER(HID_T) :: aapl_id_default
INTEGER(HID_T) :: lapl_id_default
@@ -3228,7 +3228,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AOPEN_BY_NAME_C'::h5aopen_by_name_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: obj_name, attr_name
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER(SIZE_T), INTENT(IN) :: obj_namelen
CHARACTER(LEN=*), INTENT(IN) :: attr_name
@@ -3253,22 +3253,22 @@ CONTAINS
END SUBROUTINE h5aopen_by_name_f
!----------------------------------------------------------------------
-! Name: h5arename_f
+! Name: h5arename_f
!
! Purpose: Renames an attribute
!
-! Inputs:
+! Inputs:
! loc_id - Location or object identifier; may be dataset or group
! old_attr_name - Prior attribute name
! new_attr_name - New attribute name
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: M.S. Breitenfeld
-! January, 2008
+! January, 2008
!
! Modifications: N/A
!
@@ -3283,7 +3283,7 @@ CONTAINS
! 0 on success and -1 on failure
INTEGER(SIZE_T) :: old_attr_namelen
INTEGER(SIZE_T) :: new_attr_namelen
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -3299,16 +3299,16 @@ CONTAINS
INTEGER(SIZE_T) :: old_attr_namelen
CHARACTER(LEN=*), INTENT(IN) :: new_attr_name
INTEGER(SIZE_T) :: new_attr_namelen
-
+
END FUNCTION h5arename_c
END INTERFACE
old_attr_namelen = LEN(old_attr_name)
new_attr_namelen = LEN(new_attr_name)
-
+
hdferr = h5arename_c(loc_id, &
old_attr_name, old_attr_namelen, new_attr_name, new_attr_namelen)
-
+
END SUBROUTINE h5arename_f
END MODULE H5A
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index a7c6e75..573315a 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -2015,7 +2015,7 @@ nh5dget_access_plist_c (hid_t_f *dset_id, hid_t_f *plist_id)
goto DONE;
ret_value = 0;
-
+
DONE:
return ret_value;
}
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index f06f5a5..c4810b3 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,11 +11,11 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5D functions.
-!
+!
MODULE H5D
USE H5GLOBAL
@@ -24,21 +24,21 @@ MODULE H5D
MODULE PROCEDURE h5dwrite_reference_obj
MODULE PROCEDURE h5dwrite_reference_dsetreg
MODULE PROCEDURE h5dwrite_integer_scalar
- MODULE PROCEDURE h5dwrite_integer_1
- MODULE PROCEDURE h5dwrite_integer_2
- MODULE PROCEDURE h5dwrite_integer_3
- MODULE PROCEDURE h5dwrite_integer_4
- MODULE PROCEDURE h5dwrite_integer_5
- MODULE PROCEDURE h5dwrite_integer_6
- MODULE PROCEDURE h5dwrite_integer_7
+ MODULE PROCEDURE h5dwrite_integer_1
+ MODULE PROCEDURE h5dwrite_integer_2
+ MODULE PROCEDURE h5dwrite_integer_3
+ MODULE PROCEDURE h5dwrite_integer_4
+ MODULE PROCEDURE h5dwrite_integer_5
+ MODULE PROCEDURE h5dwrite_integer_6
+ MODULE PROCEDURE h5dwrite_integer_7
MODULE PROCEDURE h5dwrite_char_scalar
- MODULE PROCEDURE h5dwrite_char_1
- MODULE PROCEDURE h5dwrite_char_2
- MODULE PROCEDURE h5dwrite_char_3
- MODULE PROCEDURE h5dwrite_char_4
- MODULE PROCEDURE h5dwrite_char_5
- MODULE PROCEDURE h5dwrite_char_6
- MODULE PROCEDURE h5dwrite_char_7
+ MODULE PROCEDURE h5dwrite_char_1
+ MODULE PROCEDURE h5dwrite_char_2
+ MODULE PROCEDURE h5dwrite_char_3
+ MODULE PROCEDURE h5dwrite_char_4
+ MODULE PROCEDURE h5dwrite_char_5
+ MODULE PROCEDURE h5dwrite_char_6
+ MODULE PROCEDURE h5dwrite_char_7
MODULE PROCEDURE h5dwrite_real_scalar
MODULE PROCEDURE h5dwrite_real_1
MODULE PROCEDURE h5dwrite_real_2
@@ -54,21 +54,21 @@ MODULE H5D
MODULE PROCEDURE h5dread_reference_obj
MODULE PROCEDURE h5dread_reference_dsetreg
MODULE PROCEDURE h5dread_integer_scalar
- MODULE PROCEDURE h5dread_integer_1
- MODULE PROCEDURE h5dread_integer_2
- MODULE PROCEDURE h5dread_integer_3
- MODULE PROCEDURE h5dread_integer_4
- MODULE PROCEDURE h5dread_integer_5
- MODULE PROCEDURE h5dread_integer_6
- MODULE PROCEDURE h5dread_integer_7
+ MODULE PROCEDURE h5dread_integer_1
+ MODULE PROCEDURE h5dread_integer_2
+ MODULE PROCEDURE h5dread_integer_3
+ MODULE PROCEDURE h5dread_integer_4
+ MODULE PROCEDURE h5dread_integer_5
+ MODULE PROCEDURE h5dread_integer_6
+ MODULE PROCEDURE h5dread_integer_7
MODULE PROCEDURE h5dread_char_scalar
- MODULE PROCEDURE h5dread_char_1
- MODULE PROCEDURE h5dread_char_2
- MODULE PROCEDURE h5dread_char_3
- MODULE PROCEDURE h5dread_char_4
- MODULE PROCEDURE h5dread_char_5
- MODULE PROCEDURE h5dread_char_6
- MODULE PROCEDURE h5dread_char_7
+ MODULE PROCEDURE h5dread_char_1
+ MODULE PROCEDURE h5dread_char_2
+ MODULE PROCEDURE h5dread_char_3
+ MODULE PROCEDURE h5dread_char_4
+ MODULE PROCEDURE h5dread_char_5
+ MODULE PROCEDURE h5dread_char_6
+ MODULE PROCEDURE h5dread_char_7
MODULE PROCEDURE h5dread_real_scalar
MODULE PROCEDURE h5dread_real_1
MODULE PROCEDURE h5dread_real_2
@@ -103,49 +103,49 @@ MODULE H5D
CONTAINS
-
+
!----------------------------------------------------------------------
-! Name: h5dcreate_f
+! Name: h5dcreate_f
!
-! Purpose: Creates a dataset at the specified location
+! Purpose: Creates a dataset at the specified location
!
-! Inputs:
+! Inputs:
! loc_id - file or group identifier
! name - dataset name
! type_id - dataset datatype identifier
! space_id - dataset dataspace identifier
-! Outputs:
+! Outputs:
! dset_id - dataset identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! creation_prp - Dataset creation property list
! lcpl_id - Link creation property list
! dapl_id - Dataset access property list
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications:
-! - Explicit Fortran interfaces were added for
+! Modifications:
+! - Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
! - Added version's 1.8 new optional parameters
! February, 2008
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
- SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id, &
+
+ SUBROUTINE h5dcreate_f(loc_id, name, type_id, space_id, dset_id, &
hdferr, dcpl_id, lcpl_id, dapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: dcpl_id ! Dataset creation property list
@@ -174,14 +174,14 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: dcpl_id_default
INTEGER(HID_T) :: dapl_id_default
INTEGER(HID_T), INTENT(OUT) :: dset_id
END FUNCTION h5dcreate_c
END INTERFACE
-
+
lcpl_id_default = H5P_DEFAULT_F
dcpl_id_default = H5P_DEFAULT_F
dapl_id_default = H5P_DEFAULT_F
@@ -191,46 +191,46 @@ CONTAINS
IF(PRESENT(dapl_id)) dapl_id_default = dapl_id
namelen = LEN(name)
- hdferr = h5dcreate_c(loc_id, name, namelen, type_id, space_id, &
+ hdferr = h5dcreate_c(loc_id, name, namelen, type_id, space_id, &
lcpl_id_default, dcpl_id_default, dapl_id_default, dset_id)
-
+
END SUBROUTINE h5dcreate_f
-
+
!----------------------------------------------------------------------
-! Name: h5dopen_f
+! Name: h5dopen_f
!
-! Purpose: Opens an existing dataset.
+! Purpose: Opens an existing dataset.
!
-! Inputs:
+! Inputs:
! loc_id - file or group identifier
! name - dataset name
-! Outputs:
+! Outputs:
! dset_id - dataset identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! dapl_id - Dataset access property list
+! dapl_id - Dataset access property list
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: -Explicit Fortran interfaces were added for
+! Modifications: -Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
! -Added 1.8 (optional) parameter dapl_id
! February, 2008, M. Scot Breitenfeld
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dopen_f(loc_id, name, dset_id, hdferr, dapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset
INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: dapl_id ! Dataset access property list
INTEGER :: namelen ! Name length
@@ -258,32 +258,32 @@ CONTAINS
IF(PRESENT(dapl_id)) dapl_id_default = dapl_id
namelen = LEN(name)
- hdferr = h5dopen_c(loc_id, name, namelen, dapl_id_default, dset_id)
+ hdferr = h5dopen_c(loc_id, name, namelen, dapl_id_default, dset_id)
END SUBROUTINE h5dopen_f
-
+
!----------------------------------------------------------------------
-! Name: h5dclose_f
+! Name: h5dclose_f
!
-! Purpose: Closes a dataset.
+! Purpose: Closes a dataset.
!
-! Inputs:
+! Inputs:
! dset_id - dataset identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dclose_f(dset_id, hdferr)
@@ -315,14 +315,14 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the bufffer buf
TYPE(hobj_ref_t_f), DIMENSION(dims(1)), INTENT(IN) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -338,26 +338,26 @@ CONTAINS
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITE_REF_OBJ_C'::h5dwrite_ref_obj_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITE_REF_OBJ_C'::h5dwrite_ref_obj_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
INTEGER(HADDR_T), DIMENSION(*) :: ref_buf
INTEGER(HSIZE_T), DIMENSION(*) :: dims
END FUNCTION h5dwrite_ref_obj_c
- END INTERFACE
+ END INTERFACE
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
-
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
+
allocate(ref_buf(dims(1)), stat=hdferr)
if (hdferr .NE. 0 ) then
hdferr = -1
@@ -365,7 +365,7 @@ CONTAINS
else
do j = 1, dims(1)
ref_buf(j) = buf(j)%ref
- enddo
+ enddo
endif
hdferr = h5dwrite_ref_obj_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims(1))
@@ -378,16 +378,16 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the bufffer buf
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the bufffer buf
TYPE(hdset_reg_ref_t_f), DIMENSION(dims(1)), INTENT(IN) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -403,26 +403,26 @@ CONTAINS
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITE_REF_REG_C'::h5dwrite_ref_reg_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITE_REF_REG_C'::h5dwrite_ref_reg_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
INTEGER, DIMENSION(*) :: ref_buf
INTEGER(HSIZE_T), DIMENSION(*) :: dims
END FUNCTION h5dwrite_ref_reg_c
- END INTERFACE
+ END INTERFACE
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
allocate(ref_buf(REF_REG_BUF_LEN*dims(1)), stat=hdferr)
if (hdferr .NE. 0 ) then
@@ -430,7 +430,7 @@ CONTAINS
return
else
do j = 1, dims(1)
- do i = 1, REF_REG_BUF_LEN
+ do i = 1, REF_REG_BUF_LEN
ref_buf(REF_REG_BUF_LEN*(j-1) + i) = buf(j)%ref(i)
enddo
enddo
@@ -440,8 +440,8 @@ CONTAINS
deallocate(ref_buf)
END SUBROUTINE h5dwrite_reference_dsetreg
-
-
+
+
SUBROUTINE h5dwrite_integer_scalar(dset_id, mem_type_id, buf, dims, hdferr, &
mem_space_id, file_space_id, xfer_prp)
IMPLICIT NONE
@@ -449,14 +449,14 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER, INTENT(IN) :: buf ! Data buffer
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -466,7 +466,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -488,13 +488,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_scalar
SUBROUTINE h5dwrite_integer_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -505,24 +505,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -545,13 +545,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_1
SUBROUTINE h5dwrite_integer_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -562,24 +562,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -602,13 +602,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_2
SUBROUTINE h5dwrite_integer_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -619,16 +619,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_3_c
@@ -636,7 +636,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -659,14 +659,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_3
SUBROUTINE h5dwrite_integer_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -677,24 +677,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -716,14 +716,14 @@ CONTAINS
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_4
SUBROUTINE h5dwrite_integer_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -734,15 +734,15 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -751,7 +751,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -775,14 +775,14 @@ CONTAINS
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_5
SUBROUTINE h5dwrite_integer_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -793,24 +793,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -833,14 +833,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_6
SUBROUTINE h5dwrite_integer_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -851,24 +851,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_integer_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_integer_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -890,14 +890,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_integer_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dwrite_integer_7
@@ -908,15 +908,15 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -925,14 +925,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwritec_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_S_C'::h5dwritec_s_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -948,13 +948,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_scalar
SUBROUTINE h5dwrite_char_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -965,31 +965,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_1_C'::h5dwritec_1_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1006,13 +1006,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_1
SUBROUTINE h5dwrite_char_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1023,31 +1023,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_2_C'::h5dwritec_2_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1064,13 +1064,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_2
SUBROUTINE h5dwrite_char_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1081,31 +1081,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_3_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_3_C'::h5dwritec_3_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1122,13 +1122,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_3
SUBROUTINE h5dwrite_char_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1139,31 +1139,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_4_C'::h5dwritec_4_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1180,13 +1180,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_4
SUBROUTINE h5dwrite_char_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1197,14 +1197,14 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -1214,14 +1214,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwritec_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_5_C'::h5dwritec_5_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1238,13 +1238,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_5
SUBROUTINE h5dwrite_char_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1255,31 +1255,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_6_C'::h5dwritec_6_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1296,13 +1296,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_6
SUBROUTINE h5dwrite_char_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1313,31 +1313,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwritec_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwritec_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DWRITEC_7_C'::h5dwritec_7_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -1353,13 +1353,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwritec_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_char_7
SUBROUTINE h5dwrite_real_scalar(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1369,15 +1369,15 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_s_c
@@ -1385,7 +1385,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1406,13 +1406,13 @@ CONTAINS
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_scalar
SUBROUTINE h5dwrite_real_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1423,24 +1423,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1463,13 +1463,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_1
SUBROUTINE h5dwrite_real_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1480,24 +1480,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1520,13 +1520,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_2
SUBROUTINE h5dwrite_real_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1537,15 +1537,15 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_3_c
@@ -1553,7 +1553,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1576,13 +1576,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_3
SUBROUTINE h5dwrite_real_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1593,23 +1593,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1632,13 +1632,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_4
SUBROUTINE h5dwrite_real_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1649,23 +1649,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_5_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1688,13 +1688,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_5
SUBROUTINE h5dwrite_real_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1705,23 +1705,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1744,13 +1744,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_6
SUBROUTINE h5dwrite_real_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1761,23 +1761,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_real_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_real_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1799,43 +1799,43 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_real_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dwrite_real_7
!----------------------------------------------------------------------
-! Name: h5dread_f
+! Name: h5dread_f
!
-! Purpose: Reads raw data from the specified dataset into buf,
-! converting from file datatype and dataspace to memory
+! Purpose: Reads raw data from the specified dataset into buf,
+! converting from file datatype and dataspace to memory
! datatype and dataspace.
!
-! Inputs:
+! Inputs:
! dset_id - dataset identifier
! mem_type_id - memory type identifier
-! dims - 1-dim array of size 7; dims(k) has the size
+! dims - 1-dim array of size 7; dims(k) has the size
! - of k-th dimension of the buf array
-! Outputs:
+! Outputs:
! buf - buffer to read data in
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! mem_space_id - memory dataspace identifier
! file_space_id - file dataspace identifier
-! xfer_prp - trasfer property list identifier
+! xfer_prp - trasfer property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
! dims parameter was added to make code portable;
! n parameter was replaced with dims parameter in
@@ -1846,7 +1846,7 @@ CONTAINS
! REAL, DOUBLE PRECISION and CHARACTER buffers
! up to 7 dimensions, and one dimensional buffers
! of the TYPE(hobj_ref_t_f) and TYPE(hdset_reg_ref_t_f)
-! types.
+! types.
!----------------------------------------------------------------------
SUBROUTINE h5dread_reference_obj(dset_id, mem_type_id, buf, dims, hdferr, &
mem_space_id, file_space_id, xfer_prp)
@@ -1856,19 +1856,19 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
TYPE(hobj_ref_t_f), INTENT(INOUT) , &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTEGER(HADDR_T), ALLOCATABLE, DIMENSION(:) :: ref_buf
- INTEGER :: j
+ INTEGER :: j
! INTEGER, EXTERNAL :: h5dread_ref_obj_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1879,38 +1879,38 @@ CONTAINS
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREAD_REF_OBJ_C'::h5dread_ref_obj_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREAD_REF_OBJ_C'::h5dread_ref_obj_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER(HADDR_T), DIMENSION(*) :: ref_buf
END FUNCTION h5dread_ref_obj_c
- END INTERFACE
+ END INTERFACE
allocate(ref_buf(dims(1)), stat=hdferr)
if (hdferr .NE. 0) then
hdferr = -1
return
- endif
+ endif
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_ref_obj_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
do j = 1, dims(1)
buf(j)%ref = ref_buf(j)
- enddo
- deallocate(ref_buf)
+ enddo
+ deallocate(ref_buf)
END SUBROUTINE h5dread_reference_obj
SUBROUTINE h5dread_reference_dsetreg(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -1919,21 +1919,21 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- TYPE(hdset_reg_ref_t_f), INTENT(INOUT), &
+ TYPE(hdset_reg_ref_t_f), INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTEGER, ALLOCATABLE, DIMENSION(:) :: ref_buf
- INTEGER :: i,j
+ INTEGER :: i,j
! INTEGER, EXTERNAL :: h5dread_ref_reg_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1944,17 +1944,17 @@ CONTAINS
file_space_id_default, xfer_prp_default, ref_buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREAD_REF_REG_C'::h5dread_ref_reg_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREAD_REF_REG_C'::h5dread_ref_reg_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
- INTEGER(HID_T), INTENT(IN) :: mem_type_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, DIMENSION(*) :: ref_buf
END FUNCTION h5dread_ref_reg_c
- END INTERFACE
+ END INTERFACE
allocate(ref_buf(REF_REG_BUF_LEN*dims(1)), stat=hdferr)
if (hdferr .NE. 0) then
@@ -1966,18 +1966,18 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_ref_reg_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, ref_buf, dims)
-
+
do j = 1, dims(1)
- do i = 1, REF_REG_BUF_LEN
+ do i = 1, REF_REG_BUF_LEN
buf(j)%ref(i) = ref_buf(REF_REG_BUF_LEN*(j-1) + i)
enddo
- enddo
+ enddo
deallocate(ref_buf)
END SUBROUTINE h5dread_reference_dsetreg
@@ -1989,15 +1989,15 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -2006,7 +2006,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_integer_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2028,13 +2028,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_integer_scalar
SUBROUTINE h5dread_integer_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2045,14 +2045,14 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -2062,7 +2062,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_integer_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2085,13 +2085,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_integer_1
SUBROUTINE h5dread_integer_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2102,24 +2102,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_integer_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2142,14 +2142,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_2
SUBROUTINE h5dread_integer_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2160,24 +2160,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_3_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_integer_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2200,14 +2200,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_3
SUBROUTINE h5dread_integer_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2218,24 +2218,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_integer_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2258,14 +2258,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_4
SUBROUTINE h5dread_integer_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2276,24 +2276,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_5_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_integer_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2316,14 +2316,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_5
SUBROUTINE h5dread_integer_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2334,16 +2334,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_6_c
@@ -2351,7 +2351,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_integer_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2374,14 +2374,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_6
SUBROUTINE h5dread_integer_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2392,24 +2392,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_integer_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_integer_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2431,14 +2431,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_integer_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims)
-
+
END SUBROUTINE h5dread_integer_7
SUBROUTINE h5dread_char_scalar(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2448,16 +2448,16 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_s_c
@@ -2465,14 +2465,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dreadc_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_S_C'::h5dreadc_s_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2488,13 +2488,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_scalar
SUBROUTINE h5dread_char_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2505,14 +2505,14 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -2522,14 +2522,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dreadc_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_1_C'::h5dreadc_1_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2546,13 +2546,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_1
SUBROUTINE h5dread_char_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2563,31 +2563,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dreadc_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_2_C'::h5dreadc_2_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2604,13 +2604,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_2
SUBROUTINE h5dread_char_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2621,31 +2621,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_3_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dreadc_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_3_C'::h5dreadc_3_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2662,13 +2662,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_3
SUBROUTINE h5dread_char_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2679,31 +2679,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dreadc_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_4_C'::h5dreadc_4_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2720,13 +2720,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_4
SUBROUTINE h5dread_char_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2737,16 +2737,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_5_c
@@ -2754,14 +2754,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dreadc_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_5_C'::h5dreadc_5_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2778,13 +2778,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_5
SUBROUTINE h5dread_char_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2795,31 +2795,31 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dreadc_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_6_C'::h5dreadc_6_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2836,13 +2836,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_6
SUBROUTINE h5dread_char_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2853,16 +2853,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
CHARACTER(LEN=*), INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dreadc_7_c
@@ -2870,14 +2870,14 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dreadc_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DREADC_7_C'::h5dreadc_7_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: buf
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HID_T), INTENT(IN) :: mem_type_id
INTEGER(HID_T) :: mem_space_id_default
@@ -2893,13 +2893,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dreadc_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_char_7
SUBROUTINE h5dread_real_scalar(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2909,15 +2909,15 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_s_c
@@ -2925,7 +2925,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_real_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -2947,13 +2947,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_scalar
SUBROUTINE h5dread_real_1(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -2964,23 +2964,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_real_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3003,13 +3003,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_1
SUBROUTINE h5dread_real_2(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3020,15 +3020,15 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_2_c
@@ -3036,7 +3036,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_real_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3059,13 +3059,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_2
SUBROUTINE h5dread_real_3(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3076,23 +3076,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_3_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_real_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3105,7 +3105,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- REAL, INTENT(INOUT), &
+ REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
END FUNCTION h5dread_real_3_c
END INTERFACE
@@ -3115,13 +3115,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_3
SUBROUTINE h5dread_real_4(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3132,23 +3132,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_real_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3171,13 +3171,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_4
SUBROUTINE h5dread_real_5(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3188,23 +3188,23 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_5_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_real_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3217,7 +3217,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- REAL, INTENT(INOUT), &
+ REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
END FUNCTION h5dread_real_5_c
END INTERFACE
@@ -3227,13 +3227,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_5
SUBROUTINE h5dread_real_6(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3244,14 +3244,14 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -3260,7 +3260,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_real_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3283,13 +3283,13 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_6
SUBROUTINE h5dread_real_7(dset_id, mem_type_id, buf, dims, hdferr, &
@@ -3300,24 +3300,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_real_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_real_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -3339,45 +3339,45 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_real_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
-
+
END SUBROUTINE h5dread_real_7
!----------------------------------------------------------------------
-! Name: h5dget_space_f
+! Name: h5dget_space_f
!
-! Purpose: Returns an identifier for a copy of the dataspace for a
-! dataset.
+! Purpose: Returns an identifier for a copy of the dataspace for a
+! dataset.
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
-! Outputs:
+! Outputs:
! dataspace_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dget_space_f(dataset_id, dataspace_id, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HID_T), INTENT(OUT) :: dataspace_id ! Dataspace identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5dget_space_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -3394,39 +3394,39 @@ CONTAINS
END INTERFACE
hdferr = h5dget_space_c(dataset_id, dataspace_id)
- END SUBROUTINE h5dget_space_f
+ END SUBROUTINE h5dget_space_f
!----------------------------------------------------------------------
-! Name: h5dget_type_f
+! Name: h5dget_type_f
!
-! Purpose: Returns an identifier for a copy of the datatype for a
-! dataset.
+! Purpose: Returns an identifier for a copy of the datatype for a
+! dataset.
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
-! Outputs:
+! Outputs:
! datatype_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dget_type_f(dataset_id, datatype_id, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HID_T), INTENT(OUT) :: datatype_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5dget_type_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -3442,47 +3442,47 @@ CONTAINS
END INTERFACE
hdferr = h5dget_type_c (dataset_id, datatype_id)
- END SUBROUTINE h5dget_type_f
+ END SUBROUTINE h5dget_type_f
!----------------------------------------------------------------------
-! Name: h5dset_extent (instead of obsolete name: h5dextend_f)
+! Name: h5dset_extent (instead of obsolete name: h5dextend_f)
!
-! Purpose: Extends a dataset with unlimited dimension.
+! Purpose: Extends a dataset with unlimited dimension.
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
-! size - array containing the new magnitude of
+! size - array containing the new magnitude of
! each dimension
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
! Changed name from the now obsolete h5dextend_f
! to h5dset_extent_f. Provided interface to old name
! for backward compatability. -MSB- March 14, 2008
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dset_extent_f(dataset_id, size, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
- ! Array containing
- ! dimensions' sizes
- INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+ ! Array containing
+ ! dimensions' sizes
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
!
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -3496,44 +3496,44 @@ CONTAINS
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
END FUNCTION h5dset_extent_c
END INTERFACE
-
+
hdferr = H5Dset_extent_c(dataset_id, size)
END SUBROUTINE h5dset_extent_f
!----------------------------------------------------------------------
-! Name: h5dget_create_plist_f
+! Name: h5dget_create_plist_f
!
-! Purpose: Returns an identifier for a copy of the dataset creation
-! property list for a dataset.
+! Purpose: Returns an identifier for a copy of the dataset creation
+! property list for a dataset.
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
-! Outputs:
+! Outputs:
! plist_id - creation property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dget_create_plist_f(dataset_id, plist_id, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HID_T), INTENT(OUT) :: plist_id ! Dataset creation
! property list identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5dget_create_plist_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -3550,39 +3550,39 @@ CONTAINS
END INTERFACE
hdferr = h5dget_create_plist_c(dataset_id, plist_id)
- END SUBROUTINE h5dget_create_plist_f
+ END SUBROUTINE h5dget_create_plist_f
!----------------------------------------------------------------------
-! Name: h5dget_storage_size_f
+! Name: h5dget_storage_size_f
!
-! Purpose: Returns the amount of storage requires by a dataset
+! Purpose: Returns the amount of storage requires by a dataset
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
-! Outputs:
+! Outputs:
! size - datastorage size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! October 15, 2002
+! October 15, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dget_storage_size_f(dataset_id, size, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HSIZE_T), INTENT(OUT) :: size
- ! Amount of storage
+ ! Amount of storage
! allocated for dataset
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
INTEGER FUNCTION h5dget_storage_size_c(dataset_id, size)
@@ -3596,41 +3596,41 @@ CONTAINS
END INTERFACE
hdferr = h5dget_storage_size_c(dataset_id, size)
- END SUBROUTINE h5dget_storage_size_f
+ END SUBROUTINE h5dget_storage_size_f
!----------------------------------------------------------------------
-! Name: h5dvlen_get_max_len_f
+! Name: h5dvlen_get_max_len_f
!
! Purpose: Returns maximum lenght of the VL array elements
!
-! Inputs:
+! Inputs:
! dataset_id - dataset identifier
! type_id - datatype identifier
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! size - buffer size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! October 15, 2002
+! October 15, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dvlen_get_max_len_f(dataset_id, type_id, space_id, len, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(SIZE_T), INTENT(OUT) :: len ! Maximum length of the element
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
INTEGER FUNCTION h5dvlen_get_max_len_c(dataset_id, type_id, space_id, len)
@@ -3639,14 +3639,14 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DVLEN_GET_MAX_LEN_C'::h5dvlen_get_max_len_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(SIZE_T), INTENT(OUT) :: len
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(SIZE_T), INTENT(OUT) :: len
END FUNCTION h5dvlen_get_max_len_c
END INTERFACE
hdferr = h5dvlen_get_max_len_c(dataset_id, type_id, space_id, len)
- END SUBROUTINE h5dvlen_get_max_len_f
+ END SUBROUTINE h5dvlen_get_max_len_f
SUBROUTINE h5dwrite_vl_integer(dset_id, mem_type_id, buf, dims, len, &
hdferr, &
@@ -3655,26 +3655,26 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! MAX len x num_elem
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len ! Array to store
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len ! Array to store
! the lenght of each
! element
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTERFACE
INTEGER FUNCTION h5dwrite_vl_integer_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims, len)
USE H5GLOBAL
@@ -3687,7 +3687,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len
INTEGER, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
END FUNCTION h5dwrite_vl_integer_c
@@ -3698,14 +3698,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_vl_integer_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, len)
-
+
END SUBROUTINE h5dwrite_vl_integer
SUBROUTINE h5dread_vl_integer(dset_id, mem_type_id, buf, dims, len, &
@@ -3715,29 +3715,29 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! MAX len x num_elem
- INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len ! Array to store
+ INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len ! Array to store
! the lenght of each
! element
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! -1 if failed, 0 otherwise
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: tmp
INTEGER :: error
INTERFACE
INTEGER FUNCTION h5dread_vl_integer_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims, len)
USE H5GLOBAL
@@ -3750,25 +3750,25 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len
+ INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
END FUNCTION h5dread_vl_integer_c
END INTERFACE
- CALL h5dget_space_f(dset_id, tmp, error)
+ CALL h5dget_space_f(dset_id, tmp, error)
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = tmp
file_space_id_default = tmp
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_vl_integer_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, len)
-
+
END SUBROUTINE h5dread_vl_integer
SUBROUTINE h5dwrite_vl_real(dset_id, mem_type_id, buf, dims, len, &
@@ -3778,26 +3778,26 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! MAX len x num_elem
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len ! Array to store
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len ! Array to store
! the lenght of each
! element
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTERFACE
INTEGER FUNCTION h5dwrite_vl_real_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims, len)
USE H5GLOBAL
@@ -3810,7 +3810,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: len
REAL, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
END FUNCTION h5dwrite_vl_real_c
@@ -3821,14 +3821,14 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_vl_real_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, len)
-
+
END SUBROUTINE h5dwrite_vl_real
SUBROUTINE h5dread_vl_real(dset_id, mem_type_id, buf, dims, len, &
@@ -3838,29 +3838,29 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! MAX len x num_elem
- INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len ! Array to store
+ INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len ! Array to store
! the lenght of each
! element
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! -1 if failed, 0 otherwise
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: tmp
INTEGER :: error
INTERFACE
INTEGER FUNCTION h5dread_vl_real_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims, len)
USE H5GLOBAL
@@ -3873,25 +3873,25 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len
+ INTEGER(SIZE_T), INTENT(INOUT), DIMENSION(*) :: len
REAL, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
END FUNCTION h5dread_vl_real_c
END INTERFACE
- CALL h5dget_space_f(dset_id, tmp, error)
+ CALL h5dget_space_f(dset_id, tmp, error)
xfer_prp_default = H5P_DEFAULT_F
mem_space_id_default = tmp
file_space_id_default = tmp
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_vl_real_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, len)
-
+
END SUBROUTINE h5dread_vl_real
SUBROUTINE h5dwrite_vl_string(dset_id, mem_type_id, buf, dims, str_len, &
@@ -3901,27 +3901,27 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! number of strings
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: str_len ! Array to store
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: str_len ! Array to store
! the lenght of each
! element
CHARACTER(LEN=*), INTENT(IN), &
DIMENSION(dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! CHARACTER, DIMENSION(dims(1)*dims(2)) :: tmp_buf
INTERFACE
INTEGER FUNCTION h5dwrite_vl_string_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
! xfer_prp_default, tmp_buf, dims, str_len)
xfer_prp_default, buf, dims, str_len)
@@ -3936,7 +3936,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims
- INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: str_len
+ INTEGER(SIZE_T), INTENT(IN), DIMENSION(*) :: str_len
! CHARACTER, INTENT(IN), &
! DIMENSION(dims(1)*dims(2)) :: tmp_buf
CHARACTER(LEN=*), DIMENSION(dims(2)) :: buf
@@ -3948,21 +3948,21 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
! do i = 1, dims(2)
! do j = 1, dims(1)
! tmp_buf((i-1)*dims(1) +j) = buf(i)(j:j)
! enddo
-! enddo
+! enddo
! write(*,*) (tmp_buf(j:j), j=1,dims(1)*dims(2))
! write(*,*) str_len(1), str_len(2), str_len(3), str_len(4)
hdferr = h5dwrite_vl_string_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, str_len)
-
+
END SUBROUTINE h5dwrite_vl_string
SUBROUTINE h5dread_vl_string(dset_id, mem_type_id, buf, dims, str_len, &
@@ -3972,28 +3972,28 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims ! number of strings
- INTEGER(SIZE_T), INTENT(OUT), DIMENSION(*) :: str_len ! Array to store
+ INTEGER(SIZE_T), INTENT(OUT), DIMENSION(*) :: str_len ! Array to store
! the lenght of each
! element
CHARACTER(LEN=*), INTENT(OUT), &
DIMENSION(dims(2)) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! CHARACTER, DIMENSION(dims(1)*dims(2)) :: tmp_buf
! integer i, j
INTERFACE
INTEGER FUNCTION h5dread_vl_string_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
! xfer_prp_default, tmp_buf, dims, str_len)
xfer_prp_default, buf, dims, str_len)
@@ -4008,7 +4008,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(2) :: dims
- INTEGER(SIZE_T), INTENT(OUT), DIMENSION(*) :: str_len
+ INTEGER(SIZE_T), INTENT(OUT), DIMENSION(*) :: str_len
! CHARACTER, INTENT(IN), &
! DIMENSION(dims(1)*dims(2)) :: tmp_buf
CHARACTER(LEN=*), DIMENSION(dims(2)) :: buf
@@ -4020,41 +4020,41 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
! do i = 1, dims(2)
! do j = 1, dims(1)
! tmp_buf((i-1)*dims(1) +j) = buf(i)(j:j)
! enddo
-! enddo
+! enddo
! write(*,*) (tmp_buf(j:j), j=1,dims(1)*dims(2))
! write(*,*) str_len(1), str_len(2), str_len(3), str_len(4)
hdferr = h5dread_vl_string_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, &
buf, dims, str_len)
- RETURN
+ RETURN
END SUBROUTINE h5dread_vl_string
!----------------------------------------------------------------------
! Name: h5dfill_integer
!
-! Purpose: Fills dataspace elements with a fill value in a memory buffer.
-! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
+! Purpose: Fills dataspace elements with a fill value in a memory buffer.
+! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
! of the fillvalues and buffers are supported. Buffer and fillvalue
! are assumed to have the same datatype.
! Only one-dimesional buffers are supported.
!
-! Inputs:
+! Inputs:
! fill_value - fill value
! space_id - memory space selection identifier
! buf - data buffer iin memory ro apply selection to
! - of k-th dimension of the buf array
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! March 12, 2003
@@ -4066,11 +4066,11 @@ CONTAINS
INTEGER, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
INTEGER, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
-
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+
! INTEGER, EXTERNAL :: h5dfill_integer_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -4079,19 +4079,19 @@ CONTAINS
buf, mem_type_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_INTEGER_C'::h5dfill_integer_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_INTEGER_C'::h5dfill_integer_c
!DEC$ENDIF
INTEGER, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
INTEGER, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
END FUNCTION h5dfill_integer_c
- END INTERFACE
+ END INTERFACE
fill_type_id = H5T_NATIVE_INTEGER
mem_type_id = H5T_NATIVE_INTEGER
- hdferr = h5dfill_integer_c(fill_value, fill_type_id, space_id, &
+ hdferr = h5dfill_integer_c(fill_value, fill_type_id, space_id, &
buf, mem_type_id)
END SUBROUTINE h5dfill_integer
@@ -4099,21 +4099,21 @@ CONTAINS
!----------------------------------------------------------------------
! Name: h5dfill_real
!
-! Purpose: Fills dataspace elements with a fill value in a memory buffer.
-! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
+! Purpose: Fills dataspace elements with a fill value in a memory buffer.
+! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
! of the fillvalues and buffers are supported. Buffer and fillvalue
! are assumed to have the same datatype.
! Only one-dimesional buffers are supported.
!
-! Inputs:
+! Inputs:
! fill_value - fill value
! space_id - memory space selection identifier
! buf - data buffer iin memory ro apply selection to
! - of k-th dimension of the buf array
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! March 12, 2003
@@ -4125,11 +4125,11 @@ CONTAINS
REAL, INTENT(IN) :: fill_valuer ! Fill value
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
REAL, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
-
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+
! INTEGER, EXTERNAL :: h5dfill_real_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -4138,40 +4138,40 @@ CONTAINS
buf, mem_type_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_REAL_C'::h5dfill_real_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_REAL_C'::h5dfill_real_c
!DEC$ENDIF
REAL, INTENT(IN) :: fill_valuer ! Fill value
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
REAL, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
END FUNCTION h5dfill_real_c
- END INTERFACE
+ END INTERFACE
fill_type_id = H5T_NATIVE_REAL
mem_type_id = H5T_NATIVE_REAL
- hdferr = h5dfill_real_c(fill_valuer, fill_type_id, space_id, &
+ hdferr = h5dfill_real_c(fill_valuer, fill_type_id, space_id, &
buf, mem_type_id)
END SUBROUTINE h5dfill_real
!----------------------------------------------------------------------
! Name: h5dfill_char
!
-! Purpose: Fills dataspace elements with a fill value in a memory buffer.
-! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
+! Purpose: Fills dataspace elements with a fill value in a memory buffer.
+! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
! of the fillvalues and buffers are supported. Buffer and fillvalue
! are assumed to have the same datatype.
! Only one-dimesional buffers are supported.
!
-! Inputs:
+! Inputs:
! fill_value - fill value
! space_id - memory space selection identifier
! buf - data buffer iin memory ro apply selection to
! - of k-th dimension of the buf array
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! March 12, 2003
@@ -4183,11 +4183,11 @@ CONTAINS
CHARACTER, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
CHARACTER, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
-
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+
! INTEGER, EXTERNAL :: h5dfillc_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -4196,19 +4196,19 @@ CONTAINS
buf, mem_type_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILLC_C'::h5dfillc_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILLC_C'::h5dfillc_c
!DEC$ENDIF
CHARACTER, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
CHARACTER, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
END FUNCTION h5dfillc_c
- END INTERFACE
+ END INTERFACE
fill_type_id = H5T_NATIVE_CHARACTER
mem_type_id = H5T_NATIVE_CHARACTER
- hdferr = h5dfillc_c(fill_value, fill_type_id, space_id, &
+ hdferr = h5dfillc_c(fill_value, fill_type_id, space_id, &
buf, mem_type_id)
END SUBROUTINE h5dfill_char
@@ -4216,19 +4216,19 @@ CONTAINS
!----------------------------------------------------------------------
! Name: h5dget_space_status_f
!
-! Purpose: Returns the status of data space allocation.
+! Purpose: Returns the status of data space allocation.
!
-! Inputs:
+! Inputs:
! dset_id - dataset identifier
-! Outputs:
+! Outputs:
! flag - status; may have one of the following values:
! H5D_SPACE_STS_ERROR_F
! H5D_SPACE_STS_NOT_ALLOCATED_F
! H5D_SPACE_STS_PART_ALLOCATED_F
! H5D_SPACE_STS_ALLOCATED_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! March 12, 2003
@@ -4239,8 +4239,8 @@ CONTAINS
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataspace identifier
INTEGER, INTENT(IN) :: flag ! Memory buffer to fill in
- INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+
! INTEGER, EXTERNAL :: h5dget_space_status_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -4248,30 +4248,30 @@ CONTAINS
INTEGER FUNCTION h5dget_space_status_c(dset_id, flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DGET_SPACE_STATUS_C'::h5dget_space_status_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DGET_SPACE_STATUS_C'::h5dget_space_status_c
!DEC$ENDIF
INTEGER(HID_T) :: dset_id
INTEGER :: flag
END FUNCTION h5dget_space_status_c
- END INTERFACE
+ END INTERFACE
hdferr = h5dget_space_status_c(dset_id, flag)
END SUBROUTINE h5dget_space_status_f
!----------------------------------------------------------------------
-! Name: h5dcreate_anon_f
+! Name: h5dcreate_anon_f
!
-! Purpose: Creates a dataset in a file without linking it into the file structure
+! Purpose: Creates a dataset in a file without linking it into the file structure
!
-! Inputs:
+! Inputs:
! loc_id - Identifier of the file or group within which to create the dataset.
! type_id - Identifier of the datatype to use when creating the dataset.
! space_id - Identifier of the dataspace to use when creating the dataset.
-! Outputs:
+! Outputs:
! dset_id - dataset identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! dcpl_id - Dataset creation property list identifier.
! dapl_id - Dataset access property list identifier.
@@ -4281,15 +4281,15 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5dcreate_anon_f(loc_id, type_id, space_id, dset_id, hdferr, dcpl_id, dapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier.
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier.
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier.
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier.
INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier.
- INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier.
+ INTEGER(HID_T), INTENT(OUT) :: dset_id ! Dataset identifier.
INTEGER, INTENT(OUT) :: hdferr ! Error code.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: dcpl_id ! Dataset creation property list identifier.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: dapl_id ! Dataset access property list identifier.
@@ -4306,7 +4306,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5DCREATE_ANON_C'::h5dcreate_anon_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER(HID_T) :: dcpl_id_default
@@ -4320,21 +4320,21 @@ CONTAINS
IF(PRESENT(dcpl_id)) dcpl_id_default = dcpl_id
IF(PRESENT(dapl_id)) dapl_id_default = dapl_id
-
+
hdferr = h5dcreate_anon_c(loc_id, type_id, space_id, dcpl_id_default, dapl_id_default, dset_id)
END SUBROUTINE h5dcreate_anon_f
!----------------------------------------------------------------------
-! Name: h5dget_access_plist_f
+! Name: h5dget_access_plist_f
!
! Purpose: Returns a copy of the dataset creation property list.
!
-! Inputs:
+! Inputs:
! dset_id - dataset identifier.
-! Outputs:
+! Outputs:
! plist_id - the dataset access property list identifier.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
!
@@ -4343,15 +4343,15 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5dget_access_plist_f(dset_id, plist_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dset_id
- INTEGER(HID_T), INTENT(OUT) :: plist_id
+ INTEGER(HID_T), INTENT(OUT) :: plist_id
INTEGER, INTENT(OUT) :: hdferr ! Error code.
-
+
INTERFACE
INTEGER FUNCTION h5dget_access_plist_c(dset_id, plist_id)
USE H5GLOBAL
@@ -4364,7 +4364,7 @@ CONTAINS
END INTERFACE
hdferr = h5dget_access_plist_c(dset_id, plist_id)
-
+
END SUBROUTINE h5dget_access_plist_f
END MODULE H5D
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
index 4f9d652..e68c86c 100644
--- a/fortran/src/H5Ef.c
+++ b/fortran/src/H5Ef.c
@@ -62,7 +62,7 @@ nh5eprint_c1(_fcd name, int_f* namelen)
FILE *file = NULL;
char *c_name = NULL;
int_f ret_value = 0;
-
+
if(NULL == (c_name = (char*)HD5f2cstring(name, (size_t)*namelen)))
HGOTO_DONE(FAIL)
if(NULL == (file = HDfopen(c_name, "a")))
@@ -138,9 +138,9 @@ nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen)
*/
H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen);
HD5packFstring((char*)c_name, _fcdtocp(name), c_namelen);
- if(!HDstrcmp(c_name, "Invalid major error number"))
+ if(!HDstrcmp(c_name, "Invalid major error number"))
HGOTO_DONE(FAIL)
-
+
done:
if(c_name)
HDfree(c_name);
@@ -176,13 +176,13 @@ nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen)
*/
H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen);
HD5packFstring((char *)c_name, _fcdtocp(name), c_namelen);
- if(!HDstrcmp(c_name, "Invalid minor error number"))
+ if(!HDstrcmp(c_name, "Invalid minor error number"))
HGOTO_DONE(FAIL)
-
+
done:
if(c_name)
HDfree(c_name);
-
+
return ret_value;
}
diff --git a/fortran/src/H5Eff.f90 b/fortran/src/H5Eff.f90
index b385f39..c33f9c1 100644
--- a/fortran/src/H5Eff.f90
+++ b/fortran/src/H5Eff.f90
@@ -2,7 +2,7 @@
!
! NAME
! H5E
-!
+!
! FUNCTION
! This file contains Fortran interfaces for H5E functions.
!
@@ -24,47 +24,47 @@
!
! NOTES
! *** IMPORTANT ***
-! If you add a new H5E function you must add the function name to the
+! If you add a new H5E function you must add the function name to the
! Windows dll file 'hdf5_fortrandll.def' in the fortran/src directory.
! This is needed for Windows based operating systems.
!
!*****
MODULE H5E
-
+
USE H5GLOBAL
!Turn on automatic printing of errors
INTEGER, PARAMETER :: PRINTON = 1
-
+
!Turn off automatic printing of errors
INTEGER, PARAMETER :: PRINTOFF = 0
-
+
CONTAINS
!----------------------------------------------------------------------
! Name: h5eclear_f
!
-! Purpose: Clears the error stack for the current thread.
+! Purpose: Clears the error stack for the current thread.
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-!
-!
+!
+!
!
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). April 6, 2001
+! port). April 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5eclear_f(hdferr)
@@ -88,25 +88,25 @@ CONTAINS
!----------------------------------------------------------------------
! Name: h5h5eprint_f
!
-! Purpose: Prints the error stack in a default manner.
+! Purpose: Prints the error stack in a default manner.
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! name - name of the file that
-! contains print output
+! contains print output
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). April 6, 2001
+! port). April 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5eprint_f(hdferr, name)
@@ -136,36 +136,36 @@ CONTAINS
END INTERFACE
namelen = LEN(NAME)
IF (PRESENT(name)) THEN
- hdferr = h5eprint_c1(name, namelen)
+ hdferr = h5eprint_c1(name, namelen)
ELSE
- hdferr = h5eprint_c2()
+ hdferr = h5eprint_c2()
ENDIF
END SUBROUTINE h5eprint_f
!----------------------------------------------------------------------
! Name: h5eget_major_f
!
-! Purpose: Returns a character string describing an error specified
-! by a major error number.
+! Purpose: Returns a character string describing an error specified
+! by a major error number.
!
-! Inputs:
-! error_no - mojor error number
-! Outputs:
+! Inputs:
+! error_no - mojor error number
+! Outputs:
! name - character string describing the error
! namelen - number of characters in the name buffer
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-!
+!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). April 6, 2001
+! port). April 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5eget_major_f(error_no, name, namelen, hdferr)
@@ -183,40 +183,40 @@ CONTAINS
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER :: error_no
- CHARACTER(LEN=*) :: name
+ CHARACTER(LEN=*) :: name
INTEGER(SIZE_T), INTENT(IN) :: namelen
END FUNCTION h5eget_major_c
END INTERFACE
-
- hdferr = h5eget_major_c(error_no, name, namelen)
+
+ hdferr = h5eget_major_c(error_no, name, namelen)
END SUBROUTINE h5eget_major_f
!----------------------------------------------------------------------
! Name: h5eget_minor_f
!
-! Purpose: Returns a character string describing an error specified
-! by a minor error number.
+! Purpose: Returns a character string describing an error specified
+! by a minor error number.
!
-! Inputs:
-! error_no - minor error number
-! Outputs:
+! Inputs:
+! error_no - minor error number
+! Outputs:
! name - character string describing the error
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-!
-!
+!
+!
!
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). April 6, 2001
+! port). April 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5eget_minor_f(error_no, name, hdferr)
@@ -233,38 +233,38 @@ CONTAINS
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER :: error_no
- CHARACTER(LEN=*) :: name
+ CHARACTER(LEN=*) :: name
END FUNCTION h5eget_minor_c
END INTERFACE
- hdferr = h5eget_minor_c(error_no, name)
+ hdferr = h5eget_minor_c(error_no, name)
END SUBROUTINE h5eget_minor_f
!----------------------------------------------------------------------
! Name: h5eset_auto_f
!
! Purpose: Turns automatic error printing on or off
!
-! Inputs:
+! Inputs:
! printflag - flag to turn automatic error
! - Possible values are:
! - 1 (on), 0 (off)
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-!
-!
+!
+!
!
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). April 6, 2001
+! port). April 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
@@ -286,8 +286,8 @@ CONTAINS
END FUNCTION h5eset_auto_c
END INTERFACE
- hdferr = h5eset_auto_c(printflag)
+ hdferr = h5eset_auto_c(printflag)
END SUBROUTINE h5eset_auto_f
-
+
END MODULE H5E
-
+
diff --git a/fortran/src/H5FDmpioff.f90 b/fortran/src/H5FDmpioff.f90
index f98f654..787f0d5 100644
--- a/fortran/src/H5FDmpioff.f90
+++ b/fortran/src/H5FDmpioff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5P functions needed by || MPI programs.
@@ -21,19 +21,19 @@
CONTAINS
!----------------------------------------------------------------------
-! Name: h5pset_fapl_mpio_f
+! Name: h5pset_fapl_mpio_f
!
-! Purpose: Stores MPI IO communicator information to the file
-! access property list.
+! Purpose: Stores MPI IO communicator information to the file
+! access property list.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
! comm - MPI-2 communicator
! info - MPI-2 info object
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -42,9 +42,9 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pset_fapl_mpio_f(prp_id, comm, info, hdferr)
+ SUBROUTINE h5pset_fapl_mpio_f(prp_id, comm, info, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: comm ! MPI communicator to be used for file open
@@ -58,34 +58,34 @@
END SUBROUTINE h5pset_fapl_mpio_f
!----------------------------------------------------------------------
-! Name: h5pget_fapl_mpio_f
+! Name: h5pget_fapl_mpio_f
!
-! Purpose: Returns MPI communicator information.
+! Purpose: Returns MPI communicator information.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
+! Outputs:
! comm - MPI-2 communicator
! info - MPI-2 info object
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! November, 2000
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pget_fapl_mpio_f(prp_id, comm, info, hdferr)
+ SUBROUTINE h5pget_fapl_mpio_f(prp_id, comm, info, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(OUT) :: comm ! buffer to return communicator
- INTEGER, INTENT(OUT) :: info ! buffer to return info object
+ INTEGER, INTENT(OUT) :: comm ! buffer to return communicator
+ INTEGER, INTENT(OUT) :: info ! buffer to return info object
! as defined in MPI_FILE_OPEN of MPI-2
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -94,32 +94,32 @@
END SUBROUTINE h5pget_fapl_mpio_f
!----------------------------------------------------------------------
-! Name: h5pset_dxpl_mpio_f
+! Name: h5pset_dxpl_mpio_f
!
-! Purpose: Sets data transfer mode.
+! Purpose: Sets data transfer mode.
!
-! Inputs:
+! Inputs:
! prp_id - data transfer property list identifier
! data_xfer_mode - transfer mode
! Possible values are:
! H5FD_MPIO_INDEPENDENT_F
! H5FD_MPIO_COLLECTIVE_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! November, 2000
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pset_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr)
+ SUBROUTINE h5pset_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: data_xfer_mode ! Data transfer mode. Possible values are:
@@ -127,37 +127,37 @@
! H5FD_MPIO_COLLECTIVE_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER, EXTERNAL :: h5pset_dxpl_mpio_c
+ INTEGER, EXTERNAL :: h5pset_dxpl_mpio_c
hdferr = h5pset_dxpl_mpio_c(prp_id, data_xfer_mode)
END SUBROUTINE h5pset_dxpl_mpio_f
!----------------------------------------------------------------------
-! Name: h5pget_dxpl_mpio_f
+! Name: h5pget_dxpl_mpio_f
!
-! Purpose: Returns the data transfer mode.
+! Purpose: Returns the data transfer mode.
!
-! Inputs:
+! Inputs:
! prp_id - data transfer property list identifier
-! Outputs:
+! Outputs:
! data_xfer_mode - transfer mode
! Possible values are:
! H5FD_MPIO_INDEPENDENT_F
! H5FD_MPIO_COLLECTIVE_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! November, 2000
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pget_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr)
+ SUBROUTINE h5pget_dxpl_mpio_f(prp_id, data_xfer_mode, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: data_xfer_mode ! Data transfer mode. Possible values are:
@@ -171,19 +171,19 @@
!----------------------------------------------------------------------
-! Name: h5pset_fapl_mpiposix_f
+! Name: h5pset_fapl_mpiposix_f
!
-! Purpose: Stores MPI IO communicator information to the file
-! access property list.
+! Purpose: Stores MPI IO communicator information to the file
+! access property list.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
! comm - MPI-2 communicator
! use_gpfs - logical flag to use the GPFS hints
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -192,9 +192,9 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pset_fapl_mpiposix_f(prp_id, comm, use_gpfs, hdferr)
+ SUBROUTINE h5pset_fapl_mpiposix_f(prp_id, comm, use_gpfs, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: comm ! MPI communicator to be used for file open
@@ -205,38 +205,38 @@
INTEGER, EXTERNAL :: h5pset_fapl_mpiposix_c
flag = 0
- if(use_gpfs) flag = 1
+ if(use_gpfs) flag = 1
hdferr = h5pset_fapl_mpiposix_c(prp_id, comm, flag)
END SUBROUTINE h5pset_fapl_mpiposix_f
!----------------------------------------------------------------------
-! Name: h5pget_fapl_mpiposix_f
+! Name: h5pget_fapl_mpiposix_f
!
-! Purpose: Returns MPI communicator information.
+! Purpose: Returns MPI communicator information.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
+! Outputs:
! comm - MPI-2 communicator
! use_gpfs - flag to use GPFS hints
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! May 6, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pget_fapl_mpiposix_f(prp_id, comm, use_gpfs, hdferr)
+ SUBROUTINE h5pget_fapl_mpiposix_f(prp_id, comm, use_gpfs, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(OUT) :: comm ! buffer to return communicator
+ INTEGER, INTENT(OUT) :: comm ! buffer to return communicator
LOGICAL, INTENT(OUT) :: use_gpfs
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 674d702..51a53a8 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -440,7 +440,7 @@ nh5fget_obj_count_c ( hid_t_f *file_id , int_f *obj_type, size_t_f * obj_count)
* Programmer: Elena Pourmal
* Monday, September 30, 2002
* Modifications:
- * Changed type of max_obj to size_t_f; added parameter for the
+ * Changed type of max_obj to size_t_f; added parameter for the
* number of open objects
* Thursday, September 25, 2008 EIP
*---------------------------------------------------------------------------*/
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90
index e499fac..a1ebe58 100644
--- a/fortran/src/H5Fff.f90
+++ b/fortran/src/H5Fff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,58 +11,58 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5F functions.
-!
+!
MODULE H5F
USE H5GLOBAL
-
+
CONTAINS
-
+
!----------------------------------------------------------------------
-! Name: h5fcreate_f
+! Name: h5fcreate_f
!
-! Purpose: Creates HDF5 files.
+! Purpose: Creates HDF5 files.
!
-! Inputs:
+! Inputs:
! name - name of the file to create
-! access_flags - File access flags. Allowable values are:
-! H5F_ACC_TRUNC_F
-! H5F_ACC_EXCL_F
-! Outputs:
+! access_flags - File access flags. Allowable values are:
+! H5F_ACC_TRUNC_F
+! H5F_ACC_EXCL_F
+! Outputs:
! file_id - file identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! creation_prp - file creation property list identifier
! access_prp - file access property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5fcreate_f(name, access_flags, file_id, hdferr, &
creation_prp, access_prp)
- IMPLICIT NONE
+ IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
INTEGER, INTENT(IN) :: access_flags ! File access flags
- INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
+ INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
! File creation propertly
- ! list identifier
+ ! list identifier
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
! File access property list
! identifier
- INTEGER(HID_T) :: creation_prp_default
+ INTEGER(HID_T) :: creation_prp_default
INTEGER(HID_T) :: access_prp_default
INTEGER :: namelen ! Length of the name character string
@@ -76,7 +76,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5FCREATE_C':: h5fcreate_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: name
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: access_flags
INTEGER(HID_T), INTENT(OUT) :: file_id
@@ -85,67 +85,67 @@
INTEGER :: namelen
END FUNCTION h5fcreate_c
END INTERFACE
-
+
creation_prp_default = H5P_DEFAULT_F
access_prp_default = H5P_DEFAULT_F
- IF (PRESENT(creation_prp)) creation_prp_default = creation_prp
- IF (PRESENT(access_prp)) access_prp_default = access_prp
+ IF (PRESENT(creation_prp)) creation_prp_default = creation_prp
+ IF (PRESENT(access_prp)) access_prp_default = access_prp
namelen = LEN_TRIM(name)
hdferr = h5fcreate_c(name, namelen, access_flags, &
- creation_prp_default, access_prp_default, file_id)
+ creation_prp_default, access_prp_default, file_id)
END SUBROUTINE h5fcreate_f
-
+
!----------------------------------------------------------------------
-! Name: h5fflush_f
+! Name: h5fflush_f
!
-! Purpose: Flushes all buffers associated with a file to disk
+! Purpose: Flushes all buffers associated with a file to disk
!
-! Inputs:
-! object_id - identifier of object used to identify
-! the file.
-! scope - specifies the scope of the flushing action.
+! Inputs:
+! object_id - identifier of object used to identify
+! the file.
+! scope - specifies the scope of the flushing action.
! Possible values are:
! H5F_SCOPE_GLOBAL_F
! H5F_SCOPE_LOCAL_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! creation_prp - file creation property list identifier
! access_prp - file access property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5fflush_f(object_id, scope, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: object_id !identifier for any object
- !associate with a file,
+ !associate with a file,
!including the file itself,
!a dataset, a group, an
!attribute, or a named
!data type
INTEGER, INTENT(IN) :: scope !scope of the flushing
- !action, possible values
+ !action, possible values
!are: H5F_SCOPE_GLOBAL_F
! which flushes the entire
- !virtual file,
+ !virtual file,
!and H5F_SCOPE_LOCAL_F
- !which flushes only the
+ !which flushes only the
!specified file.
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5fflush_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -161,52 +161,52 @@
END FUNCTION h5fflush_c
END INTERFACE
- hdferr = h5fflush_c(object_id, scope)
+ hdferr = h5fflush_c(object_id, scope)
END SUBROUTINE h5fflush_f
!----------------------------------------------------------------------
-! Name: h5fmount_f
+! Name: h5fmount_f
!
-! Purpose: Mounts a file.
+! Purpose: Mounts a file.
!
-! Inputs:
-! loc_id - the identifier for of file or group in
+! Inputs:
+! loc_id - the identifier for of file or group in
! which name is defined
-! name - the name of the group onto which the file
-! specified by child_id is to be mounted.
-! child_id - the identifier of the file to be mounted.
-! Outputs:
-! hdferr: - error code
+! name - the name of the group onto which the file
+! specified by child_id is to be mounted.
+! child_id - the identifier of the file to be mounted.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! access_prp - the identifier of the property list to be used
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fmount_f(loc_id, name, child_id, hdferr, access_prp)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
- ! in which dsetname is defined
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
+ ! in which dsetname is defined
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
INTEGER(HID_T), INTENT(IN) :: child_id ! File identifier for the
- ! file to be mounted
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! file to be mounted
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
! File access property list
! identifier
- INTEGER(HID_T) :: access_prp_default
+ INTEGER(HID_T) :: access_prp_default
INTEGER :: namelen ! Length of the name character string
-
+
! INTEGER, EXTERNAL :: h5fmount_c
! Interface is needed for MS FORTRAN
!
@@ -217,58 +217,58 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5FMOUNT_C':: h5fmount_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
- INTEGER(HID_T), INTENT(IN) :: loc_id
- CHARACTER(LEN=*), INTENT(IN) :: name
- INTEGER(HID_T), INTENT(IN) :: child_id
+ !DEC$ATTRIBUTES reference :: name
+ INTEGER(HID_T), INTENT(IN) :: loc_id
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ INTEGER(HID_T), INTENT(IN) :: child_id
INTEGER(HID_T), INTENT(IN) :: access_prp_default
- INTEGER :: namelen
+ INTEGER :: namelen
END FUNCTION h5fmount_c
END INTERFACE
access_prp_default = H5P_DEFAULT_F
- if (present(access_prp)) access_prp_default = access_prp
+ if (present(access_prp)) access_prp_default = access_prp
namelen = LEN(name)
- hdferr = h5fmount_c(loc_id, name, namelen, child_id, access_prp_default)
-
+ hdferr = h5fmount_c(loc_id, name, namelen, child_id, access_prp_default)
+
END SUBROUTINE h5fmount_f
!----------------------------------------------------------------------
-! Name: h5funmount_f
+! Name: h5funmount_f
!
-! Purpose: Unmounts a file.
+! Purpose: Unmounts a file.
!
-! Inputs:
-! loc_id - the identifier for of file or group in
+! Inputs:
+! loc_id - the identifier for of file or group in
! which name is defined
! name - the name of the mount point
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5funmount_f(loc_id, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
- ! at which the specified file
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for file or group
+ ! at which the specified file
! is to be unmounted
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the mount point
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Length of the name character string
-
+
! INTEGER, EXTERNAL :: h5fumount_c
! Interface is needed for MS FORTRAN
!
@@ -278,56 +278,56 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5FUNMOUNT_C':: h5funmount_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
- INTEGER(HID_T), INTENT(IN) :: loc_id
- CHARACTER(LEN=*), INTENT(IN) :: name
- INTEGER :: namelen
+ !DEC$ATTRIBUTES reference :: name
+ INTEGER(HID_T), INTENT(IN) :: loc_id
+ CHARACTER(LEN=*), INTENT(IN) :: name
+ INTEGER :: namelen
END FUNCTION h5funmount_c
END INTERFACE
-
+
namelen = LEN(name)
- hdferr = h5funmount_c(loc_id, name, namelen)
-
+ hdferr = h5funmount_c(loc_id, name, namelen)
+
END SUBROUTINE h5funmount_f
-
+
!----------------------------------------------------------------------
-! Name: h5fopen_f
+! Name: h5fopen_f
!
-! Purpose: Opens HDF5 file.
+! Purpose: Opens HDF5 file.
!
-! Inputs:
+! Inputs:
! name - name of the file to acecss
-! access_flags - File access flags. Allowable values are:
-! H5F_ACC_RDWR_F
-! H5F_ACC_RDONLY_F
-! Outputs:
+! access_flags - File access flags. Allowable values are:
+! H5F_ACC_RDWR_F
+! H5F_ACC_RDONLY_F
+! Outputs:
! file_id - file identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! access_prp - file access property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5fopen_f(name, access_flags, file_id, hdferr, &
access_prp)
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
INTEGER, INTENT(IN) :: access_flags ! File access flags
- INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
! File access property list
! identifier
- INTEGER(HID_T) :: access_prp_default
+ INTEGER(HID_T) :: access_prp_default
INTEGER :: namelen ! Length of the name character string
! INTEGER, EXTERNAL :: h5fopen_c
@@ -348,46 +348,46 @@
INTEGER(HID_T), INTENT(OUT) :: file_id
END FUNCTION h5fopen_c
END INTERFACE
-
+
access_prp_default = H5P_DEFAULT_F
- if (present(access_prp)) access_prp_default = access_prp
+ if (present(access_prp)) access_prp_default = access_prp
namelen = LEN(name)
hdferr = h5fopen_c(name, namelen, access_flags, &
- access_prp_default, file_id)
+ access_prp_default, file_id)
END SUBROUTINE h5fopen_f
-
+
!----------------------------------------------------------------------
-! Name: h5freopen_f
+! Name: h5freopen_f
!
-! Purpose: Reopens HDF5 file.
+! Purpose: Reopens HDF5 file.
!
-! Inputs:
-! file_id - identifier of a file for which an
+! Inputs:
+! file_id - identifier of a file for which an
! additional identifier is required
-! Outputs:
+! Outputs:
! ret_file_id - new file identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5freopen_f(file_id, ret_file_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
- INTEGER(HID_T), INTENT(OUT) :: ret_file_id ! New File identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(OUT) :: ret_file_id ! New File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5freopen_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -403,42 +403,42 @@
END FUNCTION h5freopen_c
END INTERFACE
- hdferr = h5freopen_c(file_id, ret_file_id)
-
+ hdferr = h5freopen_c(file_id, ret_file_id)
+
END SUBROUTINE h5freopen_f
-
+
!----------------------------------------------------------------------
! Name: h5fget_create_plist_f
!
-! Purpose: Returns a file creation property list identifier.
+! Purpose: Returns a file creation property list identifier.
!
-! Inputs:
-! file_id - identifier of a file to get
-! get creation property list of
-! Outputs:
+! Inputs:
+! file_id - identifier of a file to get
+! get creation property list of
+! Outputs:
! prop_id - creation property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fget_create_plist_f(file_id, prop_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
INTEGER(HID_T), INTENT(OUT) :: prop_id ! File creation property
- ! list identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5fget_create_plist_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -453,43 +453,43 @@
INTEGER(HID_T), INTENT(OUT) :: prop_id
END FUNCTION h5fget_create_plist_c
END INTERFACE
-
- hdferr = h5fget_create_plist_c(file_id, prop_id)
+
+ hdferr = h5fget_create_plist_c(file_id, prop_id)
END SUBROUTINE h5fget_create_plist_f
-
+
!----------------------------------------------------------------------
! Name: h5fget_access_plist_f
!
-! Purpose: Returns a file access property list identifier.
+! Purpose: Returns a file access property list identifier.
!
-! Inputs:
-! file_id - identifier of a file to get
-! get creation property list of
-! Outputs:
+! Inputs:
+! file_id - identifier of a file to get
+! get creation property list of
+! Outputs:
! access_id - access property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5fget_access_plist_f(file_id, access_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
+ INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
INTEGER(HID_T), INTENT(OUT) :: access_id ! File access property
- ! list identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5fget_access_plist_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -504,46 +504,46 @@
INTEGER(HID_T), INTENT(OUT) :: access_id
END FUNCTION h5fget_access_plist_c
END INTERFACE
-
-
- hdferr = h5fget_access_plist_c(file_id, access_id)
+
+
+ hdferr = h5fget_access_plist_c(file_id, access_id)
END SUBROUTINE h5fget_access_plist_f
-
+
!----------------------------------------------------------------------
! Name: h5fis_hdf5_f
!
-! Purpose: Determines whether a file is in the HDF5 format.
+! Purpose: Determines whether a file is in the HDF5 format.
!
-! Inputs:
+! Inputs:
! name - name of the file to check
-! Outputs:
+! Outputs:
! status - indicates if file is and HDF5 file
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fis_hdf5_f(name, status, hdferr)
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the file
LOGICAL, INTENT(OUT) :: status ! Indicates if file
! is an HDF5 file
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Length of the name character string
INTEGER :: flag ! "TRUE/FALSE" flag from C routine
- ! to define status value.
+ ! to define status value.
! INTEGER, EXTERNAL :: h5fis_hdf5_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -560,38 +560,38 @@
INTEGER :: flag
END FUNCTION h5fis_hdf5_c
END INTERFACE
-
+
namelen = LEN(name)
- hdferr = h5fis_hdf5_c(name, namelen, flag)
+ hdferr = h5fis_hdf5_c(name, namelen, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
END SUBROUTINE h5fis_hdf5_f
-
+
!----------------------------------------------------------------------
! Name: h5fclose_f
!
! Purpose: Closes HDF5 file.
!
-! Inputs:
+! Inputs:
! file_id - file identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fclose_f(file_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
@@ -619,31 +619,31 @@
!
! Purpose: Gets number of the objects open within a file
!
-! Inputs:
+! Inputs:
! file_id - file identifier
! obj_type - type of the object; possible values are:
-! H5F_OBJ_FILE_F
-! H5F_OBJ_DATASET_F
-! H5F_OBJ_GROUP_F
-! H5F_OBJ_DATATYPE_F
-! H5F_OBJ_ALL_F
-! Outputs:
+! H5F_OBJ_FILE_F
+! H5F_OBJ_DATASET_F
+! H5F_OBJ_GROUP_F
+! H5F_OBJ_DATATYPE_F
+! H5F_OBJ_ALL_F
+! Outputs:
! obj_count - number of open objects
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! September 30, 2002
!
-! Modifications:
+! Modifications:
! Changed the type of obj_count to INTEGER(SIZE_T)
! September 25, 2008 EIP
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fget_obj_count_f(file_id, obj_type, obj_count, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
@@ -674,34 +674,34 @@
!
! Purpose: Get list of open objects identifiers within a file
!
-! Inputs:
+! Inputs:
! file_id - file identifier
! obj_type - type of the object; possible values are:
-! H5F_OBJ_FILE_F
-! H5F_OBJ_DATASET_F
-! H5F_OBJ_GROUP_F
-! H5F_OBJ_DATATYPE_F
-! H5F_OBJ_ALL_F
-! Outputs:
+! H5F_OBJ_FILE_F
+! H5F_OBJ_DATASET_F
+! H5F_OBJ_GROUP_F
+! H5F_OBJ_DATATYPE_F
+! H5F_OBJ_ALL_F
+! Outputs:
! obj_ids - array of open object identifiers
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! September 30, 2002
!
-! Modifications:
+! Modifications:
! Added optional parameter num_objs for number of open objects
-! of the specified type and changed type of max_obj to
+! of the specified type and changed type of max_obj to
! INTEGER(SIZE_T)
! September 25, 2008 EIP
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr, num_objs)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
@@ -710,8 +710,8 @@
INTEGER(HID_T), DIMENSION(*), INTENT(INOUT) :: obj_ids
! Array of open objects iidentifiers
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(SIZE_T), INTENT(OUT), OPTIONAL :: num_objs
- INTEGER(SIZE_T) :: c_num_objs
+ INTEGER(SIZE_T), INTENT(OUT), OPTIONAL :: num_objs
+ INTEGER(SIZE_T) :: c_num_objs
! Number of open objects of the specified type
INTERFACE
@@ -721,10 +721,10 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
- INTEGER, INTENT(IN) :: obj_type
+ INTEGER, INTENT(IN) :: obj_type
INTEGER(SIZE_T), INTENT(IN) :: max_objs
- INTEGER(HID_T), DIMENSION(*), INTENT(INOUT) :: obj_ids
- INTEGER(SIZE_T), INTENT(OUT) :: c_num_objs
+ INTEGER(HID_T), DIMENSION(*), INTENT(INOUT) :: obj_ids
+ INTEGER(SIZE_T), INTENT(OUT) :: c_num_objs
END FUNCTION h5fget_obj_ids_c
END INTERFACE
@@ -738,28 +738,28 @@
!
! Purpose: Get amount of free space within a file
!
-! Inputs:
+! Inputs:
! file_id - file identifier
-! Outputs:
+! Outputs:
! free_space - amount of free space in file
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
! October 7, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5fget_freespace_f(file_id, free_space, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
- INTEGER(HSSIZE_T), INTENT(OUT) :: free_space
+ INTEGER(HSSIZE_T), INTENT(OUT) :: free_space
!amount of free space in file
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -770,7 +770,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5FGET_FREESPACE_C':: h5fget_freespace_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: file_id
- INTEGER(HSSIZE_T), INTENT(OUT) :: free_space
+ INTEGER(HSSIZE_T), INTENT(OUT) :: free_space
END FUNCTION h5fget_freespace_c
END INTERFACE
@@ -779,19 +779,19 @@
END SUBROUTINE h5fget_freespace_f
!----------------------------------------------------------------------
-! Name: h5fget_name_f
+! Name: h5fget_name_f
!
! Purpose: Gets the name of the file from the object identifier
!
-! Inputs:
+! Inputs:
! obj_id - object identifier
! Inputs/Outputs:
! buf - buffer to read name in
-! Outputs:
+! Outputs:
! size - actual size of the name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
!
! Programmer: Elena Pourmal
@@ -802,8 +802,8 @@
SUBROUTINE h5fget_name_f(obj_id, buf, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
- CHARACTER(LEN=*), INTENT(INOUT) :: buf
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ CHARACTER(LEN=*), INTENT(INOUT) :: buf
! Buffer to hold file name
INTEGER(SIZE_T), INTENT(OUT) :: size ! Size of the file name
INTEGER, INTENT(OUT) :: hdferr ! Error code: 0 on success,
@@ -830,17 +830,17 @@
END SUBROUTINE h5fget_name_f
!----------------------------------------------------------------------
-! Name: h5fget_filesize_f
+! Name: h5fget_filesize_f
!
! Purpose: Retrieves the file size of the HDF5 file.
!
-! Inputs:
+! Inputs:
! file_id - file identifier
-! Outputs:
-! size - file size
-! hdferr: - error code
+! Outputs:
+! size - file size
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
!
! Programmer: Elena Pourmal
@@ -852,7 +852,7 @@
SUBROUTINE h5fget_filesize_f(file_id, size, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: file_id ! file identifier
- INTEGER(HSIZE_T), INTENT(OUT) :: size ! Size of the file
+ INTEGER(HSIZE_T), INTENT(OUT) :: size ! Size of the file
INTEGER, INTENT(OUT) :: hdferr ! Error code: 0 on success,
! -1 if fail
! INTEGER, EXTERNAL :: h5fget_filesize_c
diff --git a/fortran/src/H5Gff.f90 b/fortran/src/H5Gff.f90
index ae120bb..2e769ad 100644
--- a/fortran/src/H5Gff.f90
+++ b/fortran/src/H5Gff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,11 +11,11 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5F functions.
-!
+!
MODULE H5G
USE H5GLOBAL
@@ -28,53 +28,53 @@ MODULE H5G
! END INTERFACE
CONTAINS
-
+
!----------------------------------------------------------------------
-! Name: h5gcreate_f
+! Name: h5gcreate_f
!
-! Purpose: Creates a new group.
+! Purpose: Creates a new group.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - group name at the specified location
-! Outputs:
+! Outputs:
! grp_id - group identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! size_hint - a parameter indicating the number of bytes
-! to reserve for the names that will appear
+! size_hint - a parameter indicating the number of bytes
+! to reserve for the names that will appear
! in the group
! lcpl_id - Property list for link creation
! gcpl_id - Property list for group creation
! gapl_id - Property list for group access
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
! Added additional optional paramaters in 1.8
! MSB - February 27, 2008
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gcreate_f(loc_id, name, grp_id, hdferr, size_hint, lcpl_id, gcpl_id, gapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
- INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(SIZE_T), OPTIONAL, INTENT(IN) :: size_hint
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(SIZE_T), OPTIONAL, INTENT(IN) :: size_hint
! Parameter indicating
! the number of bytes
! to reserve for the
! names that will appear
! in the group. Set to OBJECT_NAMELEN_DEFAULT_F
- ! if using any of the optional
+ ! if using any of the optional
! parameters lcpl_id, gcpl_id, and/or gapl_id when not
! using keywords in specifying the optional parameters
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Property list for link creation
@@ -86,7 +86,7 @@ CONTAINS
INTEGER(HID_T) :: gapl_id_default
INTEGER :: namelen ! Length of the name character string
- INTEGER(SIZE_T) :: size_hint_default
+ INTEGER(SIZE_T) :: size_hint_default
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -109,7 +109,7 @@ CONTAINS
END FUNCTION h5gcreate_c
END INTERFACE
- size_hint_default = OBJECT_NAMELEN_DEFAULT_F
+ size_hint_default = OBJECT_NAMELEN_DEFAULT_F
IF (PRESENT(size_hint)) size_hint_default = size_hint
lcpl_id_default = H5P_DEFAULT_F
IF(PRESENT(lcpl_id)) lcpl_id_default = lcpl_id
@@ -126,18 +126,18 @@ CONTAINS
END SUBROUTINE h5gcreate_f
!!$!----------------------------------------------------------------------
-!!$! Name: h5gcreate2_f
+!!$! Name: h5gcreate2_f
!!$!
-!!$! Purpose: Creates a new group.
+!!$! Purpose: Creates a new group.
!!$!
-!!$! Inputs:
+!!$! Inputs:
!!$! loc_id - location identifier
!!$! name - group name at the specified location
-!!$! Outputs:
+!!$! Outputs:
!!$! grp_id - group identifier
-!!$! hdferr: - error code
+!!$! hdferr: - error code
!!$! Success: 0
-!!$! Failure: -1
+!!$! Failure: -1
!!$! Optional parameters:
!!$!
!!$! lcpl_id - Property list for link creation
@@ -147,19 +147,19 @@ CONTAINS
!!$! Programmer: M.S. BREITENFELD
!!$! February 27, 2008
!!$!
-!!$! Modifications:
+!!$! Modifications:
!!$!
!!$! Comment: Needed to switch the first 2 arguments to avoid conflect
-!!$! with h5gcreate1_f
+!!$! with h5gcreate1_f
!!$!----------------------------------------------------------------------
!!$
-!!$ SUBROUTINE h5gcreate2_f(name, loc_id, grp_id, hdferr, &
+!!$ SUBROUTINE h5gcreate2_f(name, loc_id, grp_id, hdferr, &
!!$ lcpl_id, gcpl_id, gapl_id)
-!!$ IMPLICIT NONE
+!!$ IMPLICIT NONE
!!$ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
!!$ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
!!$ INTEGER, INTENT(OUT) :: hdferr ! Error code
-!!$ INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
+!!$ INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
!!$
!!$ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Property list for link creation
!!$ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: gcpl_id ! Property list for group creation
@@ -211,44 +211,44 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5gopen_f
+! Name: h5gopen_f
!
-! Purpose: Opens an existing group.
+! Purpose: Opens an existing group.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the group to open
-! Outputs:
+! Outputs:
! grp_id - group identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! gapl_id - Group access property list identifier
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
! port). March 5, 2001
-!
+!
! Added 1.8 (optional) parameter gapl_id
! February, 2008 M.S. Breitenfeld
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gopen_f(loc_id, name, grp_id, hdferr, gapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
- INTEGER(HID_T), INTENT(OUT) :: grp_id ! File identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: gapl_id ! Group access property list identifier
-
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER(HID_T), INTENT(OUT) :: grp_id ! File identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: gapl_id ! Group access property list identifier
+
INTEGER(HID_T) :: gapl_id_default
INTEGER :: namelen ! Length of the name character string
-
+
! INTEGER, EXTERNAL :: h5gopen_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -261,7 +261,7 @@ CONTAINS
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
- INTEGER :: namelen
+ INTEGER :: namelen
INTEGER(HID_T), INTENT(IN) :: gapl_id_default
INTEGER(HID_T), INTENT(OUT) :: grp_id
END FUNCTION h5gopen_c
@@ -269,34 +269,34 @@ CONTAINS
gapl_id_default = H5P_DEFAULT_F
IF(PRESENT(gapl_id)) gapl_id_default = gapl_id
-
+
namelen = LEN(name)
- hdferr = h5gopen_c(loc_id, name, namelen, gapl_id_default, grp_id)
-
+ hdferr = h5gopen_c(loc_id, name, namelen, gapl_id_default, grp_id)
+
END SUBROUTINE h5gopen_f
!----------------------------------------------------------------------
-! Name: h5gclose_f
+! Name: h5gclose_f
!
-! Purpose: Closes the specified group.
+! Purpose: Closes the specified group.
!
-! Inputs:
+! Inputs:
! grp_id - group identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gclose_f(grp_id, hdferr)
IMPLICIT NONE
@@ -322,42 +322,42 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5gget_obj_info_idx_f
+! Name: h5gget_obj_info_idx_f
!
-! Purpose: Returns name and type of the group member identified by
-! its index.
+! Purpose: Returns name and type of the group member identified by
+! its index.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the group at the specified location
! idx - object index (zero-based)
-! Outputs:
+! Outputs:
! obj_name - object name
! obj_type - object type
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gget_obj_info_idx_f(loc_id, name, idx, &
obj_name, obj_type, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
- INTEGER, INTENT(IN) :: idx ! Index of member object
- CHARACTER(LEN=*), INTENT(OUT) :: obj_name ! Name of the object
- INTEGER, INTENT(OUT) :: obj_type ! Object type
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER, INTENT(IN) :: idx ! Index of member object
+ CHARACTER(LEN=*), INTENT(OUT) :: obj_name ! Name of the object
+ INTEGER, INTENT(OUT) :: obj_type ! Object type
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Length of the name character string
INTEGER :: obj_namelen ! Length of the obj_name character string
@@ -388,46 +388,46 @@ CONTAINS
namelen = LEN(name)
obj_namelen = LEN(obj_name)
hdferr = h5gget_obj_info_idx_c(loc_id, name, namelen, idx, &
- obj_name, obj_namelen, obj_type)
+ obj_name, obj_namelen, obj_type)
END SUBROUTINE h5gget_obj_info_idx_f
!----------------------------------------------------------------------
-! Name: h5gn_members_f
+! Name: h5gn_members_f
!
-! Purpose: Returns the number of group members.
+! Purpose: Returns the number of group members.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the group at the specified location
-! Outputs:
+! Outputs:
! nmembers - number of group members
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gn_members_f(loc_id, name, nmembers, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the group
INTEGER, INTENT(OUT) :: nmembers ! Number of members in the
- ! group
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! group
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Length of the name character string
-
+
! INTEGER, EXTERNAL :: h5gn_members_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -446,56 +446,56 @@ CONTAINS
END INTERFACE
namelen = LEN(name)
- hdferr = h5gn_members_c(loc_id, name, namelen, nmembers)
+ hdferr = h5gn_members_c(loc_id, name, namelen, nmembers)
END SUBROUTINE h5gn_members_f
!----------------------------------------------------------------------
-! Name: h5glink_f
+! Name: h5glink_f
!
-! Purpose: Creates a link of the specified type from new_name
-! to current_name.
+! Purpose: Creates a link of the specified type from new_name
+! to current_name.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! link_type - link type
! Possible values are:
! H5G_LINK_HARD_F (0) or
-! H5G_LINK_SOFT_F (1)
-! current_name - name of the existing object if link is a
-! hard link. Can be anything for the soft link.
+! H5G_LINK_SOFT_F (1)
+! current_name - name of the existing object if link is a
+! hard link. Can be anything for the soft link.
! new_name - new name for the object
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5glink_f(loc_id, link_type, current_name, &
new_name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
INTEGER, INTENT(IN) :: link_type ! link type
! Possible values are:
! H5G_LINK_HARD_F (0) or
- ! H5G_LINK_SOFT_F (1)
-
- CHARACTER(LEN=*), INTENT(IN) :: current_name
- ! Current name of an object
+ ! H5G_LINK_SOFT_F (1)
+
+ CHARACTER(LEN=*), INTENT(IN) :: current_name
+ ! Current name of an object
CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: current_namelen ! Lenghth of the current_name string
INTEGER :: new_namelen ! Lenghth of the new_name string
@@ -505,14 +505,14 @@ CONTAINS
INTERFACE
INTEGER FUNCTION h5glink_c(loc_id, link_type, current_name, &
current_namelen, new_name, new_namelen)
-
+
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5GLINK_C'::h5glink_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: current_name
!DEC$ATTRIBUTES reference :: new_name
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
INTEGER, INTENT(IN) :: link_type
CHARACTER(LEN=*), INTENT(IN) :: current_name
INTEGER :: current_namelen
@@ -520,7 +520,7 @@ CONTAINS
INTEGER :: new_namelen
END FUNCTION h5glink_c
END INTERFACE
-
+
current_namelen = LEN(current_name)
new_namelen = LEN(new_name)
hdferr = h5glink_c(loc_id, link_type, current_name, &
@@ -528,50 +528,50 @@ CONTAINS
END SUBROUTINE h5glink_f
!----------------------------------------------------------------------
-! Name: h5glink2_f
+! Name: h5glink2_f
!
-! Purpose: Creates a link of the specified type from new_name
+! Purpose: Creates a link of the specified type from new_name
! to current_name. current_name and new_name are interpreted
-! releative to current and new location identifiers.
+! releative to current and new location identifiers.
!
-! Inputs:
+! Inputs:
! cur_loc_id - location identifier
-! cur_name - name of the existing object if link is a
-! hard link. Can be anything for the soft link.
+! cur_name - name of the existing object if link is a
+! hard link. Can be anything for the soft link.
! link_type - link type
! Possible values are:
! H5G_LINK_HARD_F (0) or
-! H5G_LINK_SOFT_F (1)
+! H5G_LINK_SOFT_F (1)
! new_loc_id - new location identifier
! new_name - new name for the object
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! September 25, 2002
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5glink2_f(cur_loc_id, cur_name, link_type, new_loc_id, &
new_name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: cur_loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: cur_name
- ! Current name of an object
+ INTEGER(HID_T), INTENT(IN) :: cur_loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: cur_name
+ ! Current name of an object
INTEGER, INTENT(IN) :: link_type ! link type
! Possible values are:
! H5G_LINK_HARD_F (0) or
- ! H5G_LINK_SOFT_F (1)
-
- INTEGER(HID_T), INTENT(IN) :: new_loc_id ! File or group identifier
+ ! H5G_LINK_SOFT_F (1)
+
+ INTEGER(HID_T), INTENT(IN) :: new_loc_id ! File or group identifier
CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: cur_namelen ! Lenghth of the current_name string
INTEGER :: new_namelen ! Lenghth of the new_name string
@@ -579,15 +579,15 @@ CONTAINS
INTEGER FUNCTION h5glink2_c(cur_loc_id, cur_name, cur_namelen, &
link_type, new_loc_id, &
new_name, new_namelen)
-
+
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5GLINK2_C'::h5glink2_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: cur_name
!DEC$ATTRIBUTES reference :: new_name
- INTEGER(HID_T), INTENT(IN) :: cur_loc_id
- INTEGER(HID_T), INTENT(IN) :: new_loc_id
+ INTEGER(HID_T), INTENT(IN) :: cur_loc_id
+ INTEGER(HID_T), INTENT(IN) :: new_loc_id
INTEGER, INTENT(IN) :: link_type
CHARACTER(LEN=*), INTENT(IN) :: cur_name
CHARACTER(LEN=*), INTENT(IN) :: new_name
@@ -595,7 +595,7 @@ CONTAINS
INTEGER :: new_namelen
END FUNCTION h5glink2_c
END INTERFACE
-
+
cur_namelen = LEN(cur_name)
new_namelen = LEN(new_name)
hdferr = h5glink2_c(cur_loc_id, cur_name, cur_namelen, link_type, &
@@ -603,40 +603,40 @@ CONTAINS
END SUBROUTINE h5glink2_f
!----------------------------------------------------------------------
-! Name: h5gunlink_f
+! Name: h5gunlink_f
!
-! Purpose: Removes the specified name from the group graph and
-! decrements the link count for the object to which name
-! points
+! Purpose: Removes the specified name from the group graph and
+! decrements the link count for the object to which name
+! points
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the object to unlink
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gunlink_f(loc_id, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Name of an object
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: namelen ! Lenghth of the name character string
-
+
! INTEGER, EXTERNAL :: h5gunlink_c
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -652,45 +652,45 @@ CONTAINS
INTEGER :: namelen
END FUNCTION h5gunlink_c
END INTERFACE
-
+
namelen = LEN(name)
hdferr = h5gunlink_c(loc_id, name, namelen)
END SUBROUTINE h5gunlink_f
!----------------------------------------------------------------------
-! Name: h5gmove_f
+! Name: h5gmove_f
!
-! Purpose: Renames an object within an HDF5 file.
+! Purpose: Renames an object within an HDF5 file.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - object's name at specified location
! new_name - object's new name
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5gmove_f(loc_id, name, new_name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: namelen ! Lenghth of the current_name string
INTEGER :: new_namelen ! Lenghth of the new_name string
@@ -712,44 +712,44 @@ CONTAINS
INTEGER :: new_namelen
END FUNCTION h5gmove_c
END INTERFACE
-
+
namelen = LEN(name)
new_namelen = LEN(new_name)
hdferr = h5gmove_c(loc_id, name, namelen, new_name, new_namelen)
END SUBROUTINE h5gmove_f
!----------------------------------------------------------------------
-! Name: h5gmove2_f
+! Name: h5gmove2_f
!
-! Purpose: Renames an object within an HDF5 file.
+! Purpose: Renames an object within an HDF5 file.
!
-! Inputs:
+! Inputs:
! src_loc_id - original location identifier
! src_name - object's name at specified original location
! dst_loc_id - original location identifier
! dst_name - object's new name
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! September 25, 2002
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5gmove2_f(src_loc_id, src_name, dst_loc_id, dst_name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: src_loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: src_name ! Original name of an object
- INTEGER(HID_T), INTENT(IN) :: dst_loc_id ! File or group identifier
+ INTEGER(HID_T), INTENT(IN) :: src_loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: src_name ! Original name of an object
+ INTEGER(HID_T), INTENT(IN) :: dst_loc_id ! File or group identifier
CHARACTER(LEN=*), INTENT(IN) :: dst_name ! New name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: src_namelen ! Length of the current_name string
INTEGER :: dst_namelen ! Lenghth of the new_name string
@@ -773,7 +773,7 @@ CONTAINS
INTEGER :: dst_namelen
END FUNCTION h5gmove2_c
END INTERFACE
-
+
src_namelen = LEN(src_name)
dst_namelen = LEN(dst_name)
hdferr = h5gmove2_c(src_loc_id, src_name, src_namelen,&
@@ -781,46 +781,46 @@ CONTAINS
END SUBROUTINE h5gmove2_f
!----------------------------------------------------------------------
-! Name: h5gget_linkval_f
+! Name: h5gget_linkval_f
!
-! Purpose: Returns the name of the object that the symbolic link
-! points to.
+! Purpose: Returns the name of the object that the symbolic link
+! points to.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
-! name - symbolic link to the object whose name
-! is to be returned.
+! name - symbolic link to the object whose name
+! is to be returned.
! size - maximum number of characters to be returned
-! Outputs:
-! buffer - a buffer to hold the name of the object
-! being sought
-! hdferr: - error code
+! Outputs:
+! buffer - a buffer to hold the name of the object
+! being sought
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gget_linkval_f(loc_id, name, size, buffer, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of buffer
- CHARACTER(LEN=size), INTENT(OUT) :: buffer
+ CHARACTER(LEN=size), INTENT(OUT) :: buffer
! Buffer to hold a name of
! the object symbolic link
! points to
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: namelen ! Lenghth of the current_name string
! INTEGER, EXTERNAL :: h5gget_linkval_c
@@ -833,52 +833,52 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5GGET_LINKVAL_C'::h5gget_linkval_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
- !DEC$ATTRIBUTES reference :: buffer
+ !DEC$ATTRIBUTES reference :: buffer
INTEGER(HID_T), INTENT(IN) :: loc_id
- CHARACTER(LEN=*), INTENT(IN) :: name
+ CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
INTEGER(SIZE_T), INTENT(IN) :: size
CHARACTER(LEN=*), INTENT(OUT) :: buffer
END FUNCTION h5gget_linkval_c
END INTERFACE
-
+
namelen = LEN(name)
hdferr = h5gget_linkval_c(loc_id, name, namelen, size, buffer)
END SUBROUTINE h5gget_linkval_f
!----------------------------------------------------------------------
-! Name: h5gset_comment_f
+! Name: h5gset_comment_f
!
-! Purpose: Sets comment for specified object.
+! Purpose: Sets comment for specified object.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the object
! comment - comment to set for the object
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gset_comment_f(loc_id, name, comment, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
CHARACTER(LEN=*), INTENT(IN) :: comment ! New name of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: namelen ! Lenghth of the current_name string
INTEGER :: commentlen ! Lenghth of the comment string
@@ -892,8 +892,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5GSET_COMMENT_C'::h5gset_comment_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
- !DEC$ATTRIBUTES reference :: comment
+ !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: comment
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
@@ -901,48 +901,48 @@ CONTAINS
INTEGER :: commentlen
END FUNCTION h5gset_comment_c
END INTERFACE
-
+
namelen = LEN(name)
commentlen = LEN(comment)
hdferr = h5gset_comment_c(loc_id, name, namelen, comment, commentlen)
END SUBROUTINE h5gset_comment_f
!----------------------------------------------------------------------
-! Name: h5gget_comment_f
+! Name: h5gget_comment_f
!
-! Purpose: Retrieves comment for specified object.
+! Purpose: Retrieves comment for specified object.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the object at specified location
! size - size of the buffer required to hold comment
-! Outputs:
+! Outputs:
! buffer - buffer to hold object's comment
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gget_comment_f(loc_id, name, size, buffer, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name ! Current name of an object
INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of buffer
- CHARACTER(LEN=size), INTENT(OUT) :: buffer
+ CHARACTER(LEN=size), INTENT(OUT) :: buffer
! Buffer to hold a comment
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: namelen ! Lenghth of the current_name string
! INTEGER, EXTERNAL :: h5gget_comment_c
@@ -963,7 +963,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(OUT) :: buffer
END FUNCTION h5gget_comment_c
END INTERFACE
-
+
namelen = LEN(name)
hdferr = h5gget_comment_c(loc_id, name, namelen, size, buffer)
END SUBROUTINE h5gget_comment_f
@@ -971,37 +971,37 @@ CONTAINS
!----------------------------------------------------------------------
! Name: H5Gcreate_anon_f
!
-! Purpose: Creates a new empty group without linking it into the file structure.
+! Purpose: Creates a new empty group without linking it into the file structure.
!
-! Inputs:
+! Inputs:
! loc_id - Location identifier
-! Outputs:
+! Outputs:
! grp_id - group identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! gcpl_id - Group creation property list identifier
! gapl_id - Group access property list identifier
!
! Programmer: M.S. Breitenfeld
-! February 15, 2008
+! February 15, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5Gcreate_anon_f(loc_id, grp_id, hdferr, gcpl_id, gapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
+ INTEGER(HID_T), INTENT(OUT) :: grp_id ! Group identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: gcpl_id ! Property list for group creation
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: gapl_id ! Property list for group access
INTEGER(HID_T) :: gcpl_id_default
INTEGER(HID_T) :: gapl_id_default
-
+
INTERFACE
INTEGER FUNCTION h5gcreate_anon_c(loc_id, gcpl_id_default, gapl_id_default, grp_id)
USE H5GLOBAL
@@ -1015,43 +1015,43 @@ CONTAINS
END FUNCTION h5gcreate_anon_c
END INTERFACE
- gcpl_id_default = H5P_DEFAULT_F
- gapl_id_default = H5P_DEFAULT_F
+ gcpl_id_default = H5P_DEFAULT_F
+ gapl_id_default = H5P_DEFAULT_F
IF(PRESENT(gcpl_id)) gcpl_id_default = gcpl_id
IF(PRESENT(gapl_id)) gapl_id_default = gapl_id
-
+
hdferr = h5gcreate_anon_c(loc_id, gcpl_id_default, gapl_id_default, grp_id)
-
+
END SUBROUTINE h5Gcreate_anon_f
!----------------------------------------------------------------------
! Name: H5Gget_create_plist_f
!
-! Purpose: Gets a group creation property list identifier.
+! Purpose: Gets a group creation property list identifier.
!
-! Inputs:
+! Inputs:
! grp_id - group identifier
-! Outputs:
+! Outputs:
! gcpl_id - Group creation property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
!
! Programmer: M.S. Breitenfeld
-! February 15, 2008
+! February 15, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5gget_create_plist_f(grp_id, gcpl_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: grp_id ! Group identifier
INTEGER(HID_T), INTENT(OUT) :: gcpl_id ! Property list for group creation
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -1064,17 +1064,17 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: gcpl_id
END FUNCTION h5gget_create_plist_c
END INTERFACE
-
+
hdferr = h5gget_create_plist_c(grp_id, gcpl_id )
-
+
END SUBROUTINE h5gget_create_plist_f
!----------------------------------------------------------------------
! Name: h5gget_info_f
!
! Purpose: Retrieves information about a group
-!
-! Inputs:
+!
+! Inputs:
! group_id - Group identifier
!
! Outputs: NOTE: In C it is defined as a structure: H5G_info_t
@@ -1085,16 +1085,16 @@ CONTAINS
! H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
! nlinks - Number of links in group
! max_corder - Current maximum creation order value for group
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! mounted - Whether group has a file mounted on it
+! mounted - Whether group has a file mounted on it
!
! Programmer: M. S. Breitenfeld
-! February 15, 2008
+! February 15, 2008
!
-! Modifications:
+! Modifications:
! - Added 'mounted' paramater
! M.S. Breitenfeld
! July 16, 2008
@@ -1104,7 +1104,7 @@ CONTAINS
SUBROUTINE h5gget_info_f(group_id, storage_type, nlinks, max_corder, hdferr, mounted)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: group_id ! Group identifier
-
+
INTEGER, INTENT(OUT) :: storage_type ! Type of storage for links in group:
! H5G_STORAGE_TYPE_COMPACT_F: Compact storage
! H5G_STORAGE_TYPE_DENSE_F: Indexed storage
@@ -1136,20 +1136,20 @@ CONTAINS
hdferr = h5gget_info_c(group_id, storage_type, nlinks, max_corder, mounted_c)
IF(PRESENT(mounted))THEN
- IF(mounted_c.EQ.0) THEN
+ IF(mounted_c.EQ.0) THEN
mounted = .FALSE.
- ELSE
+ ELSE
mounted = .TRUE.
ENDIF
ENDIF
-
+
END SUBROUTINE h5gget_info_f
!----------------------------------------------------------------------
! Name: h5gget_info_by_idx_f
!
! Purpose: Retrieves information about a group, according to the group’s position within an index.
-!
+!
! Inputs:
! loc_id - File or group identifier
! group_name - Name of group containing group for which information is to be retrieved
@@ -1165,17 +1165,17 @@ CONTAINS
! H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
! nlinks - Number of links in group
! max_corder - Current maximum creation order value for group
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Link access property list
-! mounted - Whether group has a file mounted on it
+! mounted - Whether group has a file mounted on it
!
! Programmer: M. S. Breitenfeld
-! February 18, 2008
+! February 18, 2008
!
-! Modifications:
+! Modifications:
! - Added 'mounted' paramater
! M.S. Breitenfeld
! July 16, 2008
@@ -1215,7 +1215,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5GGET_INFO_BY_IDX_C'::h5gget_info_by_idx_c
!DEC$ENDIF
-
+
!DEC$ATTRIBUTES reference :: group_name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: group_name
@@ -1224,7 +1224,7 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN) :: n
INTEGER(HID_T) :: lapl_id_default
INTEGER, INTENT(OUT) :: storage_type
- INTEGER, INTENT(OUT) :: nlinks
+ INTEGER, INTENT(OUT) :: nlinks
INTEGER, INTENT(OUT) :: max_corder
INTEGER(SIZE_T) :: group_name_len
@@ -1243,20 +1243,20 @@ CONTAINS
storage_type, nlinks, max_corder, mounted_c)
IF(PRESENT(mounted))THEN
- IF(mounted_c.EQ.0) THEN
+ IF(mounted_c.EQ.0) THEN
mounted = .FALSE.
- ELSE
+ ELSE
mounted = .TRUE.
ENDIF
ENDIF
-
+
END SUBROUTINE h5gget_info_by_idx_f
-
+
!----------------------------------------------------------------------
! Name: h5gget_info_by_name_f
!
-! Purpose: Retrieves information about a group.
-!
+! Purpose: Retrieves information about a group.
+!
! Inputs:
! loc_id - File or group identifier
! group_name - Name of group containing group for which information is to be retrieved
@@ -1269,17 +1269,17 @@ CONTAINS
! H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
! nlinks - Number of links in group
! max_corder - Current maximum creation order value for group
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Link access property list
-! mounted - Whether group has a file mounted on it
+! mounted - Whether group has a file mounted on it
!
! Programmer: M. S. Breitenfeld
-! February 18, 2008
+! February 18, 2008
!
-! Modifications:
+! Modifications:
! - Added 'mounted' paramater
! M.S. Breitenfeld
! July 16, 2008
@@ -1303,7 +1303,7 @@ CONTAINS
LOGICAL, INTENT(OUT), OPTIONAL :: mounted ! Whether group has a file mounted on it
INTEGER :: mounted_c
- INTEGER(HID_T) :: lapl_id_default
+ INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: group_name_len ! length of group name
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1320,7 +1320,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: group_name
INTEGER(HID_T), INTENT(IN) :: lapl_id_default
INTEGER, INTENT(OUT) :: storage_type
- INTEGER, INTENT(OUT) :: nlinks
+ INTEGER, INTENT(OUT) :: nlinks
INTEGER, INTENT(OUT) :: max_corder
INTEGER(SIZE_T) :: group_name_len
@@ -1330,7 +1330,7 @@ CONTAINS
END INTERFACE
group_name_len = LEN(group_name)
-
+
lapl_id_default = H5P_DEFAULT_F
IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
@@ -1338,13 +1338,13 @@ CONTAINS
storage_type, nlinks, max_corder, mounted_c)
IF(PRESENT(mounted))THEN
- IF(mounted_c.EQ.0) THEN
+ IF(mounted_c.EQ.0) THEN
mounted = .FALSE.
- ELSE
+ ELSE
mounted = .TRUE.
ENDIF
ENDIF
-
+
END SUBROUTINE h5gget_info_by_name_f
END MODULE H5G
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c
index e8b54f0..5f11fde 100644
--- a/fortran/src/H5If.c
+++ b/fortran/src/H5If.c
@@ -214,7 +214,7 @@ done:
/*----------------------------------------------------------------------------
* Name: h5iis_valid_c
- * Purpose: Calls H5Iis_valid
+ * Purpose: Calls H5Iis_valid
* Inputs: obj_id - object identifier
* Outputs: 0 = false, 1 = true
* Returns: 0 on success, -1 on failure
@@ -227,7 +227,7 @@ nh5iis_valid_c(hid_t_f *obj_id, int_f *c_valid)
{
int ret_value;
htri_t c_ret_value;
-
+
/*
* Call H5Iis_valid
*/
diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90
index 83587ce..a082d5a 100644
--- a/fortran/src/H5Iff.f90
+++ b/fortran/src/H5Iff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5I functions
@@ -19,17 +19,17 @@
MODULE H5I
USE H5GLOBAL
-
+
CONTAINS
!----------------------------------------------------------------------
-! Name: h5iget_type_f
+! Name: h5iget_type_f
!
-! Purpose: Retrieves the type of an object.
+! Purpose: Retrieves the type of an object.
!
-! Inputs: obj_id - object identifier
-! Outputs:
-! type - type of the object, possible values:
+! Inputs: obj_id - object identifier
+! Outputs:
+! type - type of the object, possible values:
! H5I_FILE_F
! H5I_GROUP_F
! H5I_DATATYPE_F
@@ -37,25 +37,25 @@
! H5I_DATASET_F
! H5I_ATTR_F
! H5I_BADID_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 5, 2001
+! port). March 5, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iget_type_f(obj_id, type, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
- INTEGER, INTENT(OUT) :: type !type of an object.
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER, INTENT(OUT) :: type !type of an object.
!possible values are:
!H5I_FILE_F
!H5I_GROUP_F
@@ -75,7 +75,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_TYPE_C':: h5iget_type_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: type
END FUNCTION h5iget_type_c
END INTERFACE
@@ -83,35 +83,35 @@
END SUBROUTINE h5iget_type_f
!----------------------------------------------------------------------
-! Name: h5iget_name_f
+! Name: h5iget_name_f
!
-! Purpose: Gets a name of an object specified by its idetifier.
+! Purpose: Gets a name of an object specified by its idetifier.
!
-! Inputs:
+! Inputs:
! obj_id - attribute identifier
! buf_size - size of a buffer to read name in
-! Outputs:
+! Outputs:
! buf - buffer to read name in, name will be truncated if
! buffer is not big enough
! name_size - name size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
!----------------------------------------------------------------------
SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, name_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
- INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size
CHARACTER(LEN=*), INTENT(OUT) :: buf ! Buffer to hold object name
INTEGER(SIZE_T), INTENT(OUT) :: name_size ! Actual name size
INTEGER, INTENT(OUT) :: hdferr ! Error code:
@@ -142,25 +142,25 @@
!
! Purpose: Increments the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -173,7 +173,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IINC_REF_C':: h5iinc_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5iinc_ref_c
END INTERFACE
@@ -185,25 +185,25 @@
!
! Purpose: Decrements the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -216,7 +216,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IDEC_REF_C':: h5idec_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5idec_ref_c
END INTERFACE
@@ -228,25 +228,25 @@
!
! Purpose: Retrieves the reference count of an ID
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! ref_count - Current reference count of the ID
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
-! December 9, 2003
+! December 9, 2003
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier
INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -259,7 +259,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_REF_C':: h5iget_ref_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
INTEGER, INTENT(OUT) :: ref_count
END FUNCTION h5iget_ref_c
END INTERFACE
@@ -271,12 +271,12 @@
!
! Purpose: Obtains file identifier from the object identifier
!
-! Inputs: obj_id - object identifier
-! Outputs:
+! Inputs: obj_id - object identifier
+! Outputs:
! file_id - file identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -285,11 +285,11 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iget_file_id_f(obj_id, file_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
+ INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier
INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -299,8 +299,8 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IGET_FILE_ID_C':: h5iget_file_id_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: obj_id
- INTEGER(HID_T), INTENT(OUT) :: file_id
+ INTEGER(HID_T), INTENT(IN) :: obj_id
+ INTEGER(HID_T), INTENT(OUT) :: file_id
END FUNCTION h5iget_file_id_c
END INTERFACE
hdferr = h5iget_file_id_c(obj_id, file_id)
@@ -311,20 +311,20 @@
!
! Purpose: Check if an ID is valid without producing an error message
!
-! Inputs: id - identifier
-! Outputs:
+! Inputs: id - identifier
+! Outputs:
! valid - status of id as a valid identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Programmer: M. Scot Breitenfeld
! April 13, 2009
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5iis_valid_f(id, valid, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: id ! Identifier
+ INTEGER(HID_T), INTENT(IN) :: id ! Identifier
LOGICAL, INTENT(OUT) :: valid ! Status of id as a valid identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: c_valid ! 0 = .false, 1 = .true.
@@ -335,7 +335,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IIS_VALID_C':: h5iis_valid_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: id ! Identifier
+ INTEGER(HID_T), INTENT(IN) :: id ! Identifier
INTEGER :: c_valid
END FUNCTION h5iis_valid_c
END INTERFACE
@@ -344,7 +344,7 @@
valid = .FALSE. ! Default
IF(c_valid.EQ.1) valid = .TRUE.
-
+
END SUBROUTINE h5iis_valid_f
diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90
index e38dade..8d30c20 100644
--- a/fortran/src/H5Lff.f90
+++ b/fortran/src/H5Lff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5L functions.
@@ -23,7 +23,7 @@ MODULE H5L
CONTAINS
!----------------------------------------------------------------------
-! Name: h5lcopy_f
+! Name: h5lcopy_f
!
! Purpose: Copies a link from one location to another.
!
@@ -34,11 +34,11 @@ CONTAINS
! dest_name - Name to be assigned to the NEW copy
! loc_id - Identifier of the file or group containing the object
! name - Name of the link to delete
-!
-! Outputs:
+!
+! Outputs:
! hdferr - error code:
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier
! lapl_id - Link access property list identifier
@@ -48,7 +48,7 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5lcopy_f(src_loc_id, src_name, dest_loc_id, dest_name, hdferr, &
lcpl_id, lapl_id)
@@ -58,17 +58,17 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dest_loc_id ! Location identifier specifying the destination of the copy
CHARACTER(LEN=*), INTENT(IN) :: dest_name ! Name to be assigned to the NEW copy
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
-
+
INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: src_namelen
INTEGER(SIZE_T) :: dest_namelen
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -84,10 +84,10 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: src_name
INTEGER(HID_T), INTENT(IN) :: dest_loc_id
CHARACTER(LEN=*), INTENT(IN) :: dest_name
-
+
INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
-
+
INTEGER(SIZE_T) :: src_namelen
INTEGER(SIZE_T) :: dest_namelen
END FUNCTION h5lcopy_c
@@ -107,18 +107,18 @@ CONTAINS
END SUBROUTINE h5lcopy_f
!----------------------------------------------------------------------
-! Name: h5ldelete_f
+! Name: h5ldelete_f
!
! Purpose: Removes a link from a group.
!
-! Inputs:
+! Inputs:
! loc_id - Identifier of the file or group containing the object
! name - Name of the link to delete
-!
-! Outputs:
-! hdferr: - error code
+!
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Link access property list identifier
!
@@ -127,18 +127,18 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5ldelete_f(loc_id, name, hdferr, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier of the file or group containing the object
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the link to delete
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: namelen
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -163,10 +163,10 @@ CONTAINS
hdferr = h5ldelete_c(loc_id, name, namelen, lapl_id_default)
- END SUBROUTINE h5ldelete_f
+ END SUBROUTINE h5ldelete_f
!----------------------------------------------------------------------
-! Name: H5Lcreate_soft_f
+! Name: H5Lcreate_soft_f
!
! Purpose: Creates a soft link to an object.
!
@@ -174,11 +174,11 @@ CONTAINS
! target_path - Path to the target object, which is not required to exist.
! link_loc_id - The file or group identifier for the new link.
! link_name - The name of the new link.
-!
-! Outputs:
-! hdferr: - error code
+!
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier.
! lapl_id - Link access property list identifier.
@@ -188,20 +188,20 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5lcreate_soft_f(target_path, link_loc_id, link_name, hdferr, lcpl_id, lapl_id)
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: target_path ! Path to the target object, which is not required to exist.
INTEGER(HID_T), INTENT(IN) :: link_loc_id ! The file or group identifier for the new link.
CHARACTER(LEN=*), INTENT(IN) :: link_name ! The name of the new link.
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier.
- INTEGER(HID_T) :: lcpl_id_default
- INTEGER(HID_T) :: lapl_id_default
+ INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: target_path_len
INTEGER(SIZE_T) :: link_name_len
@@ -243,7 +243,7 @@ CONTAINS
END SUBROUTINE h5lcreate_soft_f
!----------------------------------------------------------------------
-! Name: H5Lcreate_hard_f
+! Name: H5Lcreate_hard_f
!
! Purpose: Creates a hard link to an object.
!
@@ -253,11 +253,11 @@ CONTAINS
! obj_name - Name of the target object, which must already exist.
! link_loc_id - The file or group identifier for the new link.
! link_name - The name of the new link.
-!
-! Outputs:
-! hdferr: - error code
+!
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier.
! lapl_id - Link access property list identifier.
@@ -267,7 +267,7 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5lcreate_hard_f(obj_loc_id, obj_name, link_loc_id, link_name, hdferr, lcpl_id, lapl_id)
IMPLICIT NONE
@@ -276,23 +276,23 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: link_loc_id ! The file or group identifier for the new link.
CHARACTER(LEN=*), INTENT(IN) :: link_name ! The name of the new link.
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier.
- INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
-
- INTEGER(SIZE_T) :: obj_namelen
+
+ INTEGER(SIZE_T) :: obj_namelen
INTEGER(SIZE_T) :: link_namelen
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5lcreate_hard_c(obj_loc_id, obj_name, obj_namelen, &
- link_loc_id, link_name, link_namelen, lcpl_id_default, lapl_id_default)
+ link_loc_id, link_name, link_namelen, lcpl_id_default, lapl_id_default)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
@@ -303,13 +303,13 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER(HID_T), INTENT(IN) :: link_loc_id
CHARACTER(LEN=*), INTENT(IN) :: link_name
- INTEGER(SIZE_T) :: obj_namelen
+ INTEGER(SIZE_T) :: obj_namelen
INTEGER(SIZE_T) :: link_namelen
INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
END FUNCTION h5lcreate_hard_c
END INTERFACE
- obj_namelen = LEN(obj_name)
+ obj_namelen = LEN(obj_name)
link_namelen = LEN(link_name)
lcpl_id_default = H5P_DEFAULT_F
@@ -323,22 +323,22 @@ CONTAINS
END SUBROUTINE h5lcreate_hard_f
!----------------------------------------------------------------------
-! Name: H5Lcreate_external_f
+! Name: H5Lcreate_external_f
!
! Purpose: Creates a soft link to an object in a different file.
!
! Inputs:
!
-! file_name - Name of the file containing the target object. Neither the file nor the target object is
+! file_name - Name of the file containing the target object. Neither the file nor the target object is
! required to exist. May be the file the link is being created in.
! obj_name - Path within the target file to the target object.
! link_loc_id - The file or group identifier for the new link.
! link_name - The name of the new link.
-!
-! Outputs:
-! hdferr: - error code
+!
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier.
! lapl_id - Link access property list identifier.
@@ -348,35 +348,35 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5lcreate_external_f(file_name, obj_name, link_loc_id, link_name, hdferr, lcpl_id, lapl_id)
IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: file_name ! Name of the file containing the target object. Neither
- ! the file nor the target object is required to exist.
+ CHARACTER(LEN=*), INTENT(IN) :: file_name ! Name of the file containing the target object. Neither
+ ! the file nor the target object is required to exist.
! May be the file the link is being created in.
CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of the target object, which must already exist.
INTEGER(HID_T), INTENT(IN) :: link_loc_id ! The file or group identifier for the new link.
CHARACTER(LEN=*), INTENT(IN) :: link_name ! The name of the new link.
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier.
- INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
-
+
INTEGER(SIZE_T) :: file_namelen
- INTEGER(SIZE_T) :: obj_namelen
+ INTEGER(SIZE_T) :: obj_namelen
INTEGER(SIZE_T) :: link_namelen
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5lcreate_external_c(file_name, file_namelen, obj_name, obj_namelen, &
- link_loc_id, link_name, link_namelen, lcpl_id_default, lapl_id_default)
+ link_loc_id, link_name, link_namelen, lcpl_id_default, lapl_id_default)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
@@ -387,15 +387,15 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: obj_name
INTEGER(HID_T), INTENT(IN) :: link_loc_id
CHARACTER(LEN=*), INTENT(IN) :: link_name
- INTEGER(SIZE_T) :: file_namelen
- INTEGER(SIZE_T) :: obj_namelen
+ INTEGER(SIZE_T) :: file_namelen
+ INTEGER(SIZE_T) :: obj_namelen
INTEGER(SIZE_T) :: link_namelen
INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default
END FUNCTION h5lcreate_external_c
END INTERFACE
- file_namelen = LEN(file_name)
- obj_namelen = LEN(obj_name)
+ file_namelen = LEN(file_name)
+ obj_namelen = LEN(obj_name)
link_namelen = LEN(link_name)
lcpl_id_default = H5P_DEFAULT_F
@@ -409,10 +409,10 @@ CONTAINS
END SUBROUTINE h5lcreate_external_f
!----------------------------------------------------------------------
-! Name: h5ldelete_by_idx_f
+! Name: h5ldelete_by_idx_f
!
! Purpose: Removes the nth link in a group.
-! Inputs:
+! Inputs:
! loc_id - File or group identifier specifying location of subject group
! group_name - Name of subject group
! index_field - Type of index; Possible values are:
@@ -421,7 +421,7 @@ CONTAINS
! H5_INDEX_NAME_F - Index on names
! H5_INDEX_CRT_ORDER_F - Index on creation order
! H5_INDEX_N_F - Number of indices defined
-!
+!
! order - Order within field or index; Possible values are:
!
! H5_ITER_UNKNOWN_F - Unknown order
@@ -432,22 +432,22 @@ CONTAINS
!
! n - Link for which to retrieve information
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Link access property list
!
! Programmer: M.S. Breitenfeld
! February 29, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
SUBROUTINE h5ldelete_by_idx_f(loc_id, group_name, index_field, order, n, hdferr, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
- CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of object, relative to location,
+ CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of object, relative to location,
! from which attribute is to be removed
INTEGER, INTENT(IN) :: index_field ! Type of index; Possible values are:
! H5_INDEX_UNKNOWN_F - Unknown index type
@@ -460,14 +460,14 @@ CONTAINS
! H5_ITER_DEC_F - Decreasing order
! H5_ITER_NATIVE_F - No particular order, whatever is fastest
! H5_ITER_N_F - Number of iteration orders
- INTEGER(HSIZE_T), INTENT(IN) :: n ! Offset within index
+ INTEGER(HSIZE_T), INTENT(IN) :: n ! Offset within index
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: group_namelen
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -481,7 +481,7 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: group_name
INTEGER, INTENT(IN) :: index_field
INTEGER, INTENT(IN) :: order
- INTEGER(HSIZE_T), INTENT(IN) :: n
+ INTEGER(HSIZE_T), INTENT(IN) :: n
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T) :: group_namelen
END FUNCTION h5ldelete_by_idx_c
@@ -489,31 +489,31 @@ CONTAINS
lapl_id_default = H5P_DEFAULT_F
IF(PRESENT(lapl_id)) lapl_id_default = lapl_id
-
+
group_namelen = LEN(group_name)
hdferr = h5ldelete_by_idx_c(loc_id, group_name, group_namelen, index_field, order, n, lapl_id_default)
-
+
END SUBROUTINE h5ldelete_by_idx_f
!----------------------------------------------------------------------
-! Name: H5Lexists_f
+! Name: H5Lexists_f
!
! Purpose: Check if a link with a particular name exists in a group.
-!
+!
! Inputs:
! loc_id - Identifier of the file or group to query.
! name - Link name to check
!
! Outputs:
! link_exists - link exists status (.TRUE.,.FALSE.)
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list identifier.
+! lapl_id - Link access property list identifier.
!
! Programmer: M. S. Breitenfeld
-! February 29, 2008
+! February 29, 2008
!
! Modifications: N/A
!
@@ -525,7 +525,7 @@ CONTAINS
LOGICAL, INTENT(OUT) :: link_exists ! .TRUE. if exists, .FALSE. otherwise
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id
! Link access property list identifier.
INTEGER :: link_exists_c
INTEGER(HID_T) :: lapl_id_default
@@ -545,7 +545,7 @@ CONTAINS
INTEGER(SIZE_T), INTENT(IN) :: namelen
INTEGER, INTENT(OUT) :: link_exists_c
INTEGER(HID_T) :: lapl_id_default
-
+
END FUNCTION h5lexists_c
END INTERFACE
@@ -557,7 +557,7 @@ CONTAINS
hdferr = h5lexists_c(loc_id, name, namelen, lapl_id_default, link_exists_c)
link_exists = .FALSE.
- IF(link_exists_c.GT.0) link_exists = .TRUE.
+ IF(link_exists_c.GT.0) link_exists = .TRUE.
END SUBROUTINE h5lexists_f
@@ -566,13 +566,13 @@ CONTAINS
!
! Purpose: Returns information about a link.
!
-! Inputs:
+! Inputs:
! link_loc_id - File or group identifier.
-! link_name - Name of the link for which information is being sought
+! link_name - Name of the link for which information is being sought
!
! Outputs: NOTE: In C these are contained in the structure H5L_info_t
!
-! cset - indicates the character set used for link’s name.
+! cset - indicates the character set used for link’s name.
! corder - specifies the link’s creation order position.
!f_corder_valid - indicates whether the value in corder is valid.
! link_type - specifies the link class:
@@ -581,20 +581,20 @@ CONTAINS
! H5L_TYPE_EXTERNAL_F - External link
! H5L_TYPE_ERROR_F - Error
! address - If the link is a hard link, address specifies the file address that the link points to
-! val_size - If the link is a symbolic link, val_size will be the length of the link value, e.g.,
-! the length of the name of the pointed-to object with a null terminator.
-! hdferr - error code
+! val_size - If the link is a symbolic link, val_size will be the length of the link value, e.g.,
+! the length of the name of the pointed-to object with a null terminator.
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list
+! lapl_id - Link access property list
!
! Programmer: M. S. Breitenfeld
-! February 29, 2008
+! February 29, 2008
!
-! Modifications:
+! Modifications:
! Changed the link_type names to match those in C (bug 1720) from,
-! H5L_LINK_HARD_F, H5L_LINK_SOFT_F,H5L_LINK_EXTERNAL_F,H5L_LINK_ERROR_F
+! H5L_LINK_HARD_F, H5L_LINK_SOFT_F,H5L_LINK_EXTERNAL_F,H5L_LINK_ERROR_F
! to
! H5L_TYPE_HARD_F, H5L_TYPE_SOFT_F,H5L_TYPE_EXTERNAL_F,H5L_TYPE_ERROR_F
! MSB January 8, 2010.
@@ -608,9 +608,9 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: link_loc_id ! File or group identifier.
CHARACTER(LEN=*), INTENT(IN) :: link_name ! Name of the link for which information is being sought
-
+
! Outputs: NOTE: In C these are contained in the structure H5L_info_t
- INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the link’s name.
+ INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the link’s name.
INTEGER, INTENT(OUT) :: corder ! Specifies the link’s creation order position.
LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the value in corder is valid.
INTEGER, INTENT(OUT) :: link_type ! Specifies the link class:
@@ -619,8 +619,8 @@ CONTAINS
! H5L_TYPE_EXTERNAL_F - External link
! H5L_TYPE_ERROR _F - Error
INTEGER(HADDR_T), INTENT(OUT) :: address ! If the link is a hard link, address specifies the file address that the link points to
- INTEGER(SIZE_T), INTENT(OUT) :: val_size ! If the link is a symbolic link, val_size will be the length of the link value, e.g.,
- ! the length of the name of the pointed-to object with a null terminator.
+ INTEGER(SIZE_T), INTENT(OUT) :: val_size ! If the link is a symbolic link, val_size will be the length of the link value, e.g.,
+ ! the length of the name of the pointed-to object with a null terminator.
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
@@ -642,7 +642,7 @@ CONTAINS
!DEC$ATTRIBUTES reference :: link_name
INTEGER(HID_T), INTENT(IN) :: link_loc_id
CHARACTER(LEN=*), INTENT(IN) :: link_name
- INTEGER, INTENT(OUT) :: cset
+ INTEGER, INTENT(OUT) :: cset
INTEGER, INTENT(OUT) :: corder
INTEGER, INTENT(OUT) :: link_type
INTEGER(HADDR_T), INTENT(OUT) :: address
@@ -662,7 +662,7 @@ CONTAINS
cset, corder, corder_valid, link_type, &
address, val_size, &
lapl_id_default)
-
+
f_corder_valid =.FALSE.
IF(corder_valid .EQ. 1) f_corder_valid =.TRUE.
@@ -672,7 +672,7 @@ CONTAINS
! Name: h5lget_info_by_idx_f
!
! Purpose: Retrieves metadata for a link in a group, according to the order within a field or index.
-!
+!
! Inputs:
! loc_id - File or group identifier specifying location of subject group
! group_name - Name of subject group
@@ -682,23 +682,23 @@ CONTAINS
!
! Outputs: NOTE: In C these are defined as a structure: H5L_info_t
! corder_valid - indicates whether the creation order data is valid for this attribute
-! corder - is a positive integer containing the creation order of the attribute
-! cset - indicates the character set used for the attribute’s name
+! corder - is a positive integer containing the creation order of the attribute
+! cset - indicates the character set used for the attribute’s name
! address - If the link is a hard link, address specifies the file address that the link points to
-! val_size - If the link is a symbolic link, val_size will be the length of the link value, e.g.,
-! the length of the name of the pointed-to object with a null terminator.
-! hdferr - error code
+! val_size - If the link is a symbolic link, val_size will be the length of the link value, e.g.,
+! the length of the name of the pointed-to object with a null terminator.
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! lapl_id - Link access property list
+! lapl_id - Link access property list
!
! Programmer: M.S. Breitenfeld
-! February 29, 2008
+! February 29, 2008
!
-! Modifications:
+! Modifications:
! Changed the link_type names to match those in C (bug 1720) from,
-! H5L_LINK_HARD_F, H5L_LINK_SOFT_F,H5L_LINK_EXTERNAL_F,H5L_LINK_ERROR_F
+! H5L_LINK_HARD_F, H5L_LINK_SOFT_F,H5L_LINK_EXTERNAL_F,H5L_LINK_ERROR_F
! to
! H5L_TYPE_HARD_F, H5L_TYPE_SOFT_F,H5L_TYPE_EXTERNAL_F,H5L_TYPE_ERROR_F
! MSB January 8, 2010.
@@ -707,7 +707,7 @@ CONTAINS
SUBROUTINE h5lget_info_by_idx_f(loc_id, group_name, index_field, order, n, &
link_type, f_corder_valid, corder, cset, address, val_size, hdferr, lapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of subject group
INTEGER, INTENT(IN) :: index_field ! Index or field which determines the order
! H5_INDEX_UNKNOWN_F - Unknown index type
@@ -725,12 +725,12 @@ CONTAINS
! H5L_TYPE_SOFT_F - Soft link
! H5L_TYPE_EXTERNAL_F - External link
! H5L_TYPE_ERROR _F - Error
- LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER, INTENT(OUT) :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HADDR_T), INTENT(OUT) :: address ! If the link is a hard link, address specifies the file address that the link points to
- INTEGER(SIZE_T), INTENT(OUT) :: val_size ! If the link is a symbolic link, val_size will be the length of the link value, e.g.,
- ! the length of the name of the pointed-to object with a null terminator.
+ INTEGER(SIZE_T), INTENT(OUT) :: val_size ! If the link is a symbolic link, val_size will be the length of the link value, e.g.,
+ ! the length of the name of the pointed-to object with a null terminator.
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
@@ -755,7 +755,7 @@ CONTAINS
INTEGER, INTENT(IN) :: order
INTEGER(HSIZE_T), INTENT(IN) :: n
INTEGER, INTENT(OUT) :: link_type
- INTEGER :: corder_valid
+ INTEGER :: corder_valid
INTEGER, INTENT(OUT) :: corder
INTEGER, INTENT(OUT) :: cset
INTEGER(HADDR_T), INTENT(OUT) :: address
@@ -778,24 +778,24 @@ CONTAINS
END SUBROUTINE h5lget_info_by_idx_f
!----------------------------------------------------------------------
-! Name: h5lis_registered_f
+! Name: h5lis_registered_f
!
! Purpose: Determines whether a class of user-defined links is registered.
-!
+!
! Inputs:
! link_cls_id - User-defined link class identifier
!
! Outputs:
! registered - .TRUE. - if the link class has been registered
! .FALSE. - if it is unregistered
-! hdferr - Error code
+! hdferr - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! None
+! None
!
! Programmer: M.S. Breitenfeld
-! February 29, 2008
+! February 29, 2008
!
! Modifications: N/A
!
@@ -827,30 +827,30 @@ CONTAINS
ELSE IF(hdferr.EQ.0)THEN
registered = .FALSE.
ENDIF
-
+
END SUBROUTINE h5lis_registered_f
!----------------------------------------------------------------------
! Name: h5lmove_f
!
! Purpose: Renames a link within an HDF5 file.
-!
+!
! Inputs:
! src_loc_id - Original file or group identifier.
! src_name - Original link name.
! dest_loc_id - Destination file or group identifier.
! dest_name - NEW link name.
!
-! Outputs:
-! hdferr - Error code
+! Outputs:
+! hdferr - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier to be associated WITH the NEW link.
! lapl_id - Link access property list identifier to be associated WITH the NEW link.
!
! Programmer: M.S. Breitenfeld
-! March 3, 2008
+! March 3, 2008
!
! Modifications: N/A
!
@@ -863,37 +863,37 @@ CONTAINS
CHARACTER(LEN=*), INTENT(IN) :: dest_name ! NEW link name.
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier
! to be associated WITH the NEW link.
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list identifier
! to be associated WITH the NEW link.
INTEGER(SIZE_T) :: src_namelen
INTEGER(SIZE_T) :: dest_namelen
- INTEGER(HID_T) :: lcpl_id_default
- INTEGER(HID_T) :: lapl_id_default
-
+ INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lapl_id_default
+
!
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, &
- dest_name, dest_namelen, lcpl_id_default, lapl_id_default)
+ dest_name, dest_namelen, lcpl_id_default, lapl_id_default)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5LMOVE_C'::h5lmove_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: src_name, dest_name
- INTEGER(HID_T), INTENT(IN) :: src_loc_id
+ INTEGER(HID_T), INTENT(IN) :: src_loc_id
CHARACTER(LEN=*), INTENT(IN) :: src_name
INTEGER(SIZE_T) :: src_namelen
INTEGER(HID_T), INTENT(IN) :: dest_loc_id
CHARACTER(LEN=*), INTENT(IN) :: dest_name
INTEGER(SIZE_T) :: dest_namelen
-
- INTEGER(HID_T) :: lcpl_id_default
- INTEGER(HID_T) :: lapl_id_default
+
+ INTEGER(HID_T) :: lcpl_id_default
+ INTEGER(HID_T) :: lapl_id_default
END FUNCTION h5lmove_c
END INTERFACE
@@ -916,16 +916,16 @@ CONTAINS
!
! Purpose: Retrieves name of the nth link in a group, according to the order within a specified field or index.
!
-! Inputs:
+! Inputs:
! loc_id - File or group identifier specifying location of subject group
! group_name - Name of subject group
! index_field - Index or field which determines the order
! order - Order within field or index
! n - Link for which to retrieve information
!
-! Outputs:
+! Outputs:
! name - Buffer in which link value is returned
-! hdferr - error code
+! hdferr - error code
! Success: 0
! Failure: -1
!
@@ -934,7 +934,7 @@ CONTAINS
! size - Maximum number of characters of link value to be returned.
!
! Programmer: M. S. Breitenfeld
-! March 10, 2008
+! March 10, 2008
!
! Modifications: N/A
!
@@ -942,7 +942,7 @@ CONTAINS
SUBROUTINE h5lget_name_by_idx_f(loc_id, group_name, index_field, order, n, &
name, hdferr, size, lapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of subject group
INTEGER, INTENT(IN) :: index_field ! Index or field which determines the order
! H5_INDEX_UNKNOWN_F - Unknown index type
@@ -958,12 +958,12 @@ CONTAINS
CHARACTER(LEN=*), INTENT(OUT) :: name ! Buffer in which link value is returned
INTEGER, INTENT(OUT) :: hdferr ! Error code:
! 0 on success and -1 on failure
-
+
INTEGER(SIZE_T) :: group_namelen
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
INTEGER(HID_T) :: lapl_id_default
INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size ! Indicates the size, in the number of characters, of the link
- INTEGER(SIZE_T) :: size_default
+ INTEGER(SIZE_T) :: size_default
! MS FORTRAN needs explicit interface for C functions called here.
@@ -976,7 +976,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5LGET_NAME_BY_IDX_C'::h5lget_name_by_idx_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: group_name, name
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: group_name
INTEGER(SIZE_T) :: group_namelen
INTEGER, INTENT(IN) :: index_field
@@ -1013,7 +1013,7 @@ CONTAINS
!!$! an index. For symbolic links, this is the path to which the
!!$! link points, including the null terminator. For user-defined
!!$! links, it is the link buffer.
-!!$! Inputs:
+!!$! Inputs:
!!$! loc_id - File or group identifier specifying location of subject group
!!$! group_name - Name of subject group
!!$! index_field - Index or field which determines the order
@@ -1023,17 +1023,17 @@ CONTAINS
!!$!
!!$! Outputs: NOTE: In C these are defined as a structure: H5L_info_t
!!$! corder_valid - indicates whether the creation order data is valid for this attribute
-!!$! corder - is a positive integer containing the creation order of the attribute
-!!$! cset - indicates the character set used for the attribute’s name
-!!$! data_size - indicates the size, in the number of characters, of the attribute
-!!$! hdferr - error code
+!!$! corder - is a positive integer containing the creation order of the attribute
+!!$! cset - indicates the character set used for the attribute’s name
+!!$! data_size - indicates the size, in the number of characters, of the attribute
+!!$! hdferr - error code
!!$! Success: 0
-!!$! Failure: -1
+!!$! Failure: -1
!!$! Optional parameters:
!!$! lapl_id - List access property list identifier.
!!$!
!!$! Programmer: M. S. Breitenfeld
-!!$! March 3, 2008
+!!$! March 3, 2008
!!$!
!!$! Modifications: N/A
!!$!
@@ -1041,7 +1041,7 @@ CONTAINS
!!$ SUBROUTINE h5lget_val_by_idx_f(loc_id, group_name, index_field, order, n, &
!!$ f_corder_valid, corder, cset, data_size, hdferr, lapl_id)
!!$ IMPLICIT NONE
-!!$ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
+!!$ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier specifying location of subject group
!!$ CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of subject group
!!$ INTEGER, INTENT(IN) :: index_field ! Index or field which determines the order
!!$ ! H5_INDEX_UNKNOWN_F - Unknown index type
@@ -1054,7 +1054,7 @@ CONTAINS
!!$ ! H5_ITER_DEC_F - Decreasing order
!!$ ! H5_ITER_NATIVE_F - No particular order, whatever is fastest
!!$ INTEGER(HSIZE_T), INTENT(IN) :: n ! Attribute’s position in index
-!!$ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+!!$ LOGICAL, INTENT(OUT) :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
!!$ INTEGER, INTENT(OUT) :: corder ! Is a positive integer containing the creation order of the attribute
!!$ INTEGER, INTENT(OUT) :: cset ! Indicates the character set used for the attribute’s name
!!$ INTEGER(HSIZE_T), INTENT(OUT) :: data_size ! Indicates the size, in the number of characters, of the attribute
@@ -1074,7 +1074,7 @@ CONTAINS
!!$ !DEC$IF DEFINED(HDF5F90_WINDOWS)
!!$ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LGET_VAL_BY_IDX_C'::h5lget_val_by_idx_c
!!$ !DEC$ENDIF
-!!$ INTEGER(HID_T), INTENT(IN) :: loc_id
+!!$ INTEGER(HID_T), INTENT(IN) :: loc_id
!!$ CHARACTER(LEN=*), INTENT(IN) :: group_name
!!$ INTEGER(SIZE_T) :: group_namelen
!!$ INTEGER, INTENT(IN) :: index_field
@@ -1098,7 +1098,7 @@ CONTAINS
!!$
!!$ f_corder_valid =.FALSE.
!!$ IF (corder_valid .EQ. 1) f_corder_valid =.TRUE.
-!!$
+!!$
!!$ END SUBROUTINE h5lget_val_by_idx_f
@@ -1108,21 +1108,21 @@ CONTAINS
!
! Purpose: Returns the value of a symbolic link.
!
-! Inputs:
+! Inputs:
! link_loc_id - File or group identifier.
! link_name - Link whose value is to be returned.
! size - Maximum number of characters of link value to be returned.
!
-! Outputs:
+! Outputs:
! linkval_buff - The buffer to hold the returned link value.
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - List access property list identifier.
!
! Programmer: M. S. Breitenfeld
-! March 3, 2008
+! March 3, 2008
!
! Modifications: N/A
!
@@ -1134,18 +1134,18 @@ CONTAINS
!!$ INTEGER(HID_T), INTENT(IN) :: link_loc_id ! File or group identifier.
!!$ CHARACTER(LEN=*), INTENT(IN) :: link_name ! Link whose value is to be returned.
!!$ INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of characters of link value to be returned.
-!!$
+!!$
!!$ CHARACTER(LEN=size), INTENT(OUT) :: linkval_buff ! The buffer to hold the returned link value.
!!$ INTEGER, INTENT(OUT) :: hdferr ! Error code:
!!$ ! 0 on success and -1 on failure
!!$ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
-!!$
+!!$
!!$ INTEGER :: link_namelen
!!$ INTEGER(HID_T) :: lapl_id_default
!!$ INTEGER :: corder_valid
!!$
-!!$ INTEGER :: link_namelen
-!!$ INTEGER(HID_T) :: lapl_id_default
+!!$ INTEGER :: link_namelen
+!!$ INTEGER(HID_T) :: lapl_id_default
!!$
!!$! MS FORTRAN needs explicit interface for C functions called here.
!!$!
@@ -1158,9 +1158,9 @@ CONTAINS
!!$ !DEC$ENDIF
!!$ INTEGER(HID_T), INTENT(IN) :: link_loc_id ! File or group identifier.
!!$ CHARACTER(LEN=*), INTENT(IN) :: link_name ! Link whose value is to be returned.
-!!$ INTEGER :: link_namelen
+!!$ INTEGER :: link_namelen
!!$ INTEGER(SIZE_T), INTENT(IN) :: size ! Maximum number of characters of link value to be returned.
-!!$
+!!$
!!$ CHARACTER(LEN=size), INTENT(OUT) :: linkval_buff ! The buffer to hold the returned link value.
!!$
!!$ INTEGER :: link_namelen
@@ -1182,30 +1182,30 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: H5Lregistered_f
+! Name: H5Lregistered_f
!
! Purpose: Registers user-defined link class or changes behavior of existing class.
-!
+!
! Inputs: NOTE: In C the following represents struct H5L_class_t:
-! version - Version number of this struct
-! class_id - Link class identifier
-! comment - Comment for debugging
-! create_func - Callback during link creation
-! move_func - Callback after moving link
-! copy_func - Callback after copying link
-! trav_func - The main traversal function
-! del_func - Callback for link deletion
-! query_func - Callback for queries
+! version - Version number of this struct
+! class_id - Link class identifier
+! comment - Comment for debugging
+! create_func - Callback during link creation
+! move_func - Callback after moving link
+! copy_func - Callback after copying link
+! trav_func - The main traversal function
+! del_func - Callback for link deletion
+! query_func - Callback for queries
!
! Outputs:
-! hdferr - Error code
+! hdferr - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! None
+! None
!
! Programmer: M.S. Breitenfeld
-! February 29, 2008
+! February 29, 2008
!
! Modifications: N/A
!
@@ -1213,25 +1213,25 @@ CONTAINS
!!$ SUBROUTINE H5Lregistered_f(version, class_id, comment, create_func, &
!!$ move_func, copy_func, trav_func, del_func, query_func, hdferr)
!!$ IMPLICIT NONE
-!!$ INTEGER, INTENT(IN) :: version ! Version number of this struct
-!!$ INTEGER, INTENT(IN) :: class_id ! Link class identifier
-!!$ CHARACTER(LEN=*), INTENT(IN) :: comment ! Comment for debugging
-!!$ CHARACTER(LEN=*), INTENT(IN) :: create_func ! Callback during link creation
-!!$ CHARACTER(LEN=*), INTENT(IN) :: move_func ! Callback after moving link
-!!$ CHARACTER(LEN=*), INTENT(IN) :: copy_func ! Callback after copying link
-!!$ CHARACTER(LEN=*), INTENT(IN) :: trav_func ! The main traversal function
-!!$ CHARACTER(LEN=*), INTENT(IN) :: del_func ! Callback for link deletion
+!!$ INTEGER, INTENT(IN) :: version ! Version number of this struct
+!!$ INTEGER, INTENT(IN) :: class_id ! Link class identifier
+!!$ CHARACTER(LEN=*), INTENT(IN) :: comment ! Comment for debugging
+!!$ CHARACTER(LEN=*), INTENT(IN) :: create_func ! Callback during link creation
+!!$ CHARACTER(LEN=*), INTENT(IN) :: move_func ! Callback after moving link
+!!$ CHARACTER(LEN=*), INTENT(IN) :: copy_func ! Callback after copying link
+!!$ CHARACTER(LEN=*), INTENT(IN) :: trav_func ! The main traversal function
+!!$ CHARACTER(LEN=*), INTENT(IN) :: del_func ! Callback for link deletion
!!$ CHARACTER(LEN=*), INTENT(IN) :: query_func ! Callback for queries
!!$ INTEGER, INTENT(OUT) :: hdferr ! Error code:
!!$ ! 0 on success and -1 on failure
-!!$ INTEGER :: comment_len
+!!$ INTEGER :: comment_len
!!$ INTEGER :: create_func_len
-!!$ INTEGER :: move_func_len
-!!$ INTEGER :: copy_func_len
-!!$ INTEGER :: trav_func_len
+!!$ INTEGER :: move_func_len
+!!$ INTEGER :: copy_func_len
+!!$ INTEGER :: trav_func_len
!!$ INTEGER :: del_func_len
!!$ INTEGER :: query_func_len
-!!$
+!!$
!!$!
!!$! MS FORTRAN needs explicit interface for C functions called here.
!!$!
@@ -1247,33 +1247,33 @@ CONTAINS
!!$ !DEC$IF DEFINED(HDF5F90_WINDOWS)
!!$ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LREGISTERED_C'::H5Lregistered_c
!!$ !DEC$ENDIF
-!!$ INTEGER, INTENT(IN) :: version ! Version number of this struct
-!!$ INTEGER, INTENT(IN) :: class_id ! Link class identifier
-!!$ CHARACTER(LEN=*), INTENT(IN) :: comment ! Comment for debugging
-!!$ CHARACTER(LEN=*), INTENT(IN) :: create_func ! Callback during link creation
-!!$ CHARACTER(LEN=*), INTENT(IN) :: move_func ! Callback after moving link
-!!$ CHARACTER(LEN=*), INTENT(IN) :: copy_func ! Callback after copying link
-!!$ CHARACTER(LEN=*), INTENT(IN) :: trav_func ! The main traversal function
-!!$ CHARACTER(LEN=*), INTENT(IN) :: del_func ! Callback for link deletion
+!!$ INTEGER, INTENT(IN) :: version ! Version number of this struct
+!!$ INTEGER, INTENT(IN) :: class_id ! Link class identifier
+!!$ CHARACTER(LEN=*), INTENT(IN) :: comment ! Comment for debugging
+!!$ CHARACTER(LEN=*), INTENT(IN) :: create_func ! Callback during link creation
+!!$ CHARACTER(LEN=*), INTENT(IN) :: move_func ! Callback after moving link
+!!$ CHARACTER(LEN=*), INTENT(IN) :: copy_func ! Callback after copying link
+!!$ CHARACTER(LEN=*), INTENT(IN) :: trav_func ! The main traversal function
+!!$ CHARACTER(LEN=*), INTENT(IN) :: del_func ! Callback for link deletion
!!$ CHARACTER(LEN=*), INTENT(IN) :: query_func ! Callback for queries
!!$ INTEGER, INTENT(OUT) :: hdferr ! Error code:
!!$ ! 0 on success and -1 on failure
-!!$ INTEGER :: comment_len
+!!$ INTEGER :: comment_len
!!$ INTEGER :: create_func_len
-!!$ INTEGER :: move_func_len
-!!$ INTEGER :: copy_func_len
-!!$ INTEGER :: trav_func_len
+!!$ INTEGER :: move_func_len
+!!$ INTEGER :: copy_func_len
+!!$ INTEGER :: trav_func_len
!!$ INTEGER :: del_func_len
!!$ INTEGER :: query_func_len
-!!$
+!!$
!!$ END FUNCTION H5Lregistered_c
!!$ END INTERFACE
!!$
!!$ comment_len = LEN(comment)
!!$ create_func_len = LEN(create_func)
!!$ move_func_len = LEN(move_func)
-!!$ copy_func_len = LEN(copy_func)
-!!$ trav_func_len = LEN(trav_func)
+!!$ copy_func_len = LEN(copy_func)
+!!$ trav_func_len = LEN(trav_func)
!!$ del_func_len = LEN(del_func)
!!$ query_func_len = LEN(query_func)
!!$
@@ -1284,7 +1284,7 @@ CONTAINS
!!$ trav_func, trav_func_len, &
!!$ del_func, del_func_len, &
!!$ query_func, query_func_len)
-!!$
+!!$
!!$ END SUBROUTINE H5Lregistered_f
END MODULE H5L
diff --git a/fortran/src/H5Off.f90 b/fortran/src/H5Off.f90
index 0328fbc..af965e2 100644
--- a/fortran/src/H5Off.f90
+++ b/fortran/src/H5Off.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,30 +11,30 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5O functions.
!
MODULE H5O
-
+
USE H5GLOBAL
-
+
CONTAINS
!----------------------------------------------------------------------
-! Name: h5olink_f
+! Name: h5olink_f
!
! Purpose: Creates a hard link to an object in an HDF5 file.
!
-! Inputs:
+! Inputs:
! object_id - Object to be linked.
! new_loc_id - File or group identifier specifying location at which object is to be linked.
! new_link_name - Name of link to be created, relative to new_loc_id.
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list identifier.
! lapl_id - Link access property list identifier.
@@ -42,20 +42,20 @@ CONTAINS
! Programmer: M.S. Breitenfeld
! April 21, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
SUBROUTINE h5olink_f(object_id, new_loc_id, new_link_name, hdferr, lcpl_id, lapl_id)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: object_id ! Object to be linked
- INTEGER(HID_T), INTENT(IN) :: new_loc_id ! File or group identifier specifying
+ INTEGER(HID_T), INTENT(IN) :: new_loc_id ! File or group identifier specifying
! location at which object is to be linked.
CHARACTER(LEN=*), INTENT(IN) :: new_link_name ! Name of link to be created, relative to new_loc_id.
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! Success: 0
- ! Failure: -1
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier.
+ ! Failure: -1
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list identifier.
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link creation property list identifier.
INTEGER(HID_T) :: lapl_id_default
INTEGER(HID_T) :: lcpl_id_default
@@ -92,25 +92,25 @@ CONTAINS
END SUBROUTINE h5olink_f
!----------------------------------------------------------------------
-! Name: h5oopen_f
+! Name: h5oopen_f
!
! Purpose: Opens an object in an HDF5 file by location identifier and path name.O
!
-! Inputs:
+! Inputs:
! loc_id - File or group identifier
! name - Path to the object, relative to loc_id.
-! Outputs:
-! obj_id - Object identifier for the opened object
-! hdferr: - error code
+! Outputs:
+! obj_id - Object identifier for the opened object
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lapl_id - Access property list identifier for the link pointing to the object
!
! Programmer: M.S. Breitenfeld
! April 18, 2008
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
@@ -119,9 +119,9 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Path to the object, relative to loc_id
INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier for the opened object
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Attribute access property list
INTEGER(HID_T) :: lapl_id_default
@@ -154,23 +154,23 @@ CONTAINS
END SUBROUTINE h5oopen_f
!----------------------------------------------------------------------
-! Name: h5oopen_by_addr_f
+! Name: h5oopen_by_addr_f
!
-! Purpose: Opens an object using its address within an HDF5 file.
+! Purpose: Opens an object using its address within an HDF5 file.
!
-! Inputs:
+! Inputs:
! loc_id - File or group identifier
! addr - Object’s address in the file
-! Outputs:
-! obj_id - Object identifier for the opened object
-! hdferr: - error code
+! Outputs:
+! obj_id - Object identifier for the opened object
+! hdferr: - error code
! Success: 0
! Failure: -1
!
! Programmer: M. Scot Breitenfeld
! September 14, 2009
!
-! Modifications: N/A
+! Modifications: N/A
!
!----------------------------------------------------------------------
@@ -179,7 +179,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
INTEGER(HADDR_T), INTENT(IN) :: addr ! Object’s address in the file
INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier for the opened object
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! Success: 0
! Failure: -1
INTERFACE
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index ee2145d..96b771d 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -1717,7 +1717,7 @@ nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name,
*offset = (int_f)c_offset;
*bytes = (hsize_t_f)size;
/* Note: if the size of the fortran buffer is larger then the returned string
- * from the function then we need to give HD5packFstring the fortran buffer size so
+ * from the function then we need to give HD5packFstring the fortran buffer size so
* that it fills the remaining unused characters with blanks. MSB
*/
HD5packFstring(c_name, _fcdtocp(name), c_namelen+1);
@@ -3996,7 +3996,7 @@ nh5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_l
done:
if(c_expression)
- HDfree(c_expression);
+ HDfree(c_expression);
return ret_value;
}
@@ -4464,10 +4464,10 @@ nh5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group)
* Purpose: Calls H5Pset_chunk_cache
*
* Inputs: dapl_id - Link creation property list identifier
- * rdcc_nslots -
+ * rdcc_nslots -
* rdcc_nbytes -
* rdcc_w0 -
- *
+ *
* Returns: 0 on success, -1 on failure
* Programmer: M.S. Breitenfeld
* April 13, 2009
@@ -4495,10 +4495,10 @@ nh5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb
*
* Inputs: dapl_id - Link creation property list identifier
* Outputs:
- * rdcc_nslots -
+ * rdcc_nslots -
* rdcc_nbytes -
* rdcc_w0 -
- *
+ *
* Returns: 0 on success, -1 on failure
* Programmer: M.S. Breitenfeld
* April 13, 2009
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index 48d36ab..50aad81 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5P functions.
@@ -25,7 +25,7 @@
MODULE PROCEDURE h5pset_fill_value_real
MODULE PROCEDURE h5pset_fill_value_char
END INTERFACE
-
+
INTERFACE h5pget_fill_value_f
MODULE PROCEDURE h5pget_fill_value_integer
MODULE PROCEDURE h5pget_fill_value_real
@@ -37,7 +37,7 @@
MODULE PROCEDURE h5pset_real
MODULE PROCEDURE h5pset_char
END INTERFACE
-
+
INTERFACE h5pget_f
MODULE PROCEDURE h5pget_integer
MODULE PROCEDURE h5pget_real
@@ -49,28 +49,28 @@
MODULE PROCEDURE h5pregister_real
MODULE PROCEDURE h5pregister_char
END INTERFACE
-
+
INTERFACE h5pinsert_f
MODULE PROCEDURE h5pinsert_integer
MODULE PROCEDURE h5pinsert_real
MODULE PROCEDURE h5pinsert_char
END INTERFACE
-
+
INTERFACE h5pset_fapl_multi_f
MODULE PROCEDURE h5pset_fapl_multi_l
MODULE PROCEDURE h5pset_fapl_multi_s
- END INTERFACE
+ END INTERFACE
+
-
CONTAINS
!----------------------------------------------------------------------
-! Name: h5pcreate_f
+! Name: h5pcreate_f
!
-! Purpose: Creates a new property as an instance of a property
+! Purpose: Creates a new property as an instance of a property
! list class.
!
-! Inputs:
+! Inputs:
! class - type of the property class to be created.
! Possible values are:
! H5P_FILE_CREATE_F
@@ -78,34 +78,34 @@
! H5P_DATASET_CREATE_F
! H5P_DATASET_XFER_F
! H5P_FILE_MOUNT_F
-! Outputs:
+! Outputs:
! prp_id - property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pcreate_f(class, prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: class ! The type of the property list
+ INTEGER(HID_T), INTENT(IN) :: class ! The type of the property list
! to be created. Possible values
- ! are:
+ ! are:
! H5P_FILE_CREATE_F
! H5P_FILE_ACCESS_F
! H5P_DATASET_CREATE_F
! H5P_DATASET_XFER_F
! H5P_FILE_MOUNT_F
- INTEGER(HID_T), INTENT(OUT) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(OUT) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pcreate_c
@@ -122,46 +122,46 @@
END FUNCTION h5pcreate_c
END INTERFACE
- hdferr = h5pcreate_c(class, prp_id)
+ hdferr = h5pcreate_c(class, prp_id)
END SUBROUTINE h5pcreate_f
!----------------------------------------------------------------------
-! Name: h5pset_preserve_f
+! Name: h5pset_preserve_f
!
-! Purpose: Sets the dataset transfer property list status to
+! Purpose: Sets the dataset transfer property list status to
! TRUE or FALSE for initializing compound datatype
! members during write/read operations.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
! flag - status flag
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
-! Datatype of the flag parameter is changed from
-! INTEGER to LOGICAL
-! June 4, 2003
+! port). March 14, 2001
+! Datatype of the flag parameter is changed from
+! INTEGER to LOGICAL
+! June 4, 2003
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_preserve_f(prp_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
LOGICAL, INTENT(IN) :: flag ! TRUE/FALSE flag to set the dataset
! transfer property for partila writing/reading
- ! compound datatype
+ ! compound datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag_c
@@ -180,43 +180,43 @@
END INTERFACE
flag_c = 0
if(flag) flag_c = 1
- hdferr = h5pset_preserve_c(prp_id, flag_c)
+ hdferr = h5pset_preserve_c(prp_id, flag_c)
END SUBROUTINE h5pset_preserve_f
!----------------------------------------------------------------------
-! Name: h5pget_preserve_f
+! Name: h5pget_preserve_f
!
! Purpose: Checks status of the dataset transfer property list.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
-! Outputs:
+! Outputs:
! flag - status flag
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
-! Datatype of the flag parameter is changed from
-! INTEGER to LOGICAL
-! June 4, 2003
+! port). March 14, 2001
+! Datatype of the flag parameter is changed from
+! INTEGER to LOGICAL
+! June 4, 2003
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_preserve_f(prp_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
LOGICAL, INTENT(OUT) :: flag ! TRUE/FALSE flag. Shows status of the dataset's
! transfer property for partial writing/reading
- ! compound datatype
+ ! compound datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag_c
@@ -234,19 +234,19 @@
END FUNCTION h5pget_preserve_c
END INTERFACE
- hdferr = h5pget_preserve_c(prp_id, flag_c)
+ hdferr = h5pget_preserve_c(prp_id, flag_c)
flag = .FALSE.
if(flag_c .eq. 1) flag = .TRUE.
END SUBROUTINE h5pget_preserve_f
!----------------------------------------------------------------------
-! Name: h5pget_class_f
+! Name: h5pget_class_f
!
! Purpose: Returns the property list class for a property list.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
-! Outputs:
+! Outputs:
! classtype - property list class
! Possible values are:
! H5P_ROOT_F
@@ -255,32 +255,32 @@
! H5PE_DATASET_CREATE_F
! H5P_DATASET_XFER_F
! H5P_FILE_MOUNT_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_class_f(prp_id, classtype, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(OUT) :: classtype ! The type of the property list
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: classtype ! The type of the property list
! to be created. Possible values
- ! are:
+ ! are:
! H5P_ROOT_F
! H5P_FILE_CREATE_F
! H5P_FILE_ACCESS_F
- ! H5PE_DATASET_CREATE_F
+ ! H5PE_DATASET_CREATE_F
! H5P_DATASET_XFER_F
! H5P_FILE_MOUNT_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -295,46 +295,46 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_CLASS_C'::h5pget_class_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(OUT) :: classtype
+ INTEGER, INTENT(OUT) :: classtype
END FUNCTION h5pget_class_c
END INTERFACE
- hdferr = h5pget_class_c(prp_id, classtype)
+ hdferr = h5pget_class_c(prp_id, classtype)
END SUBROUTINE h5pget_class_f
!----------------------------------------------------------------------
-! Name: h5pcopy_f
+! Name: h5pcopy_f
!
-! Purpose: Copies an existing property list to create a new
+! Purpose: Copies an existing property list to create a new
! property list
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
-! Outputs:
+! Outputs:
! new_prp_id - new property list identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pcopy_f(prp_id, new_prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER(HID_T), INTENT(OUT) :: new_prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_prp_id
! Identifier of property list
- ! copy
+ ! copy
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pcopy_c
@@ -355,34 +355,34 @@
END SUBROUTINE h5pcopy_f
!----------------------------------------------------------------------
-! Name: h5pclose_f
+! Name: h5pclose_f
!
-! Purpose: Terminates access to a property list.
+! Purpose: Terminates access to a property list.
!
-! Inputs:
-! prp_id - identifier of the property list to
-! terminate access to.
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! prp_id - identifier of the property list to
+! terminate access to.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pclose_f(prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pclose_c
@@ -394,7 +394,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PCLOSE_C'::h5pclose_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
END FUNCTION h5pclose_c
END INTERFACE
@@ -402,38 +402,38 @@
END SUBROUTINE h5pclose_f
!----------------------------------------------------------------------
-! Name: h5pset_chunk_f
+! Name: h5pset_chunk_f
!
-! Purpose: Sets the size of the chunks used to store
-! a chunked layout dataset.
+! Purpose: Sets the size of the chunks used to store
+! a chunked layout dataset.
!
-! Inputs:
+! Inputs:
! prp_id - datatset creation property list identifier
! ndims - number of dimensions for each chunk
! dims - array with dimension sizes for each chunk
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_chunk_f(prp_id, ndims, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: ndims ! Number of chunk dimensions
- INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(IN) :: dims
+ INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(IN) :: dims
! Array containing sizes of
! chunk dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -457,39 +457,39 @@
END SUBROUTINE h5pset_chunk_f
!----------------------------------------------------------------------
-! Name: h5pget_chunk_f
+! Name: h5pget_chunk_f
!
-! Purpose: Retrieves the size of chunks for the raw data of a
+! Purpose: Retrieves the size of chunks for the raw data of a
! chunked layout dataset
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
! ndims - size of dims array
-! Outputs:
+! Outputs:
! dims - array with dimension sizes for each chunk
-! hdferr: - error code
+! hdferr: - error code
! Success: number of chunk dimensions
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_chunk_f(prp_id, ndims, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: ndims ! Number of chunk dimensions to
! to return
- INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(OUT) :: dims
+ INTEGER(HSIZE_T), DIMENSION(ndims), INTENT(OUT) :: dims
! Array containing sizes of
! chunk dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code; number of
@@ -515,35 +515,35 @@
END SUBROUTINE h5pget_chunk_f
!----------------------------------------------------------------------
-! Name: h5pset_deflate_f
+! Name: h5pset_deflate_f
!
-! Purpose: Sets compression method and compression level.
+! Purpose: Sets compression method and compression level.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier
! level - compression level
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_deflate_f(prp_id, level, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(IN) :: level ! Compression level
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: level ! Compression level
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_deflate_c
@@ -564,41 +564,41 @@
END SUBROUTINE h5pset_deflate_f
!----------------------------------------------------------------------
-! Name: h5pset(get)fill_value_f
+! Name: h5pset(get)fill_value_f
!
! Purpose: Sets(gets) fill value for a dataset creation property list
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
! type_id - datatype identifier for fill value
! fillvalue - fill value
-! Outputs:
+! Outputs:
! ( type_id - datatype identifier for fill value )
! ( fillvalue - fill value )
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
! Comment: h5pset(get)fill_value_f function is overloaded to support
-! INTEGER, REAL, DOUBLE PRECISION and CHARACTER dtatypes.
+! INTEGER, REAL, DOUBLE PRECISION and CHARACTER dtatypes.
!----------------------------------------------------------------------
SUBROUTINE h5pset_fill_value_integer(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
+ 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)
INTEGER, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -625,10 +625,10 @@
SUBROUTINE h5pget_fill_value_integer(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
+ 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)
+ ! (in memory)
INTEGER, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -654,9 +654,9 @@
SUBROUTINE h5pset_fill_value_real(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
+ 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) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -683,10 +683,10 @@
SUBROUTINE h5pget_fill_value_real(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
+ 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)
+ ! (in memory)
REAL, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -713,9 +713,9 @@
SUBROUTINE h5pset_fill_value_char(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
+ 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)
CHARACTER, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -729,7 +729,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FILL_VALUEC_C'::h5pset_fill_valuec_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: fillvalue
+ !DEC$ATTRIBUTES reference :: fillvalue
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER, INTENT(IN) :: fillvalue
@@ -742,10 +742,10 @@
SUBROUTINE h5pget_fill_value_char(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
+ 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)
+ ! (in memory)
CHARACTER, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -758,7 +758,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_FILL_VALUEC_C'::h5pget_fill_valuec_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: fillvalue
+ !DEC$ATTRIBUTES reference :: fillvalue
INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER :: fillvalue
@@ -769,43 +769,43 @@
END SUBROUTINE h5pget_fill_value_char
!----------------------------------------------------------------------
-! Name: h5pget_version_f
+! Name: h5pget_version_f
!
-! Purpose: Retrieves the version information of various objects
+! Purpose: Retrieves the version information of various objects
! for a file creation property list
!
-! Inputs:
+! Inputs:
! prp_id - file createion property list identifier
-! Outputs:
+! Outputs:
! boot - super block version number
! freelist - global freelist version number
! stab - symbol table version number
! shhdr - shared object header version number
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_version_f(prp_id, boot, freelist, &
stab, shhdr, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, DIMENSION(:), INTENT(OUT) :: boot !array to put boot
!block version number
INTEGER, DIMENSION(:), INTENT(OUT) :: freelist !array to put global
!freelist version number
-
+
INTEGER, DIMENSION(:), INTENT(OUT) :: stab !array to put symbol
!table version number
INTEGER, DIMENSION(:), INTENT(OUT) :: shhdr !array to put shared
@@ -822,8 +822,8 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_VERSION_C'::h5pget_version_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, DIMENSION(:), INTENT(OUT) :: boot
- INTEGER, DIMENSION(:), INTENT(OUT) :: freelist
+ INTEGER, DIMENSION(:), INTENT(OUT) :: boot
+ INTEGER, DIMENSION(:), INTENT(OUT) :: freelist
INTEGER, DIMENSION(:), INTENT(OUT) :: stab
INTEGER, DIMENSION(:), INTENT(OUT) :: shhdr
END FUNCTION h5pget_version_c
@@ -833,34 +833,34 @@
END SUBROUTINE h5pget_version_f
!----------------------------------------------------------------------
-! Name: h5pset_userblock_f
+! Name: h5pset_userblock_f
!
! Purpose: Sets user block size
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list to modify
! size - size of the user-block in bytes
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5pset_userblock_f (prp_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER(HSIZE_T), INTENT(IN) :: size !Size of the user-block in bytes
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: size !Size of the user-block in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_userblock_c
@@ -881,36 +881,36 @@
END SUBROUTINE h5pset_userblock_f
!----------------------------------------------------------------------
-! Name: h5pget_userblock_f
+! Name: h5pget_userblock_f
!
! Purpose: Gets user block size.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! Outputs:
+! Outputs:
! block_size - size of the user block in bytes
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_userblock_f(prp_id, block_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER(HSIZE_T), INTENT(OUT) :: block_size !Size of the
- !user-block in bytes
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: block_size !Size of the
+ !user-block in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pget_userblock_c
@@ -930,39 +930,39 @@
END SUBROUTINE h5pget_userblock_f
!----------------------------------------------------------------------
-! Name: h5pset_sizes_f
+! Name: h5pset_sizes_f
!
-! Purpose: Sets the byte size of the offsets and lengths used
+! Purpose: Sets the byte size of the offsets and lengths used
! to address objects in an HDF5 file.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! sizeof_addr - size of an object offset in bytes
+! sizeof_addr - size of an object offset in bytes
! sizeof_size - size of an object length in bytes
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_sizes_f (prp_id, sizeof_addr, sizeof_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr !Size of an object
- !offset in bytes
- INTEGER(SIZE_T), INTENT(IN) :: sizeof_size !Size of an object
- !length in bytes
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr !Size of an object
+ !offset in bytes
+ INTEGER(SIZE_T), INTENT(IN) :: sizeof_size !Size of an object
+ !length in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_sizes_c
@@ -974,7 +974,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_SIZES_C'::h5pset_sizes_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(IN) :: sizeof_addr
INTEGER(SIZE_T), INTENT(IN) :: sizeof_size
END FUNCTION h5pset_sizes_c
@@ -984,41 +984,41 @@
END SUBROUTINE h5pset_sizes_f
!----------------------------------------------------------------------
-! Name: h5pget_sizes_f
+! Name: h5pget_sizes_f
!
-! Purpose: Retrieves the size of the offsets and lengths used
+! Purpose: Retrieves the size of the offsets and lengths used
! in an HDF5 file
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! Outputs:
-! sizeof_addr - size of an object offset in bytes
+! Outputs:
+! sizeof_addr - size of an object offset in bytes
! sizeof_size - size of an object length in bytes
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_sizes_f(prp_id, sizeof_addr, sizeof_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_addr !Size of an object
- !offset in bytes
+ !offset in bytes
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_size !Size of an object
- !length in bytes
-
+ !length in bytes
+
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pget_sizes_c
@@ -1030,7 +1030,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_SIZES_C'::h5pget_sizes_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_addr
INTEGER(SIZE_T), INTENT(OUT) :: sizeof_size
END FUNCTION h5pget_sizes_c
@@ -1040,38 +1040,38 @@
END SUBROUTINE h5pget_sizes_f
!----------------------------------------------------------------------
-! Name: h5pset_sym_k_f
+! Name: h5pset_sym_k_f
!
-! Purpose: Sets the size of parameters used to control the
+! Purpose: Sets the size of parameters used to control the
! symbol table nodes
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
! ik - symbol table tree rank
! lk - symbol table node size
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_sym_k_f (prp_id, ik, lk, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(IN) :: ik ! Symbol table tree rank
- INTEGER, INTENT(IN) :: lk ! Symbol table node size
-
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(IN) :: ik ! Symbol table tree rank
+ INTEGER, INTENT(IN) :: lk ! Symbol table node size
+
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_sym_k_c
@@ -1083,7 +1083,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_SYM_K_C'::h5pset_sym_k_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(IN) :: ik
INTEGER, INTENT(IN) :: lk
END FUNCTION h5pset_sym_k_c
@@ -1093,36 +1093,36 @@
END SUBROUTINE h5pset_sym_k_f
!----------------------------------------------------------------------
-! Name: h5pget_sym_k_f
+! Name: h5pget_sym_k_f
!
! Purpose: Retrieves the size of the symbol table B-tree 1/2 rank
-! and the symbol table leaf node 1/2 size.
+! and the symbol table leaf node 1/2 size.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! Outputs:
+! Outputs:
! ik - symbol table tree 1/2 rank
! lk - symbol table node 1/2 size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_sym_k_f(prp_id, ik, lk, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: ik !Symbol table tree rank
INTEGER, INTENT(OUT) :: lk !Symbol table node size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1136,7 +1136,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_SYM_K_C'::h5pget_sym_k_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: ik
INTEGER, INTENT(OUT) :: lk
END FUNCTION h5pget_sym_k_c
@@ -1146,36 +1146,36 @@
END SUBROUTINE h5pget_sym_k_f
!----------------------------------------------------------------------
-! Name: h5pset_istore_k_f
+! Name: h5pset_istore_k_f
!
-! Purpose: Sets the size of the parameter used to control the
+! Purpose: Sets the size of the parameter used to control the
! B-trees for indexing chunked datasets
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
! ik - 1/2 rank of chunked storage B-tree
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_istore_k_f (prp_id, ik, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: ik ! 1/2 rank of chunked storage B-tree
-
+
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_istore_k_c
@@ -1196,34 +1196,34 @@
END SUBROUTINE h5pset_istore_k_f
!----------------------------------------------------------------------
-! Name: h5pget_istore_k_f
+! Name: h5pget_istore_k_f
!
-! Purpose: Queries the 1/2 rank of an indexed storage B-tree.
+! Purpose: Queries the 1/2 rank of an indexed storage B-tree.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! Outputs:
+! Outputs:
! ik - 1/2 rank of chunked storage B-tree
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_istore_k_f(prp_id, ik, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: ik !1/2 rank of chunked storage B-tree
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1245,34 +1245,34 @@
END SUBROUTINE h5pget_istore_k_f
!----------------------------------------------------------------------
-! Name: h5pget_driver_f
+! Name: h5pget_driver_f
!
-! Purpose: Returns low-lever driver identifier.
+! Purpose: Returns low-lever driver identifier.
!
-! Inputs:
-! prp_id - file access or data transfer property
-! list identifier.
-! Outputs:
+! Inputs:
+! prp_id - file access or data transfer property
+! list identifier.
+! Outputs:
! driver - low-level driver identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_driver_f(prp_id, driver, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HID_T), INTENT(OUT) :: driver !low-level file driver identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1294,32 +1294,32 @@
END SUBROUTINE h5pget_driver_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_stdio_f
+! Name: h5pset_fapl_stdio_f
!
-! Purpose: Sets the standard I/O driver.
+! Purpose: Sets the standard I/O driver.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_stdio_f (prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_fapl_stdio_c
@@ -1339,34 +1339,34 @@
END SUBROUTINE h5pset_fapl_stdio_f
!----------------------------------------------------------------------
-! Name: h5pget_stdio_f
+! Name: h5pget_stdio_f
!
! Purpose: NOT AVAILABLE
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
! SUBROUTINE h5pget_stdio_f (prp_id, io, hdferr)
!
! IMPLICIT NONE
-! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
-! INTEGER, INTENT(OUT) :: io ! value indicates that the file
- !access property list is set to
+! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+! INTEGER, INTENT(OUT) :: io ! value indicates that the file
+ !access property list is set to
!the stdio driver
! INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pget_stdio_c
@@ -1374,32 +1374,32 @@
! END SUBROUTINE h5pget_stdio_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_sec2_f
+! Name: h5pset_fapl_sec2_f
!
-! Purpose: Sets the sec2 driver.
+! Purpose: Sets the sec2 driver.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_sec2_f (prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_fapl_sec2_c
@@ -1411,7 +1411,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_SEC2_C'::h5pset_fapl_sec2_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
END FUNCTION h5pset_fapl_sec2_c
END INTERFACE
@@ -1419,32 +1419,32 @@
END SUBROUTINE h5pset_fapl_sec2_f
!----------------------------------------------------------------------
-! Name: h5pget_sec2_f
+! Name: h5pget_sec2_f
!
! Purpose: NOT AVAILABLE
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-! SUBROUTINE h5pget_sec2_f (prp_id, sec2, hdferr)
+! SUBROUTINE h5pget_sec2_f (prp_id, sec2, hdferr)
! IMPLICIT NONE
-! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
-! INTEGER, INTENT(OUT) :: sec2 ! value indicates whether the file
+! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+! INTEGER, INTENT(OUT) :: sec2 ! value indicates whether the file
!driver uses the functions declared
!in the unistd.h file
! INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1453,34 +1453,34 @@
! END SUBROUTINE h5pget_sec2_f
!----------------------------------------------------------------------
-! Name: h5pset_alignment_f
+! Name: h5pset_alignment_f
!
-! Purpose: Sets alignment properties of a file access property list.
+! Purpose: Sets alignment properties of a file access property list.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! threshold - threshold value
+! threshold - threshold value
! alignment - alignment value
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_alignment_f(prp_id, threshold, alignment, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HSIZE_T), INTENT(IN) :: threshold ! Threshold value
INTEGER(HSIZE_T), INTENT(IN) :: alignment ! alignment value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1504,35 +1504,35 @@
END SUBROUTINE h5pset_alignment_f
!----------------------------------------------------------------------
-! Name: h5pget_alignment_f
+! Name: h5pget_alignment_f
!
-! Purpose: Retrieves the current settings for alignment
-! properties from a file access property list.
+! Purpose: Retrieves the current settings for alignment
+! properties from a file access property list.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! threshold - threshold value
+! Outputs:
+! threshold - threshold value
! alignment - alignment value
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_alignment_f(prp_id, threshold, alignment, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HSIZE_T), INTENT(OUT) :: threshold ! Threshold value
INTEGER(HSIZE_T), INTENT(OUT) :: alignment ! alignment value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1556,41 +1556,41 @@
END SUBROUTINE h5pget_alignment_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_core_f
+! Name: h5pset_fapl_core_f
!
-! Purpose: Modifies the file access property list to use the
-! H5FD_CORE driver.
+! Purpose: Modifies the file access property list to use the
+! H5FD_CORE driver.
!
! Inputs: prp_id - file access property list identifier
-! increment - size, in bytes, of memory increments
-! backing_store - boolean flag indicating whether to write
-! the file contents to disk when the file is closed.
-! Outputs:
-! hdferr: - error code
+! increment - size, in bytes, of memory increments
+! backing_store - boolean flag indicating whether to write
+! the file contents to disk when the file is closed.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_core_f(prp_id, increment, backing_store, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(SIZE_T), INTENT(IN) :: increment ! File block size in bytes.
LOGICAL, INTENT(IN) :: backing_store ! flag to indicate that
- ! entire file contents are flushed to a file
+ ! entire file contents are flushed to a file
! with the same name as this core file.
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: backing_store_flag
+ INTEGER :: backing_store_flag
! INTEGER, EXTERNAL :: h5pset_fapl_core_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1601,9 +1601,9 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_CORE_C'::h5pset_fapl_core_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER(SIZE_T), INTENT(IN) :: increment
- INTEGER :: backing_store_flag
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(SIZE_T), INTENT(IN) :: increment
+ INTEGER :: backing_store_flag
END FUNCTION h5pset_fapl_core_c
END INTERFACE
backing_store_flag = 0
@@ -1612,41 +1612,41 @@
END SUBROUTINE h5pset_fapl_core_f
!----------------------------------------------------------------------
-! Name: h5pget_fapl_core_f
+! Name: h5pget_fapl_core_f
!
-! Purpose: Queries core file driver properties.
+! Purpose: Queries core file driver properties.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! increment - size, in bytes, of memory increments
-! backing_store - boolean flag indicating whether to write
-! the file contents to disk when the file is closed.
-! hdferr: - error code
+! Outputs:
+! increment - size, in bytes, of memory increments
+! backing_store - boolean flag indicating whether to write
+! the file contents to disk when the file is closed.
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fapl_core_f(prp_id, increment, backing_store, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: increment ! File block size in bytes.
LOGICAL, INTENT(OUT) :: backing_store ! flag to indicate that
- ! entire file contents are flushed to a file
+ ! entire file contents are flushed to a file
! with the same name as this core file.
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: backing_store_flag
+ INTEGER :: backing_store_flag
! INTEGER, EXTERNAL :: h5pget_fapl_core_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1657,9 +1657,9 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_CORE_C'::h5pget_fapl_core_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER(SIZE_T), INTENT(OUT) :: increment
- INTEGER :: backing_store_flag
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(SIZE_T), INTENT(OUT) :: increment
+ INTEGER :: backing_store_flag
END FUNCTION h5pget_fapl_core_c
END INTERFACE
@@ -1669,39 +1669,39 @@
END SUBROUTINE h5pget_fapl_core_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_family_f
+! Name: h5pset_fapl_family_f
!
-! Purpose: Sets the file access property list to use the family driver.
+! Purpose: Sets the file access property list to use the family driver.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! memb_size - size in bytes of each file member
-! memb_plist - identifier of the file access property
+! memb_size - size in bytes of each file member
+! memb_plist - identifier of the file access property
! list to be used for each family member
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_family_f(prp_id, memb_size, memb_plist , hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HSIZE_T), INTENT(IN) :: memb_size ! Logical size, in bytes,
!of each family member
- INTEGER(HID_T), INTENT(IN) :: memb_plist !Identifier of the file
- !access property list for
+ INTEGER(HID_T), INTENT(IN) :: memb_plist !Identifier of the file
+ !access property list for
!each member of the family
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1724,40 +1724,40 @@
END SUBROUTINE h5pset_fapl_family_f
!----------------------------------------------------------------------
-! Name: h5pget_fapl_family_f
+! Name: h5pget_fapl_family_f
!
-! Purpose: Returns file access property list information.
+! Purpose: Returns file access property list information.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! memb_size - size in bytes of each file member
-! memb_plist - identifier of the file access property
+! Outputs:
+! memb_size - size in bytes of each file member
+! memb_plist - identifier of the file access property
! list to be used for each family member
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fapl_family_f(prp_id, memb_size, memb_plist , hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HSIZE_T), INTENT(OUT) :: memb_size ! Logical size, in bytes,
!of each family member
- INTEGER(HID_T), INTENT(OUT) :: memb_plist !Identifier of the file
- !access property list for
+ INTEGER(HID_T), INTENT(OUT) :: memb_plist !Identifier of the file
+ !access property list for
!each member of the family
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1780,45 +1780,45 @@
END SUBROUTINE h5pget_fapl_family_f
!----------------------------------------------------------------------
-! Name: h5pset_cache_f
+! Name: h5pset_cache_f
!
-! Purpose: Sets the meta data cache and raw data chunk
+! Purpose: Sets the meta data cache and raw data chunk
! cache parameters
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! mdc_nelmts - number of elements (objects) in the meta
-! data cache
-! rdcc_nelmts - number of elements (objects) in the raw
-! data chunk cache
-! rdcc_nbytes - total size of the raw data chunk cache, in bytes
+! mdc_nelmts - number of elements (objects) in the meta
+! data cache
+! rdcc_nelmts - number of elements (objects) in the raw
+! data chunk cache
+! rdcc_nbytes - total size of the raw data chunk cache, in bytes
! rdcc_w0 - preemption policy (0 or 1)
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_cache_f(prp_id, mdc_nelmts,rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: mdc_nelmts !Number of elements (objects)
! in the meta data cache
INTEGER(SIZE_T), INTENT(IN) :: rdcc_nelmts !Number of elements (objects)
! in the meta data cache
- INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes !Total size of the raw data
- !chunk cache, in bytes
+ INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes !Total size of the raw data
+ !chunk cache, in bytes
REAL, INTENT(IN) :: rdcc_w0 !Preemption policy
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1832,8 +1832,8 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_CACHE_C'::h5pset_cache_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: mdc_nelmts
- INTEGER(SIZE_T), INTENT(IN) :: rdcc_nelmts
+ INTEGER, INTENT(IN) :: mdc_nelmts
+ INTEGER(SIZE_T), INTENT(IN) :: rdcc_nelmts
INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes
REAL, INTENT(IN) :: rdcc_w0
END FUNCTION h5pset_cache_c
@@ -1843,48 +1843,48 @@
END SUBROUTINE h5pset_cache_f
!----------------------------------------------------------------------
-! Name: h5pget_cache_f
+! Name: h5pget_cache_f
!
-! Purpose: Queries the meta data cache and raw data chunk cache
-! parameters.
+! Purpose: Queries the meta data cache and raw data chunk cache
+! parameters.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! mdc_nelmts - number of elements (objects) in the meta
-! data cache
-! rdcc_nelmts - number of elements (objects) in the raw
-! data chunk cache
-! rdcc_nbytes - total size of the raw data chunk cache, in bytes
+! Outputs:
+! mdc_nelmts - number of elements (objects) in the meta
+! data cache
+! rdcc_nelmts - number of elements (objects) in the raw
+! data chunk cache
+! rdcc_nbytes - total size of the raw data chunk cache, in bytes
! rdcc_w0 - preemption policy (0 or 1)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
! Bug fix: type of the rdcc_nelmts parameter should be INTEGER
-! instead of INTEGER(SIZE_T) October 10, 2003
+! instead of INTEGER(SIZE_T) October 10, 2003
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_cache_f(prp_id, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, rdcc_w0, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: mdc_nelmts !Number of elements (objects)
! in the meta data cache
INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nelmts !Number of elements (objects)
! in the meta data cache
- INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes !Total size of the raw data
- !chunk cache, in bytes
+ INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes !Total size of the raw data
+ !chunk cache, in bytes
REAL, INTENT(OUT) :: rdcc_w0 !Preemption policy
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1899,8 +1899,8 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_CACHE_C'::h5pget_cache_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(OUT) :: mdc_nelmts
- INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nelmts
+ INTEGER, INTENT(OUT) :: mdc_nelmts
+ INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nelmts
INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes
REAL, INTENT(OUT) :: rdcc_w0
END FUNCTION h5pget_cache_c
@@ -1910,44 +1910,44 @@
END SUBROUTINE h5pget_cache_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_split_f
+! Name: h5pset_fapl_split_f
!
-! Purpose: Emulates the old split file driver.
+! Purpose: Emulates the old split file driver.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! meta_ext - name of the extension for the metafile
+! meta_ext - name of the extension for the metafile
! filename
-! meta_plist - identifier of the meta file access property
+! meta_plist - identifier of the meta file access property
! list
! raw_ext - name extension for the raw file filename
! raw_plist - identifier of the raw file access property list
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_split_f(prp_id, meta_ext, meta_plist, raw_ext, raw_plist, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: meta_ext !Name of the extension for
!the metafile filename
INTEGER(HID_T), INTENT(IN) :: meta_plist ! Identifier of the meta file
! access property list
CHARACTER(LEN=*), INTENT(IN) :: raw_ext !Name extension for the raw file filename
- INTEGER(HID_T), INTENT(IN) :: raw_plist !Identifier of the raw file
+ INTEGER(HID_T), INTENT(IN) :: raw_plist !Identifier of the raw file
!access property list
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: meta_len, raw_len
@@ -1964,10 +1964,10 @@
!DEC$ATTRIBUTES reference :: meta_ext
!DEC$ATTRIBUTES reference :: raw_ext
INTEGER(HID_T), INTENT(IN) :: prp_id
- CHARACTER(LEN=*), INTENT(IN) :: meta_ext
+ CHARACTER(LEN=*), INTENT(IN) :: meta_ext
INTEGER(HID_T), INTENT(IN) :: meta_plist
CHARACTER(LEN=*), INTENT(IN) :: raw_ext
- INTEGER(HID_T), INTENT(IN) :: raw_plist
+ INTEGER(HID_T), INTENT(IN) :: raw_plist
INTEGER :: meta_len, raw_len
END FUNCTION h5pset_fapl_split_c
END INTERFACE
@@ -1978,36 +1978,36 @@
END SUBROUTINE h5pset_fapl_split_f
!----------------------------------------------------------------------
-! Name: h5pget_split_f
+! Name: h5pget_split_f
!
! Purpose: NOT AVAILABLE
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
! SUBROUTINE h5pget_split_f(prp_id, meta_ext_size, meta_ext, meta_plist,raw_ext_size,&
-! raw_ext, raw_plist, hdferr)
+! raw_ext, raw_plist, hdferr)
! IMPLICIT NONE
! INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
! INTEGER(SIZE_T), INTENT(IN) :: meta_ext_size ! Number of characters of the meta
! file extension to be copied to the
! meta_ext buffer
-
+
! CHARACTER(LEN=*), INTENT(OUT) :: meta_ext !Name of the extension for
!the metafile filename
! INTEGER(HID_T), INTENT(OUT) :: meta_plist ! Identifier of the meta file
@@ -2016,7 +2016,7 @@
! file extension to be copied to the
! raw_ext buffer
! CHARACTER(LEN=*), INTENT(OUT) :: raw_ext !Name extension for the raw file filename
-! INTEGER(HID_T), INTENT(OUT) :: raw_plist !Identifier of the raw file
+! INTEGER(HID_T), INTENT(OUT) :: raw_plist !Identifier of the raw file
!access property list
! INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2026,35 +2026,35 @@
! END SUBROUTINE h5pget_split_f
!----------------------------------------------------------------------
-! Name: h5pset_gc_references_f
+! Name: h5pset_gc_references_f
!
-! Purpose: Sets garbage collecting references flag.
+! Purpose: Sets garbage collecting references flag.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! gc_reference - flag for stting garbage collection on
+! gc_reference - flag for stting garbage collection on
! and off (1 or 0)
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5pset_gc_references_f (prp_id, gc_reference, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: gc_reference !the flag for garbage collecting
! references for the file
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2077,34 +2077,34 @@
END SUBROUTINE h5pset_gc_references_f
!----------------------------------------------------------------------
-! Name: h5pget_gc_references_f
+! Name: h5pget_gc_references_f
!
-! Purpose: Returns garbage collecting references setting.
+! Purpose: Returns garbage collecting references setting.
!
-! Inputs:
+! Inputs:
! prp_id - file access property list identifier
-! Outputs:
-! gc_reference - flag for stting garbage collection on
+! Outputs:
+! gc_reference - flag for stting garbage collection on
! and off (1 or 0)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_gc_references_f (prp_id, gc_reference, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: gc_reference !the flag for garbage collecting
! references for the file
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2127,38 +2127,38 @@
END SUBROUTINE h5pget_gc_references_f
!----------------------------------------------------------------------
-! Name: h5pset_layout_f
+! Name: h5pset_layout_f
!
-! Purpose: Sets the type of storage used store the raw data
-! for a dataset.
+! Purpose: Sets the type of storage used store the raw data
+! for a dataset.
!
-! Inputs:
+! Inputs:
! prp_id - data creation property list identifier
! layout - type of storage layout for raw data
! possible values are:
! H5D_COMPACT_F
! H5D_CONTIGUOUS_F
! H5D_CHUNKED_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_layout_f (prp_id, layout, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: layout !Type of storage layout for raw data
!possible values are:
!H5D_COMPACT_F
@@ -2184,37 +2184,37 @@
END SUBROUTINE h5pset_layout_f
!----------------------------------------------------------------------
-! Name: h5pget_layout_f
+! Name: h5pget_layout_f
!
-! Purpose: Returns the layout of the raw data for a dataset.
+! Purpose: Returns the layout of the raw data for a dataset.
!
-! Inputs:
+! Inputs:
! prp_id - data creation property list identifier
-! Outputs:
+! Outputs:
! layout - type of storage layout for raw data
! possible values are:
! H5D_COMPACT_F
! H5D_CONTIGUOUS_F
! H5D_CHUNKED_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_layout_f (prp_id, layout, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: layout !Type of storage layout for raw data
!possible values are:
!H5D_COMPACT_F(0)
@@ -2240,36 +2240,36 @@
END SUBROUTINE h5pget_layout_f
!----------------------------------------------------------------------
-! Name: h5pset_filter_f
+! Name: h5pset_filter_f
!
-! Purpose: Adds a filter to the filter pipeline.
+! Purpose: Adds a filter to the filter pipeline.
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
-! filter - filter to be added to the pipeline
+! filter - filter to be added to the pipeline
! flags - bit vector specifying certain general
! properties of the filter
! cd_nelmts - number of elements in cd_values
! cd_values - auxiliary data for the filter
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! February, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: filter !Filter to be added to the pipeline.
INTEGER, INTENT(IN) :: flags !Bit vector specifying certain general
!properties of the filter.
@@ -2287,11 +2287,11 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FILTER_C'::h5pset_filter_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: filter
- INTEGER, INTENT(IN) :: flags
- INTEGER(SIZE_T), INTENT(IN) :: cd_nelmts
- INTEGER, DIMENSION(*), INTENT(IN) :: cd_values
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER, INTENT(IN) :: filter
+ INTEGER, INTENT(IN) :: flags
+ INTEGER(SIZE_T), INTENT(IN) :: cd_nelmts
+ INTEGER, DIMENSION(*), INTENT(IN) :: cd_values
END FUNCTION h5pset_filter_c
END INTERFACE
@@ -2299,34 +2299,34 @@
END SUBROUTINE h5pset_filter_f
!----------------------------------------------------------------------
-! Name: h5pget_nfilters_f
+! Name: h5pget_nfilters_f
!
-! Purpose: Returns the number of filters in the pipeline.
+! Purpose: Returns the number of filters in the pipeline.
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
-! Outputs:
+! Outputs:
! nfilters - number of filters in the pipeline
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_nfilters_f (prp_id, nfilters, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: nfilters !the number of filters in the pipeline
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2348,43 +2348,43 @@
END SUBROUTINE h5pget_nfilters_f
!----------------------------------------------------------------------
-! Name: h5pget_filter_f
+! Name: h5pget_filter_f
!
! Purpose: Returns information about a filter in a pipeline
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
-! Outputs:
+! Outputs:
! identifier
-! filter - filter to be added to the pipeline
+! filter - filter to be added to the pipeline
! flags - bit vector specifying certain general
! properties of the filter
! cd_nelmts - number of elements in cd_values
! cd_values - auxiliary data for the filter
! namelen - number of characters in the name buffer
! name - buffer to retrieve filter name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_filter_f(prp_id, filter_number, flags, cd_nelmts, cd_values, namelen, name, filter_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: filter_number !Sequence number within the filter
- !pipeline of the filter for which
+ !pipeline of the filter for which
!information is sought
INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values !Auxiliary data for the filter.
INTEGER, INTENT(OUT) :: flags !Bit vector specifying certain general
@@ -2392,7 +2392,7 @@
INTEGER(SIZE_T), INTENT(INOUT) :: cd_nelmts !Number of elements in cd_values.
INTEGER(SIZE_T), INTENT(IN) :: namelen !Anticipated number of characters in name.
CHARACTER(LEN=*), INTENT(OUT) :: name !Name of the filter
- INTEGER, INTENT(OUT) :: filter_id ! filter identification number
+ INTEGER, INTENT(OUT) :: filter_id ! filter identification number
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2409,9 +2409,9 @@
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: filter_number
+ INTEGER, INTENT(IN) :: filter_number
INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values
- INTEGER, INTENT(OUT) :: flags
+ INTEGER, INTENT(OUT) :: flags
INTEGER(SIZE_T), INTENT(INOUT) :: cd_nelmts
INTEGER(SIZE_T), INTENT(IN) :: namelen
CHARACTER(LEN=*), INTENT(OUT) :: name
@@ -2419,47 +2419,47 @@
END FUNCTION h5pget_filter_c
END INTERFACE
- hdferr = h5pget_filter_c(prp_id, filter_number, flags, cd_nelmts, &
+ hdferr = h5pget_filter_c(prp_id, filter_number, flags, cd_nelmts, &
cd_values, namelen, name, filter_id )
END SUBROUTINE h5pget_filter_f
!----------------------------------------------------------------------
-! Name: h5pset_external_f
+! Name: h5pset_external_f
!
-! Purpose: Adds an external file to the list of external files.
+! Purpose: Adds an external file to the list of external files.
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
! name - name of external file
-! offset - offset in bytes from the beginning of the
+! offset - offset in bytes from the beginning of the
! file to the location in the file
! where the data starts
-! bytes - size of the external file data.
-! Outputs:
-! hdferr: - error code
+! bytes - size of the external file data.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_external_f(prp_id, name, offset,bytes, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name !Name of an external file
- INTEGER, INTENT(IN) :: offset !Offset, in bytes, from the beginning
- !of the file to the location in the file
+ INTEGER, INTENT(IN) :: offset !Offset, in bytes, from the beginning
+ !of the file to the location in the file
!where the data starts.
- INTEGER(HSIZE_T), INTENT(IN) :: bytes ! Number of bytes reserved in the
+ INTEGER(HSIZE_T), INTENT(IN) :: bytes ! Number of bytes reserved in the
!file for the data
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2488,35 +2488,35 @@
END SUBROUTINE h5pset_external_f
!----------------------------------------------------------------------
-! Name: h5pget_external_count_f
+! Name: h5pget_external_count_f
!
-! Purpose: Returns the number of external files for a dataset.
+! Purpose: Returns the number of external files for a dataset.
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
-! Outputs:
-! count - number of external files for the
+! Outputs:
+! count - number of external files for the
! specified dataset
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_external_count_f (prp_id, count, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(OUT) :: count !number of external files for the
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER, INTENT(OUT) :: count !number of external files for the
!specified dataset
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pget_external_count_c
@@ -2528,7 +2528,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_EXTERNAL_COUNT_C'::h5pget_external_count_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER(HID_T), INTENT(IN) :: prp_id
INTEGER, INTENT(OUT) :: count
END FUNCTION h5pget_external_count_c
END INTERFACE
@@ -2537,35 +2537,35 @@
END SUBROUTINE h5pget_external_count_f
!----------------------------------------------------------------------
-! Name: h5pget_external_f
+! Name: h5pget_external_f
!
-! Purpose: Returns information about an external file.
+! Purpose: Returns information about an external file.
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
-! Outputs:
-! idx - external file index
+! Outputs:
+! idx - external file index
! name_size - maximum size of name array
-! name - name of the external file
+! name - name of the external file
! name - name of external file
-! offset - offset in bytes from the beginning of the
+! offset - offset in bytes from the beginning of the
! file to the location in the file
! where the data starts
! bytes - size of the external file data
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
@@ -2573,12 +2573,12 @@
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: idx !External file index.
- INTEGER(SIZE_T), INTENT(IN) :: name_size !Maximum length of name array
+ INTEGER(SIZE_T), INTENT(IN) :: name_size !Maximum length of name array
CHARACTER(LEN=*), INTENT(OUT) :: name !Name of an external file
- INTEGER, INTENT(OUT) :: offset !Offset, in bytes, from the beginning
- !of the file to the location in the file
+ INTEGER, INTENT(OUT) :: offset !Offset, in bytes, from the beginning
+ !of the file to the location in the file
!where the data starts.
- INTEGER(HSIZE_T), INTENT(OUT) :: bytes ! Number of bytes reserved in the
+ INTEGER(HSIZE_T), INTENT(OUT) :: bytes ! Number of bytes reserved in the
!file for the data
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2593,7 +2593,7 @@
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: idx
+ INTEGER, INTENT(IN) :: idx
INTEGER(SIZE_T), INTENT(IN) :: name_size
CHARACTER(LEN=*), INTENT(OUT) :: name
INTEGER, INTENT(OUT) :: offset
@@ -2605,41 +2605,41 @@
END SUBROUTINE h5pget_external_f
!----------------------------------------------------------------------
-! Name: h5pset_btree_ratios_f
+! Name: h5pset_btree_ratios_f
!
-! Purpose: Sets B-tree split ratios for a dataset transfer
-! property list.
+! Purpose: Sets B-tree split ratios for a dataset transfer
+! property list.
!
-! Inputs:
-! prp_id - the dataset transfer property list
-! identifier
-! left - the B-tree split ratio for left-most nodes
+! Inputs:
+! prp_id - the dataset transfer property list
+! identifier
+! left - the B-tree split ratio for left-most nodes
! middle - the B-tree split ratio for all other nodes
! right - the B-tree split ratio for right-most nodes
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_btree_ratios_f(prp_id, left, middle, right, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
REAL, INTENT(IN) :: left !The B-tree split ratio for left-most nodes.
- REAL, INTENT(IN) :: middle !The B-tree split ratio for all other nodes
- REAL, INTENT(IN) :: right !The B-tree split ratio for right-most
- !nodes and lone nodes.
+ REAL, INTENT(IN) :: middle !The B-tree split ratio for all other nodes
+ REAL, INTENT(IN) :: right !The B-tree split ratio for right-most
+ !nodes and lone nodes.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2663,40 +2663,40 @@
END SUBROUTINE h5pset_btree_ratios_f
!----------------------------------------------------------------------
-! Name: h5pget_btree_ratios_f
+! Name: h5pget_btree_ratios_f
!
! Purpose: Gets B-tree split ratios for a dataset transfer property list
!
-! Inputs:
-! prp_id - the dataset transfer property list
-! identifier
-! Outputs:
-! left - the B-tree split ratio for left-most nodes
+! Inputs:
+! prp_id - the dataset transfer property list
+! identifier
+! Outputs:
+! left - the B-tree split ratio for left-most nodes
! middle - the B-tree split ratio for all other nodes
! right - the B-tree split ratio for right-most nodes
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 14, 2001
+! port). March 14, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_btree_ratios_f(prp_id, left, middle, right, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
REAL, INTENT(OUT) :: left !The B-tree split ratio for left-most nodes.
- REAL, INTENT(OUT) :: middle !The B-tree split ratio for all other nodes
- REAL, INTENT(OUT) :: right !The B-tree split ratio for right-most
- !nodes and lone nodes.
+ REAL, INTENT(OUT) :: middle !The B-tree split ratio for all other nodes
+ REAL, INTENT(OUT) :: right !The B-tree split ratio for right-most
+ !nodes and lone nodes.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2721,38 +2721,38 @@
END SUBROUTINE h5pget_btree_ratios_f
!----------------------------------------------------------------------
-! Name: h5pget_fclose_degree_f
+! Name: h5pget_fclose_degree_f
!
! Purpose: Returns the degree for the file close behavior.
!
-! Inputs:
+! Inputs:
! fapl_id - file access property list identifier
-! Outputs:
+! Outputs:
! degree - one of the following:
! Possible values are:
! H5F_CLOSE_DEFAULT_F
! H5F_CLOSE_WEAK_F
! H5F_CLOSE_SEMI_F
! H5F_CLOSE_STRONG_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! September 26, 2002
+! September 26, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fclose_degree_f(fapl_id, degree, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier
INTEGER, INTENT(OUT) :: degree ! Possible values
- ! are:
+ ! are:
! H5F_CLOSE_DEFAULT_F
! H5F_CLOSE_WEAK_F
! H5F_CLOSE_SEMI_F
@@ -2774,15 +2774,15 @@
END FUNCTION h5pget_fclose_degree_c
END INTERFACE
- hdferr = h5pget_fclose_degree_c(fapl_id, degree)
+ hdferr = h5pget_fclose_degree_c(fapl_id, degree)
END SUBROUTINE h5pget_fclose_degree_f
!----------------------------------------------------------------------
-! Name: h5pset_fclose_degree_f
+! Name: h5pset_fclose_degree_f
!
! Purpose: Sets the degree for the file close behavior.
!
-! Inputs:
+! Inputs:
! fapl_id - file access property list identifier
! degree - one of the following:
! Possible values are:
@@ -2790,26 +2790,26 @@
! H5F_CLOSE_WEAK_F
! H5F_CLOSE_SEMI_F
! H5F_CLOSE_STRONG_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! September 26, 2002
+! September 26, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fclose_degree_f(fapl_id, degree, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: fapl_id ! File Access Property list identifier
INTEGER, INTENT(IN) :: degree ! Possible values
- ! are:
+ ! are:
! H5F_CLOSE_DEFAULT_F
! H5F_CLOSE_WEAK_F
! H5F_CLOSE_SEMI_F
@@ -2828,38 +2828,38 @@
END FUNCTION h5pset_fclose_degree_c
END INTERFACE
- hdferr = h5pset_fclose_degree_c(fapl_id, degree)
+ hdferr = h5pset_fclose_degree_c(fapl_id, degree)
END SUBROUTINE h5pset_fclose_degree_f
!----------------------------------------------------------------------
-! Name: h5pequal_f
+! Name: h5pequal_f
!
! Purpose: Checks if two property lists are eqaul
!
-! Inputs:
+! Inputs:
! plist1_id - property list identifier
! plist2_id - property list identifier
-! Outputs:
+! Outputs:
! flag - flag, possible values
! .TRUE. or .FALSE.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1, flag is set to .FALSE.
+! Failure: -1, flag is set to .FALSE.
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! September 30, 2002
+! September 30, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pequal_f(plist1_id, plist2_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist1_id ! Property list identifier
- INTEGER(HID_T), INTENT(IN) :: plist2_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist1_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist2_id ! Property list identifier
LOGICAL, INTENT(OUT) :: flag ! Flag
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: c_flag
@@ -2877,38 +2877,38 @@
END INTERFACE
flag = .FALSE.
- hdferr = h5pequal_c(plist1_id, plist2_id, c_flag)
+ hdferr = h5pequal_c(plist1_id, plist2_id, c_flag)
if (c_flag .GT. 0) flag = .TRUE.
END SUBROUTINE h5pequal_f
!----------------------------------------------------------------------
-! Name: h5pset_buffer_f
+! Name: h5pset_buffer_f
!
! Purpose: Sets sixe for conversion buffer
!
-! Inputs:
+! Inputs:
! plist_id - data transfer property list identifier
-! size - buffer size
-! Outputs:
-! hdferr: - error code
+! size - buffer size
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 2, 2002
+! October 2, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_buffer_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier
- INTEGER(HSIZE_T), INTENT(IN) :: size ! Buffer size in bytes;
- ! buffer is allocated and freed by
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: size ! Buffer size in bytes;
+ ! buffer is allocated and freed by
! the library.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2923,37 +2923,37 @@
END FUNCTION h5pset_buffer_c
END INTERFACE
- hdferr = h5pset_buffer_c(plist_id, size)
+ hdferr = h5pset_buffer_c(plist_id, size)
END SUBROUTINE h5pset_buffer_f
!----------------------------------------------------------------------
-! Name: h5pget_buffer_f
+! Name: h5pget_buffer_f
!
! Purpose: Gets size for conversion buffer
!
-! Inputs:
+! Inputs:
! plist_id - data transfer property list identifier
-! Outputs:
-! size - buffer size
-! hdferr: - error code
+! Outputs:
+! size - buffer size
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 2, 2002
+! October 2, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_buffer_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier
- INTEGER(HSIZE_T), INTENT(OUT) :: size ! Buffer size in bytes;
- ! buffer is allocated and freed by
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Data transfer property list identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: size ! Buffer size in bytes;
+ ! buffer is allocated and freed by
! the library.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2968,7 +2968,7 @@
END FUNCTION h5pget_buffer_c
END INTERFACE
- hdferr = h5pget_buffer_c(plist_id, size)
+ hdferr = h5pget_buffer_c(plist_id, size)
END SUBROUTINE h5pget_buffer_f
!----------------------------------------------------------------------
@@ -2976,34 +2976,34 @@
!
! Purpose: Check if fill value is defined.
!
-! Inputs:
+! Inputs:
! plist_id - dataset creation property list identifier
-! Outputs:
+! Outputs:
! flag - fill value status flag
! Possible values are:
! H5D_FILL_VALUE_ERROR_F
! H5D_FILL_VALUE_UNDEFINED_F
! H5D_FILL_VALUE_DEFAULT_F
! H5D_FILL_VALUE_USER_DEFINED_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 4, 2002
+! October 4, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pfill_value_defined_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(OUT) :: flag
- INTEGER, INTENT(OUT) :: hdferr
+ INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pfill_value_defined_c(plist_id, flag)
@@ -3016,7 +3016,7 @@
END FUNCTION h5pfill_value_defined_c
END INTERFACE
- hdferr = h5pfill_value_defined_c(plist_id, flag)
+ hdferr = h5pfill_value_defined_c(plist_id, flag)
END SUBROUTINE h5pfill_value_defined_f
!----------------------------------------------------------------------
@@ -3024,7 +3024,7 @@
!
! Purpose: Set space allocation time for dataset during creation.
!
-! Inputs:
+! Inputs:
! plist_id - dataset creation property list identifier
! flag - allocation time flag
! Possible values are:
@@ -3033,26 +3033,26 @@
! H5D_ALLOC_TIME_EARLY_F
! H5D_ALLOC_TIME_LATE_F
! H5D_ALLOC_TIME_INCR_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 4, 2002
+! October 4, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_alloc_time_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(IN) :: flag
- INTEGER, INTENT(OUT) :: hdferr
+ INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pset_alloc_time_c(plist_id, flag)
@@ -3065,7 +3065,7 @@
END FUNCTION h5pset_alloc_time_c
END INTERFACE
- hdferr = h5pset_alloc_time_c(plist_id, flag)
+ hdferr = h5pset_alloc_time_c(plist_id, flag)
END SUBROUTINE h5pset_alloc_time_f
!----------------------------------------------------------------------
@@ -3073,9 +3073,9 @@
!
! Purpose: Get space allocation time for dataset during creation.
!
-! Inputs:
+! Inputs:
! plist_id - dataset creation property list identifier
-! Outputs:
+! Outputs:
! flag - allocation time flag
! Possible values are:
! H5D_ALLOC_TIME_ERROR_F
@@ -3083,25 +3083,25 @@
! H5D_ALLOC_TIME_EARLY_F
! H5D_ALLOC_TIME_LATE_F
! H5D_ALLOC_TIME_INCR_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 4, 2002
+! October 4, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_alloc_time_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(OUT) :: flag
- INTEGER, INTENT(OUT) :: hdferr
+ INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pget_alloc_time_c(plist_id, flag)
@@ -3114,7 +3114,7 @@
END FUNCTION h5pget_alloc_time_c
END INTERFACE
- hdferr = h5pget_alloc_time_c(plist_id, flag)
+ hdferr = h5pget_alloc_time_c(plist_id, flag)
END SUBROUTINE h5pget_alloc_time_f
!----------------------------------------------------------------------
@@ -3122,33 +3122,33 @@
!
! Purpose: Set fill value writing time for dataset
!
-! Inputs:
+! Inputs:
! plist_id - dataset creation property list identifier
! flag - fill time flag
! Possible values are:
! H5D_FILL_TIME_ERROR_F
! H5D_FILL_TIME_ALLOC_F
! H5D_FILL_TIME_NEVER_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 4, 2002
+! October 4, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fill_time_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(IN) :: flag
- INTEGER, INTENT(OUT) :: hdferr
+ INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pset_fill_time_c(plist_id, flag)
@@ -3161,7 +3161,7 @@
END FUNCTION h5pset_fill_time_c
END INTERFACE
- hdferr = h5pset_fill_time_c(plist_id, flag)
+ hdferr = h5pset_fill_time_c(plist_id, flag)
END SUBROUTINE h5pset_fill_time_f
!----------------------------------------------------------------------
@@ -3169,10 +3169,10 @@
!
! Purpose: Get fill value writing time for dataset
!
-! Inputs:
+! Inputs:
! plist_id - dataset creation property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
@@ -3184,18 +3184,18 @@
! NONE
!
! Programmer: Elena Pourmal
-! October 4, 2002
+! October 4, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fill_time_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(OUT) :: flag
- INTEGER, INTENT(OUT) :: hdferr
+ INTEGER, INTENT(OUT) :: hdferr
INTERFACE
INTEGER FUNCTION h5pget_fill_time_c(plist_id, flag)
@@ -3208,36 +3208,36 @@
END FUNCTION h5pget_fill_time_c
END INTERFACE
- hdferr = h5pget_fill_time_c(plist_id, flag)
+ hdferr = h5pget_fill_time_c(plist_id, flag)
END SUBROUTINE h5pget_fill_time_f
!----------------------------------------------------------------------
-! Name: h5pset_meta_block_size_f
+! Name: h5pset_meta_block_size_f
!
-! Purpose: Sets the minimum size of metadata block allocations
+! Purpose: Sets the minimum size of metadata block allocations
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
! size - metatdata block size
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_meta_block_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
- INTEGER(HSIZE_T), INTENT(IN) :: size ! Block size in bytes;
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: size ! Block size in bytes;
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -3251,36 +3251,36 @@
END FUNCTION h5pset_meta_block_size_c
END INTERFACE
- hdferr = h5pset_meta_block_size_c(plist_id, size)
+ hdferr = h5pset_meta_block_size_c(plist_id, size)
END SUBROUTINE h5pset_meta_block_size_f
!----------------------------------------------------------------------
-! Name: h5pget_meta_block_size_f
+! Name: h5pget_meta_block_size_f
!
-! Purpose: Gets the minimum size of metadata block allocations
+! Purpose: Gets the minimum size of metadata block allocations
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
-! Outputs:
+! Outputs:
! size - metatdata block size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_meta_block_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
- INTEGER(HSIZE_T), INTENT(OUT) :: size ! Block size in bytes;
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: size ! Block size in bytes;
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -3294,36 +3294,36 @@
END FUNCTION h5pget_meta_block_size_c
END INTERFACE
- hdferr = h5pget_meta_block_size_c(plist_id, size)
+ hdferr = h5pget_meta_block_size_c(plist_id, size)
END SUBROUTINE h5pget_meta_block_size_f
!----------------------------------------------------------------------
-! Name: h5pset_sieve_buf_size_f
+! Name: h5pset_sieve_buf_size_f
!
! Purpose: Sets the maximum size of the data sieve buffer
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
! size - sieve buffer size
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_sieve_buf_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
- INTEGER(SIZE_T), INTENT(IN) :: size ! Buffer size in bytes;
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Buffer size in bytes;
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -3337,36 +3337,36 @@
END FUNCTION h5pset_sieve_buf_size_c
END INTERFACE
- hdferr = h5pset_sieve_buf_size_c(plist_id, size)
+ hdferr = h5pset_sieve_buf_size_c(plist_id, size)
END SUBROUTINE h5pset_sieve_buf_size_f
!----------------------------------------------------------------------
-! Name: h5pget_sieve_buf_size_f
+! Name: h5pget_sieve_buf_size_f
!
! Purpose: Gets the maximum size of the data sieve buffer
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
-! Outputs:
+! Outputs:
! size - sieve buffer size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_sieve_buf_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
- INTEGER(SIZE_T), INTENT(OUT) :: size ! Buffer size in bytes
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: size ! Buffer size in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -3380,35 +3380,35 @@
END FUNCTION h5pget_sieve_buf_size_c
END INTERFACE
- hdferr = h5pget_sieve_buf_size_c(plist_id, size)
+ hdferr = h5pget_sieve_buf_size_c(plist_id, size)
END SUBROUTINE h5pget_sieve_buf_size_f
!----------------------------------------------------------------------
-! Name: h5pset_small_data_block_size_f
+! Name: h5pset_small_data_block_size_f
!
! Purpose: Sets the minimum size of "small" raw data block
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
! size - small raw data block size
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_small_data_block_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
INTEGER(HSIZE_T), INTENT(IN) :: size ! Small raw data block size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3423,35 +3423,35 @@
END FUNCTION h5pset_small_data_block_size_c
END INTERFACE
- hdferr = h5pset_small_data_block_size_c(plist_id, size)
+ hdferr = h5pset_small_data_block_size_c(plist_id, size)
END SUBROUTINE h5pset_small_data_block_size_f
!----------------------------------------------------------------------
-! Name: h5pget_small_data_block_size_f
+! Name: h5pget_small_data_block_size_f
!
! Purpose: Gets the minimum size of "small" raw data block
!
-! Inputs:
+! Inputs:
! plist_id - file access property list identifier
-! Outputs:
+! Outputs:
! size - small raw data block size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_small_data_block_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File access property list identifier
INTEGER(HSIZE_T), INTENT(OUT) :: size ! Small raw data block size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3466,35 +3466,35 @@
END FUNCTION h5pget_small_data_block_size_c
END INTERFACE
- hdferr = h5pget_small_data_block_size_c(plist_id, size)
+ hdferr = h5pget_small_data_block_size_c(plist_id, size)
END SUBROUTINE h5pget_small_data_block_size_f
!----------------------------------------------------------------------
-! Name: h5pset_hyper_vector_size_f
+! Name: h5pset_hyper_vector_size_f
!
! Purpose: Set the number of "I/O" vectors (vector size)
!
-! Inputs:
+! Inputs:
! plist_id - dataset transfer property list identifier
! size - vector size
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_hyper_vector_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier
INTEGER(SIZE_T), INTENT(IN) :: size ! Vector size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3509,35 +3509,35 @@
END FUNCTION h5pset_hyper_vector_size_c
END INTERFACE
- hdferr = h5pset_hyper_vector_size_c(plist_id, size)
+ hdferr = h5pset_hyper_vector_size_c(plist_id, size)
END SUBROUTINE h5pset_hyper_vector_size_f
!----------------------------------------------------------------------
-! Name: h5pget_hyper_vector_size_f
+! Name: h5pget_hyper_vector_size_f
!
! Purpose: Get the number of "I/O" vectors (vector size)
!
-! Inputs:
+! Inputs:
! plist_id - dataset transfer property list identifier
-! Outputs:
+! Outputs:
! size - vector size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 7, 2002
+! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_hyper_vector_size_f(plist_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset transfer property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: size ! Vector size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3552,36 +3552,36 @@
END FUNCTION h5pget_hyper_vector_size_c
END INTERFACE
- hdferr = h5pget_hyper_vector_size_c(plist_id, size)
+ hdferr = h5pget_hyper_vector_size_c(plist_id, size)
END SUBROUTINE h5pget_hyper_vector_size_f
!----------------------------------------------------------------------
-! Name: h5pset_integer
+! Name: h5pset_integer
!
! Purpose: Sets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! value - value to set property to
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_integer(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
INTEGER, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3610,28 +3610,28 @@
!
! Purpose: Sets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! value - value to set property to
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_real(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
REAL, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3661,28 +3661,28 @@
!
! Purpose: Sets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! value - value to set property to
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_char(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
CHARACTER(LEN=*), INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3711,32 +3711,32 @@
END SUBROUTINE h5pset_char
!----------------------------------------------------------------------
-! Name: h5pget_integer
+! Name: h5pget_integer
!
! Purpose: Gets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
-! Outputs:
+! Outputs:
! value - value of property
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_integer(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
INTEGER, INTENT(OUT) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3765,28 +3765,28 @@
!
! Purpose: Gets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
-! Outputs:
+! Outputs:
! value - value of property
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_real(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
REAL, INTENT(OUT) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3816,28 +3816,28 @@
!
! Purpose: Gets a property list value
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
-! Outputs:
+! Outputs:
! value - value of property
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_char(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
CHARACTER(LEN=*), INTENT(OUT) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3866,32 +3866,32 @@
END SUBROUTINE h5pget_char
!----------------------------------------------------------------------
-! Name: h5pexist_f
+! Name: h5pexist_f
!
-! Purpose: Queries whether a property name exists in a property list or class.
+! Purpose: Queries whether a property name exists in a property list or class.
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to query
! name - name of property to check for
-! Outputs:
+! Outputs:
! flag - logical flag
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pexist_f(prp_id, name, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
LOGICAL, INTENT(OUT) :: flag ! .TRUE. if exists, .FALSE.
! otherwise
@@ -3920,32 +3920,32 @@
END SUBROUTINE h5pexist_f
!----------------------------------------------------------------------
-! Name: h5pget_size_f
+! Name: h5pget_size_f
!
! Purpose: Queries the size of a property value in bytes.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier to query
! name - name of property to query
-! Outputs:
+! Outputs:
! size - size of property in bytes
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_size_f(prp_id, name, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to query
INTEGER(SIZE_T), INTENT(OUT) :: size ! Size in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -3969,31 +3969,31 @@
END SUBROUTINE h5pget_size_f
!----------------------------------------------------------------------
-! Name: h5pget_npros_f
+! Name: h5pget_npros_f
!
! Purpose: Queries number of properties in property list or class
!
-! Inputs:
+! Inputs:
! prp_id - iproperty list identifier to query
-! Outputs:
+! Outputs:
! nprops - number of properties in property object
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_nprops_f(prp_id, nprops, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: nprops ! iNumber of properties
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -4011,13 +4011,13 @@
END SUBROUTINE h5pget_nprops_f
!----------------------------------------------------------------------
-! Name: h5pget_class_name_f
+! Name: h5pget_class_name_f
!
! Purpose: Queries the name of a class.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier to query
-! Outputs:
+! Outputs:
! name - name of a class
! size - Actual length of the class name
! If provided buffer "name" is smaller,
@@ -4025,23 +4025,23 @@
! provided user buffer
! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications: Returned the size of name as an argument
+! Modifications: Returned the size of name as an argument
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_class_name_f(prp_id, name, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(OUT) :: name ! Buffer to retireve class name
-
+
INTEGER, INTENT(OUT) :: size ! Actual length of the class name
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4068,34 +4068,34 @@
END SUBROUTINE h5pget_class_name_f
!----------------------------------------------------------------------
-! Name: h5pget_class_parent_f
+! Name: h5pget_class_parent_f
!
-! Purpose: Retrieves the parent class of a genric property class.
+! Purpose: Retrieves the parent class of a genric property class.
!
-! Inputs:
+! Inputs:
! prp_id - property list identifier to query
-! Outputs:
+! Outputs:
! parent_id - identifier of the parent class
-! hdferr: - error code
-!
+! hdferr: - error code
+!
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_class_parent_f(prp_id, parent_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER(HID_T), INTENT(OUT) :: parent_id ! Parent class property list
- ! identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(OUT) :: parent_id ! Parent class property list
+ ! identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -4112,33 +4112,33 @@
END SUBROUTINE h5pget_class_parent_f
!----------------------------------------------------------------------
-! Name: h5pisa_class_f
+! Name: h5pisa_class_f
!
-! Purpose: Determines whether a property list is a member of a class.
+! Purpose: Determines whether a property list is a member of a class.
!
-! Inputs:
-! plist - property list identifier
+! Inputs:
+! plist - property list identifier
! pclass - identifier of the property class
-! Outputs:
+! Outputs:
! flag - .TRUE. if a member, .FALSE. otherwise
-! hdferr: - error code
-!
+! hdferr: - error code
+!
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pisa_class_f(plist, pclass, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist ! Property list identifier
INTEGER(HID_T), INTENT(IN) :: pclass ! Class identifier
LOGICAL, INTENT(OUT) :: flag ! logical flag
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -4162,35 +4162,35 @@
END SUBROUTINE h5pisa_class_f
!----------------------------------------------------------------------
-! Name: h5pcopy_prop_f
+! Name: h5pcopy_prop_f
!
! Purpose: Copies a property from one list or class to another.
!
-! Inputs:
+! Inputs:
! dst_id - Identifier of the destination property list
-! src_id - Identifier of the source property list
+! src_id - Identifier of the source property list
! name - name of the property to copy
-! Outputs:
-! hdferr: - error code
-!
-! Success: 0
-! Failure: -1
+! Outputs:
+! hdferr: - error code
+!
+! Success: 0
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pcopy_prop_f(dst_id, src_id, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: dst_id ! Destination property list
- ! identifier
- INTEGER(HID_T), INTENT(IN) :: src_id ! Source property list identifier
+ INTEGER(HID_T), INTENT(IN) :: dst_id ! Destination property list
+ ! identifier
+ INTEGER(HID_T), INTENT(IN) :: src_id ! Source property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Property name
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4213,28 +4213,28 @@
END SUBROUTINE h5pcopy_prop_f
!----------------------------------------------------------------------
-! Name: h5premove_f
+! Name: h5premove_f
!
-! Purpose: Removes a property from a property list.
+! Purpose: Removes a property from a property list.
!
-! Inputs:
+! Inputs:
! plid - Property list identofoer
! name - name of the property to remove
-! Outputs:
-! hdferr: - error code
-!
-! Success: 0
-! Failure: -1
+! Outputs:
+! hdferr: - error code
+!
+! Success: 0
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5premove_f(plid, name, hdferr)
@@ -4251,7 +4251,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PREMOVE_C'::h5premove_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
- INTEGER(HID_T), INTENT(IN) :: plid
+ INTEGER(HID_T), INTENT(IN) :: plid
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
END FUNCTION h5premove_c
@@ -4261,28 +4261,28 @@
END SUBROUTINE h5premove_f
!----------------------------------------------------------------------
-! Name: h5punregister_f
+! Name: h5punregister_f
!
-! Purpose: Removes a property from a property list class.
+! Purpose: Removes a property from a property list class.
!
-! Inputs:
+! Inputs:
! class - Property list class identifier
! name - name of the property to remove
-! Outputs:
-! hdferr: - error code
-!
-! Success: 0
-! Failure: -1
+! Outputs:
+! hdferr: - error code
+!
+! Success: 0
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5punregister_f(class, name, hdferr)
@@ -4309,27 +4309,27 @@
END SUBROUTINE h5punregister_f
!----------------------------------------------------------------------
-! Name: h5pclose_class_f
+! Name: h5pclose_class_f
!
-! Purpose: Closes an existing property list class.
+! Purpose: Closes an existing property list class.
!
-! Inputs:
+! Inputs:
! class - Property list class identifier
-! Outputs:
-! hdferr: - error code
-!
-! Success: 0
-! Failure: -1
+! Outputs:
+! hdferr: - error code
+!
+! Success: 0
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pclose_class_f(class, hdferr)
@@ -4350,12 +4350,12 @@
END SUBROUTINE h5pclose_class_f
!----------------------------------------------------------------------
-! Name: h5pcreate_class_f
+! Name: h5pcreate_class_f
!
! Purpose: Create a new property list class
!
-! Inputs:
+! Inputs:
! parent - Property list identifier of the parent class
! Possible values include:
! H5P_ROOT_F
@@ -4365,35 +4365,35 @@
! H5P_DATASET_XFER_F
! H5P_FILE_MOUNT_F
! name - name of the class we are creating
-! Outputs:
+! Outputs:
! class - porperty list class identifier
-! hdferr: - error code
-!
-! Success: 0
-! Failure: -1
+! hdferr: - error code
+!
+! Success: 0
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 9, 2002
+! October 9, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pcreate_class_f(parent, name, class, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: parent ! parent property list class
+ INTEGER(HID_T), INTENT(IN) :: parent ! parent property list class
! identifier
- CHARACTER(LEN=*), INTENT(IN) :: name ! name of property tocreate
+ CHARACTER(LEN=*), INTENT(IN) :: name ! name of property tocreate
INTEGER(HID_T), INTENT(OUT) :: class ! property list class identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
INTERFACE
INTEGER FUNCTION h5pcreate_class_c(parent, name, name_len,&
- class)
+ class)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PCREATE_CLASS_C'::h5pcreate_class_c
@@ -4415,33 +4415,33 @@
!
! Purpose: Registers a permanent property with a property list class.
!
-! Inputs:
-! class - property list class to register
+! 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
+! value - default value for property in newly
! created property lists
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pregister_integer(class, name, size, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
+ 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
+ INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the property value
INTEGER, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4456,7 +4456,7 @@
INTEGER(HID_T), INTENT(IN) :: class
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
INTEGER, INTENT(IN) :: value
END FUNCTION h5pregister_integer_c
END INTERFACE
@@ -4470,33 +4470,33 @@
!
! Purpose: Registers a permanent property with a property list class.
!
-! Inputs:
-! class - property list class to register
+! 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
+! value - default value for property in newly
! created property lists
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pregister_real(class, name, size, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
+ 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
+ INTEGER(SIZE_T), INTENT(IN) :: size ! size of the property value
REAL, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4511,7 +4511,7 @@
INTEGER(HID_T), INTENT(IN) :: class
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
REAL, INTENT(IN) :: value
END FUNCTION h5pregister_real_c
END INTERFACE
@@ -4525,33 +4525,33 @@
!
! Purpose: Registers a permanent property with a property list class.
!
-! Inputs:
-! class - property list class to register
+! 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
+! value - default value for property in newly
! created property lists
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pregister_char(class, name, size, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
+ 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
+ INTEGER(SIZE_T), INTENT(IN) :: size ! size of the property value
CHARACTER(LEN=*), INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4569,7 +4569,7 @@
INTEGER(HID_T), INTENT(IN) :: class
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
CHARACTER(LEN=*), INTENT(IN) :: value
INTEGER, INTENT(IN) :: value_len
END FUNCTION h5pregisterc_c
@@ -4585,31 +4585,31 @@
!
! Purpose: Registers a temporary property with a property list class.
!
-! Inputs:
+! Inputs:
! plist - property list identifier
! name - name of property to insert
! size - size of property in bytes
-! value - initial value for the property
-! Outputs:
-! hdferr: - error code
+! value - initial value for the property
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pinsert_integer(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
+ 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
INTEGER, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4624,7 +4624,7 @@
INTEGER(HID_T), INTENT(IN) :: plist
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
INTEGER, INTENT(IN) :: value
END FUNCTION h5pinsert_integer_c
END INTERFACE
@@ -4638,32 +4638,32 @@
!
! Purpose: Registers a temporary property with a property list class.
!
-! Inputs:
+! 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
+! value - initial value for the property
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pinsert_real(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
+ 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) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4678,7 +4678,7 @@
INTEGER(HID_T), INTENT(IN) :: plist
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
REAL, INTENT(IN) :: value
END FUNCTION h5pinsert_real_c
END INTERFACE
@@ -4693,32 +4693,32 @@
!
! Purpose: Registers a temporary property with a property list class.
!
-! Inputs:
+! 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
+! value - initial value for the property
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! October 10, 2002
+! October 10, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pinsert_char(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 property value
+ 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 property value
CHARACTER(LEN=*), INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -4735,7 +4735,7 @@
INTEGER(HID_T), INTENT(IN) :: plist
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
CHARACTER(LEN=*), INTENT(IN) :: value
INTEGER, INTENT(IN) :: value_len
END FUNCTION h5pinsertc_c
@@ -4747,31 +4747,31 @@
END SUBROUTINE h5pinsert_char
!----------------------------------------------------------------------
-! Name: h5pset_shuffle_f
+! Name: h5pset_shuffle_f
!
! Purpose: Sets shuffling filter
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_shuffle_f(prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_shuffle_c
@@ -4791,34 +4791,34 @@
END SUBROUTINE h5pset_shuffle_f
!----------------------------------------------------------------------
-! Name: h5pset_edc_check_f
+! Name: h5pset_edc_check_f
!
-! Purpose: Enables/disables error detecting
+! Purpose: Enables/disables error detecting
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
! flag - EDC flag; possible values:
! H5Z_DISABLE_EDC_F
! H5Z_ENABLE_EDC_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 13, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_edc_check_f(prp_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: flag ! Checksum filter flag
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -4832,7 +4832,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_EDC_CHECK_C'::h5pset_edc_check_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: flag
+ INTEGER, INTENT(IN) :: flag
END FUNCTION h5pset_edc_check_c
END INTERFACE
hdferr = h5pset_edc_check_c(prp_id, flag)
@@ -4840,31 +4840,31 @@
END SUBROUTINE h5pset_edc_check_f
!----------------------------------------------------------------------
-! Name: h5pget_edc_check_f
+! Name: h5pget_edc_check_f
!
-! Purpose: Queries error detecting
+! Purpose: Queries error detecting
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 13, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_edc_check_f(prp_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset transfer property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset transfer property list identifier
INTEGER, INTENT(OUT) :: flag ! Checksum filter flag
! May have one of the following values:
! H5Z_ERROR_EDC_F
@@ -4890,32 +4890,32 @@
END SUBROUTINE h5pget_edc_check_f
!----------------------------------------------------------------------
-! Name: h5pset_fletcher32_f
+! Name: h5pset_fletcher32_f
!
-! Purpose: Sets Fletcher32 checksum of EDC for a dataset creation
+! Purpose: Sets Fletcher32 checksum of EDC for a dataset creation
! property list.
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 13, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fletcher32_f(prp_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_fletcher32_c
@@ -4935,32 +4935,32 @@
END SUBROUTINE h5pset_fletcher32_f
!----------------------------------------------------------------------
-! Name: h5pset_family_offset_f
+! Name: h5pset_family_offset_f
!
! Purpose: Sets offset for family file driver.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
! offset - file offset
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! 19 March 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_family_offset_f(prp_id, offset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER(HSIZE_T), INTENT(IN) :: offset ! Offset in bytes
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -4974,7 +4974,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAMILY_OFFSET_C'::h5pset_family_offset_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER(HSIZE_T), INTENT(IN) :: offset
+ INTEGER(HSIZE_T), INTENT(IN) :: offset
END FUNCTION h5pset_family_offset_c
END INTERFACE
hdferr = h5pset_family_offset_c(prp_id, offset)
@@ -4982,35 +4982,35 @@
END SUBROUTINE h5pset_family_offset_f
!----------------------------------------------------------------------
-! Name: h5pset_fapl_multi_l
+! Name: h5pset_fapl_multi_l
!
-! Purpose: Sets up use of the multi-file driver.
+! Purpose: Sets up use of the multi-file driver.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
! mem_map - mapping array
! memb_fapl - property list for each memory usage type
! memb_name - names of member file
-! relax - flag
-! Outputs:
-! hdferr: - error code
+! relax - flag
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! 20 March 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_multi_l(prp_id, memb_map, memb_fapl, memb_name, memb_addr, relax, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_map
INTEGER(HID_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_fapl
CHARACTER(LEN=*), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_name
@@ -5034,7 +5034,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_MULTI_C'::h5pset_fapl_multi_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: memb_name
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_map
INTEGER(HID_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_fapl
CHARACTER(LEN=*), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(IN) :: memb_name
@@ -5051,36 +5051,36 @@
enddo
flag = 0
if (relax) flag = 1
- hdferr = h5pset_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, maxlen, memb_addr, flag)
+ hdferr = h5pset_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, maxlen, memb_addr, flag)
END SUBROUTINE h5pset_fapl_multi_l
!----------------------------------------------------------------------
-! Name: h5pset_fapl_multi_s
+! Name: h5pset_fapl_multi_s
!
-! Purpose: Sets up use of the multi-file driver.
+! Purpose: Sets up use of the multi-file driver.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! relax - flag
-! Outputs:
-! hdferr: - error code
+! relax - flag
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! 31 March 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_multi_s(prp_id, relax, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
LOGICAL, INTENT(IN) :: relax
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag
@@ -5089,61 +5089,61 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pset_fapl_multi_sc(prp_id,flag)
+ INTEGER FUNCTION h5pset_fapl_multi_sc(prp_id,flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_MULTI_SC'::h5pset_fapl_multi_sc
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, INTENT(IN) :: flag
END FUNCTION h5pset_fapl_multi_sc
END INTERFACE
flag = 0
if (relax) flag = 1
- hdferr = h5pset_fapl_multi_sc(prp_id, flag)
+ hdferr = h5pset_fapl_multi_sc(prp_id, flag)
END SUBROUTINE h5pset_fapl_multi_s
!----------------------------------------------------------------------
-! Name: h5pget_fapl_multi_f
+! Name: h5pget_fapl_multi_f
!
-! Purpose: Sets up use of the multi-file driver.
+! Purpose: Sets up use of the multi-file driver.
!
-! Inputs:
+! Inputs:
! prp_id - file creation property list identifier
-! Outputs:
+! Outputs:
! mem_map - mapping array
! memb_fapl - property list for each memory usage type
! memb_name - names of member file
-! relax - flag
-! hdferr: - error code
+! relax - flag
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! maxlen_out - maximum length for memb_name array element
+! maxlen_out - maximum length for memb_name array element
!
! Programmer: Elena Pourmal
! 24 March 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fapl_multi_f(prp_id, memb_map, memb_fapl, memb_name, memb_addr, relax, hdferr, maxlen_out)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(OUT) :: memb_map
INTEGER(HID_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(OUT) :: memb_fapl
CHARACTER(LEN=*), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(OUT) :: memb_name
!INTEGER(HADDR_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(OUT) :: memb_addr
REAL, DIMENSION(0:H5FD_MEM_NTYPES_F-1), INTENT(OUT) :: memb_addr
- INTEGER, OPTIONAL, INTENT(OUT) :: maxlen_out
+ INTEGER, OPTIONAL, INTENT(OUT) :: maxlen_out
LOGICAL, INTENT(OUT) :: relax
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: lenm
INTEGER :: maxlen
- INTEGER :: c_maxlen_out
+ INTEGER :: c_maxlen_out
INTEGER :: flag
INTEGER :: i
@@ -5158,14 +5158,14 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_MULTI_C'::h5pget_fapl_multi_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: memb_name
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_map
INTEGER(HID_T), DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_fapl
CHARACTER(LEN=*), DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_name
REAL, DIMENSION(H5FD_MEM_NTYPES_F), INTENT(OUT) :: memb_addr
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: lenm
INTEGER :: maxlen
- INTEGER :: c_maxlen_out
+ INTEGER :: c_maxlen_out
INTEGER, INTENT(OUT) :: flag
END FUNCTION h5pget_fapl_multi_c
END INTERFACE
@@ -5173,40 +5173,40 @@
do i=0, H5FD_MEM_NTYPES_F-1
lenm(i) = LEN_TRIM(memb_name(i))
enddo
- hdferr = h5pget_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, maxlen, memb_addr, flag, c_maxlen_out)
+ hdferr = h5pget_fapl_multi_c(prp_id, memb_map, memb_fapl, memb_name, lenm, maxlen, memb_addr, flag, c_maxlen_out)
relax = .TRUE.
- if(flag .eq. 0) relax = .FALSE.
+ if(flag .eq. 0) relax = .FALSE.
if(present(maxlen_out)) maxlen_out = c_maxlen_out
END SUBROUTINE h5pget_fapl_multi_f
!----------------------------------------------------------------------
-! Name: h5pset_szip_f
+! Name: h5pset_szip_f
!
! Purpose: Sets up use of szip compression
!
-! Inputs:
+! Inputs:
! prp_id - dataset creation property list identifier
! options_mask
! pixels_per_block - szip parameters
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! April 10 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pset_szip_f(prp_id, options_mask, pixels_per_block, hdferr)
+ SUBROUTINE h5pset_szip_f(prp_id, options_mask, pixels_per_block, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property
- ! list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property
+ ! list identifier
INTEGER, INTENT(IN) :: options_mask
INTEGER, INTENT(IN) :: pixels_per_block
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -5215,50 +5215,50 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pset_szip_c(prp_id, options_mask, pixels_per_block)
+ INTEGER FUNCTION h5pset_szip_c(prp_id, options_mask, pixels_per_block)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_SZIP_C'::h5pset_szip_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, INTENT(IN) :: options_mask
INTEGER, INTENT(IN) :: pixels_per_block
END FUNCTION h5pset_szip_c
END INTERFACE
- hdferr = h5pset_szip_c(prp_id, options_mask, pixels_per_block)
+ hdferr = h5pset_szip_c(prp_id, options_mask, pixels_per_block)
END SUBROUTINE h5pset_szip_f
!----------------------------------------------------------------------
-! Name: h5pall_filters_avail_f
+! Name: h5pall_filters_avail_f
!
! Purpose: Checks if all filters set in the dataset creation
! property list are available
!
-! Inputs:
+! Inputs:
! prp_id - data creation property list identifier
-! Outputs:
+! Outputs:
! flag - .TRUE. if all filters are available
! .FALSE. otherwise
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! April 10 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pall_filters_avail_f(prp_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property
- ! list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Dataset creation property
+ ! list identifier
LOGICAL, INTENT(OUT) :: flag
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: status
@@ -5267,30 +5267,30 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pall_filters_avail_c(prp_id, status)
+ INTEGER FUNCTION h5pall_filters_avail_c(prp_id, status)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PALL_FILTERS_AVAIL_C'::h5pall_filters_avail_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! File creation property list identifier
INTEGER, INTENT(OUT) :: status
END FUNCTION h5pall_filters_avail_c
END INTERFACE
flag = .TRUE.
- hdferr = h5pall_filters_avail_c(prp_id, status)
+ hdferr = h5pall_filters_avail_c(prp_id, status)
if (status .eq. 0 ) flag = .FALSE.
END SUBROUTINE h5pall_filters_avail_f
!----------------------------------------------------------------------
-! Name: h5pget_filter_by_id_f
+! Name: h5pget_filter_by_id_f
!
! Purpose: Returns information about a filter in a pipeline
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
-! Outputs:
+! Outputs:
! filter_id - filter identifier
! flags - bit vector specifying certain general
! properties of the filter
@@ -5298,23 +5298,23 @@
! cd_values - auxiliary data for the filter
! namelen - number of characters in the name buffer
! name - buffer to retrieve filter name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! April 10 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_filter_by_id_f(prp_id, filter_id, flags, cd_nelmts, cd_values, namelen, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: filter_id ! Filter identifier
INTEGER(SIZE_T), INTENT(INOUT) :: cd_nelmts !Number of elements in cd_values.
@@ -5339,50 +5339,50 @@
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: filter_id
+ INTEGER, INTENT(IN) :: filter_id
INTEGER, DIMENSION(*), INTENT(OUT) :: cd_values
- INTEGER, INTENT(OUT) :: flags
+ INTEGER, INTENT(OUT) :: flags
INTEGER(SIZE_T), INTENT(INOUT) :: cd_nelmts
INTEGER(SIZE_T), INTENT(IN) :: namelen
CHARACTER(LEN=*), INTENT(OUT) :: name
END FUNCTION h5pget_filter_by_id_c
END INTERFACE
- hdferr = h5pget_filter_by_id_c(prp_id, filter_id, flags, cd_nelmts, &
+ hdferr = h5pget_filter_by_id_c(prp_id, filter_id, flags, cd_nelmts, &
cd_values, namelen, name)
END SUBROUTINE h5pget_filter_by_id_f
!----------------------------------------------------------------------
-! Name: h5pmodify_filter_f
+! Name: h5pmodify_filter_f
!
-! Purpose: Adds a filter to the filter pipeline.
+! Purpose: Adds a filter to the filter pipeline.
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
! filter - filter to be modified
! flags - bit vector specifying certain general
! properties of the filter
! cd_nelmts - number of elements in cd_values
! cd_values - auxiliary data for the filter
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! April 10 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pmodify_filter_f(prp_id, filter, flags, cd_nelmts, cd_values, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
INTEGER, INTENT(IN) :: filter !Filter to be modified
INTEGER, INTENT(IN) :: flags !Bit vector specifying certain general
!properties of the filter.
@@ -5400,11 +5400,11 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PMODIFY_FILTER_C'::h5pmodify_filter_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: filter
- INTEGER, INTENT(IN) :: flags
- INTEGER(SIZE_T), INTENT(IN) :: cd_nelmts
- INTEGER, DIMENSION(*), INTENT(IN) :: cd_values
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER, INTENT(IN) :: filter
+ INTEGER, INTENT(IN) :: flags
+ INTEGER(SIZE_T), INTENT(IN) :: cd_nelmts
+ INTEGER, DIMENSION(*), INTENT(IN) :: cd_values
END FUNCTION h5pmodify_filter_c
END INTERFACE
@@ -5412,27 +5412,27 @@
END SUBROUTINE h5pmodify_filter_f
!----------------------------------------------------------------------
-! Name: h5premove_filter_f
+! Name: h5premove_filter_f
!
-! Purpose: Delete one or more filters from the filter pipeline.
+! Purpose: Delete one or more filters from the filter pipeline.
!
-! Inputs:
-! prp_id - data creation or transfer property list
+! Inputs:
+! prp_id - data creation or transfer property list
! identifier
! filter - filter to be removed
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Quincey Koziol
! January 27 2004
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5premove_filter_f(prp_id, filter, hdferr)
@@ -5451,8 +5451,8 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PREMOVE_FILTER_C'::h5premove_filter_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: filter
+ INTEGER(HID_T), INTENT(IN) :: prp_id
+ INTEGER, INTENT(IN) :: filter
END FUNCTION h5premove_filter_c
END INTERFACE
@@ -5460,29 +5460,29 @@
END SUBROUTINE h5premove_filter_f
!----------------------------------------------------------------------
-! Name: H5Pget_attr_phase_change_f
+! Name: H5Pget_attr_phase_change_f
!
-! Purpose: Retrieves attribute storage phase change thresholds
+! Purpose: Retrieves attribute storage phase change thresholds
!
-! Inputs:
+! Inputs:
! ocpl_id - Object (dataset or group) creation property list identifier
-! Outputs:
+! Outputs:
! max_compact - Maximum number of attributes to be stored in compact storage
! (Default: 8)
! min_dense - Minimum number of attributes to be stored in dense storage
! (Default: 6)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
@@ -5505,34 +5505,34 @@
INTEGER(HID_T), INTENT(IN) :: ocpl_id
INTEGER, INTENT(OUT) :: max_compact
INTEGER, INTENT(OUT) :: min_dense
-
+
END FUNCTION h5pget_attr_phase_change_c
END INTERFACE
-
+
hdferr = h5pget_attr_phase_change_c(ocpl_id, max_compact, min_dense)
END SUBROUTINE h5pget_attr_phase_change_f
!----------------------------------------------------------------------
-! Name: H5Pset_attr_creation_order_f
+! Name: H5Pset_attr_creation_order_f
!
! Purpose: Sets tracking and indexing of attribute creation order
!
-! Inputs:
+! Inputs:
! ocpl_id - Object creation property list identifier
! crt_order_flags - Flags specifying whether to track and index attribute creation order
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_attr_creation_order_f(ocpl_id, crt_order_flags , hdferr)
@@ -5552,41 +5552,41 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: ocpl_id
INTEGER, INTENT(IN) :: crt_order_flags
-
+
END FUNCTION H5Pset_attr_creation_order_c
END INTERFACE
-
+
hdferr = H5Pset_attr_creation_order_c(ocpl_id, crt_order_flags)
END SUBROUTINE h5pset_attr_creation_order_f
-
+
!----------------------------------------------------------------------
-! Name: H5Pset_shared_mesg_nindexes_f
+! Name: H5Pset_shared_mesg_nindexes_f
!
-! Purpose: Sets number of shared object header message indexes
+! Purpose: Sets number of shared object header message indexes
!
-! Inputs:
+! Inputs:
! plist_id - file creation property list
! nindexes - Number of shared object header message indexes to be available in files created with this property list
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_shared_mesg_nindexes_f( plist_id, nindexes, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist_id ! file creation property list
- INTEGER, INTENT(IN) :: nindexes ! Number of shared object header message indexes
+ INTEGER, INTENT(IN) :: nindexes ! Number of shared object header message indexes
! available in files created WITH this property list
INTEGER, INTENT(OUT) :: hdferr ! Error code
!
@@ -5598,41 +5598,41 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_SHARED_MESG_NINDEXES_C'::h5pset_shared_mesg_nindexes_c
!DEC$ENDIF
-
+
INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(IN) :: nindexes
-
+
END FUNCTION H5pset_shared_mesg_nindexes_c
END INTERFACE
-
- hdferr = h5pset_shared_mesg_nindexes_c(plist_id, nindexes)
+
+ hdferr = h5pset_shared_mesg_nindexes_c(plist_id, nindexes)
END SUBROUTINE h5pset_shared_mesg_nindexes_f
-
+
!----------------------------------------------------------------------
! Name: H5Pset_shared_mesg_index_f
!
! Purpose: Configures the specified shared object header message index
!
-! Inputs:
+! Inputs:
! fcpl_id - File creation property list identifier.
! index_num - Index being configured.
! mesg_type_flags - Types of messages that should be stored in this index.
! min_mesg_size - Minimum message size.
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_shared_mesg_index_f(fcpl_id, index_num, mesg_type_flags, min_mesg_size, hdferr)
@@ -5652,19 +5652,19 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_SHARED_MESG_INDEX_C'::h5pset_shared_mesg_index_c
!DEC$ENDIF
-
- INTEGER(HID_T), INTENT(IN) :: fcpl_id
+
+ INTEGER(HID_T), INTENT(IN) :: fcpl_id
INTEGER, INTENT(IN) :: index_num
INTEGER, INTENT(IN) :: mesg_type_flags
INTEGER, INTENT(IN) :: min_mesg_size
-
+
END FUNCTION H5pset_shared_mesg_index_c
END INTERFACE
-
- hdferr = h5pset_shared_mesg_index_c(fcpl_id, index_num, mesg_type_flags, min_mesg_size)
+
+ hdferr = h5pset_shared_mesg_index_c(fcpl_id, index_num, mesg_type_flags, min_mesg_size)
END SUBROUTINE h5pset_shared_mesg_index_f
-
+
!----------------------------------------------------------------------
! Name: H5Pget_attr_creation_order_f
!
@@ -5675,24 +5675,24 @@
!
! Outputs:
! crt_order_flags - Flags specifying whether to track and index attribute creation order
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_attr_creation_order_f(ocpl_id, crt_order_flags, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: ocpl_id ! Object (group or dataset) creation property list identifier
- INTEGER, INTENT(OUT) :: crt_order_flags ! Flags specifying whether to track and index attribute creation order
+ INTEGER(HID_T), INTENT(IN) :: ocpl_id ! Object (group or dataset) creation property list identifier
+ INTEGER, INTENT(OUT) :: crt_order_flags ! Flags specifying whether to track and index attribute creation order
INTEGER, INTENT(OUT) :: hdferr ! Error code
!
! MS FORTRAN needs explicit interface for C functions called here.
@@ -5706,7 +5706,7 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: ocpl_id
INTEGER, INTENT(OUT) :: crt_order_flags
-
+
END FUNCTION H5pget_attr_creation_order_c
END INTERFACE
@@ -5725,18 +5725,18 @@
! high - The latest version of the library that will be used for writing objects.
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 18, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_libver_bounds_f(fapl_id, low, high, hdferr)
@@ -5763,7 +5763,7 @@
INTEGER(HID_T), INTENT(IN) :: fapl_id
INTEGER, INTENT(IN) :: low
INTEGER, INTENT(IN) :: high
-
+
END FUNCTION H5pset_libver_bounds_c
END INTERFACE
@@ -5772,7 +5772,7 @@
END SUBROUTINE h5pset_libver_bounds_f
!----------------------------------------------------------------------
-! Name: H5Pset_link_creation_order_f
+! Name: H5Pset_link_creation_order_f
!
! Purpose: Sets creation order tracking and indexing for links in a group.
!
@@ -5781,18 +5781,18 @@
! crt_order_flags - Creation order flag(s)
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 18, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_link_creation_order_f(gcpl_id, crt_order_flags, hdferr)
@@ -5812,7 +5812,7 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(IN) :: crt_order_flags
-
+
END FUNCTION H5pset_link_creation_order_c
END INTERFACE
@@ -5825,23 +5825,23 @@
!
! Purpose: Queries the settings for conversion between compact and dense groups.
!
-! Inputs:
+! Inputs:
! gcpl_id - Group creation property list identifier
-! Outputs:
+! Outputs:
! max_compact - Maximum number of attributes to be stored in compact storage
! min_dense - Minimum number of attributes to be stored in dense storage
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 20, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_link_phase_change_f(gcpl_id, max_compact, min_dense, hdferr)
@@ -5862,7 +5862,7 @@
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: max_compact
INTEGER, INTENT(OUT) :: min_dense
-
+
END FUNCTION h5pget_link_phase_change_c
END INTERFACE
@@ -5870,33 +5870,33 @@
END SUBROUTINE h5pget_link_phase_change_f
!----------------------------------------------------------------------
-! Name: H5Pget_obj_track_times_f
+! Name: H5Pget_obj_track_times_f
!
! Purpose: Returns whether times are tracked for an object.
!
-! Inputs:
+! Inputs:
! plist_id - property list id
! flag - object timestamp setting
! .TRUE.,.FALSE.
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 22, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_obj_track_times_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset creation property
- ! list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset creation property
+ ! list identifier
LOGICAL, INTENT(OUT) :: flag ! Object timestamp setting
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: status
@@ -5904,27 +5904,27 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pget_obj_track_times_c(plist_id, status)
+ INTEGER FUNCTION h5pget_obj_track_times_c(plist_id, status)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_OBJ_TRACK_TIMES_C'::h5pget_obj_track_times_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File creation property list identifier
INTEGER, INTENT(OUT) :: status
END FUNCTION h5pget_obj_track_times_c
END INTERFACE
flag = .TRUE.
- hdferr = h5pget_obj_track_times_c(plist_id, status)
+ hdferr = h5pget_obj_track_times_c(plist_id, status)
IF(status.EQ.0) flag = .FALSE.
END SUBROUTINE h5pget_obj_track_times_f
!----------------------------------------------------------------------
-! Name: H5Pset_obj_track_times_f
+! Name: H5Pset_obj_track_times_f
!
! Purpose: Set whether the birth, access, modification & change times for
! an object are stored.
-!
+!
! Birth time is the time the object was created. Access time is
! the last time that metadata or raw data was read from this
! object. Modification time is the last time the data for
@@ -5933,34 +5933,34 @@
! time is the last time the metadata for this object was written
! (adding/modifying/deleting an attribute on an object, extending
! the size of a dataset, etc).
-!
+!
! If these times are not tracked, they will be reported as
! 12:00 AM UDT, Jan. 1, 1970 (i.e. 0 seconds past the UNIX
! epoch) when queried.
!
-! Inputs:
+! Inputs:
! plist_id - property list id
! flag - object timestamp setting
! .TRUE.,.FALSE.
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 22, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_obj_track_times_f(plist_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset creation property
- ! list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! Dataset creation property
+ ! list identifier
LOGICAL, INTENT(IN) :: flag ! Object timestamp setting
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: status
@@ -5968,12 +5968,12 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pset_obj_track_times_c(plist_id, status)
+ INTEGER FUNCTION h5pset_obj_track_times_c(plist_id, status)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_OBJ_TRACK_TIMES_C'::h5pset_obj_track_times_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: plist_id ! File creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: plist_id ! File creation property list identifier
INTEGER, INTENT(IN) :: status
END FUNCTION h5pset_obj_track_times_c
END INTERFACE
@@ -5990,38 +5990,38 @@
!
! Purpose: Specifies in property list whether to create missing intermediate groups.
!
-! Inputs:
+! Inputs:
! lcpl_id - Link creation property list identifier
-! crt_intermed_group - crt_intermed_group specifying whether
-! to create intermediate groups upon the creation
+! crt_intermed_group - crt_intermed_group specifying whether
+! to create intermediate groups upon the creation
! of an object
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! February 22, 2008
!
-! Modifications:
+! Modifications:
!
! Comment: The long subroutine name (>31) on older f90 compilers causes problems
-! so had to shorten the name
+! so had to shorten the name
!--------------------------------------------------------------------------------------
SUBROUTINE h5pset_create_inter_group_f(lcpl_id, crt_intermed_group, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: lcpl_id ! Link creation property list identifier
- INTEGER, INTENT(IN) :: crt_intermed_group ! specifying whether to create intermediate groups
+ INTEGER, INTENT(IN) :: crt_intermed_group ! specifying whether to create intermediate groups
! upon the creation of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
!
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pset_create_inter_group_c(lcpl_id, crt_intermed_group)
+ INTEGER FUNCTION h5pset_create_inter_group_c(lcpl_id, crt_intermed_group)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_CREATE_INTER_GROUP_C'::h5pset_create_inter_group_c
@@ -6045,18 +6045,18 @@
!
! Outputs:
! crt_order_flags - Creation order flag(s)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 3, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_link_creation_order_f(gcpl_id, crt_order_flags, hdferr)
@@ -6076,7 +6076,7 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: crt_order_flags
-
+
END FUNCTION H5pget_link_creation_order_c
END INTERFACE
@@ -6085,7 +6085,7 @@
END SUBROUTINE h5pget_link_creation_order_f
!----------------------------------------------------------------------
-! Name: H5Pset_char_encoding
+! Name: H5Pset_char_encoding
!
! Purpose: Sets the character encoding used to encode a string.
!
@@ -6096,24 +6096,24 @@
! H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 3, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_char_encoding_f(plist_id, encoding, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist_id ! Property list identifier
-
+
INTEGER, INTENT(IN) :: encoding ! String encoding character set:
! H5T_CSET_ASCII_F -> US ASCII
! H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
@@ -6130,7 +6130,7 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(IN) :: encoding
-
+
END FUNCTION H5pset_char_encoding_c
END INTERFACE
@@ -6139,7 +6139,7 @@
END SUBROUTINE h5pset_char_encoding_f
!----------------------------------------------------------------------
-! Name: H5Pget_char_encoding
+! Name: H5Pget_char_encoding
!
! Purpose: Retrieves the character encoding used to create a string
!
@@ -6150,24 +6150,24 @@
! encoding - Valid values for encoding are:
! H5T_CSET_ASCII_F -> US ASCII
! H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 3, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_char_encoding_f(plist_id, encoding, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist_id ! Property list identifier
-
+
INTEGER, INTENT(OUT) :: encoding ! Valid values for encoding are:
! H5T_CSET_ASCII_F -> US ASCII
! H5T_CSET_UTF8_F -> UTF-8 Unicode encoding
@@ -6184,7 +6184,7 @@
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(OUT) :: encoding
-
+
END FUNCTION H5pget_char_encoding_c
END INTERFACE
@@ -6193,17 +6193,17 @@
END SUBROUTINE h5pget_char_encoding_f
!----------------------------------------------------------------------
-! Name: h5pset_copy_object_f
+! Name: h5pset_copy_object_f
!
! Purpose: Sets properties to be used when an object is copied.
!
-! Inputs:
+! Inputs:
! ocp_plist_id - Object copy property list identifier
! copy_options - Copy option(s) to be set
-! Outputs:
-! hdferr - error code
+! Outputs:
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -6212,7 +6212,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_copy_object_f(ocp_plist_id, copy_options, hdferr)
@@ -6220,7 +6220,7 @@
INTEGER(HID_T), INTENT(IN) :: ocp_plist_id ! Object copy property list identifier
INTEGER, INTENT(IN) :: copy_options ! Copy option(s) to be set, valid options are:
! H5O_COPY_SHALLOW_HIERARCHY_F
- ! H5O_COPY_EXPAND_SOFT_LINK_F
+ ! H5O_COPY_EXPAND_SOFT_LINK_F
! H5O_COPY_EXPAND_EXT_LINK_F
! H5O_COPY_EXPAND_REFERENCE_F
! H5O_COPY_WITHOUT_ATTR_FLAG_F
@@ -6239,21 +6239,21 @@
INTEGER, INTENT(IN) :: copy_options
END FUNCTION h5pset_copy_object_c
END INTERFACE
- hdferr = h5pset_copy_object_c(ocp_plist_id, copy_options)
+ hdferr = h5pset_copy_object_c(ocp_plist_id, copy_options)
END SUBROUTINE h5pset_copy_object_f
!----------------------------------------------------------------------
-! Name: h5pget_copy_object_f
+! Name: h5pget_copy_object_f
!
! Purpose: Retrieves the properties to be used when an object is copied.
!
-! Inputs:
+! Inputs:
! ocp_plist_id - Object copy property list identifier
-! Outputs:
+! Outputs:
! copy_options - Copy option(s) to be get
-! hdferr - error code
+! hdferr - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -6262,7 +6262,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_copy_object_f(ocp_plist_id, copy_options, hdferr)
@@ -6270,7 +6270,7 @@
INTEGER(HID_T), INTENT(IN) :: ocp_plist_id ! Object copy property list identifier
INTEGER, INTENT(OUT) :: copy_options ! valid copy options returned are:
! H5O_COPY_SHALLOW_HIERARCHY_F
- ! H5O_COPY_EXPAND_SOFT_LINK_F
+ ! H5O_COPY_EXPAND_SOFT_LINK_F
! H5O_COPY_EXPAND_EXT_LINK_F
! H5O_COPY_EXPAND_REFERENCE_F
! H5O_COPY_WITHOUT_ATTR_FLAG_F
@@ -6288,22 +6288,22 @@
INTEGER, INTENT(OUT) :: copy_options
END FUNCTION h5pget_copy_object_c
END INTERFACE
- hdferr = h5pget_copy_object_c(ocp_plist_id, copy_options)
+ hdferr = h5pget_copy_object_c(ocp_plist_id, copy_options)
END SUBROUTINE h5pget_copy_object_f
!----------------------------------------------------------------------
-! Name: h5pget_data_transform_f
+! Name: h5pget_data_transform_f
!
! Purpose: Retrieves a data transform expression.
!
-! Inputs:
+! Inputs:
! plist_id - Identifier of the property list or class
-! Outputs:
+! Outputs:
! expression - buffer to hold transform expression
! hdferr - error code
! Success: Actual lenght of the expression
-! If provided buffer "expression" is
-! smaller, than expression will be
+! If provided buffer "expression" is
+! smaller, than expression will be
! truncated to fit into
! provided user buffer
! Failure: -1
@@ -6328,7 +6328,7 @@
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: expression_len
INTEGER(SIZE_T) :: size_default
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -6339,8 +6339,8 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_DATA_TRANSFORM_C'::h5pget_data_transform_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: expression
- INTEGER(HID_T), INTENT(IN) :: plist_id
- CHARACTER(LEN=*), INTENT(OUT) :: expression
+ INTEGER(HID_T), INTENT(IN) :: plist_id
+ CHARACTER(LEN=*), INTENT(OUT) :: expression
INTEGER(SIZE_T) :: size_default
INTEGER :: expression_len
END FUNCTION h5pget_data_transform_c
@@ -6356,14 +6356,14 @@
END SUBROUTINE h5pget_data_transform_f
!----------------------------------------------------------------------
-! Name: h5pset_data_transform_f
+! Name: h5pset_data_transform_f
!
! Purpose: Sets a data transform expression.
!
-! Inputs:
-! plist_id - Identifier of the property list or class
+! Inputs:
+! plist_id - Identifier of the property list or class
! expression - buffer to hold transform expression
-! Outputs:
+! Outputs:
! hdferr - error code
! Success: 0
! Failure: -1
@@ -6375,7 +6375,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_data_transform_f(plist_id, expression, hdferr)
@@ -6394,7 +6394,7 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_DATA_TRANSFORM_C'::h5pset_data_transform_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: expression
- INTEGER(HID_T), INTENT(IN) :: plist_id
+ INTEGER(HID_T), INTENT(IN) :: plist_id
CHARACTER(LEN=*), INTENT(IN) :: expression
INTEGER :: expression_len
END FUNCTION h5pset_data_transform_c
@@ -6406,11 +6406,11 @@
END SUBROUTINE h5pset_data_transform_f
!----------------------------------------------------------------------
-! Name: H5Pget_local_heap_size_hint_f
+! Name: H5Pget_local_heap_size_hint_f
!
! Purpose: Queries the local heap size hint for original-style groups.
!
-! Inputs:
+! Inputs:
! gcpl_id - Group creation property list identifier
! Outputs:
! size_hint - Hint for size of local heap
@@ -6425,7 +6425,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
@@ -6452,13 +6452,13 @@
END SUBROUTINE h5pget_local_heap_size_hint_f
!----------------------------------------------------------------------
-! Name: H5Pget_est_link_info_f
+! Name: H5Pget_est_link_info_f
!
! Purpose: Queries data required to estimate required local heap or object header size.
!
-! Inputs:
+! Inputs:
! gcpl_id - Group creation property list identifier
-! Outputs:
+! Outputs:
! est_num_entries - Estimated number of links to be inserted into group
! est_name_len - Estimated average length of link names
! hdferr - error code
@@ -6472,12 +6472,12 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: gcpl_id ! Group creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: gcpl_id ! Group creation property list identifier
INTEGER, INTENT(OUT) :: est_num_entries ! Estimated number of links to be inserted into group
INTEGER, INTENT(OUT) :: est_name_len ! Estimated average length of link names
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -6490,7 +6490,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_EST_LINK_INFO_C'::h5pget_est_link_info_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: gcpl_id
+ INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: est_num_entries
INTEGER, INTENT(OUT) :: est_name_len
END FUNCTION h5pget_est_link_info_c
@@ -6501,11 +6501,11 @@
END SUBROUTINE h5pget_est_link_info_f
!----------------------------------------------------------------------
-! Name: H5Pset_local_heap_size_hint_f
+! Name: H5Pset_local_heap_size_hint_f
!
! Purpose: Sets the local heap size hint for original-style groups.
!
-! Inputs:
+! Inputs:
! gcpl_id - Group creation property list identifier
! size_hint - Hint for size of local heap
! Outputs:
@@ -6520,7 +6520,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
@@ -6547,12 +6547,12 @@
END SUBROUTINE h5pset_local_heap_size_hint_f
!----------------------------------------------------------------------
-! Name: h5pset_est_link_info_f
+! Name: h5pset_est_link_info_f
!
! Purpose: Sets estimated number of links and length of link names in a group.
!
-! Inputs:
-! gcpl_id - Group creation property list identifier
+! Inputs:
+! gcpl_id - Group creation property list identifier
! est_num_entries - Estimated number of links to be inserted into group
! est_name_len - Estimated average length of link names
! Outputs:
@@ -6567,12 +6567,12 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: gcpl_id ! Group creation property list identifier
+ INTEGER(HID_T), INTENT(IN) :: gcpl_id ! Group creation property list identifier
INTEGER, INTENT(IN) :: est_num_entries ! Estimated number of links to be inserted into group
INTEGER, INTENT(IN) :: est_name_len ! Estimated average length of link names
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -6585,7 +6585,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_EST_LINK_INFO_C'::h5pset_est_link_info_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: gcpl_id
+ INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(IN) :: est_num_entries
INTEGER, INTENT(IN) :: est_name_len
END FUNCTION h5pset_est_link_info_c
@@ -6600,23 +6600,23 @@
!
! Purpose: Sets the parameters for conversion between compact and dense groups.
!
-! Inputs:
-! gcpl_id - Group creation property list identifier
+! Inputs:
+! gcpl_id - Group creation property list identifier
! max_compact - Maximum number of attributes to be stored in compact storage
! min_dense - Minimum number of attributes to be stored in dense storage
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 21, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_link_phase_change_f(gcpl_id, max_compact, min_dense, hdferr)
@@ -6637,7 +6637,7 @@
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(IN) :: max_compact
INTEGER, INTENT(IN) :: min_dense
-
+
END FUNCTION h5pset_link_phase_change_c
END INTERFACE
@@ -6649,28 +6649,28 @@
!
! Purpose: Sets up use of the direct I/O driver.
!
-! Inputs:
+! Inputs:
! fapl_id - File access property list identifier
! alignment - Required memory alignment boundary
! block_size - File system block size
! cbuf_size - Copy buffer size
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 21, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fapl_id ! File access property list identifier
INTEGER(SIZE_T), INTENT(IN) :: alignment ! Required memory alignment boundary!
INTEGER(SIZE_T), INTENT(IN) :: block_size ! File system block size
@@ -6685,7 +6685,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_DIRECT_C'::h5pset_fapl_direct_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: fapl_id
+ INTEGER(HID_T), INTENT(IN) :: fapl_id
INTEGER(SIZE_T), INTENT(IN) :: alignment
INTEGER(SIZE_T), INTENT(IN) :: block_size
INTEGER(SIZE_T), INTENT(IN) :: cbuf_size
@@ -6700,28 +6700,28 @@
!
! Purpose: Gets up use of the direct I/O driver.
!
-! Inputs:
+! Inputs:
! fapl_id - File access property list identifier
! Outputs:
! alignment - Required memory alignment boundary
! block_size - File system block size
! cbuf_size - Copy buffer size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! March 21, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
- IMPLICIT NONE
+ IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fapl_id ! File access property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: alignment ! Required memory alignment boundary!
INTEGER(SIZE_T), INTENT(OUT) :: block_size ! File system block size
@@ -6736,7 +6736,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_DIRECT_C'::h5pget_fapl_direct_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: fapl_id
+ INTEGER(HID_T), INTENT(IN) :: fapl_id
INTEGER(SIZE_T), INTENT(OUT) :: alignment
INTEGER(SIZE_T), INTENT(OUT) :: block_size
INTEGER(SIZE_T), INTENT(OUT) :: cbuf_size
@@ -6747,29 +6747,29 @@
END SUBROUTINE h5pget_fapl_direct_f
!----------------------------------------------------------------------
-! Name: H5Pset_attr_phase_change_f
+! Name: H5Pset_attr_phase_change_f
!
! Purpose: Sets attribute storage phase change thresholds.
!
-! Inputs:
+! Inputs:
! ocpl_id - Object (dataset or group) creation property list identifier
-! Outputs:
+! Outputs:
! max_compact - Maximum number of attributes to be stored in compact storage
! (Default: 8)
! min_dense - Minimum number of attributes to be stored in dense storage
! (Default: 6)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! January, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr)
@@ -6792,21 +6792,21 @@
INTEGER(HID_T), INTENT(IN) :: ocpl_id
INTEGER, INTENT(IN) :: max_compact
INTEGER, INTENT(IN) :: min_dense
-
+
END FUNCTION h5pset_attr_phase_change_c
END INTERFACE
-
+
hdferr = h5pset_attr_phase_change_c(ocpl_id, max_compact, min_dense)
END SUBROUTINE h5pset_attr_phase_change_f
!----------------------------------------------------------------------
-! Name: H5Pset_nbit_f
+! Name: H5Pset_nbit_f
!
! Purpose: Sets up the use of the N-Bit filter.
!
-! Inputs:
+! Inputs:
! plist_id - Dataset creation property list identifier.
! Outputs:
! hdferr - error code
@@ -6820,7 +6820,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_nbit_f(plist_id, hdferr)
@@ -6845,11 +6845,11 @@
END SUBROUTINE h5pset_nbit_f
!----------------------------------------------------------------------
-! Name: h5pset_scaleoffset_f
+! Name: h5pset_scaleoffset_f
!
! Purpose: Sets up the use of the Scale-Offset filter.
!
-! Inputs:
+! Inputs:
! plist_id - Dataset creation property list identifier.
! scale_type - Flag indicating compression method.
! scale_factor - Parameter related to scale.
@@ -6865,7 +6865,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr)
@@ -6894,11 +6894,11 @@
END SUBROUTINE h5pset_scaleoffset_f
!----------------------------------------------------------------------
-! Name: h5pset_nlinks_f
+! Name: h5pset_nlinks_f
!
! Purpose: Sets maximum number of soft or user-defined link traversals.
!
-! Inputs:
+! Inputs:
! lapl_id - File access property list identifier
! nlinks - Maximum number of links to traverse
!
@@ -6914,7 +6914,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_nlinks_f(lapl_id, nlinks, hdferr)
@@ -6922,7 +6922,7 @@
INTEGER(HID_T), INTENT(IN) :: lapl_id ! File access property list identifier
INTEGER(SIZE_T), INTENT(IN) :: nlinks ! Maximum number of links to traverse
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -6935,17 +6935,17 @@
INTEGER(SIZE_T), INTENT(IN) :: nlinks
END FUNCTION h5pset_nlinks_c
END INTERFACE
-
+
hdferr = h5pset_nlinks_c(lapl_id, nlinks)
-
+
END SUBROUTINE h5pset_nlinks_f
!----------------------------------------------------------------------
-! Name: h5pget_nlinks_f
+! Name: h5pget_nlinks_f
!
! Purpose: Gets maximum number of soft or user-defined link traversals.
!
-! Inputs:
+! Inputs:
! lapl_id - File access property list identifier
! nlinks - Maximum number of links to traverse
!
@@ -6961,7 +6961,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_nlinks_f(lapl_id, nlinks, hdferr)
@@ -6969,7 +6969,7 @@
INTEGER(HID_T), INTENT(IN) :: lapl_id ! File access property list identifier
INTEGER(SIZE_T), INTENT(OUT) :: nlinks ! Maximum number of links to traverse
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
@@ -6982,9 +6982,9 @@
INTEGER(SIZE_T), INTENT(OUT) :: nlinks
END FUNCTION h5pget_nlinks_c
END INTERFACE
-
+
hdferr = h5pget_nlinks_c(lapl_id, nlinks)
-
+
END SUBROUTINE h5pget_nlinks_f
!----------------------------------------------------------------------
@@ -6992,35 +6992,35 @@
!
! Purpose: Determines whether property is set to enable creating missing intermediate groups.
!
-! Inputs:
+! Inputs:
! lcpl_id - Link creation property list identifier
-! crt_intermed_group - Specifying whether to create intermediate groups upon
+! crt_intermed_group - Specifying whether to create intermediate groups upon
! the creation of an object
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! April 4, 2008
!
-! Modifications:
+! Modifications:
!
! Comment: The long subroutine name (>31) on older f90 compilers causes problems
-! so had to shorten the name
+! so had to shorten the name
!--------------------------------------------------------------------------------------
SUBROUTINE h5pget_create_inter_group_f(lcpl_id, crt_intermed_group, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: lcpl_id ! Link creation property list identifier
- INTEGER, INTENT(IN) :: crt_intermed_group ! Flag specifying whether to create intermediate groups
+ INTEGER, INTENT(IN) :: crt_intermed_group ! Flag specifying whether to create intermediate groups
! upon creation of an object
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
- INTEGER FUNCTION h5pget_create_inter_group_c(lcpl_id, crt_intermed_group)
+ INTEGER FUNCTION h5pget_create_inter_group_c(lcpl_id, crt_intermed_group)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5PGET_CREATE_INTER_GROUP_C'::h5pget_create_inter_group_c
@@ -7055,35 +7055,35 @@
! of one means fully read chunks are always preempted before
! other chunks.
!
-! Inputs:
+! Inputs:
! dapl_id - Dataset access property list identifier.
! rdcc_nslots - The number of chunk slots in the raw data chunk cache for this dataset.
! rdcc_nbytes - The total size of the raw data chunk cache for this dataset.
! rdcc_w0 - The chunk preemption policy for this dataset.
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! April 13, 2009
!
-! Modifications:
+! Modifications:
!--------------------------------------------------------------------------------------
SUBROUTINE h5pset_chunk_cache_f(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dapl_id ! Dataset access property list identifier.
- INTEGER(SIZE_T), INTENT(IN) :: rdcc_nslots ! The number of chunk slots in the raw data
+ INTEGER(SIZE_T), INTENT(IN) :: rdcc_nslots ! The number of chunk slots in the raw data
! chunk cache for this dataset.
- INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes ! The total size of the raw data chunk cache
+ INTEGER(SIZE_T), INTENT(IN) :: rdcc_nbytes ! The total size of the raw data chunk cache
! for this dataset.
REAL, INTENT(IN) :: rdcc_w0 ! The chunk preemption policy for this dataset.
INTEGER, INTENT(OUT) :: hdferr ! Error code
! 0 on success and -1 on failure
-
+
INTERFACE
INTEGER FUNCTION h5pset_chunk_cache_c(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0)
@@ -7113,32 +7113,32 @@
! not been set on this property list, the default values for a
! file access property list are returned.
!
-! Inputs:
+! Inputs:
! dapl_id - Dataset access property list identifier.
-! Outputs:
-! rdcc_nslots - Number of chunk slots in the raw data chunk cache hash table.
-! rdcc_nbytes - Total size of the raw data chunk cache, in bytes.
-! rdcc_w0 - Preemption policy.
-! hdferr: - error code
+! Outputs:
+! rdcc_nslots - Number of chunk slots in the raw data chunk cache hash table.
+! rdcc_nbytes - Total size of the raw data chunk cache, in bytes.
+! rdcc_w0 - Preemption policy.
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: M.S. Breitenfeld
! April 13, 2009
!
-! Modifications:
+! Modifications:
!--------------------------------------------------------------------------------------
SUBROUTINE h5pget_chunk_cache_f(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dapl_id ! Dataset access property list identifier.
INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nslots ! Number of chunk slots in the raw data chunk cache hash table.
- INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes ! Total size of the raw data chunk cache, in bytes.
+ INTEGER(SIZE_T), INTENT(OUT) :: rdcc_nbytes ! Total size of the raw data chunk cache, in bytes.
REAL, INTENT(OUT) :: rdcc_w0 ! Preemption policy.
INTEGER, INTENT(OUT) :: hdferr ! error code
-
+
INTERFACE
INTEGER FUNCTION h5pget_chunk_cache_c(dapl_id, rdcc_nslots, rdcc_nbytes, rdcc_w0)
USE H5GLOBAL
diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90
index f8ffb2f..6c557e3 100644
--- a/fortran/src/H5Rff.f90
+++ b/fortran/src/H5Rff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,96 +11,96 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5R functions.
-!
+!
MODULE H5R
USE H5GLOBAL
! If you change the value of these parameters, do not forget to change corresponding
-! values in the H5f90.h file.
-! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
-! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
+! values in the H5f90.h file.
+! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
+! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
!
! TYPE hobj_ref_t_f
-! INTEGER ref(REF_OBJ_BUF_LEN)
-! END TYPE
+! INTEGER ref(REF_OBJ_BUF_LEN)
+! END TYPE
!
! TYPE hdset_reg_ref_t_f
-! INTEGER ref(REF_REG_BUF_LEN)
-! END TYPE
+! INTEGER ref(REF_REG_BUF_LEN)
+! END TYPE
!
INTERFACE h5rcreate_f
MODULE PROCEDURE h5rcreate_object_f
- MODULE PROCEDURE h5rcreate_region_f
+ MODULE PROCEDURE h5rcreate_region_f
+
+ END INTERFACE
- END INTERFACE
-
INTERFACE h5rdereference_f
MODULE PROCEDURE h5rdereference_object_f
- MODULE PROCEDURE h5rdereference_region_f
+ MODULE PROCEDURE h5rdereference_region_f
+
+ END INTERFACE
- END INTERFACE
-
INTERFACE h5rget_region_f
- MODULE PROCEDURE h5rget_region_region_f
+ MODULE PROCEDURE h5rget_region_region_f
+
+ END INTERFACE
- END INTERFACE
-
INTERFACE h5rget_object_type_f
MODULE PROCEDURE h5rget_object_type_obj_f
- END INTERFACE
-
+ END INTERFACE
+
INTERFACE h5rget_name_f
MODULE PROCEDURE h5rget_name_object_f
- MODULE PROCEDURE h5rget_name_region_f
+ MODULE PROCEDURE h5rget_name_region_f
- END INTERFACE
+ END INTERFACE
CONTAINS
-
+
!----------------------------------------------------------------------
-! Name: h5rcreate_object_f
+! Name: h5rcreate_object_f
!
! Purpose: Creates reference to the object
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the object at the specified location
-! Outputs:
+! Outputs:
! ref - reference to the specified object
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rcreate_f
-! subroutine.
+! Comment: This is a module procedure for the h5rcreate_f
+! subroutine.
!----------------------------------------------------------------------
-
+
SUBROUTINE h5rcreate_object_f(loc_id, name, ref, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the object at location specified
- ! by loc_id identifier
- TYPE(hobj_ref_t_f), INTENT(OUT) :: ref ! Object reference
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! by loc_id identifier
+ TYPE(hobj_ref_t_f), INTENT(OUT) :: ref ! Object reference
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Name length
INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference
@@ -114,9 +114,9 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RCREATE_OBJECT_C':: h5rcreate_object_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
+ !DEC$ATTRIBUTES reference :: name
INTEGER(HADDR_T) :: ref_f
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
END FUNCTION h5rcreate_object_c
@@ -126,45 +126,45 @@
ref_f = 0
hdferr = h5rcreate_object_c(ref_f, loc_id, name, namelen )
ref%ref = ref_f
-
+
END SUBROUTINE h5rcreate_object_f
-
+
!----------------------------------------------------------------------
-! Name: h5rcreate_region_f
+! Name: h5rcreate_region_f
!
! Purpose: Creates r eference to the dataset region
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the dataset at the specified location
! space_id - dataspace identifier that describes selected region
-! Outputs:
+! Outputs:
! ref - reference to the dataset region
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rcreate_f
-! subroutine.
+! Comment: This is a module procedure for the h5rcreate_f
+! subroutine.
!----------------------------------------------------------------------
-
+
SUBROUTINE h5rcreate_region_f(loc_id, name, space_id, ref, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Location identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of the dataset at location specified
- ! by loc_id identifier
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataset's dataspace identifier
- TYPE(hdset_reg_ref_t_f), INTENT(OUT) :: ref ! Dataset region reference
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! by loc_id identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataset's dataspace identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(OUT) :: ref ! Dataset region reference
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: namelen ! Name length
INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference
@@ -178,13 +178,13 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RCREATE_REGION_C':: h5rcreate_region_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference :: name
-! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
+ !DEC$ATTRIBUTES reference :: name
+! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
- INTEGER(HID_T), INTENT(IN) :: loc_id
+ INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
- INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5rcreate_region_c
END INTERFACE
@@ -194,42 +194,42 @@
ref%ref = ref_f
END SUBROUTINE h5rcreate_region_f
-
+
!----------------------------------------------------------------------
! Name: h5rdereference_object_f
!
! Purpose: Opens the HDF5 object referenced
!
-! Inputs:
-! dset_id - identifier of the dataset containing
-! reference
+! Inputs:
+! dset_id - identifier of the dataset containing
+! reference
! ref - reference to open
-! Outputs:
+! Outputs:
! obj_id - object_identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rdereference_f
-! subroutine.
+! Comment: This is a module procedure for the h5rdereference_f
+! subroutine.
!----------------------------------------------------------------------
-
-
+
+
SUBROUTINE h5rdereference_object_f(dset_id, ref, obj_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
- TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
- INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference
@@ -243,9 +243,9 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RDEREFERENCE_OBJECT_C':: h5rdereference_object_c
!DEC$ENDIF
! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
- INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HADDR_T) :: ref_f
- INTEGER(HID_T), INTENT(OUT) :: obj_id
+ INTEGER(HID_T), INTENT(OUT) :: obj_id
END FUNCTION h5rdereference_object_c
END INTERFACE
@@ -253,42 +253,42 @@
hdferr = h5rdereference_object_c(dset_id, ref_f, obj_id )
END SUBROUTINE h5rdereference_object_f
-
+
!----------------------------------------------------------------------
! Name: h5rdereference_region_f
!
! Purpose: Opens the dataset region
!
-! Inputs:
-! dset_id - identifier of the dataset containing
-! reference to teh regions
+! Inputs:
+! dset_id - identifier of the dataset containing
+! reference to teh regions
! ref - reference to open
-! Outputs:
+! Outputs:
! obj_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rdereference_f
-! subroutine.
+! Comment: This is a module procedure for the h5rdereference_f
+! subroutine.
!----------------------------------------------------------------------
-
-
+
+
SUBROUTINE h5rdereference_region_f(dset_id, ref, obj_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
- TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Object reference
- INTEGER(HID_T), INTENT(OUT) :: obj_id ! Dataspace identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER(HID_T), INTENT(OUT) :: obj_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference
@@ -301,10 +301,10 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RDEREFERENCE_REGION_C':: h5rdereference_region_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
-! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
- INTEGER(HID_T), INTENT(OUT) :: obj_id
+ INTEGER(HID_T), INTENT(OUT) :: obj_id
END FUNCTION h5rdereference_region_c
END INTERFACE
@@ -312,43 +312,43 @@
hdferr = h5rdereference_region_c(dset_id, ref_f, obj_id )
END SUBROUTINE h5rdereference_region_f
-
+
!----------------------------------------------------------------------
! Name: h5rget_region_region_f
!
! Purpose: Retrieves a dataspace with the specified region selected
!
-! Inputs:
-! dset_id - identifier of the dataset containing
-! reference to the regions
+! Inputs:
+! dset_id - identifier of the dataset containing
+! reference to the regions
! ref - reference to open
-! Outputs:
+! Outputs:
! space_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rget_region_f
-! subroutine.
+! Comment: This is a module procedure for the h5rget_region_f
+! subroutine.
!----------------------------------------------------------------------
-
-
-
+
+
+
SUBROUTINE h5rget_region_region_f(dset_id, ref, space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
- TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Dataset region reference
- INTEGER(HID_T), INTENT(OUT) :: space_id ! Space identifier
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Dataset region reference
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Space identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference
! INTEGER, EXTERNAL :: h5rget_region_region_c
@@ -360,10 +360,10 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RGET_REGION_REGION_C':: h5rget_region_region_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dset_id
-! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
+ INTEGER(HID_T), INTENT(IN) :: dset_id
+! INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
INTEGER :: ref_f(REF_REG_BUF_LEN)
- INTEGER(HID_T), INTENT(OUT) :: space_id
+ INTEGER(HID_T), INTENT(OUT) :: space_id
END FUNCTION h5rget_region_region_c
END INTERFACE
@@ -371,17 +371,17 @@
hdferr = h5rget_region_region_c(dset_id, ref_f, space_id )
END SUBROUTINE h5rget_region_region_f
-
+
!----------------------------------------------------------------------
! Name: h5rget_object_type_obj_f
!
-! Purpose: Retrieves the type of object that an object reference points to.
+! Purpose: Retrieves the type of object that an object reference points to.
!
-! Inputs:
-! dset_id - identifier of the dataset containing
+! Inputs:
+! dset_id - identifier of the dataset containing
! reference to the objects
! ref - reference to open
-! Outputs:
+! Outputs:
! obj_type - object_type, possible values:
! H5G_UNKNOWN_F (-1)
! H5G_GROUP_F 0
@@ -389,36 +389,36 @@
! H5G_TYPE_F 2
! H5G_LINK_F 3
!
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment: This is a module procedure for the h5rget_object_type_f
-! subroutine.
+! Comment: This is a module procedure for the h5rget_object_type_f
+! subroutine.
!----------------------------------------------------------------------
-
+
SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
- TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
- INTEGER, INTENT(OUT) :: obj_type ! Object type
+ INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
+ TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
+ INTEGER, INTENT(OUT) :: obj_type ! Object type
! H5G_UNKNOWN_F (-1)
! H5G_GROUP_F 0
! H5G_DATASET_F 1
! H5G_TYPE_F 2
! H5G_LINK_F 3
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference
! INTEGER, EXTERNAL :: h5rget_object_type_obj_c
@@ -431,9 +431,9 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5RGET_OBJECT_TYPE_OBJ_C':: h5rget_object_type_obj_c
!DEC$ENDIF
! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2
- INTEGER(HID_T), INTENT(IN) :: dset_id
+ INTEGER(HID_T), INTENT(IN) :: dset_id
INTEGER(HADDR_T) :: ref_f
- INTEGER, INTENT(OUT) :: obj_type
+ INTEGER, INTENT(OUT) :: obj_type
END FUNCTION h5rget_object_type_obj_c
END INTERFACE
@@ -451,38 +451,38 @@
! loc_id - Identifier for the dataset containing the reference or for the group that dataset is in.
! ref - An object or dataset region reference.
!
-! Outputs:
+! Outputs:
! name - A name associated with the referenced object or dataset region.
!
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! size - The size of the name buffer.
!
! Programmer: M.S. Breitenfeld
! March 28, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5rget_name_object_f(loc_id, ref, name, hdferr, size)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for the dataset containing the reference
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for the dataset containing the reference
! or for the group that dataset is in.
TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference
INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size ! The size of the name buffer,
! returning 0 (zero) if no name is associated with the identifier
CHARACTER(LEN=*), INTENT(OUT) :: name ! A name associated with the referenced object or dataset region.
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference
INTEGER(SIZE_T) :: size_default
INTEGER(SIZE_T) :: name_len
-
+
INTERFACE
INTEGER FUNCTION h5rget_name_object_c(loc_id, ref_f, name, name_len, size_default)
USE H5GLOBAL
@@ -498,14 +498,14 @@
INTEGER(SIZE_T) :: name_len
END FUNCTION h5rget_name_object_c
END INTERFACE
-
+
name_len=LEN(name)
ref_f = ref%ref
hdferr = h5rget_name_object_c(loc_id, ref_f, name, name_len, size_default)
-
+
IF(PRESENT(size)) size = size_default
-
+
END SUBROUTINE h5rget_name_object_f
!----------------------------------------------------------------------
@@ -517,38 +517,38 @@
! loc_id - Identifier for the dataset containing the reference or for the group that dataset is in.
! ref - An object or dataset region reference.
!
-! Outputs:
+! Outputs:
! name - A name associated with the referenced object or dataset region.
!
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! size - The size of the name buffer.
!
! Programmer: M.S. Breitenfeld
! March 28, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5rget_name_region_f(loc_id, ref, name, hdferr, size)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for the dataset containing the reference
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for the dataset containing the reference
! or for the group that dataset is in.
TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Object reference
INTEGER(SIZE_T), OPTIONAL, INTENT(OUT) :: size ! The size of the name buffer,
! returning 0 (zero) if no name is associated with the identifier
CHARACTER(LEN=*), INTENT(OUT) :: name ! A name associated with the referenced object or dataset region.
INTEGER, INTENT(OUT) :: hdferr ! Error code
-
+
INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference
INTEGER(SIZE_T) :: size_default
INTEGER(SIZE_T) :: name_len
-
+
INTERFACE
INTEGER FUNCTION h5rget_name_region_c(loc_id, ref_f, name, name_len, size_default)
USE H5GLOBAL
@@ -564,14 +564,14 @@
INTEGER(SIZE_T) :: name_len
END FUNCTION h5rget_name_region_c
END INTERFACE
-
+
name_len=LEN(name)
ref_f = ref%ref
hdferr = h5rget_name_region_c(loc_id, ref_f, name, name_len, size_default)
-
+
IF(PRESENT(size)) size = size_default
-
+
END SUBROUTINE h5rget_name_region_f
END MODULE H5R
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
index 9b0356f..dea3ff0 100644
--- a/fortran/src/H5Sf.c
+++ b/fortran/src/H5Sf.c
@@ -37,7 +37,7 @@ nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f
hid_t c_space_id;
int i;
int_f ret_value = 0;
-
+
/*
* Transpose dimension arrays because of C-FORTRAN storage order
*/
@@ -45,11 +45,11 @@ nh5screate_simple_c ( int_f *rank, hsize_t_f *dims, hsize_t_f *maxdims, hid_t_f
c_dims[i] = dims[*rank - i - 1];
c_maxdims[i] = maxdims[*rank - i - 1];
} /* end for */
-
+
c_space_id = H5Screate_simple(*rank, c_dims, c_maxdims);
- if(c_space_id < 0)
+ if(c_space_id < 0)
HGOTO_DONE(FAIL)
-
+
*space_id = (hid_t_f)c_space_id;
done:
@@ -204,7 +204,7 @@ nh5sget_select_elem_npoints_c( hid_t_f *space_id , hssize_t_f * num_points)
* Returns: 0 on success, -1 on failure
* Programmer: Xiangyang Su
* Monday, November 15, 1999
- * Modifications:
+ * Modifications:
* Transpose dimension arrays because of C-FORTRAN storage order
* M.S. Breitenfeld
*---------------------------------------------------------------------------*/
@@ -281,12 +281,12 @@ nh5sget_select_bounds_c( hid_t_f *space_id , hsize_t_f * start, hsize_t_f * end)
hsize_t c_end[H5S_MAX_RANK];
int i, rank;
int_f ret_value = 0;
-
+
c_space_id = *space_id;
rank = H5Sget_simple_extent_ndims(c_space_id);
if(rank < 0 )
HGOTO_DONE(FAIL)
-
+
if(H5Sget_select_bounds(c_space_id, c_start, c_end) < 0)
HGOTO_DONE(FAIL)
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
index 7cabb00..06bebef 100644
--- a/fortran/src/H5Sff.f90
+++ b/fortran/src/H5Sff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,54 +11,54 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains Fortran90 interfaces for H5S functions.
-!
+!
MODULE H5S
USE H5GLOBAL
-
+
CONTAINS
-
+
!----------------------------------------------------------------------
-! Name: h5screate_simple_f
+! Name: h5screate_simple_f
!
! Purpose: Creates a new simple data space and opens it for access .
!
-! Inputs:
+! Inputs:
! rank - number of dimensions
! dims - an array of the size of each dimension
-! Outputs:
+! Outputs:
! space_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! maxdims - an array of the maximum size of each
+! maxdims - an array of the maximum size of each
! dimension
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5screate_simple_f(rank, dims, space_id, hdferr, maxdims)
IMPLICIT NONE
- INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
- INTEGER(HSIZE_T), INTENT(IN) :: dims(rank)
- ! Array with the dimension
- ! sizes
- INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
+ INTEGER(HSIZE_T), INTENT(IN) :: dims(rank)
+ ! Array with the dimension
+ ! sizes
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HSIZE_T), OPTIONAL, INTENT(IN) :: maxdims(rank)
- ! Array with the maximum
- ! dimension sizes
+ INTEGER(HSIZE_T), OPTIONAL, INTENT(IN) :: maxdims(rank)
+ ! Array with the maximum
+ ! dimension sizes
INTEGER(HSIZE_T), ALLOCATABLE, DIMENSION(:) :: f_maxdims
! INTEGER, EXTERNAL :: h5screate_simple_c
@@ -76,44 +76,44 @@
INTEGER(HID_T), INTENT(OUT) :: space_id
END FUNCTION h5screate_simple_c
END INTERFACE
-
+
allocate (f_maxdims(rank), stat=hdferr)
- if (hdferr .NE. 0) then
+ if (hdferr .NE. 0) then
hdferr = -1
return
- endif
- if (present(maxdims)) then
- f_maxdims = maxdims
+ endif
+ if (present(maxdims)) then
+ f_maxdims = maxdims
else
f_maxdims = dims
- endif
+ endif
hdferr = h5screate_simple_c(rank, dims, f_maxdims, space_id)
deallocate(f_maxdims)
END SUBROUTINE h5screate_simple_f
-
+
!----------------------------------------------------------------------
-! Name: h5sclose_f
+! Name: h5sclose_f
!
-! Purpose: Releases and terminates access to a dataspace.
+! Purpose: Releases and terminates access to a dataspace.
!
-! Inputs:
+! Inputs:
! space_id - identifier of dataspace to release
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sclose_f(space_id, hdferr)
@@ -139,39 +139,39 @@
END SUBROUTINE h5sclose_f
!----------------------------------------------------------------------
-! Name: h5screate_f
+! Name: h5screate_f
!
-! Purpose: Creates a new dataspace of a specified type.
+! Purpose: Creates a new dataspace of a specified type.
!
-! Inputs:
+! Inputs:
! classtype - the type of the dataspace to be created
-! Outputs:
+! Outputs:
! space_id - dataspace identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5screate_f(classtype, space_id, hdferr)
IMPLICIT NONE
INTEGER, INTENT(IN) :: classtype ! The type of the dataspace
- ! to be created.
+ ! to be created.
! Possible values are:
! H5S_SCALAR_F (0)
! H5S_SIMPLE_F(1)
! H5S_NULL_F(2)
- INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5screate_c
@@ -193,42 +193,42 @@
END SUBROUTINE h5screate_f
!----------------------------------------------------------------------
-! Name: h5scopy_f
+! Name: h5scopy_f
!
-! Purpose: Creates an exact copy of a dataspace.
+! Purpose: Creates an exact copy of a dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! new_space_id - identifier of dataspace's copy
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5scopy_f(space_id, new_space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HID_T), INTENT(OUT) :: new_space_id
- ! Identifier of dataspace's copy
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_space_id
+ ! Identifier of dataspace's copy
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5scopy_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5scopy_c(space_id, new_space_id)
+ INTEGER FUNCTION h5scopy_c(space_id, new_space_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SCOPY_C'::h5scopy_c
@@ -239,41 +239,41 @@
END INTERFACE
hdferr = h5scopy_c(space_id, new_space_id)
-
+
END SUBROUTINE h5scopy_f
!----------------------------------------------------------------------
-! Name: h5sget_select_hyper_nblocks_f
+! Name: h5sget_select_hyper_nblocks_f
!
-! Purpose: Get number of hyperslab blocks.
+! Purpose: Get number of hyperslab blocks.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! num_blocks - number of hyperslab blocks in the current
! hyperslab selection
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_hyper_nblocks_f(space_id, num_blocks, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
- !number of hyperslab blocks
- !in the current dataspace
- !selection
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
+ !number of hyperslab blocks
+ !in the current dataspace
+ !selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sget_select_hyper_nblocks_c
@@ -286,52 +286,52 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SELECT_HYPER_NBLOCKS_C'::h5sget_select_hyper_nblocks_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_blocks
END FUNCTION h5sget_select_hyper_nblocks_c
END INTERFACE
hdferr = h5sget_select_hyper_nblocks_c (space_id, num_blocks)
-
+
END SUBROUTINE h5sget_select_hyper_nblocks_f
!----------------------------------------------------------------------
-! Name: h5sget_select_hyper_blocklist_f
+! Name: h5sget_select_hyper_blocklist_f
!
-! Purpose: Gets the list of hyperslab blocks currently selected.
+! Purpose: Gets the list of hyperslab blocks currently selected.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
! startblock - hyperslab block to start with
! num_blocks - number of blocks to get
-! Outputs:
+! Outputs:
! buf - buffer to hold block list
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_hyper_blocklist_f(space_id, startblock, &
num_blocks, buf, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSIZE_T), INTENT(IN) :: startblock
- !Hyperslab block to start with.
- INTEGER(HSIZE_T), INTENT(IN) :: num_blocks
- !number of hyperslab blocks
- !to get in the current dataspace
- !selection
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: startblock
+ !Hyperslab block to start with.
+ INTEGER(HSIZE_T), INTENT(IN) :: num_blocks
+ !number of hyperslab blocks
+ !to get in the current dataspace
+ !selection
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
!List of hyperslab blocks selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -346,55 +346,55 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SELECT_HYPER_BLOCKLIST_C'::h5sget_select_hyper_blocklist_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HSIZE_T), INTENT(IN) :: startblock
- INTEGER(HSIZE_T), INTENT(IN) :: num_blocks
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HSIZE_T), INTENT(IN) :: startblock
+ INTEGER(HSIZE_T), INTENT(IN) :: num_blocks
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
END FUNCTION h5sget_select_hyper_blocklist_c
END INTERFACE
-
+
hdferr = h5sget_select_hyper_blocklist_c(space_id, startblock, &
num_blocks, buf )
-
+
END SUBROUTINE h5sget_select_hyper_blocklist_f
!----------------------------------------------------------------------
-! Name: h5sget_select_bounds_f
+! Name: h5sget_select_bounds_f
!
-! Purpose: Gets the bounding box containing the current selection.
+! Purpose: Gets the bounding box containing the current selection.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-!
-! Outputs:
+!
+! Outputs:
! start - starting coordinates of bounding box
! end - ending coordinates of bounding box
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_bounds_f(space_id, start, END, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: start
- ! Starting coordinates of the bounding box.
+ ! Starting coordinates of the bounding box.
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: END
!Ending coordinates of the bounding box,
- !i.e., the coordinates of the diagonally
- !opposite corner
+ !i.e., the coordinates of the diagonally
+ !opposite corner
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -408,43 +408,43 @@
INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: END
END FUNCTION h5sget_select_bounds_c
END INTERFACE
-
+
hdferr = h5sget_select_bounds_c(space_id, start, END)
-
+
END SUBROUTINE h5sget_select_bounds_f
!----------------------------------------------------------------------
-! Name: h5sget_select_elem_npoints_f
+! Name: h5sget_select_elem_npoints_f
!
-! Purpose: Gets the number of element points in the current selection
+! Purpose: Gets the number of element points in the current selection
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
-! num_points - number of element points in the current
+! Outputs:
+! num_points - number of element points in the current
! dataspace selection
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_elem_npoints_f(space_id, num_points, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
- !number of element points
- !in the current dataspace
- !selection
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
+ !number of element points
+ !in the current dataspace
+ !selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sget_select_elem_npoints_c
@@ -457,50 +457,50 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SELECT_ELEM_NPOINTS_C'::h5sget_select_elem_npoints_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
+ INTEGER(HSSIZE_T), INTENT(OUT) :: num_points
END FUNCTION h5sget_select_elem_npoints_c
END INTERFACE
hdferr = h5sget_select_elem_npoints_c (space_id, num_points)
-
+
END SUBROUTINE h5sget_select_elem_npoints_f
!----------------------------------------------------------------------
-! Name: h5sget_select_elem_pointlist_f
+! Name: h5sget_select_elem_pointlist_f
!
-! Purpose: Gets the list of element points currently selected.
+! Purpose: Gets the list of element points currently selected.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! startpoint - element point to start with
+! startpoint - element point to start with
! num_points - number of elemnt points to get
-! Outputs:
+! Outputs:
! buf - buffer with element points selected
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_elem_pointlist_f(space_id, startpoint, &
num_points, buf, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSIZE_T), INTENT(IN) :: startpoint
- !Element point to start with.
- INTEGER(HSIZE_T), INTENT(IN) :: num_points
- !Number of element points to get
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), INTENT(IN) :: startpoint
+ !Element point to start with.
+ INTEGER(HSIZE_T), INTENT(IN) :: num_points
+ !Number of element points to get
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
!List of element points selected
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -512,9 +512,9 @@
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SELECT_ELEM_POINTLIST_C'::h5sget_select_elem_pointlist_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
- INTEGER(HSIZE_T), INTENT(IN) :: startpoint
- INTEGER(HSIZE_T), INTENT(IN) :: num_points
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
+ INTEGER(HSIZE_T), INTENT(IN) :: startpoint
+ INTEGER(HSIZE_T), INTENT(IN) :: num_points
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: buf
END FUNCTION h5sget_select_elem_pointlist_c
END INTERFACE
@@ -524,47 +524,47 @@
END SUBROUTINE h5sget_select_elem_pointlist_f
!----------------------------------------------------------------------
-! Name: h5sselect_elements_f
+! Name: h5sselect_elements_f
!
-! Purpose: Selects elements to be included in the selection for
-! a dataspace
+! Purpose: Selects elements to be included in the selection for
+! a dataspace
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
! operator - flag, valid values are:
! H5S_SELECT_SET_F (0)
! H5S_SELECT_OR_F (1)
! rank - number of dataspace dimensions
! num_elements - number of elements to be selected
-! coord - 2D (rank x num_elements) array with the
+! coord - 2D (rank x num_elements) array with the
! elements coordinates
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5sselect_elements_f(space_id, OPERATOR, rank, &
+ SUBROUTINE h5sselect_elements_f(space_id, OPERATOR, rank, &
num_elements, coord, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(IN) :: OPERATOR ! Flag, valid values are:
! H5S_SELECT_SET_F (0)
! H5S_SELECT_OR_F (1)
- INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
+ INTEGER, INTENT(IN) :: rank ! Number of dataspace dimensions
INTEGER(SIZE_T), INTENT(IN) :: num_elements ! Number of elements to be
! selected
- INTEGER(HSIZE_T), DIMENSION(rank,num_elements), INTENT(IN) :: coord
+ INTEGER(HSIZE_T), DIMENSION(rank,num_elements), INTENT(IN) :: coord
! Array with the coordinates
! of the selected elements
! coord(rank, num_elements)
@@ -585,7 +585,7 @@
INTEGER(HSIZE_T),DIMENSION(*) :: c_c_coord
END FUNCTION h5sselect_elements_c
END INTERFACE
-
+
ALLOCATE(c_coord(rank,num_elements), STAT = error)
IF (error.NE. 0) THEN
hdferr = -1
@@ -597,37 +597,37 @@
hdferr = h5sselect_elements_c(space_id, OPERATOR, num_elements, c_coord)
DEALLOCATE(c_coord)
-
+
END SUBROUTINE h5sselect_elements_f
!----------------------------------------------------------------------
-! Name: h5sselect_all_f
+! Name: h5sselect_all_f
!
-! Purpose: Selects the entire dataspace.
+! Purpose: Selects the entire dataspace.
!
-! Inputs:
+! Inputs:
! space_id - identifier for the dataspace in which
! selection being made
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sselect_all_f(space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sselect_all_c
@@ -648,33 +648,33 @@
END SUBROUTINE h5sselect_all_f
!----------------------------------------------------------------------
-! Name: h5sselect_none_f
+! Name: h5sselect_none_f
!
-! Purpose: Resets the selection region to include no elements.
+! Purpose: Resets the selection region to include no elements.
!
-! Inputs:
-! space_id - the identifier for the dataspace in which
-! the selection is being reset.
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! space_id - the identifier for the dataspace in which
+! the selection is being reset.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sselect_none_f(space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sselect_none_c
@@ -686,7 +686,7 @@
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SSELECT_NONE_C'::h5sselect_none_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: space_id
+ INTEGER(HID_T), INTENT(IN) :: space_id
END FUNCTION h5sselect_none_c
END INTERFACE
@@ -695,36 +695,36 @@
END SUBROUTINE h5sselect_none_f
!----------------------------------------------------------------------
-! Name: h5sselect_valid_f
+! Name: h5sselect_valid_f
!
-! Purpose: Verifies that the selection is within the extent of
-! the dataspace.
+! Purpose: Verifies that the selection is within the extent of
+! the dataspace.
!
-! Inputs:
-! space_id - identifier for the dataspace for which
+! Inputs:
+! space_id - identifier for the dataspace for which
! selection is verified
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sselect_valid_f(space_id, status, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
LOGICAL, INTENT(OUT) :: status ! TRUE if the selection is
! contained within the extent,
- ! FALSE otherwise.
+ ! FALSE otherwise.
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: flag ! "TRUE/FALSE/ERROR" flag from C routine
@@ -732,14 +732,14 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sselect_valid_c(space_id, flag)
+ INTEGER FUNCTION h5sselect_valid_c(space_id, flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SSELECT_VALID_C'::h5sselect_valid_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: space_id
INTEGER :: flag
- END FUNCTION h5sselect_valid_c
+ END FUNCTION h5sselect_valid_c
END INTERFACE
hdferr = h5sselect_valid_c(space_id, flag)
@@ -749,34 +749,34 @@
END SUBROUTINE h5sselect_valid_f
!----------------------------------------------------------------------
-! Name: h5sget_simple_extent_npoints_f
+! Name: h5sget_simple_extent_npoints_f
!
-! Purpose: Determines the number of elements in a dataspace.
+! Purpose: Determines the number of elements in a dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! npoints - number of elements in the dataspace
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_npoints_f(space_id, npoints, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSIZE_T), INTENT(OUT) :: npoints ! Number of elements in
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), INTENT(OUT) :: npoints ! Number of elements in
! dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -784,7 +784,7 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sget_simple_extent_npoints_c( space_id, npoints)
+ INTEGER FUNCTION h5sget_simple_extent_npoints_c( space_id, npoints)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SIMPLE_EXTENT_NPOINTS_C'::h5sget_simple_extent_npoints_c
@@ -795,46 +795,46 @@
END INTERFACE
hdferr = h5sget_simple_extent_npoints_c( space_id, npoints)
-
+
END SUBROUTINE h5sget_simple_extent_npoints_f
!----------------------------------------------------------------------
-! Name: h5sget_select_npoints_f
+! Name: h5sget_select_npoints_f
!
-! Purpose: Determines the number of elements in a dataspace selection.
+! Purpose: Determines the number of elements in a dataspace selection.
!
-! Inputs:
-! space_id - dataspace identifier
-! Outputs:
+! Inputs:
+! space_id - dataspace identifier
+! Outputs:
! npoints - number of points in the dataspace selection
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_npoints_f(space_id, npoints, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(HSSIZE_T), INTENT(OUT) :: npoints ! Number of elements in the
- ! selection
+ ! selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sget_select_npoints_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sget_select_npoints_c(space_id, npoints)
+ INTEGER FUNCTION h5sget_select_npoints_c(space_id, npoints)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SELECT_NPOINTS_C'::h5sget_select_npoints_c
@@ -845,45 +845,45 @@
END INTERFACE
hdferr = h5sget_select_npoints_c(space_id, npoints)
-
+
END SUBROUTINE h5sget_select_npoints_f
!----------------------------------------------------------------------
-! Name: h5sget_simple_extent_ndims_f
+! Name: h5sget_simple_extent_ndims_f
!
-! Purpose: Determines the dimensionality of a dataspace
+! Purpose: Determines the dimensionality of a dataspace
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! rank - number of dataspace dimensions
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_ndims_f(space_id, rank, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER, INTENT(OUT) :: rank ! Number of dimensions
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(OUT) :: rank ! Number of dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sget_simple_extent_ndims_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sget_simple_extent_ndims_c(space_id, rank)
+ INTEGER FUNCTION h5sget_simple_extent_ndims_c(space_id, rank)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SGET_SIMPLE_EXTENT_NDIMS_C'::h5sget_simple_extent_ndims_c
@@ -894,44 +894,44 @@
END INTERFACE
hdferr = h5sget_simple_extent_ndims_c(space_id, rank)
-
+
END SUBROUTINE h5sget_simple_extent_ndims_f
!----------------------------------------------------------------------
-! Name: h5sget_simple_extent_dims_f
+! Name: h5sget_simple_extent_dims_f
!
-! Purpose: Retrieves dataspace dimension size and maximum size.
+! Purpose: Retrieves dataspace dimension size and maximum size.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! dims - array to store size of each dimension
-! maxdims - array to store maximum size of each
+! maxdims - array to store maximum size of each
! dimension
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_dims_f(space_id, dims, maxdims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
- ! Array to store dimension sizes
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
- ! Array to store max dimension
- ! sizes
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: dims
+ ! Array to store dimension sizes
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(OUT) :: maxdims
+ ! Array to store max dimension
+ ! sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code: -1 on failure,
! number of dimensions on
! on success
@@ -952,43 +952,43 @@
END INTERFACE
hdferr = h5sget_simple_extent_dims_c(space_id, dims, maxdims)
-
+
END SUBROUTINE h5sget_simple_extent_dims_f
!----------------------------------------------------------------------
-! Name: h5sget_simple_extent_type_f
+! Name: h5sget_simple_extent_type_f
!
-! Purpose: Determine the current class of a dataspace
+! Purpose: Determine the current class of a dataspace
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! classtype - class type, possible values are:
! H5S_NO_CLASS_F (-1)
! H5S_SCALAR_F (0)
! H5S_SIMPLE_F (1)
! H5S_NULL_F (2)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_simple_extent_type_f(space_id, classtype, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: classtype ! Class type , possible values
- ! are:
+ ! are:
! H5S_NO_CLASS_F (-1)
! H5S_SCALAR_F (0)
! H5S_SIMPLE_F (1)
@@ -1010,49 +1010,49 @@
END INTERFACE
hdferr = h5sget_simple_extent_type_c(space_id, classtype)
-
+
END SUBROUTINE h5sget_simple_extent_type_f
!----------------------------------------------------------------------
-! Name: h5sset_extent_simple_f
+! Name: h5sset_extent_simple_f
!
-! Purpose: Sets or resets the size of an existing dataspace.
+! Purpose: Sets or resets the size of an existing dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
! rank - dataspace number of dimensions
! current_size - array with the new sizes of dimensions
-! maximum_size - array with the new maximum sizes of
+! maximum_size - array with the new maximum sizes of
! dimensions
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sset_extent_simple_f(space_id, rank, current_size, &
- maximum_size, hdferr)
+ maximum_size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
- INTEGER, INTENT(IN) :: rank ! Dataspace rank
- INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER, INTENT(IN) :: rank ! Dataspace rank
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: current_size
! Array with the new sizes
- ! of dimensions
- INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: maximum_size
+ ! of dimensions
+ INTEGER(HSIZE_T), DIMENSION(rank), INTENT(IN) :: maximum_size
! Array with the new maximum
- ! sizes of dimensions
- ! sizes
+ ! sizes of dimensions
+ ! sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sset_extent_simple_c
@@ -1060,7 +1060,7 @@
!
INTERFACE
INTEGER FUNCTION h5sset_extent_simple_c(space_id, rank, &
- current_size, maximum_size)
+ current_size, maximum_size)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SSET_EXTENT_SIMPLE_C'::h5sset_extent_simple_c
@@ -1074,49 +1074,49 @@
hdferr = h5sset_extent_simple_c(space_id, rank, current_size, &
maximum_size)
-
+
END SUBROUTINE h5sset_extent_simple_f
!----------------------------------------------------------------------
-! Name: h5sis_simple_f
+! Name: h5sis_simple_f
!
-! Purpose: Determines whether a dataspace is a simple dataspace.
+! Purpose: Determines whether a dataspace is a simple dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
+! Outputs:
! status - flag to indicate if dataspace
-! is simple or not
-! hdferr: - error code
+! is simple or not
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sis_simple_f(space_id, status, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
LOGICAL, INTENT(OUT) :: status ! Flag, idicates if dataspace
! is simple or not ( TRUE or
- ! FALSE)
+ ! FALSE)
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
+ INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
! INTEGER, EXTERNAL :: h5sis_simple_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sis_simple_c(space_id, flag)
+ INTEGER FUNCTION h5sis_simple_c(space_id, flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SIS_SIMPLE_C'::h5sis_simple_c
@@ -1129,47 +1129,47 @@
hdferr = h5sis_simple_c(space_id, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
-
+
END SUBROUTINE h5sis_simple_f
!----------------------------------------------------------------------
-! Name: h5soffset_simple_f
+! Name: h5soffset_simple_f
!
-! Purpose: Sets the offset of a simple dataspace.
+! Purpose: Sets the offset of a simple dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! offset - the offset at which to position the
-! selection
-! Outputs:
-! hdferr: - error code
+! offset - the offset at which to position the
+! selection
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5soffset_simple_f(space_id, offset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER(HSSIZE_T), DIMENSION(*), INTENT(IN) :: offset
! The offset at which to position
- ! the selection
+ ! the selection
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5soffset_simple_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5soffset_simple_c(space_id, offset)
+ INTEGER FUNCTION h5soffset_simple_c(space_id, offset)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SOFFSET_SIMPLE_C'::h5soffset_simple_c
@@ -1180,41 +1180,41 @@
END INTERFACE
hdferr = h5soffset_simple_c(space_id, offset)
-
+
END SUBROUTINE h5soffset_simple_f
!----------------------------------------------------------------------
-! Name: h5sextent_copy_f
+! Name: h5sextent_copy_f
!
-! Purpose: Copies the extent of a dataspace.
+! Purpose: Copies the extent of a dataspace.
!
-! Inputs:
-! dest_space_id - the identifier for the dataspace to which
-! the extent is copied
-! source_space_id - the identifier for the dataspace from
+! Inputs:
+! dest_space_id - the identifier for the dataspace to which
+! the extent is copied
+! source_space_id - the identifier for the dataspace from
! which the extent is copied
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sextent_copy_f(dest_space_id, source_space_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dest_space_id ! Identifier of destination
! dataspace
- INTEGER(HID_T), INTENT(IN) :: source_space_id ! Identifier of source
+ INTEGER(HID_T), INTENT(IN) :: source_space_id ! Identifier of source
! dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1233,42 +1233,42 @@
END INTERFACE
hdferr = h5sextent_copy_c(dest_space_id, source_space_id)
-
+
END SUBROUTINE h5sextent_copy_f
!----------------------------------------------------------------------
-! Name: h5sset_extent_none_f
+! Name: h5sset_extent_none_f
!
-! Purpose: Removes the extent from a dataspace.
+! Purpose: Removes the extent from a dataspace.
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sset_extent_none_f(space_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5sset_extent_none_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5sset_extent_none_c(space_id)
+ INTEGER FUNCTION h5sset_extent_none_c(space_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5SSET_EXTENT_NONE_C'::h5sset_extent_none_c
@@ -1278,64 +1278,64 @@
END INTERFACE
hdferr = h5sset_extent_none_c(space_id)
-
+
END SUBROUTINE h5sset_extent_none_f
!----------------------------------------------------------------------
-! Name: h5sselect_hyperslab_f
+! Name: h5sselect_hyperslab_f
!
-! Purpose: Selects a hyperslab region to add to the current selected
-! region
+! Purpose: Selects a hyperslab region to add to the current selected
+! region
!
-! Inputs:
+! Inputs:
! space_id - dataspace identifier
! operator - flag, valid values are:
! H5S_SELECT_SET_F (0)
! H5S_SELECT_OR_F (1)
! start - array with hyperslab offsets
-! count - number of blocks included in the
+! count - number of blocks included in the
! hyperslab
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! stride - array with hyperslab strides
-! block - array with hyperslab block sizes
+! block - array with hyperslab block sizes
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 6, 2001
+! port). March 6, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sselect_hyperslab_f(space_id, operator, start, count, &
hdferr, stride, block)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+ INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
! H5S_SELECT_SET_F (0)
! H5S_SELECT_OR_F (1)
- !
+ !
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: start
- ! Starting coordinates of the hyperslab
- INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
- ! Number of blocks to select
- ! from dataspace
+ ! Starting coordinates of the hyperslab
+ INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
+ ! Number of blocks to select
+ ! from dataspace
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: stride
! Array of how many elements to move
! in each direction
- INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: block
+ INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: block
! Sizes of element block
- INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
+ INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_stride
INTEGER :: rank
- INTEGER :: error1, error2
+ INTEGER :: error1, error2
! INTEGER, EXTERNAL :: h5sselect_hyperslab_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1352,7 +1352,7 @@
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: start
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: stride
- INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
+ INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
END FUNCTION h5sselect_hyperslab_c
END INTERFACE
@@ -1406,77 +1406,77 @@
def_stride, def_block)
deallocate(def_block)
deallocate(def_stride)
-
+
END SUBROUTINE h5sselect_hyperslab_f
!----------------------------------------------------------------------
-! Name: h5scombine_hyperslab_f
+! Name: h5scombine_hyperslab_f
!
-! Purpose: Combine a hyperslab selection with the current
-! selection for a dataspace
+! Purpose: Combine a hyperslab selection with the current
+! selection for a dataspace
!
-! Inputs:
-! space_id - dataspace of selection to use
+! Inputs:
+! space_id - dataspace of selection to use
! operator - flag, valid values are:
-! H5S_SELECT_NOOP_F
-! H5S_SELECT_SET_F
-! H5S_SELECT_OR_F
-! H5S_SELECT_AND_F
-! H5S_SELECT_XOR_F
-! H5S_SELECT_NOTB_F
-! H5S_SELECT_NOTA_F
-! H5S_SELECT_APPEND_F
-! H5S_SELECT_PREPEND_F
+! H5S_SELECT_NOOP_F
+! H5S_SELECT_SET_F
+! H5S_SELECT_OR_F
+! H5S_SELECT_AND_F
+! H5S_SELECT_XOR_F
+! H5S_SELECT_NOTB_F
+! H5S_SELECT_NOTA_F
+! H5S_SELECT_APPEND_F
+! H5S_SELECT_PREPEND_F
! start - array with hyperslab offsets
-! count - number of blocks included in the
+! count - number of blocks included in the
! hyperslab
-! Outputs:
+! Outputs:
! hyper_id - identifier for the new hyperslab
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! stride - array with hyperslab strides
-! block - array with hyperslab block sizes
+! block - array with hyperslab block sizes
!
! Programmer: Elena Pourmal
! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment: Commented out until 1.6 ? 10/08/2002
+! Comment: Commented out until 1.6 ? 10/08/2002
!----------------------------------------------------------------------
! SUBROUTINE h5scombine_hyperslab_f(space_id, operator, start, count, &
! hyper_id, hdferr, stride, block)
! IMPLICIT NONE
-! INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
+! INTEGER(HID_T), INTENT(IN) :: space_id ! Dataspace identifier
! INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
- ! H5S_SELECT_NOOP_F
- ! H5S_SELECT_SET_F
- ! H5S_SELECT_OR_F
- ! H5S_SELECT_AND_F
- ! H5S_SELECT_XOR_F
- ! H5S_SELECT_NOTB_F
- ! H5S_SELECT_NOTA_F
- ! H5S_SELECT_APPEND_F
- ! H5S_SELECT_PREPEND_F
- !
+ ! H5S_SELECT_NOOP_F
+ ! H5S_SELECT_SET_F
+ ! H5S_SELECT_OR_F
+ ! H5S_SELECT_AND_F
+ ! H5S_SELECT_XOR_F
+ ! H5S_SELECT_NOTB_F
+ ! H5S_SELECT_NOTA_F
+ ! H5S_SELECT_APPEND_F
+ ! H5S_SELECT_PREPEND_F
+ !
! INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: start
- ! Starting coordinates of the hyperslab
-! INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
- ! Number of blocks to select
- ! from dataspace
-! INTEGER(HID_T), INTENT(OUT) :: hyper_id ! New hyperslab identifier
+ ! Starting coordinates of the hyperslab
+! INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
+ ! Number of blocks to select
+ ! from dataspace
+! INTEGER(HID_T), INTENT(OUT) :: hyper_id ! New hyperslab identifier
! INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: stride
! Array of how many elements to move
! in each direction
-! INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: block
+! INTEGER(HSIZE_T), DIMENSION(:), OPTIONAL, INTENT(IN) :: block
! Sizes of element block
-! INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
+! INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_block
! INTEGER(HSIZE_T), DIMENSION(:), ALLOCATABLE :: def_stride
! INTEGER :: rank
-! INTEGER :: error1, error2
+! INTEGER :: error1, error2
! INTERFACE
! INTEGER FUNCTION h5scombine_hyperslab_c(space_id, operator, &
@@ -1490,7 +1490,7 @@
! INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: start
! INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: count
! INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: stride
-! INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
+! INTEGER(HSIZE_T), DIMENSION(*), OPTIONAL, INTENT(IN) :: block
! INTEGER(HID_T), INTENT(OUT) :: hyper_id
! END FUNCTION h5scombine_hyperslab_c
! END INTERFACE
@@ -1545,60 +1545,60 @@
! def_stride, def_block, hyper_id)
! deallocate(def_block)
! deallocate(def_stride)
-
+
! END SUBROUTINE h5scombine_hyperslab_f
!----------------------------------------------------------------------
-! Name: h5scombine_select_f
+! Name: h5scombine_select_f
!
-! Purpose: Combine two hyperslab selections with an operation
+! Purpose: Combine two hyperslab selections with an operation
! and return a dataspace with resulting selection.
!
-! Inputs:
-! space1_id - dataspace of selection to use
+! Inputs:
+! space1_id - dataspace of selection to use
! operator - flag, valid values are:
-! H5S_SELECT_NOOP_F
-! H5S_SELECT_SET_F
-! H5S_SELECT_OR_F
-! H5S_SELECT_AND_F
-! H5S_SELECT_XOR_F
-! H5S_SELECT_NOTB_F
-! H5S_SELECT_NOTA_F
-! H5S_SELECT_APPEND_F
-! H5S_SELECT_PREPEND_F
-! space2_id - dataspace of selection to use
-! Outputs:
+! H5S_SELECT_NOOP_F
+! H5S_SELECT_SET_F
+! H5S_SELECT_OR_F
+! H5S_SELECT_AND_F
+! H5S_SELECT_XOR_F
+! H5S_SELECT_NOTB_F
+! H5S_SELECT_NOTA_F
+! H5S_SELECT_APPEND_F
+! H5S_SELECT_PREPEND_F
+! space2_id - dataspace of selection to use
+! Outputs:
! ds_id - idataspace identifier with the new selection
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters: - NONE
!
! Programmer: Elena Pourmal
! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment: commented out until 1.6 release(?) 10/08/2002
+! Comment: commented out until 1.6 release(?) 10/08/2002
!----------------------------------------------------------------------
! SUBROUTINE h5scombine_select_f(space1_id, operator, space2_id, &
! ds_id, hdferr)
! IMPLICIT NONE
-! INTEGER(HID_T), INTENT(IN) :: space1_id ! First dataspace identifier
-! INTEGER(HID_T), INTENT(IN) :: space2_id ! Second dataspace identifier
+! INTEGER(HID_T), INTENT(IN) :: space1_id ! First dataspace identifier
+! INTEGER(HID_T), INTENT(IN) :: space2_id ! Second dataspace identifier
! INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
- ! H5S_SELECT_NOOP_F
- ! H5S_SELECT_SET_F
- ! H5S_SELECT_OR_F
- ! H5S_SELECT_AND_F
- ! H5S_SELECT_XOR_F
- ! H5S_SELECT_NOTB_F
- ! H5S_SELECT_NOTA_F
- ! H5S_SELECT_APPEND_F
- ! H5S_SELECT_PREPEND_F
- !
-! INTEGER(HID_T), INTENT(OUT) :: ds_id ! New dataspace identifier
+ ! H5S_SELECT_NOOP_F
+ ! H5S_SELECT_SET_F
+ ! H5S_SELECT_OR_F
+ ! H5S_SELECT_AND_F
+ ! H5S_SELECT_XOR_F
+ ! H5S_SELECT_NOTB_F
+ ! H5S_SELECT_NOTA_F
+ ! H5S_SELECT_APPEND_F
+ ! H5S_SELECT_PREPEND_F
+ !
+! INTEGER(HID_T), INTENT(OUT) :: ds_id ! New dataspace identifier
! INTEGER, INTENT(OUT) :: hdferr ! Error code
!
! INTERFACE
@@ -1618,60 +1618,60 @@
! hdferr = h5scombine_select_c(space1_id, operator, space2_id, &
! ds_id)
! return
-
+
! END SUBROUTINE h5scombine_select_f
!----------------------------------------------------------------------
-! Name: h5sselect_select_f
+! Name: h5sselect_select_f
!
-! Purpose: Refine a hyperslab selection with an operation
+! Purpose: Refine a hyperslab selection with an operation
! using second hyperslab
!
-! Inputs:
+! Inputs:
! space1_id - dataspace of selection to modify
! operator - flag, valid values are:
-! H5S_SELECT_NOOP_F
-! H5S_SELECT_SET_F
-! H5S_SELECT_OR_F
-! H5S_SELECT_AND_F
-! H5S_SELECT_XOR_F
-! H5S_SELECT_NOTB_F
-! H5S_SELECT_NOTA_F
-! H5S_SELECT_APPEND_F
-! H5S_SELECT_PREPEND_F
-! space2_id - dataspace of selection to use
-!
-! Outputs:
-! hdferr: - error code
+! H5S_SELECT_NOOP_F
+! H5S_SELECT_SET_F
+! H5S_SELECT_OR_F
+! H5S_SELECT_AND_F
+! H5S_SELECT_XOR_F
+! H5S_SELECT_NOTB_F
+! H5S_SELECT_NOTA_F
+! H5S_SELECT_APPEND_F
+! H5S_SELECT_PREPEND_F
+! space2_id - dataspace of selection to use
+!
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters: - NONE
!
! Programmer: Elena Pourmal
! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:Commented out until 1.6 release(?) 10/08/2002 EIP
+! Comment:Commented out until 1.6 release(?) 10/08/2002 EIP
!----------------------------------------------------------------------
! SUBROUTINE h5sselect_select_f(space1_id, operator, space2_id, &
! hdferr)
! IMPLICIT NONE
! INTEGER(HID_T), INTENT(INOUT) :: space1_id ! Dataspace identifier to
- ! modify
-! INTEGER(HID_T), INTENT(IN) :: space2_id ! Second dataspace identifier
+ ! modify
+! INTEGER(HID_T), INTENT(IN) :: space2_id ! Second dataspace identifier
! INTEGER, INTENT(IN) :: operator ! Flag, valid values are:
- ! H5S_SELECT_NOOP_F
- ! H5S_SELECT_SET_F
- ! H5S_SELECT_OR_F
- ! H5S_SELECT_AND_F
- ! H5S_SELECT_XOR_F
- ! H5S_SELECT_NOTB_F
- ! H5S_SELECT_NOTA_F
- ! H5S_SELECT_APPEND_F
- ! H5S_SELECT_PREPEND_F
- !
+ ! H5S_SELECT_NOOP_F
+ ! H5S_SELECT_SET_F
+ ! H5S_SELECT_OR_F
+ ! H5S_SELECT_AND_F
+ ! H5S_SELECT_XOR_F
+ ! H5S_SELECT_NOTB_F
+ ! H5S_SELECT_NOTA_F
+ ! H5S_SELECT_APPEND_F
+ ! H5S_SELECT_PREPEND_F
+ !
! INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTERFACE
@@ -1689,45 +1689,45 @@
! hdferr = h5sselect_select_c(space1_id, operator, space2_id)
! return
-
+
! END SUBROUTINE h5sselect_select_f
!----------------------------------------------------------------------
-! Name: h5sget_select_type_f
+! Name: h5sget_select_type_f
!
! Purpose: Retrieve the type of selection
!
-! Inputs:
+! Inputs:
! space_id - dataspace iidentifier with selection
-! Outputs:
+! Outputs:
! type - flag, valid values are:
-! H5S_SEL_ERROR_F
-! H5S_SEL_NONE_F
-! H5S_SEL_POINTS_F
-! H5S_SEL_HYPERSLABS_F
-! H5S_SEL_ALL_F
-! hdferr: - error code
+! H5S_SEL_ERROR_F
+! H5S_SEL_NONE_F
+! H5S_SEL_POINTS_F
+! H5S_SEL_HYPERSLABS_F
+! H5S_SEL_ALL_F
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters: - NONE
!
! Programmer: Elena Pourmal
! October 7, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sget_select_type_f(space_id, type, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(INOUT) :: space_id ! Dataspace identifier to
INTEGER, INTENT(OUT) :: type ! Selection type
- ! H5S_SEL_ERROR_F
- ! H5S_SEL_NONE_F
- ! H5S_SEL_POINTS_F
- ! H5S_SEL_HYPERSLABS_F
- ! H5S_SEL_ALL_F
+ ! H5S_SEL_ERROR_F
+ ! H5S_SEL_NONE_F
+ ! H5S_SEL_POINTS_F
+ ! H5S_SEL_HYPERSLABS_F
+ ! H5S_SEL_ALL_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -1743,7 +1743,7 @@
hdferr = h5sget_select_type_c(space_id, type)
return
-
+
END SUBROUTINE h5sget_select_type_f
!----------------------------------------------------------------------
@@ -1751,11 +1751,11 @@
!
! Purpose: Decode a binary object description of data space and return a new object handle.
!
-! Inputs:
+! Inputs:
! buf - Buffer for the data space object to be decoded.
! obj_id - Object ID
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
!
@@ -1764,9 +1764,9 @@
! Programmer: M.S. Breitenfeld
! March 26, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sdecode_f(buf, obj_id, hdferr)
@@ -1788,7 +1788,7 @@
END INTERFACE
hdferr = h5sdecode_c(buf, obj_id)
-
+
END SUBROUTINE h5sdecode_f
!----------------------------------------------------------------------
@@ -1802,7 +1802,7 @@
! nalloc - The size of the allocated buffer.
! Outputs:
! nalloc - The size of the buffer needed.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
!
@@ -1811,9 +1811,9 @@
! Programmer: M.S. Breitenfeld
! March 26, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sencode_f(obj_id, buf, nalloc, hdferr)
@@ -1836,25 +1836,25 @@
INTEGER(SIZE_T), INTENT(INOUT) :: nalloc
END FUNCTION h5sencode_c
END INTERFACE
-
+
hdferr = h5sencode_c(buf, obj_id, nalloc)
END SUBROUTINE h5sencode_f
-
+
!----------------------------------------------------------------------
-! Name: h5sextent_equal_f
+! Name: h5sextent_equal_f
!
! Purpose: Determines whether two dataspace extents are equal.
!
-! Inputs:
+! Inputs:
! space1_id - First dataspace identifier.
! space2_id - Second dataspace identifier.
-! Outputs:
+! Outputs:
! Equal - .TRUE. if equal, .FALSE. if unequal.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -1863,7 +1863,7 @@
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5sextent_equal_f(space1_id, space2_id, equal, hdferr)
@@ -1886,14 +1886,14 @@
INTEGER(HID_T) :: c_equal
END FUNCTION h5sextent_equal_c
END INTERFACE
-
+
hdferr = h5sextent_equal_c(space1_id, space2_id, c_equal)
-
+
equal = .FALSE.
- IF(c_equal.GT.0) equal = .TRUE.
+ IF(c_equal.GT.0) equal = .TRUE.
+
-
END SUBROUTINE h5sextent_equal_f
END MODULE H5S
diff --git a/fortran/src/H5Tff.f90 b/fortran/src/H5Tff.f90
index 2e981ad..82220c7 100644
--- a/fortran/src/H5Tff.f90
+++ b/fortran/src/H5Tff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5T functions
@@ -19,41 +19,41 @@
MODULE H5T
USE H5GLOBAL
-
+
CONTAINS
!----------------------------------------------------------------------
-! Name: h5topen_f
+! Name: h5topen_f
!
-! Purpose: Opens named datatype.
+! Purpose: Opens named datatype.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - a datatype name
-! Outputs:
+! Outputs:
! type_id - datatype identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! tapl_id - datatype access property list identifier.
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
! Added optional parameter 'tapl_id' for compatability
-! with H5Topen2. April 9, 2009.
+! with H5Topen2. April 9, 2009.
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5topen_f(loc_id, name, type_id, hdferr, tapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Datatype name within file or group
INTEGER(HID_T), INTENT(OUT) :: type_id ! Datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -70,7 +70,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TOPEN_C'::h5topen_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference ::name
+ !DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
@@ -78,7 +78,7 @@ CONTAINS
INTEGER(HID_T) :: tapl_id_default
END FUNCTION h5topen_c
END INTERFACE
-
+
namelen = LEN(name)
tapl_id_default = H5P_DEFAULT_F
@@ -88,47 +88,47 @@ CONTAINS
END SUBROUTINE h5topen_f
!----------------------------------------------------------------------
-! Name: h5tcommit_f
+! Name: h5tcommit_f
!
-! Purpose: Commits a transient datatype to a file, creating a
-! new named datatype.
+! Purpose: Commits a transient datatype to a file, creating a
+! new named datatype.
!
-! Inputs:
+! Inputs:
! loc_id - location identifier
! name - name of the datatype to be stored
! at the specified location
! type_id - identifier of a datatype to be stored
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! lcpl_id - Link creation property list
! tcpl_id - Datatype creation property list
! tapl_id - Datatype access property list
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: - Explicit Fortran interfaces were added for
+! Modifications: - Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
! port). March 7, 2001
!
-! - Added optional parameters introduced in version 1.8
+! - Added optional parameters introduced in version 1.8
! M.S. Breitenfeld
!
!
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tcommit_f(loc_id, name, type_id, hdferr, &
lcpl_id, tcpl_id, tapl_id )
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
- CHARACTER(LEN=*), INTENT(IN) :: name
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! File or group identifier
+ CHARACTER(LEN=*), INTENT(IN) :: name
! Datatype name within file or group
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lcpl_id ! Link creation property list
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: tcpl_id ! Datatype creation property list
@@ -150,7 +150,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TCOMMIT_C'::h5tcommit_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference ::name
+ !DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: loc_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER :: namelen
@@ -168,7 +168,7 @@ CONTAINS
IF (PRESENT(lcpl_id)) lcpl_id_default = lcpl_id
IF (PRESENT(tcpl_id)) tcpl_id_default = tcpl_id
IF (PRESENT(tapl_id)) tapl_id_default = tapl_id
-
+
namelen = LEN(name)
hdferr = h5tcommit_c(loc_id, name, namelen, type_id, &
@@ -177,36 +177,36 @@ CONTAINS
END SUBROUTINE h5tcommit_f
!----------------------------------------------------------------------
-! Name: h5tcopy_f
+! Name: h5tcopy_f
!
-! Purpose: iCreates a copy of exisiting datatype.
+! Purpose: iCreates a copy of exisiting datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! new_type_id - identifier of datatype's copy
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tcopy_f(type_id, new_type_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER(HID_T), INTENT(OUT) :: new_type_id
- ! Identifier of datatype's copy
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(OUT) :: new_type_id
+ ! Identifier of datatype's copy
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tcopy_c
@@ -227,37 +227,37 @@ CONTAINS
END SUBROUTINE h5tcopy_f
!----------------------------------------------------------------------
-! Name: h5tequal_f
+! Name: h5tequal_f
!
-! Purpose: Determines whether two datatype identifiers refer
-! to the same datatype.
+! Purpose: Determines whether two datatype identifiers refer
+! to the same datatype.
!
-! Inputs:
+! Inputs:
! type1_id - datatype identifier
! type2_id - datatype identifier
-! Outputs:
+! Outputs:
! flag - TRUE/FALSE flag to indicate
! if two datatypes are equal
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tequal_f(type1_id, type2_id, flag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type1_id ! Datatype identifier
- INTEGER(HID_T), INTENT(IN) :: type2_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type1_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type2_id ! Datatype identifier
LOGICAL, INTENT(OUT) :: flag ! TRUE/FALSE flag to indicate if two
! datatypes are equal
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -271,8 +271,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TEQUAL_C'::h5tequal_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type1_id
- INTEGER(HID_T), INTENT(IN) :: type2_id
+ INTEGER(HID_T), INTENT(IN) :: type1_id
+ INTEGER(HID_T), INTENT(IN) :: type2_id
INTEGER :: c_flag
END FUNCTION h5tequal_c
END INTERFACE
@@ -283,33 +283,33 @@ CONTAINS
END SUBROUTINE h5tequal_f
!----------------------------------------------------------------------
-! Name: h5tclose_f
+! Name: h5tclose_f
!
-! Purpose: Releases a datatype.
+! Purpose: Releases a datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tclose_f(type_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tclose_c
@@ -329,13 +329,13 @@ CONTAINS
END SUBROUTINE h5tclose_f
!----------------------------------------------------------------------
-! Name: h5tget_class_f
+! Name: h5tget_class_f
!
-! Purpose: Returns the datatype class identifier.
+! Purpose: Returns the datatype class identifier.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! class - class, possible values are:
! H5T_NO_CLASS_F (-1)
! H5T_INTEGER_F (0)
@@ -347,27 +347,27 @@ CONTAINS
! H5T_COMPOUND_F (6)
! H5T_REFERENCE_F (7)
! H5T_ENUM_F (8)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_class_f(type_id, class, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: class
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: class
! Datatype class, possible values are:
! H5T_NO_CLASS_F (-1)
! H5T_INTEGER_F (0)
@@ -390,7 +390,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_CLASS_C'::h5tget_class_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(OUT) :: class
END FUNCTION h5tget_class_c
END INTERFACE
@@ -399,34 +399,34 @@ CONTAINS
END SUBROUTINE h5tget_class_f
!----------------------------------------------------------------------
-! Name: h5tget_size_f
+! Name: h5tget_size_f
!
-! Purpose: Returns the size of a datatype.
+! Purpose: Returns the size of a datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! size - datatype size
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_size_f(type_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(OUT) :: size ! Datatype size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -448,34 +448,34 @@ CONTAINS
END SUBROUTINE h5tget_size_f
!----------------------------------------------------------------------
-! Name: h5tset_size_f
+! Name: h5tset_size_f
!
-! Purpose: Sets the total size for an atomic datatype.
+! Purpose: Sets the total size for an atomic datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! size - size of the datatype
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_size_f(type_id, size, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(IN) :: size ! Datatype size
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -497,39 +497,39 @@ CONTAINS
END SUBROUTINE h5tset_size_f
!----------------------------------------------------------------------
-! Name: h5tget_order_f
+! Name: h5tget_order_f
!
-! Purpose: Returns the byte order of an atomic datatype.
+! Purpose: Returns the byte order of an atomic datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! order - byte order for the datatype, possible
! values are:
! H5T_ORDER_LE_F
! H5T_ORDER_BE_F
! H5T_ORDER_VAX_F (not implemented yet)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_order_f(type_id, order, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: order
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: order
! Datatype byte order, bossible values are:
! H5T_ORDER_LE_F
! H5T_ORDER_BE_F
@@ -554,43 +554,43 @@ CONTAINS
END SUBROUTINE h5tget_order_f
!----------------------------------------------------------------------
-! Name: h5tset_order_f
+! Name: h5tset_order_f
!
-! Purpose: Sets the byte ordering of an atomic datatype.
+! Purpose: Sets the byte ordering of an atomic datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! order - datatype byte order
! Possible values are:
! H5T_ORDER_LE_F
! H5T_ORDER_BE_F
! H5T_ORDER_VAX_F (not implemented yet)
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_order_f(type_id, order, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: order ! Datatype byte order, bossible values
! are:
- ! H5T_ORDER_LE_F
+ ! H5T_ORDER_LE_F
! H5T_ORDER_BE_F
- ! H5T_ORDER_VAX_F
+ ! H5T_ORDER_VAX_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tset_order_c
@@ -611,34 +611,34 @@ CONTAINS
END SUBROUTINE h5tset_order_f
!----------------------------------------------------------------------
-! Name: h5tget_precision_f
+! Name: h5tget_precision_f
!
-! Purpose: Returns the precision of an atomic datatype.
+! Purpose: Returns the precision of an atomic datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! precision - precision of the datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_precision_f(type_id, precision, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(OUT) :: precision ! Datatype precision
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -651,8 +651,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_PRECISION_C'::h5tget_precision_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(OUT) :: precision
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(SIZE_T), INTENT(OUT) :: precision
END FUNCTION h5tget_precision_c
END INTERFACE
@@ -660,33 +660,33 @@ CONTAINS
END SUBROUTINE h5tget_precision_f
!----------------------------------------------------------------------
-! Name: h5tset_precision_f
+! Name: h5tset_precision_f
!
-! Purpose: Sets the precision of an atomic datatype.
+! Purpose: Sets the precision of an atomic datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! precision - datatype precision
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_precision_f(type_id, precision, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(IN) :: precision ! Datatype precision
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -699,8 +699,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TSET_PRECISION_C'::h5tset_precision_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(IN) :: precision
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(SIZE_T), INTENT(IN) :: precision
END FUNCTION h5tset_precision_c
END INTERFACE
@@ -708,33 +708,33 @@ CONTAINS
END SUBROUTINE h5tset_precision_f
!----------------------------------------------------------------------
-! Name: h5tget_offset_f
+! Name: h5tget_offset_f
!
-! Purpose: Retrieves the bit offset of the first significant bit.
+! Purpose: Retrieves the bit offset of the first significant bit.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! offset - offset value
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_offset_f(type_id, offset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(OUT) :: offset ! Datatype bit offset of the
! first significant bit
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -748,8 +748,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_OFFSET_C'::h5tget_offset_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(OUT) :: offset
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(SIZE_T), INTENT(OUT) :: offset
END FUNCTION h5tget_offset_c
END INTERFACE
@@ -757,33 +757,33 @@ CONTAINS
END SUBROUTINE h5tget_offset_f
!----------------------------------------------------------------------
-! Name: h5tset_offset_f
+! Name: h5tset_offset_f
!
-! Purpose: Sets the bit offset of the first significant bit.
+! Purpose: Sets the bit offset of the first significant bit.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! offset - offset value
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_offset_f(type_id, offset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(IN) :: offset ! Datatype bit offset of the
! first significant bit
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -797,8 +797,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TSET_OFFSET_C'::h5tset_offset_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(IN) :: offset
+ INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(SIZE_T), INTENT(IN) :: offset
END FUNCTION h5tset_offset_c
END INTERFACE
@@ -806,44 +806,44 @@ CONTAINS
END SUBROUTINE h5tset_offset_f
!----------------------------------------------------------------------
-! Name: h5tget_pad_f
+! Name: h5tget_pad_f
!
-! Purpose: Retrieves the padding type of the least and
-! most-significant bit padding.
+! Purpose: Retrieves the padding type of the least and
+! most-significant bit padding.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! lsbpad - least-significant bit padding type
-! msbpad - most-significant bit padding type
+! Outputs:
+! lsbpad - least-significant bit padding type
+! msbpad - most-significant bit padding type
! Possible values of padding type are:
! H5T_PAD_ERROR_F = -1
! H5T_PAD_ZERO_F = 0
! H5T_PAD_ONE_F = 1
! H5T_PAD_BACKGROUND_F = 2
! H5T_PAD_NPAD_F = 3
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_pad_f(type_id, lsbpad, msbpad, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: lsbpad ! padding type of the
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: lsbpad ! padding type of the
! least significant bit
- INTEGER, INTENT(OUT) :: msbpad ! padding type of the
+ INTEGER, INTENT(OUT) :: msbpad ! padding type of the
! most significant bit
! Possible values of padding type are:
! H5T__PAD_ZERO_F = 0
@@ -864,7 +864,7 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_PAD_C'::h5tget_pad_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER, INTENT(OUT) :: lsbpad
+ INTEGER, INTENT(OUT) :: lsbpad
INTEGER, INTENT(OUT) :: msbpad
END FUNCTION h5tget_pad_c
END INTERFACE
@@ -873,43 +873,43 @@ CONTAINS
END SUBROUTINE h5tget_pad_f
!----------------------------------------------------------------------
-! Name: h5tset_pad_f
+! Name: h5tset_pad_f
!
-! Purpose: Sets the least and most-significant bits padding types.
+! Purpose: Sets the least and most-significant bits padding types.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! lsbpad - least-significant bit padding type
-! msbpad - most-significant bit padding type
+! lsbpad - least-significant bit padding type
+! msbpad - most-significant bit padding type
! Possible values of padding type are:
! H5T_PAD_ERROR_F = -1
! H5T_PAD_ZERO_F = 0
! H5T_PAD_ONE_F = 1
! H5T_PAD_BACKGROUND_F = 2
! H5T_PAD_NPAD_F = 3
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_pad_f(type_id, lsbpad, msbpad, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: lsbpad ! padding type of the
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: lsbpad ! padding type of the
! least significant bit
- INTEGER, INTENT(IN) :: msbpad ! padding type of the
+ INTEGER, INTENT(IN) :: msbpad ! padding type of the
! most significant bit
! Possible values of padding type are:
! H5T_PAD_ZERO_F = 0
@@ -929,7 +929,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TSET_PAD_C'::h5tset_pad_c
!DEC$ENDIF
- INTEGER, INTENT(IN) :: lsbpad
+ INTEGER, INTENT(IN) :: lsbpad
INTEGER, INTENT(IN) :: msbpad
END FUNCTION h5tset_pad_c
END INTERFACE
@@ -938,44 +938,44 @@ CONTAINS
END SUBROUTINE h5tset_pad_f
!----------------------------------------------------------------------
-! Name: h5tget_sign_f
+! Name: h5tget_sign_f
!
-! Purpose: Retrieves the sign type for an integer type.
+! Purpose: Retrieves the sign type for an integer type.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! sign - sign type
+! Outputs:
+! sign - sign type
! Possible values are:
! Unsigned integer type H5T_SGN_NONE_F = 0
! Two's complement signed integer type
! H5T_SGN_2_F = 1
-! or error value: H5T_SGN_ERROR_F=-1
-! hdferr: - error code
+! or error value: H5T_SGN_ERROR_F=-1
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_sign_f(type_id, sign, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(OUT) :: sign ! sign type for an integer type
!possible values are:
!Unsigned integer type H5T_SGN_NONE_F = 0
!Two's complement signed integer type
!H5T_SGN_2_F = 1
- !or error value: H5T_SGN_ERROR_F=-1
+ !or error value: H5T_SGN_ERROR_F=-1
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_sign_c
@@ -996,44 +996,44 @@ CONTAINS
END SUBROUTINE h5tget_sign_f
!----------------------------------------------------------------------
-! Name: h5tset_sign_f
+! Name: h5tset_sign_f
!
-! Purpose: Sets the sign proprety for an integer type.
+! Purpose: Sets the sign proprety for an integer type.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! sign - sign type
+! sign - sign type
! Possible values are:
! Unsigned integer type H5T_SGN_NONE_F = 0
! Two's complement signed integer type
! H5T_SGN_2_F = 1
-! or error value: H5T_SGN_ERROR_F=-1
-! Outputs:
-! hdferr: - error code
+! or error value: H5T_SGN_ERROR_F=-1
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_sign_f(type_id, sign, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: sign !sign type for an integer type
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: sign !sign type for an integer type
!possible values are:
!Unsigned integer type H5T_SGN_NONE_F = 0
!Two's complement signed integer type
!H5T_SGN_2_F = 1
- !or error value: H5T_SGN_ERROR_F=-1
+ !or error value: H5T_SGN_ERROR_F=-1
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tset_sign_c
@@ -1054,41 +1054,41 @@ CONTAINS
END SUBROUTINE h5tset_sign_f
!----------------------------------------------------------------------
-! Name: h5tget_fields_f
+! Name: h5tget_fields_f
!
-! Purpose: Retrieves floating point datatype bit field information.
+! Purpose: Retrieves floating point datatype bit field information.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! spos - sign bit-position
! epos - exponent bit-position
! esize - size of exponent in bits
! mpos - mantissa position
! msize - size of mantissa in bits
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_fields_f(type_id, spos, epos, esize, mpos, msize, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER(SIZE_T), INTENT(OUT) :: spos ! sign bit-position
- INTEGER(SIZE_T), INTENT(OUT) :: epos ! exponent bit-position
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(SIZE_T), INTENT(OUT) :: spos ! sign bit-position
+ INTEGER(SIZE_T), INTENT(OUT) :: epos ! exponent bit-position
INTEGER(SIZE_T), INTENT(OUT) :: esize ! size of exponent in bits
- INTEGER(SIZE_T), INTENT(OUT) :: mpos ! mantissa bit-position
+ INTEGER(SIZE_T), INTENT(OUT) :: mpos ! mantissa bit-position
INTEGER(SIZE_T), INTENT(OUT) :: msize ! size of mantissa in bits
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1102,10 +1102,10 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_FIELDS_C'::h5tget_fields_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(OUT) :: spos
- INTEGER(SIZE_T), INTENT(OUT) :: epos
+ INTEGER(SIZE_T), INTENT(OUT) :: spos
+ INTEGER(SIZE_T), INTENT(OUT) :: epos
INTEGER(SIZE_T), INTENT(OUT) :: esize
- INTEGER(SIZE_T), INTENT(OUT) :: mpos
+ INTEGER(SIZE_T), INTENT(OUT) :: mpos
INTEGER(SIZE_T), INTENT(OUT) :: msize
END FUNCTION h5tget_fields_c
END INTERFACE
@@ -1114,42 +1114,42 @@ CONTAINS
END SUBROUTINE h5tget_fields_f
!----------------------------------------------------------------------
-! Name: h5tset_fields_f
+! Name: h5tset_fields_f
!
-! Purpose: Sets locations and sizes of floating point bit fields.
+! Purpose: Sets locations and sizes of floating point bit fields.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! spos - sign bit-position
! epos - exponent bit-position
! esize - size of exponent in bits
! mpos - mantissa position
! msize - size of mantissa in bits
-! hdferr: - error code
-! Outputs:
-! hdferr: - error code
+! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_fields_f(type_id, spos, epos, esize, mpos, msize, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER(SIZE_T), INTENT(IN) :: spos ! sign bit-position
- INTEGER(SIZE_T), INTENT(IN) :: epos ! exponent bit-position
+ INTEGER(SIZE_T), INTENT(IN) :: spos ! sign bit-position
+ INTEGER(SIZE_T), INTENT(IN) :: epos ! exponent bit-position
INTEGER(SIZE_T), INTENT(IN) :: esize ! size of exponent in bits
- INTEGER(SIZE_T), INTENT(IN) :: mpos ! mantissa bit-position
+ INTEGER(SIZE_T), INTENT(IN) :: mpos ! mantissa bit-position
INTEGER(SIZE_T), INTENT(IN) :: msize ! size of mantissa in bits
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1163,10 +1163,10 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TSET_FIELDS_C'::h5tset_fields_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER(SIZE_T), INTENT(IN) :: spos
- INTEGER(SIZE_T), INTENT(IN) :: epos
+ INTEGER(SIZE_T), INTENT(IN) :: spos
+ INTEGER(SIZE_T), INTENT(IN) :: epos
INTEGER(SIZE_T), INTENT(IN) :: esize
- INTEGER(SIZE_T), INTENT(IN) :: mpos
+ INTEGER(SIZE_T), INTENT(IN) :: mpos
INTEGER(SIZE_T), INTENT(IN) :: msize
END FUNCTION h5tset_fields_c
END INTERFACE
@@ -1175,33 +1175,33 @@ CONTAINS
END SUBROUTINE h5tset_fields_f
!----------------------------------------------------------------------
-! Name: h5tget_ebias_f
+! Name: h5tget_ebias_f
!
-! Purpose: Retrieves the exponent bias of a floating-point type.
+! Purpose: Retrieves the exponent bias of a floating-point type.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! ebias - datatype exponent bias
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_ebias_f(type_id, ebias, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(OUT) :: ebias ! Datatype exponent bias of a floating-point type
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1214,7 +1214,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_EBIAS_C'::h5tget_ebias_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(OUT) :: ebias
END FUNCTION h5tget_ebias_c
END INTERFACE
@@ -1223,34 +1223,34 @@ CONTAINS
END SUBROUTINE h5tget_ebias_f
!----------------------------------------------------------------------
-! Name: h5tset_ebias_f
+! Name: h5tset_ebias_f
!
-! Purpose: Sets the exponent bias of a floating-point type.
+! Purpose: Sets the exponent bias of a floating-point type.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! ebias - datatype exponent bias
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_ebias_f(type_id, ebias, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER(SIZE_T), INTENT(IN) :: ebias !Datatype exponent bias of a floating-point type
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1263,7 +1263,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TSET_EBIAS_C'::h5tset_ebias_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(SIZE_T), INTENT(IN) :: ebias
END FUNCTION h5tset_ebias_c
END INTERFACE
@@ -1272,41 +1272,41 @@ CONTAINS
END SUBROUTINE h5tset_ebias_f
!----------------------------------------------------------------------
-! Name: h5tget_norm_f
+! Name: h5tget_norm_f
!
-! Purpose: Retrieves mantissa normalization of a floating-point
-! datatype.
+! Purpose: Retrieves mantissa normalization of a floating-point
+! datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! norm - normalization types, valid values are:
! H5T_NORM_IMPLIED_F(0)
! H5T_NORM_MSBSET_F(1)
! H5T_NORM_NONE_F(2)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_norm_f(type_id, norm, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(OUT) :: norm !mantissa normalization of a floating-point datatype
!Valid normalization types are:
- !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
- !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
+ !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
+ !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
!mantissa is always 1, H5T_NORM_NONE_F(2)
!Mantissa is not normalize
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1329,41 +1329,41 @@ CONTAINS
END SUBROUTINE h5tget_norm_f
!----------------------------------------------------------------------
-! Name: h5tset_norm_f
+! Name: h5tset_norm_f
!
-! Purpose: Sets the mantissa normalization of a floating-point datatype.
+! Purpose: Sets the mantissa normalization of a floating-point datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! norm - normalization types, valid values are:
! H5T_NORM_IMPLIED_F(0)
! H5T_NORM_MSBSET_F(1)
! H5T_NORM_NONE_F(2)
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_norm_f(type_id, norm, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: norm !mantissa normalization of a floating-point datatype
!Valid normalization types are:
- !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
- !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
+ !H5T_NORM_IMPLIED_F(0),MSB of mantissa is not
+ !stored, always 1, H5T_NORM_MSBSET_F(1), MSB of
!mantissa is always 1, H5T_NORM_NONE_F(2)
!Mantissa is not normalize
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1386,39 +1386,39 @@ CONTAINS
END SUBROUTINE h5tset_norm_f
!----------------------------------------------------------------------
-! Name: h5tget_inpad_f
+! Name: h5tget_inpad_f
!
-! Purpose: Retrieves the internal padding type for unused bits
-! in floating-point datatypes.
+! Purpose: Retrieves the internal padding type for unused bits
+! in floating-point datatypes.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! padtype - padding type for unused bits
! Possible values of padding type are:
! H5T_PAD_ZERO_F = 0
! H5T_PAD_ONE_F = 1
! H5T_PAD_BACKGROUND_F = 2
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_inpad_f(type_id, padtype, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: padtype ! padding type for unused bits
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: padtype ! padding type for unused bits
! in floating-point datatypes.
! Possible values of padding type are:
! H5T__PAD_ZERO_F = 0
@@ -1445,38 +1445,38 @@ CONTAINS
END SUBROUTINE h5tget_inpad_f
!----------------------------------------------------------------------
-! Name: h5tset_inpad_f
+! Name: h5tset_inpad_f
!
-! Purpose: Fills unused internal floating point bits.
+! Purpose: Fills unused internal floating point bits.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! padtype - padding type for unused bits
! Possible values of padding type are:
! H5T_PAD_ZERO_F = 0
! H5T_PAD_ONE_F = 1
! H5T_PAD_BACKGROUND_F = 2
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_inpad_f(type_id, padtype, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: padtype ! padding type for unused bits
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: padtype ! padding type for unused bits
! in floating-point datatypes.
! Possible values of padding type are:
! H5T__PAD_ZERO_F = 0
@@ -1502,36 +1502,36 @@ CONTAINS
END SUBROUTINE h5tset_inpad_f
!----------------------------------------------------------------------
-! Name: h5tget_cset_f
+! Name: h5tget_cset_f
!
-! Purpose: Retrieves the character set type of a string datatype.
+! Purpose: Retrieves the character set type of a string datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! cset - character set type of a string datatype
! Possible values of padding type are:
! H5T_CSET_ASCII_F = 0
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_cset_f(type_id, cset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: cset ! character set type of a string datatype
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: cset ! character set type of a string datatype
! Possible values of padding type are:
!H5T_CSET_ASCII_F = 0
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1554,36 +1554,36 @@ CONTAINS
END SUBROUTINE h5tget_cset_f
!----------------------------------------------------------------------
-! Name: h5tset_cset_f
+! Name: h5tset_cset_f
!
-! Purpose: Sets character set to be used.
+! Purpose: Sets character set to be used.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! cset - character set type of a string datatype
! Possible values of padding type are:
! H5T_CSET_ASCII_F = 0
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_cset_f(type_id, cset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: cset !character set type of a string datatype
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: cset !character set type of a string datatype
!Possible values of padding type are:
!H5T_CSET_ASCII_F = 0
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1606,39 +1606,39 @@ CONTAINS
END SUBROUTINE h5tset_cset_f
!----------------------------------------------------------------------
-! Name: h5tget_strpad_f
+! Name: h5tget_strpad_f
!
-! Purpose: Retrieves the storage mechanism for a string datatype.
+! Purpose: Retrieves the storage mechanism for a string datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
+! Outputs:
! strpad - storage method for a string datatype
! Possible values are:
-! H5T_STR_NULLTERM_F,
-! H5T_STR_NULLPAD_F,
+! H5T_STR_NULLTERM_F,
+! H5T_STR_NULLPAD_F,
! H5T_STR_SPACEPAD_F
! H5T_STR_ERROR_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_strpad_f(type_id, strpad, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: strpad
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: strpad
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_strpad_c
@@ -1659,39 +1659,39 @@ CONTAINS
END SUBROUTINE h5tget_strpad_f
!----------------------------------------------------------------------
-! Name: h5tset_strpad_f
+! Name: h5tset_strpad_f
!
-! Purpose: Defines the storage mechanism for character strings.
+! Purpose: Defines the storage mechanism for character strings.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! strpad - storage method for a string datatype
! Possible values are:
-! H5T_STR_NULLTERM_F,
-! H5T_STR_NULLPAD_F,
+! H5T_STR_NULLTERM_F,
+! H5T_STR_NULLPAD_F,
! H5T_STR_SPACEPAD_F
! H5T_STR_ERROR_F
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_strpad_f(type_id, strpad, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: strpad ! string padding method for a string datatype
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: strpad ! string padding method for a string datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tset_strpad_c
@@ -1712,35 +1712,35 @@ CONTAINS
END SUBROUTINE h5tset_strpad_f
!----------------------------------------------------------------------
-! Name: h5tget_nmembers_f
+! Name: h5tget_nmembers_f
!
-! Purpose: Retrieves the number of fields in a compound datatype.
+! Purpose: Retrieves the number of fields in a compound datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! num_members - number of members
-! hdferr: - error code
+! Outputs:
+! num_members - number of members
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_nmembers_f(type_id, num_members, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(OUT) :: num_members !number of fields in a compound datatype
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(OUT) :: num_members !number of fields in a compound datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_nmembers_c
@@ -1761,39 +1761,39 @@ CONTAINS
END SUBROUTINE h5tget_nmembers_f
!----------------------------------------------------------------------
-! Name: h5tget_member_name_f
+! Name: h5tget_member_name_f
!
-! Purpose: Retrieves the name of a field of a compound datatype.
+! Purpose: Retrieves the name of a field of a compound datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! index - filed index (0-based)
-! Outputs:
+! Outputs:
! member_name - buffer to hold member's name
! namelen - name length
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_name_f(type_id, index, member_name, namelen, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: index !Field index (0-based) of the field name to retrieve
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: index !Field index (0-based) of the field name to retrieve
CHARACTER(LEN=*), INTENT(OUT) :: member_name !name of a field of
- !a compound datatype
- INTEGER, INTENT(OUT) :: namelen ! Length of the name
+ !a compound datatype
+ INTEGER, INTENT(OUT) :: namelen ! Length of the name
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_member_name_c
@@ -1806,46 +1806,46 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_MEMBER_NAME_C'::h5tget_member_name_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: member_name
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: index
CHARACTER(LEN=*), INTENT(OUT) :: member_name
INTEGER, INTENT(OUT) :: namelen
- END FUNCTION
+ END FUNCTION
END INTERFACE
hdferr = h5tget_member_name_c(type_id, index, member_name, namelen)
END SUBROUTINE h5tget_member_name_f
!----------------------------------------------------------------------
-! Name: h5tget_member_offset_f
+! Name: h5tget_member_offset_f
!
-! Purpose: Retrieves the offset of a field of a compound datatype.
+! Purpose: Retrieves the offset of a field of a compound datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! member_no - number of the field
-! Outputs:
+! Outputs:
! offset - byte offset of the requested field
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_offset_f(type_id, member_no, offset, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER, INTENT(IN) :: member_no !Number of the field
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER, INTENT(IN) :: member_no !Number of the field
!whose offset is requested
INTEGER(SIZE_T), INTENT(OUT) :: offset !byte offset of the beginning of the field
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1868,19 +1868,19 @@ CONTAINS
hdferr = h5tget_member_offset_c(type_id, member_no, offset )
END SUBROUTINE h5tget_member_offset_f
!----------------------------------------------------------------------
-! Name: h5tget_member_index_f
+! Name: h5tget_member_index_f
!
-! Purpose: Retrieves the index of a compound or enumeration datatype member.
+! Purpose: Retrieves the index of a compound or enumeration datatype member.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! name - name of the field or member whose index to
! to be retrieved from the datatype.
-! Outputs:
+! Outputs:
! index - 0-based index of the filed or member (0 to N-1)
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
@@ -1889,16 +1889,16 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_index_f(type_id, name, index, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Field or member name
INTEGER, INTENT(OUT) :: index ! Field or member index
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: namelen ! Name length
+ INTEGER :: namelen ! Name length
INTERFACE
INTEGER FUNCTION h5tget_member_index_c(type_id, name, namelen, index)
@@ -1906,11 +1906,11 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_MEMBER_INDEX_C'::h5tget_member_index_c
!DEC$ENDIF
- !DEC$ATTRIBUTES reference ::name
+ !DEC$ATTRIBUTES reference ::name
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: namelen
- INTEGER, INTENT(OUT) :: index
+ INTEGER, INTENT(OUT) :: index
END FUNCTION h5tget_member_index_c
END INTERFACE
@@ -1920,39 +1920,39 @@ CONTAINS
!----------------------------------------------------------------------
-! Name: h5tget_member_dim_f
+! Name: h5tget_member_dim_f
!
-! Purpose: This function is not supported in hdf5-1.4.*
+! Purpose: This function is not supported in hdf5-1.4.*
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
! SUBROUTINE h5tget_member_dims_f(type_id, field_idx,dims, field_dims, perm, hdferr)
!
! IMPLICIT NONE
-! INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
-! INTEGER, INTENT(IN) :: field_idx !Field index (0-based) of
+! INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+! INTEGER, INTENT(IN) :: field_idx !Field index (0-based) of
! !field_dims, perm)
! INTEGER, INTENT(OUT) :: dims !number of dimensions of the field
!
-! INTEGER(SIZE_T),DIMENSION(*), INTENT(OUT) :: field_dims !buffer to store the
+! INTEGER(SIZE_T),DIMENSION(*), INTENT(OUT) :: field_dims !buffer to store the
! !dimensions of the field
-! INTEGER, DIMENSION(*), INTENT(OUT) :: perm !buffer to store the
+! INTEGER, DIMENSION(*), INTENT(OUT) :: perm !buffer to store the
! !permutation vector of the field
! INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_member_dims_c
@@ -1961,36 +1961,36 @@ CONTAINS
! END SUBROUTINE h5tget_member_dims_f
!----------------------------------------------------------------------
-! Name: h5tget_array_dims_f
+! Name: h5tget_array_dims_f
!
! Purpose: Returns sizes of array dimensions.
!
-! Inputs:
+! Inputs:
! type_id - array datatype identifier
-! Outputs:
+! Outputs:
! dims - buffer to store array datatype
! dimensions
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_array_dims_f(type_id, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Array datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Array datatype identifier
INTEGER(HSIZE_T),DIMENSION(*), INTENT(OUT) :: dims !buffer to store array datatype
- ! dimensions
+ ! dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_array_dims_c
@@ -2012,33 +2012,33 @@ CONTAINS
END SUBROUTINE h5tget_array_dims_f
!----------------------------------------------------------------------
-! Name: h5tget_array_ndims_f
+! Name: h5tget_array_ndims_f
!
-! Purpose: Returns the rank of an array datatype.
+! Purpose: Returns the rank of an array datatype.
!
-! Inputs:
+! Inputs:
! type_id - array datatype identifier
-! Outputs:
+! Outputs:
! ndims - number of array dimensions
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_array_ndims_f(type_id, ndims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Array datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Array datatype identifier
INTEGER, INTENT(OUT) :: ndims ! number of array dimensions
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2061,33 +2061,33 @@ CONTAINS
END SUBROUTINE h5tget_array_ndims_f
!----------------------------------------------------------------------
-! Name: h5tget_super_f
+! Name: h5tget_super_f
!
-! Purpose: Returns the base datatype from which a datatype is derived.
+! Purpose: Returns the base datatype from which a datatype is derived.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! base_type_id - identifier of the base type
-! hdferr: - error code
+! Outputs:
+! base_type_id - identifier of the base type
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_super_f(type_id, base_type_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! datatype identifier
INTEGER(HID_T), INTENT(OUT) :: base_type_id ! identifier of the datatype
! from which datatype (type_id) was derived
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2101,7 +2101,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_SUPER_C'::h5tget_super_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER(HID_T), INTENT(OUT) :: base_type_id
END FUNCTION h5tget_super_c
END INTERFACE
@@ -2111,38 +2111,38 @@ CONTAINS
END SUBROUTINE h5tget_super_f
!----------------------------------------------------------------------
-! Name: h5tget_member_type_f
+! Name: h5tget_member_type_f
!
-! Purpose: Returns the datatype of the specified member.
+! Purpose: Returns the datatype of the specified member.
!
-! Inputs:
+! Inputs:
! type_id - compound datatype identifier
! field_idx - field index (0-based)
!
-! Outputs:
+! Outputs:
! datatype - idnetifier of the member's datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_type_f(type_id, field_idx, datatype, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: field_idx !Field index (0-based) of the field type to retrieve
- INTEGER(HID_T), INTENT(OUT) :: datatype !identifier of a copy of
- !the datatype of the field
+ INTEGER(HID_T), INTENT(OUT) :: datatype !identifier of a copy of
+ !the datatype of the field
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_member_type_c
@@ -2164,32 +2164,32 @@ CONTAINS
END SUBROUTINE h5tget_member_type_f
!----------------------------------------------------------------------
-! Name: h5tcreate_f
+! Name: h5tcreate_f
!
! Purpose: Creates a new dataype
!
-! Inputs:
+! Inputs:
! class - datatype class, possible values are:
! H5T_COMPOUND_F
-! H5T_ENUM_F
+! H5T_ENUM_F
! H5T_OPAQUE_F
! size - datattype size
-! Outputs:
+! Outputs:
! type_id - datatype identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
@@ -2197,7 +2197,7 @@ CONTAINS
IMPLICIT NONE
INTEGER, INTENT(IN) :: class ! Datatype class can be one of
! H5T_COMPOUND_F
- ! H5T_ENUM_F
+ ! H5T_ENUM_F
! H5T_OPAQUE_F
INTEGER(SIZE_T), INTENT(IN) :: size ! Size of the datatype
INTEGER(HID_T), INTENT(OUT) :: type_id ! Datatype identifier
@@ -2212,9 +2212,9 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TCREATE_C'::h5tcreate_c
!DEC$ENDIF
- INTEGER, INTENT(IN) :: class
- INTEGER(SIZE_T), INTENT(IN) :: size
- INTEGER(HID_T), INTENT(OUT) :: type_id
+ INTEGER, INTENT(IN) :: class
+ INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(HID_T), INTENT(OUT) :: type_id
END FUNCTION h5tcreate_c
END INTERFACE
@@ -2222,36 +2222,36 @@ CONTAINS
END SUBROUTINE h5tcreate_f
!----------------------------------------------------------------------
-! Name: h5tinsert_f
+! Name: h5tinsert_f
!
-! Purpose: Adds a new member to a compound datatype.
+! Purpose: Adds a new member to a compound datatype.
!
-! Inputs:
+! Inputs:
! type_id - compound dattype identifier
! name - name of the field to insert
-! offset - start of the member in an instance of
+! offset - start of the member in an instance of
! the compound datatype
! field_id - datatype identifier of the field to insert
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tinsert_f(type_id, name, offset, field_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
CHARACTER(LEN=*), INTENT(IN) :: name !Name of the field to insert
INTEGER(SIZE_T), INTENT(IN) :: offset !start of the member in an instance of
!the compound datatype
@@ -2273,7 +2273,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER(SIZE_T), INTENT(IN) :: offset
- INTEGER(HID_T), INTENT(IN) :: field_id
+ INTEGER(HID_T), INTENT(IN) :: field_id
INTEGER :: namelen
END FUNCTION h5tinsert_c
END INTERFACE
@@ -2283,27 +2283,27 @@ CONTAINS
END SUBROUTINE h5tinsert_f
!----------------------------------------------------------------------
-! Name: h5tpack_f
+! Name: h5tpack_f
!
-! Purpose: Recursively removes padding from within a compound datatype.
+! Purpose: Recursively removes padding from within a compound datatype.
!
-! Inputs:
+! Inputs:
! type_id - compound datatype identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tpack_f(type_id, hdferr)
@@ -2324,46 +2324,46 @@ CONTAINS
END FUNCTION h5tpack_c
END INTERFACE
- hdferr = h5tpack_c(type_id)
+ hdferr = h5tpack_c(type_id)
END SUBROUTINE h5tpack_f
!----------------------------------------------------------------------
-! Name: h5tinsert_array_f
+! Name: h5tinsert_array_f
!
! Purpose: This function is not available on hdf5-1.4.*
!
-! Inputs:
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
! SUBROUTINE h5tinsert_array_f(parent_id,name,offset, ndims, dims, member_id, hdferr, perm)
! IMPLICIT NONE
! INTEGER(HID_T), INTENT(IN) :: parent_id ! identifier of the parent compound datatype
! CHARACTER(LEN=*), INTENT(IN) :: name !Name of the new member
-! INTEGER(SIZE_T), INTENT(IN) :: offset !Offset to start of new member
+! INTEGER(SIZE_T), INTENT(IN) :: offset !Offset to start of new member
! !within compound datatype
-! INTEGER, INTENT(IN) :: ndims !Dimensionality of new member.
+! INTEGER, INTENT(IN) :: ndims !Dimensionality of new member.
! !Valid values are 0 (zero) through 4 (four)
! INTEGER(SIZE_T), DIMENSION(*), INTENT(IN) :: dims !Size of new member array
! INTEGER(HID_T), INTENT(IN) :: member_id ! identifier of the datatype of the new member
! INTEGER, INTENT(OUT) :: hdferr ! Error code
!
-! INTEGER, DIMENSION(*), OPTIONAL, INTENT(IN) :: perm
-! !Pointer to buffer to store
+! INTEGER, DIMENSION(*), OPTIONAL, INTENT(IN) :: perm
+! !Pointer to buffer to store
! !the permutation vector of the field
! INTEGER :: namelen, sizeofperm
! INTEGER, EXTERNAL :: h5tinsert_array_c, h5tinsert_array_c2
@@ -2371,45 +2371,45 @@ CONTAINS
! if (present(perm)) then
! hdferr = h5tinsert_array_c(parent_id, name, namelen, offset, ndims,dims, member_id, perm)
! else
-! hdferr = h5tinsert_array_c2(parent_id, name, namelen, offset, ndims,dims, member_id)
-! end if
-!
+! hdferr = h5tinsert_array_c2(parent_id, name, namelen, offset, ndims,dims, member_id)
+! end if
+!
! END SUBROUTINE h5tinsert_array_f
!----------------------------------------------------------------------
-! Name: h5tarray_create_f
+! Name: h5tarray_create_f
!
-! Purpose: Creates an array datatype object.
+! Purpose: Creates an array datatype object.
!
-! Inputs:
-! base_id - datatype identifier for the array
+! Inputs:
+! base_id - datatype identifier for the array
! base datatype
! rank - rank of the array
! dims - array dimension sizes
-! Outputs:
+! Outputs:
! type_id - array datatype identifier
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5tarray_create_f(base_id, rank, dims, type_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: base_id ! identifier of array base datatype
INTEGER, INTENT(IN) :: rank ! Rank of the array
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims !Sizes of each array dimension
- INTEGER(HID_T), INTENT(OUT) :: type_id ! identifier of the array datatype
+ INTEGER(HID_T), INTENT(OUT) :: type_id ! identifier of the array datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2430,42 +2430,42 @@ CONTAINS
END INTERFACE
hdferr = h5tarray_create_c(base_id, rank, dims, type_id)
-
+
END SUBROUTINE h5tarray_create_f
!----------------------------------------------------------------------
-! Name: h5tenum_create_f
+! Name: h5tenum_create_f
!
-! Purpose: Creates a new enumeration datatype.
+! Purpose: Creates a new enumeration datatype.
!
-! Inputs:
-! parent_id - datatype identifier for base datatype
-! Outputs:
+! Inputs:
+! parent_id - datatype identifier for base datatype
+! Outputs:
! new_type_id - datatype identifier for the enumeration
! datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tenum_create_f(parent_id, new_type_id, hdferr)
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: parent_id ! Datatype identifier for
! the base datatype
- INTEGER(HID_T), INTENT(OUT) :: new_type_id
+ INTEGER(HID_T), INTENT(OUT) :: new_type_id
!datatype identifier for the
- ! new enumeration datatype
+ ! new enumeration datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tenum_create_c
@@ -2477,8 +2477,8 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TENUM_CREATE_C'::h5tenum_create_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: parent_id
- INTEGER(HID_T), INTENT(OUT) :: new_type_id
+ INTEGER(HID_T), INTENT(IN) :: parent_id
+ INTEGER(HID_T), INTENT(OUT) :: new_type_id
END FUNCTION h5tenum_create_c
END INTERFACE
@@ -2486,32 +2486,32 @@ CONTAINS
END SUBROUTINE h5tenum_create_f
!----------------------------------------------------------------------
-! Name: h5tenaum_insert_f
+! Name: h5tenaum_insert_f
!
-! Purpose: Inserts a new enumeration datatype member.
+! Purpose: Inserts a new enumeration datatype member.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! Outputs:
-! hdferr: - error code
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5tenum_insert_f(type_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ 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
@@ -2527,8 +2527,8 @@ CONTAINS
!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(HID_T), INTENT(IN) :: type_id
+ CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: value
INTEGER :: namelen
END FUNCTION h5tenum_insert_c
@@ -2539,36 +2539,36 @@ CONTAINS
END SUBROUTINE h5tenum_insert_f
!----------------------------------------------------------------------
-! Name: h5tenum_nameof_f
+! Name: h5tenum_nameof_f
!
-! Purpose: Returns the symbol name corresponding to a specified
-! member of an enumeration datatype.
+! Purpose: Returns the symbol name corresponding to a specified
+! member of an enumeration datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
-! value - value of the enumeration datatype
+! value - value of the enumeration datatype
! namelen - name buffer size
-! Outputs:
+! Outputs:
! name - buffer to hold symbol name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tenum_nameof_f(type_id, value, namelen, name, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
CHARACTER(LEN=*), INTENT(OUT) :: name !Name of the enumeration datatype.
INTEGER(SIZE_T), INTENT(IN) :: namelen !length of the name
INTEGER, INTENT(IN) :: value !value of the enumeration datatype.
@@ -2584,9 +2584,9 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TENUM_NAMEOF_C'::h5tenum_nameof_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(OUT) :: name
- INTEGER(SIZE_T), INTENT(IN) :: namelen
+ INTEGER(SIZE_T), INTENT(IN) :: namelen
INTEGER, INTENT(IN) :: value
END FUNCTION h5tenum_nameof_c
END INTERFACE
@@ -2595,35 +2595,35 @@ CONTAINS
END SUBROUTINE h5tenum_nameof_f
!----------------------------------------------------------------------
-! Name: h5tenum_valuof_f
+! Name: h5tenum_valuof_f
!
-! Purpose: Returns the value corresponding to a specified
-! member of an enumeration datatype.
+! Purpose: Returns the value corresponding to a specified
+! member of an enumeration datatype.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! name - symbol name
-! Outputs:
+! Outputs:
! value - value of the enumeration datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
-
+
SUBROUTINE h5tenum_valueof_f(type_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
CHARACTER(LEN=*), INTENT(IN) :: name !Name of the enumeration datatype.
INTEGER, INTENT(OUT) :: value !value of the enumeration datatype.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2639,9 +2639,9 @@ CONTAINS
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TENUM_VALUEOF_C'::h5tenum_valueof_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: name
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(IN) :: name
- INTEGER, INTENT(IN) :: namelen
+ INTEGER, INTENT(IN) :: namelen
INTEGER, INTENT(OUT) :: value
END FUNCTION h5tenum_valueof_c
END INTERFACE
@@ -2651,34 +2651,34 @@ CONTAINS
END SUBROUTINE h5tenum_valueof_f
!----------------------------------------------------------------------
-! Name: h5tget_member_value_f
+! Name: h5tget_member_value_f
!
-! Purpose: Returns the value of an enumeration datatype member.
+! Purpose: Returns the value of an enumeration datatype member.
!
-! Inputs:
+! Inputs:
! type_id - datatype identifier
! member_no - number of the enumeration datatype member
-! Outputs:
+! Outputs:
! value - value of the enumeration datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_value_f(type_id, member_no, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: member_no !Number of the enumeration datatype member
INTEGER, INTENT(OUT) :: value !value of the enumeration datatype.
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2692,46 +2692,46 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_MEMBER_VALUE_C'::h5tget_member_value_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: type_id
+ INTEGER(HID_T), INTENT(IN) :: type_id
INTEGER, INTENT(IN) :: member_no
INTEGER, INTENT(OUT) :: value
- END FUNCTION
+ END FUNCTION
END INTERFACE
hdferr = h5tget_member_value_c(type_id, member_no, value)
END SUBROUTINE h5tget_member_value_f
!----------------------------------------------------------------------
-! Name: h5tset_tag_f
+! Name: h5tset_tag_f
!
-! Purpose: Tags an opaque datatype.
+! Purpose: Tags an opaque datatype.
!
-! Inputs:
+! Inputs:
! type_id - identifier for opaque datatype
-! tag - unique ASCII string with which the opaque
-! datatype is to be tagged.
-! Outputs:
-! hdferr: - error code
+! tag - unique ASCII string with which the opaque
+! datatype is to be tagged.
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tset_tag_f(type_id, tag, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- CHARACTER(LEN=*), INTENT(IN) :: tag !Unique ASCII string with which
- !the opaque datatype is to be tagged
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(IN) :: tag !Unique ASCII string with which
+ !the opaque datatype is to be tagged
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: taglen
@@ -2756,37 +2756,37 @@ CONTAINS
END SUBROUTINE h5tset_tag_f
!----------------------------------------------------------------------
-! Name: h5tget_tag_f
+! Name: h5tget_tag_f
!
-! Purpose: Gets the tag associated with an opaque datatype.
+! Purpose: Gets the tag associated with an opaque datatype.
!
-! Inputs:
+! Inputs:
! type_id - identifier for opaque datatype
-! Outputs:
+! Outputs:
! tag - unique ASCII string associated with opaque
! datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). March 7, 2001
+! port). March 7, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_tag_f(type_id, tag,taglen, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- CHARACTER(LEN=*), INTENT(OUT) :: tag !Unique ASCII string with which
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ CHARACTER(LEN=*), INTENT(OUT) :: tag !Unique ASCII string with which
!the opaque datatype is to be tagged
- INTEGER, INTENT(OUT) :: taglen !length of tag
+ INTEGER, INTENT(OUT) :: taglen !length of tag
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5tget_tag_c
@@ -2801,7 +2801,7 @@ CONTAINS
!DEC$ATTRIBUTES reference :: tag
INTEGER(HID_T), INTENT(IN) :: type_id
CHARACTER(LEN=*), INTENT(OUT) :: tag
- INTEGER, INTENT(OUT) :: taglen
+ INTEGER, INTENT(OUT) :: taglen
END FUNCTION h5tget_tag_c
END INTERFACE
@@ -2809,32 +2809,32 @@ CONTAINS
END SUBROUTINE h5tget_tag_f
!----------------------------------------------------------------------
-! Name: h5tvlen_create_f
+! Name: h5tvlen_create_f
!
-! Purpose: Creates a new variable-length datatype.
+! Purpose: Creates a new variable-length datatype.
!
-! Inputs:
+! Inputs:
! type_id - identifier iof base datatype
-! Outputs:
+! Outputs:
! vltype_id - identifier for VL datatype
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! Wednesday, October 23, 2002
!
-! Modifications:
+! Modifications:
!
-! Comment: Only basic Fortran base datatypes are supported
+! Comment: Only basic Fortran base datatypes are supported
!----------------------------------------------------------------------
SUBROUTINE h5tvlen_create_f(type_id, vltype_id, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
- INTEGER(HID_T), INTENT(OUT) :: vltype_id ! VL datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(OUT) :: vltype_id ! VL datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTERFACE
@@ -2852,43 +2852,43 @@ CONTAINS
END SUBROUTINE h5tvlen_create_f
!----------------------------------------------------------------------
-! Name: h5tis_variable_str_f
+! Name: h5tis_variable_str_f
!
! Purpose: Determines whether a dattype is a variable string.
!
-! Inputs:
+! Inputs:
! type_id - - datartpe identifier
-! Outputs:
+! Outputs:
! status - flag to indicate if datatype
! is a variable string
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tis_variable_str_f(type_id, status, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
LOGICAL, INTENT(OUT) :: status ! Flag, idicates if datatype
! is a variable string or not ( TRUE or
- ! FALSE)
+ ! FALSE)
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
+ INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
! INTEGER, EXTERNAL :: h5tis_variable_str_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5tis_variable_str_c(type_id, flag)
+ INTEGER FUNCTION h5tis_variable_str_c(type_id, flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TIS_VARIABLE_STR_C'::h5tis_variable_str_c
@@ -2901,18 +2901,18 @@ CONTAINS
hdferr = h5tis_variable_str_c(type_id, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
-
+
END SUBROUTINE h5tis_variable_str_f
!----------------------------------------------------------------------
-! Name: h5tget_member_class_f
+! Name: h5tget_member_class_f
!
! Purpose: Returns datatype class of compound datatype member.
!
-! Inputs:
+! Inputs:
! type_id - - datartpe identifier
! member_no - index of compound datatype member
-! Outputs:
+! Outputs:
! class - class type for compound dadtype member
! Can be one of the follwoing classes:
! H5T_NO_CLASS_F (error)
@@ -2927,23 +2927,23 @@ CONTAINS
! H5T_ENUM_F
! H5T_VLEN_F
! H5T_ARRAY_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! April 6, 2005
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tget_member_class_f(type_id, member_no, class, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: member_no ! Member number
INTEGER, INTENT(OUT) :: class ! Member class
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -2951,37 +2951,37 @@ CONTAINS
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5tget_member_class_c(type_id, member_no, class)
+ INTEGER FUNCTION h5tget_member_class_c(type_id, member_no, class)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_MEMBER_CLASS_C'::h5tget_member_class_c
!DEC$ENDIF
INTEGER(HID_T), INTENT(IN) :: type_id
- INTEGER, INTENT(IN) :: member_no
- INTEGER, INTENT(OUT) :: class
+ INTEGER, INTENT(IN) :: member_no
+ INTEGER, INTENT(OUT) :: class
END FUNCTION h5tget_member_class_c
END INTERFACE
hdferr = h5tget_member_class_c(type_id, member_no, class)
-
+
END SUBROUTINE h5tget_member_class_f
!----------------------------------------------------------------------
-! Name: h5tcommit_anon_f
+! Name: h5tcommit_anon_f
!
-! Purpose: Commits a transient datatype to a file,
-! creating a new named datatype,
-! but does not link it into the file structure.
+! Purpose: Commits a transient datatype to a file,
+! creating a new named datatype,
+! but does not link it into the file structure.
!
! Inputs:
-! loc_id - A file or group identifier specifying the file
+! loc_id - A file or group identifier specifying the file
! in which the new named datatype is to be created.
! dtype_id - A datatype identifier.
!
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! tcpl_id - A datatype creation property list identifier.
! (H5P_DEFAULT_F for the default property list.)
@@ -2993,17 +2993,17 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tcommit_anon_f(loc_id, dtype_id, hdferr, tcpl_id, tapl_id)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: loc_id ! A file or group identifier specifying
- ! the file in which the new named datatype
+ INTEGER(HID_T), INTENT(IN) :: loc_id ! A file or group identifier specifying
+ ! the file in which the new named datatype
! is to be created.
- INTEGER(HID_T), INTENT(IN) :: dtype_id ! Datatype identifier
+ INTEGER(HID_T), INTENT(IN) :: dtype_id ! Datatype identifier
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: tcpl_id ! A datatype creation property
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: tcpl_id ! A datatype creation property
! list identifier.
! (H5P_DEFAULT_F for the default property list.)
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: tapl_id ! A datatype access property list identifier.
@@ -3032,14 +3032,14 @@ CONTAINS
IF(PRESENT(tcpl_id)) tcpl_id_default = tcpl_id
IF(PRESENT(tapl_id)) tapl_id_default = tapl_id
-
- hdferr = h5tcommit_anon_c(loc_id, dtype_id, &
+
+ hdferr = h5tcommit_anon_c(loc_id, dtype_id, &
tcpl_id_default, tapl_id_default )
END SUBROUTINE h5tcommit_anon_f
!----------------------------------------------------------------------
-! Name: h5tcommitted_f
+! Name: h5tcommitted_f
!
! Purpose: Determines whether a datatype is a named type or a transient type.
!
@@ -3049,9 +3049,9 @@ CONTAINS
! Outputs:
! committed - .TRUE., if the datatype has been committed
! .FALSE., if the datatype has not been committed.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters: None
!
! Programmer: M.S. Breitenfeld
@@ -3059,7 +3059,7 @@ CONTAINS
!
! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tcommitted_f(dtype_id, committed, hdferr)
@@ -3067,9 +3067,9 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: dtype_id ! A datatype identifier
LOGICAL, INTENT(OUT) :: committed ! .TRUE., if the datatype has been committed
!.FALSE., if the datatype has not been committed.
- INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ INTEGER, INTENT(OUT) :: hdferr ! Error code:
! Success: 0
-! Failure: -1
+! Failure: -1
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -3094,7 +3094,7 @@ CONTAINS
ELSE
hdferr = -1
ENDIF
-
+
END SUBROUTINE h5tcommitted_f
@@ -3102,11 +3102,11 @@ CONTAINS
! Name: H5Tdecode_f
!
! Purpose: Decode a binary object description of data type and return a new object handle.
-! Inputs:
+! Inputs:
! buf - Buffer for the data space object to be decoded.
! obj_id - Object ID
! Outputs:
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
!
@@ -3115,9 +3115,9 @@ CONTAINS
! Programmer: M.S. Breitenfeld
! April 9, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tdecode_f(buf, obj_id, hdferr)
@@ -3139,7 +3139,7 @@ CONTAINS
END INTERFACE
hdferr = h5tdecode_c(buf, obj_id)
-
+
END SUBROUTINE h5tdecode_f
!----------------------------------------------------------------------
@@ -3153,7 +3153,7 @@ CONTAINS
! nalloc - The size of the allocated buffer.
! Outputs:
! nalloc - The size of the buffer needed.
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
! Failure: -1
!
@@ -3162,9 +3162,9 @@ CONTAINS
! Programmer: M.S. Breitenfeld
! April 9, 2008
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5tencode_f(obj_id, buf, nalloc, hdferr)
@@ -3187,28 +3187,28 @@ CONTAINS
INTEGER(SIZE_T), INTENT(INOUT) :: nalloc
END FUNCTION h5tencode_c
END INTERFACE
-
+
hdferr = h5tencode_c(buf, obj_id, nalloc)
END SUBROUTINE h5tencode_f
!----------------------------------------------------------------------
-! Name: h5tget_create_plist_f
+! Name: h5tget_create_plist_f
!
! Purpose: Returns a copy of a datatype creation property list.
-!
-! Inputs:
+!
+! Inputs:
! dtype_id - Datatype identifier
-! Outputs:
+! Outputs:
! dtpl_id - Datatype property list identifier
-! hdferr: - Error code
+! hdferr: - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M.S. Breitenfeld
-! April 9, 2008
+! April 9, 2008
!
! Modifications: N/A
!
@@ -3233,28 +3233,28 @@ CONTAINS
INTEGER(HID_T), INTENT(OUT) :: dtpl_id
END FUNCTION h5tget_create_plist_c
END INTERFACE
-
+
hdferr = h5tget_create_plist_c(dtype_id, dtpl_id)
END SUBROUTINE h5tget_create_plist_f
!----------------------------------------------------------------------
-! Name: h5tcompiler_conv_f
+! Name: h5tcompiler_conv_f
!
! Purpose: Check whether the library’s default conversion is hard conversion.R
-!
-! Inputs:
+!
+! Inputs:
! src_id - Identifier for the source datatype.
! dst_id - Identifier for the destination datatype.
-! Outputs:
+! Outputs:
! flag - TRUE for compiler conversion, FALSE for library conversion
-! hdferr: - Error code
+! hdferr: - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M.S. Breitenfeld
-! April 9, 2008
+! April 9, 2008
!
! Modifications: N/A
!
@@ -3280,7 +3280,7 @@ CONTAINS
INTEGER :: c_flag
END FUNCTION h5tcompiler_conv_c
END INTERFACE
-
+
hdferr = h5tcompiler_conv_c(src_id, dst_id, c_flag)
flag = .FALSE.
@@ -3289,29 +3289,29 @@ CONTAINS
END SUBROUTINE h5tcompiler_conv_f
!----------------------------------------------------------------------
-! Name: h5tget_native_type_f
+! Name: h5tget_native_type_f
!
! Purpose: Returns the native datatype of a specified datatype.
-!
-! Inputs:
+!
+! Inputs:
! dtype_id - Datatype identifier for the dataset datatype.
! *
-! direction - Direction of search:
+! direction - Direction of search:
! H5T_DIR_DEFAULT = 0, /*default direction is inscendent */
! H5T_DIR_ASCEND = 1, /*in inscendent order */
! H5T_DIR_DESCEND = 2 /*in descendent order */
! * NOTE: In C it is defined as a structure: H5T_direction_t
!
-! Outputs:
+! Outputs:
! native_dtype_id - The native datatype identifier for the specified dataset datatype
-! hdferr: - Error code
+! hdferr: - Error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: M.S. Breitenfeld
-! June 18, 2008
+! June 18, 2008
!
! Modifications: N/A
!
@@ -3332,12 +3332,12 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TGET_NATIVE_TYPE_C'::h5tget_native_type_c
!DEC$ENDIF
- INTEGER(HID_T), INTENT(IN) :: dtype_id
+ INTEGER(HID_T), INTENT(IN) :: dtype_id
INTEGER, INTENT(IN) :: direction
INTEGER(HID_T), INTENT(OUT) :: native_dtype_id
END FUNCTION h5tget_native_type_c
END INTERFACE
-
+
hdferr = h5tget_native_type_c(dtype_id, direction, native_dtype_id)
END SUBROUTINE h5tget_native_type_f
diff --git a/fortran/src/H5Zff.f90 b/fortran/src/H5Zff.f90
index 7465db5..750a7a5 100644
--- a/fortran/src/H5Zff.f90
+++ b/fortran/src/H5Zff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5I functions
@@ -19,7 +19,7 @@
MODULE H5Z
USE H5GLOBAL
-
+
CONTAINS
!----------------------------------------------------------------------
@@ -28,22 +28,22 @@
! Purpose: Unregisters specified filetr
!
! Inputs: filter - filter; may have one of the following values:
-! H5Z_FILTER_DEFLATE_F
-! H5Z_FILTER_SHUFFLE_F
-! H5Z_FILTER_FLETCHER32_F
-! Outputs:
-! hdferr: - error code
+! H5Z_FILTER_DEFLATE_F
+! H5Z_FILTER_SHUFFLE_F
+! H5Z_FILTER_FLETCHER32_F
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5zunregister_f(filter, hdferr)
IMPLICIT NONE
@@ -67,42 +67,42 @@
!----------------------------------------------------------------------
! Name: h5zfilter_avail_f
!
-! Purpose: Queries if filter is available
+! Purpose: Queries if filter is available
!
-! Inputs:
+! Inputs:
! filter - filter
-! Outputs:
-! status - status; .TRUE. if filter is available,
+! Outputs:
+! status - status; .TRUE. if filter is available,
! .FALSE. otherwise
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! March 12, 2003
!
-! Modifications:
+! Modifications:
!
!----------------------------------------------------------------------
SUBROUTINE h5zfilter_avail_f(filter, status, hdferr)
IMPLICIT NONE
INTEGER, INTENT(IN) :: filter ! Filter; may be one of the following:
- ! H5Z_FILTER_DEFLATE_F
- ! H5Z_FILTER_SHUFFLE_F
- ! H5Z_FILTER_FLETCHER32_F
+ ! H5Z_FILTER_DEFLATE_F
+ ! H5Z_FILTER_SHUFFLE_F
+ ! H5Z_FILTER_FLETCHER32_F
LOGICAL, INTENT(OUT) :: status ! Flag, idicates if filter
! is availble not ( TRUE or
- ! FALSE)
+ ! FALSE)
INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
+ INTEGER :: flag ! "TRUE/FALSE/ERROR from C"
! INTEGER, EXTERNAL :: h5zfilter_avail_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5zfilter_avail_c(filter, flag)
+ INTEGER FUNCTION h5zfilter_avail_c(filter, flag)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5ZFILTER_AVAIL_C'::h5zfilter_avail_c
@@ -115,51 +115,51 @@
hdferr = h5zfilter_avail_c(filter, flag)
status = .TRUE.
if (flag .EQ. 0) status = .FALSE.
-
+
END SUBROUTINE h5zfilter_avail_f
!----------------------------------------------------------------------
! Name: h5zget_filter_info_f
!
-! Purpose: Queries if filter has its encoder and/or decoder
-! available
+! Purpose: Queries if filter has its encoder and/or decoder
+! available
!
-! Inputs:
+! Inputs:
! filter - filter
-! Outputs:
+! Outputs:
! config_flags - Bit vector possibly containing the
! following values:
! H5Z_FILTER_ENCODE_ENABLED_F
! H5Z_FILTER_DECODE_ENABLED_F
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Nat Furrer and James Laird
! June 16, 2004
!
-! Modifications:
+! Modifications:
!
!----------------------------------------------------------------------
SUBROUTINE h5zget_filter_info_f(filter, config_flags, hdferr)
IMPLICIT NONE
INTEGER, INTENT(IN) :: filter ! Filter; may be one of the following:
- ! H5Z_FILTER_DEFLATE_F
- ! H5Z_FILTER_SHUFFLE_F
+ ! H5Z_FILTER_DEFLATE_F
+ ! H5Z_FILTER_SHUFFLE_F
! H5Z_FILTER_FLETCHER32_F
- ! H5Z_FILTER_SZIP_F
+ ! H5Z_FILTER_SZIP_F
INTEGER, INTENT(OUT) :: config_flags! Flag, indicates if filter
! has its encoder and/or decoder
- ! available
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! available
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5zget_filter_info_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5zget_filter_info_c(filter, config_flags)
+ INTEGER FUNCTION h5zget_filter_info_c(filter, config_flags)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5ZGET_FILTER_INFO_C'::h5zget_filter_info_c
@@ -170,12 +170,12 @@
END INTERFACE
hdferr = h5zget_filter_info_c(filter, config_flags)
-
+
END SUBROUTINE h5zget_filter_info_f
END MODULE H5Z
-
-
+
+
diff --git a/fortran/src/H5_DBLE_InterfaceExclude.f90 b/fortran/src/H5_DBLE_InterfaceExclude.f90
index 976a6f4..b3bafa1 100644
--- a/fortran/src/H5_DBLE_InterfaceExclude.f90
+++ b/fortran/src/H5_DBLE_InterfaceExclude.f90
@@ -2,7 +2,7 @@
!
! 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
@@ -13,7 +13,7 @@
! Empty module.
!
! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -26,7 +26,7 @@
! 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.S. Breitenfeld
diff --git a/fortran/src/H5_DBLE_InterfaceInclude.f90 b/fortran/src/H5_DBLE_InterfaceInclude.f90
index 45bb237..4e7dbfb 100644
--- a/fortran/src/H5_DBLE_InterfaceInclude.f90
+++ b/fortran/src/H5_DBLE_InterfaceInclude.f90
@@ -2,7 +2,7 @@
!
! NAME
! H5_DBLE_INTERFACE
-!
+!
! FUNCTION
! This module is used for when the default REAL is not of the type DOUBLE PRECISION.
! We only do not include the double precision interfaces if the defaut REAL is
@@ -10,11 +10,11 @@
! generic interfaces declared as REAL. Otherwise it is okay to include the interfaces.
!
! NOTES
-! This module contains all the DOUBLE PRECISION interfaces and corresponding subroutines
+! This module contains all the DOUBLE PRECISION interfaces and corresponding subroutines
! from the HDF function catagory H5A, H5D and H5P.
!
! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -27,7 +27,7 @@
! 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.S. Breitenfeld
@@ -125,11 +125,11 @@ CONTAINS
!
SUBROUTINE h5awrite_double_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- DOUBLE PRECISION, INTENT(IN) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ DOUBLE PRECISION, INTENT(IN) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_s_c
@@ -141,7 +141,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_S_C'::h5awrite_double_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN)::buf
@@ -153,12 +153,12 @@ CONTAINS
SUBROUTINE h5awrite_double_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
- DIMENSION(dims(1)) :: buf ! Attribute data
+ DIMENSION(dims(1)) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_1_c
@@ -170,7 +170,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_1_C'::h5awrite_double_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -184,13 +184,13 @@ CONTAINS
SUBROUTINE h5awrite_double_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- DOUBLE PRECISION, INTENT(IN), &
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_2_c
@@ -202,7 +202,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_2_C'::h5awrite_double_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -216,13 +216,13 @@ CONTAINS
SUBROUTINE h5awrite_double_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_3_c
@@ -234,7 +234,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_3_C'::h5awrite_double_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -248,13 +248,13 @@ CONTAINS
SUBROUTINE h5awrite_double_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_4_c
@@ -266,7 +266,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_4_C'::h5awrite_double_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -280,13 +280,13 @@ CONTAINS
SUBROUTINE h5awrite_double_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_5_c
@@ -298,7 +298,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_5_C'::h5awrite_double_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -312,13 +312,13 @@ CONTAINS
SUBROUTINE h5awrite_double_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_6_c
@@ -330,7 +330,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_6_C'::h5awrite_double_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -344,13 +344,13 @@ CONTAINS
SUBROUTINE h5awrite_double_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5awrite_double_7_c
@@ -362,7 +362,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AWRITE_DOUBLE_7_C'::h5awrite_double_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(IN), &
@@ -376,11 +376,11 @@ CONTAINS
SUBROUTINE h5aread_double_scalar(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
- DOUBLE PRECISION, INTENT(INOUT) :: buf ! Attribute data
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ DOUBLE PRECISION, INTENT(INOUT) :: buf ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_s_c
@@ -392,7 +392,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_S_C'::h5aread_double_s_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT)::buf
@@ -404,13 +404,13 @@ CONTAINS
SUBROUTINE h5aread_double_1(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_1_c
@@ -422,7 +422,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_1_C'::h5aread_double_1_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -436,13 +436,13 @@ CONTAINS
SUBROUTINE h5aread_double_2(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_2_c
@@ -454,7 +454,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_2_C'::h5aread_double_2_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -468,13 +468,13 @@ CONTAINS
SUBROUTINE h5aread_double_3(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_3_c
@@ -486,7 +486,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_3_C'::h5aread_double_3_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -500,13 +500,13 @@ CONTAINS
SUBROUTINE h5aread_double_4(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_4_c
@@ -518,7 +518,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_4_C'::h5aread_double_4_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -532,13 +532,13 @@ CONTAINS
SUBROUTINE h5aread_double_5(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_5_c
@@ -550,7 +550,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_5_C'::h5aread_double_5_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -564,13 +564,13 @@ CONTAINS
SUBROUTINE h5aread_double_6(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_6_c
@@ -582,7 +582,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_6_C'::h5aread_double_6_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -596,13 +596,13 @@ CONTAINS
SUBROUTINE h5aread_double_7(attr_id, memtype_id, buf, dims, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
- INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
+ INTEGER(HID_T), INTENT(IN) :: attr_id ! Attribute identifier
+ INTEGER(HID_T), INTENT(IN) :: memtype_id ! Attribute datatype
! identifier (in memory)
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
- ! Attribute data
+ ! Attribute data
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5aread_double_7_c
@@ -614,7 +614,7 @@ CONTAINS
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5AREAD_DOUBLE_7_C'::h5aread_double_7_c
!DEC$ENDIF
- INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
+ INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims ! Array to story buf dimension sizes
INTEGER(HID_T), INTENT(IN) :: attr_id
INTEGER(HID_T), INTENT(IN) :: memtype_id
DOUBLE PRECISION, INTENT(INOUT), &
@@ -636,16 +636,16 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_s_c
@@ -653,7 +653,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -675,9 +675,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -692,16 +692,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_1_c
@@ -709,7 +709,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -732,9 +732,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -749,24 +749,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -789,9 +789,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -806,24 +806,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_3_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -846,9 +846,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -863,15 +863,15 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
@@ -880,7 +880,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -903,9 +903,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -920,24 +920,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_5_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -960,9 +960,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -978,24 +978,24 @@ CONTAINS
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1018,9 +1018,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1036,24 +1036,24 @@ CONTAINS
DOUBLE PRECISION, INTENT(IN), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dwrite_double_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dwrite_double_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1075,9 +1075,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dwrite_double_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1091,16 +1091,16 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(INOUT) :: buf ! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_s_c
@@ -1108,7 +1108,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_double_s_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1130,9 +1130,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_s_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1147,24 +1147,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_1_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_1_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1187,9 +1187,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_1_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1204,24 +1204,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_2_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_2_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1234,7 +1234,7 @@ CONTAINS
INTEGER(HID_T) :: file_space_id_default
INTEGER(HID_T) :: xfer_prp_default
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
- DOUBLE PRECISION, INTENT(INOUT), &
+ DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
END FUNCTION h5dread_double_2_c
END INTERFACE
@@ -1244,9 +1244,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_2_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1261,16 +1261,16 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: mem_space_id_default
INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_3_c
@@ -1278,7 +1278,7 @@ CONTAINS
!
INTERFACE
INTEGER FUNCTION h5dread_double_3_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1301,9 +1301,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_3_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1319,24 +1319,24 @@ CONTAINS
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_4_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_4_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1359,9 +1359,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_4_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1376,24 +1376,24 @@ CONTAINS
INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_5_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_5_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1416,9 +1416,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_5_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1434,24 +1434,24 @@ CONTAINS
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
-
- INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
+
+ INTEGER(HID_T) :: xfer_prp_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_6_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_6_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1474,9 +1474,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_6_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1492,24 +1492,24 @@ CONTAINS
DOUBLE PRECISION, INTENT(INOUT), &
DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
! Data buffer
- INTEGER, INTENT(OUT) :: hdferr ! Error code
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
- ! Memory dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
- ! File dataspace identfier
- INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
- ! Transfer property list identifier
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id
+ ! Memory dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id
+ ! File dataspace identfier
+ INTEGER(HID_T), OPTIONAL, INTENT(IN) :: xfer_prp
+ ! Transfer property list identifier
INTEGER(HID_T) :: xfer_prp_default
- INTEGER(HID_T) :: mem_space_id_default
- INTEGER(HID_T) :: file_space_id_default
+ INTEGER(HID_T) :: mem_space_id_default
+ INTEGER(HID_T) :: file_space_id_default
! INTEGER, EXTERNAL :: h5dread_double_7_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
INTEGER FUNCTION h5dread_double_7_c(dset_id, mem_type_id, &
- mem_space_id_default, &
+ mem_space_id_default, &
file_space_id_default, &
xfer_prp_default, buf, dims)
USE H5GLOBAL
@@ -1531,9 +1531,9 @@ CONTAINS
mem_space_id_default = H5S_ALL_F
file_space_id_default = H5S_ALL_F
- if (present(xfer_prp)) xfer_prp_default = xfer_prp
- if (present(mem_space_id)) mem_space_id_default = mem_space_id
- if (present(file_space_id)) file_space_id_default = file_space_id
+ if (present(xfer_prp)) xfer_prp_default = xfer_prp
+ if (present(mem_space_id)) mem_space_id_default = mem_space_id
+ if (present(file_space_id)) file_space_id_default = file_space_id
hdferr = h5dread_double_7_c(dset_id, mem_type_id, mem_space_id_default, &
file_space_id_default, xfer_prp_default, buf, dims)
@@ -1543,21 +1543,21 @@ CONTAINS
!----------------------------------------------------------------------
! Name: h5dfill_double
!
- ! Purpose: Fills dataspace elements with a fill value in a memory buffer.
- ! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
+ ! Purpose: Fills dataspace elements with a fill value in a memory buffer.
+ ! Only INTEGER, CHARACTER, REAL and DOUBLE PRECISION datatypes
! of the fillvalues and buffers are supported. Buffer and fillvalue
! are assumed to have the same datatype.
! Only one-dimesional buffers are supported.
!
- ! Inputs:
+ ! Inputs:
! fill_value - fill value
! space_id - memory space selection identifier
! buf - data buffer iin memory ro apply selection to
! - of k-th dimension of the buf array
- ! Outputs:
- ! hdferr: - error code
+ ! Outputs:
+ ! hdferr: - error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
!
! Programmer: Elena Pourmal
! March 12, 2003
@@ -1569,10 +1569,10 @@ CONTAINS
DOUBLE PRECISION, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
DOUBLE PRECISION, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
! INTEGER, EXTERNAL :: h5dfill_double_c
! MS FORTRAN needs explicit interface for C functions called here.
@@ -1582,19 +1582,19 @@ CONTAINS
buf, mem_type_id)
USE H5GLOBAL
!DEC$IF DEFINED(HDF5F90_WINDOWS)
- !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_DOUBLE_C'::h5dfill_double_c
+ !DEC$ATTRIBUTES C,reference,decorate,alias:'H5DFILL_DOUBLE_C'::h5dfill_double_c
!DEC$ENDIF
DOUBLE PRECISION, INTENT(IN) :: fill_value ! Fill value
INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
DOUBLE PRECISION, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
- INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
+ INTEGER(HID_T) :: mem_type_id ! Buffer dadtype identifier
END FUNCTION h5dfill_double_c
END INTERFACE
fill_type_id = H5T_NATIVE_DOUBLE
mem_type_id = H5T_NATIVE_DOUBLE
- hdferr = h5dfill_double_c(fill_value, fill_type_id, space_id, &
+ hdferr = h5dfill_double_c(fill_value, fill_type_id, space_id, &
buf, mem_type_id)
@@ -1607,9 +1607,9 @@ CONTAINS
SUBROUTINE h5pset_fill_value_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
+ 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)
DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1636,10 +1636,10 @@ CONTAINS
SUBROUTINE h5pget_fill_value_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
+ 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)
+ ! (in memory)
DOUBLE PRECISION, INTENT(IN) :: fillvalue ! Fillvalue
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1667,28 +1667,28 @@ CONTAINS
!
! Purpose: Sets a property list value
!
- ! Inputs:
+ ! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
! value - value to set property to
- ! Outputs:
- ! hdferr: - error code
+ ! Outputs:
+ ! hdferr: - error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
- ! October 9, 2002
+ ! October 9, 2002
!
- ! Modifications:
+ ! Modifications:
!
- ! Comment:
+ ! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pset_double(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
DOUBLE PRECISION, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1718,28 +1718,28 @@ CONTAINS
!
! Purpose: Gets a property list value
!
- ! Inputs:
+ ! Inputs:
! prp_id - iproperty list identifier to modify
! name - name of property to modify
- ! Outputs:
+ ! Outputs:
! value - value of property
- ! hdferr: - error code
+ ! hdferr: - error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
- ! October 9, 2002
+ ! October 9, 2002
!
- ! Modifications:
+ ! Modifications:
!
- ! Comment:
+ ! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pget_double(prp_id, name, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
+ INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of property to modify
DOUBLE PRECISION, INTENT(OUT) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
@@ -1769,33 +1769,33 @@ CONTAINS
!
! Purpose: Registers a permanent property with a property list class.
!
- ! Inputs:
- ! class - property list class to register
+ ! 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
+ ! value - default value for property in newly
! created property lists
- ! Outputs:
- ! hdferr: - error code
+ ! Outputs:
+ ! hdferr: - error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
- ! October 10, 2002
+ ! October 10, 2002
!
- ! Modifications:
+ ! Modifications:
!
- ! Comment:
+ ! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pregister_double(class, name, size, value, hdferr)
IMPLICIT NONE
- INTEGER(HID_T), INTENT(IN) :: class ! Property list class identifier
+ 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
+ INTEGER(SIZE_T), INTENT(IN) :: size ! size of the property value
DOUBLE PRECISION, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -1810,7 +1810,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: class
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
DOUBLE PRECISION, INTENT(IN) :: value
END FUNCTION h5pregister_double_c
END INTERFACE
@@ -1824,32 +1824,32 @@ CONTAINS
!
! Purpose: Registers a temporary property with a property list class.
!
- ! Inputs:
+ ! 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
+ ! value - initial value for the property
+ ! Outputs:
+ ! hdferr: - error code
! Success: 0
- ! Failure: -1
+ ! Failure: -1
! Optional parameters:
! NONE
!
! Programmer: Elena Pourmal
- ! October 10, 2002
+ ! October 10, 2002
!
- ! Modifications:
+ ! Modifications:
!
- ! Comment:
+ ! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5pinsert_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
+ 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
DOUBLE PRECISION, INTENT(IN) :: value ! Property value
INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER :: name_len
@@ -1864,7 +1864,7 @@ CONTAINS
INTEGER(HID_T), INTENT(IN) :: plist
CHARACTER(LEN=*), INTENT(IN) :: name
INTEGER, INTENT(IN) :: name_len
- INTEGER(SIZE_T), INTENT(IN) :: size
+ INTEGER(SIZE_T), INTENT(IN) :: size
DOUBLE PRECISION, INTENT(IN) :: value
END FUNCTION h5pinsert_double_c
END INTERFACE
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90
index 89360a3..7dffd0a 100644
--- a/fortran/src/H5_ff.f90
+++ b/fortran/src/H5_ff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,32 +11,32 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
MODULE H5LIB
CONTAINS
!----------------------------------------------------------------------
-! Name: h5open_f
+! Name: h5open_f
!
-! Purpose: Initializes the HDF5 library and Fortran90 interface.
+! Purpose: Initializes the HDF5 library and Fortran90 interface.
!
-! Inputs:
-! Outputs:
-! error: - error code
+! Inputs:
+! Outputs:
+! error: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5open_f(error)
USE H5GLOBAL
@@ -48,7 +48,7 @@ CONTAINS
! INTEGER, EXTERNAL :: h5init_flags_c
! INTEGER, EXTERNAL :: h5init1_flags_c
! INTEGER, EXTERNAL :: h5open_c
-
+
!
! MS FORTRAN needs explicit interfaces for C functions called here.
!
@@ -64,7 +64,7 @@ CONTAINS
USE H5GLOBAL
INTEGER(HID_T), DIMENSION(PREDEF_TYPES_LEN) :: p_types
INTEGER(HID_T), DIMENSION(FLOATING_TYPES_LEN) :: f_types
- INTEGER(HID_T), DIMENSION(INTEGER_TYPES_LEN) :: i_types
+ INTEGER(HID_T), DIMENSION(INTEGER_TYPES_LEN) :: i_types
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5INIT_TYPES_C'::h5init_types_c
!DEC$ENDIF
@@ -83,7 +83,7 @@ CONTAINS
i_H5P_flags_int, &
i_H5R_flags, &
i_H5S_flags, &
- i_H5T_flags, &
+ i_H5T_flags, &
i_H5Z_flags, &
i_H5generic_flags)
USE H5GLOBAL
@@ -138,26 +138,26 @@ CONTAINS
END SUBROUTINE h5open_f
!----------------------------------------------------------------------
-! Name: h5close_f
+! Name: h5close_f
!
-! Purpose: Closes the HDF5 library and Fortran90 interface.
+! Purpose: Closes the HDF5 library and Fortran90 interface.
!
-! Inputs:
-! Outputs:
-! error: - error code
+! Inputs:
+! Outputs:
+! error: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
-! August 12, 1999
+! August 12, 1999
!
-! Modifications: Explicit Fortran interfaces were added for
+! Modifications: Explicit Fortran interfaces were added for
! called C functions (it is needed for Windows
-! port). February 28, 2001
+! port). February 28, 2001
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5close_f(error)
@@ -184,7 +184,7 @@ CONTAINS
INTEGER I_TYPES_LEN
INTEGER(HID_T), DIMENSION(P_TYPES_LEN) :: p_types
INTEGER(HID_T), DIMENSION(F_TYPES_LEN) :: f_types
- INTEGER(HID_T), DIMENSION(I_TYPES_LEN) :: i_types
+ INTEGER(HID_T), DIMENSION(I_TYPES_LEN) :: i_types
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5CLOSE_TYPES_C'::h5close_types_c
!DEC$ENDIF
@@ -197,32 +197,32 @@ CONTAINS
error = error_1 + error_2
END SUBROUTINE h5close_f
-
+
!----------------------------------------------------------------------
-! Name: h5get_libversion_f
+! Name: h5get_libversion_f
!
! Purpose: Returns the HDF5 LIbrary release number
!
-! Inputs:
-! Outputs:
+! Inputs:
+! Outputs:
! majnum: - major version of the library
! minum: - minor version of the library
! relnum: - release version of the library
-! error: - error code
+! error: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! September 24, 2002
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5get_libversion_f(majnum, minnum, relnum, error)
USE H5GLOBAL
-
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: majnum, minnum, relnum, error
INTERFACE
@@ -233,36 +233,36 @@ CONTAINS
INTEGER, INTENT(OUT) :: majnum, minnum, relnum
END FUNCTION h5get_libversion_c
END INTERFACE
-
+
error = h5get_libversion_c(majnum, minnum, relnum)
-
+
END SUBROUTINE h5get_libversion_f
!----------------------------------------------------------------------
-! Name: h5check_version_f
+! Name: h5check_version_f
!
! Purpose: Verifies that library versions are consistent.
!
-! Inputs:
+! Inputs:
! majnum: - major version of the library
! minum: - minor version of the library
! relnum: - release version of the library
-! Outputs:
-! error: - error code
+! Outputs:
+! error: - error code
! Success: 0
! Failure: application aborts
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! September 24, 2002
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5check_version_f(majnum, minnum, relnum, error)
USE H5GLOBAL
-
+
IMPLICIT NONE
INTEGER, INTENT(IN) :: majnum, minnum, relnum
INTEGER, INTENT(OUT) :: error
@@ -274,34 +274,34 @@ CONTAINS
INTEGER, INTENT(IN) :: majnum, minnum, relnum
END FUNCTION h5check_version_c
END INTERFACE
-
+
error = h5check_version_c(majnum, minnum, relnum)
-
+
END SUBROUTINE h5check_version_f
!----------------------------------------------------------------------
-! Name: h5garbage_collect_f
+! Name: h5garbage_collect_f
!
! Purpose: Garbage collects on all free-lists of all types.
!
-! Inputs:
-! Outputs:
-! error: - error code
+! Inputs:
+! Outputs:
+! error: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! September 24, 2002
!
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5garbage_collect_f(error)
USE H5GLOBAL
-
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: error
INTERFACE
@@ -311,34 +311,34 @@ CONTAINS
!DEC$ENDIF
END FUNCTION h5garbage_collect_c
END INTERFACE
-
+
error = h5garbage_collect_c()
END SUBROUTINE h5garbage_collect_f
!----------------------------------------------------------------------
-! Name: h5dont_atexit_f
+! Name: h5dont_atexit_f
!
-! Purpose: Instructs library not to install atexit cleanup routine.
+! Purpose: Instructs library not to install atexit cleanup routine.
!
-! Inputs:
-! Outputs:
-! error: - error code
+! Inputs:
+! Outputs:
+! error: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
! Optional parameters:
-! NONE
+! NONE
!
! Programmer: Elena Pourmal
! September 24, 2002
!
!
-! Comment:
+! Comment:
!----------------------------------------------------------------------
SUBROUTINE h5dont_atexit_f(error)
USE H5GLOBAL
-
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: error
INTERFACE
@@ -348,8 +348,8 @@ CONTAINS
!DEC$ENDIF
END FUNCTION h5dont_atexit_c
END INTERFACE
-
+
error = h5dont_atexit_c()
-
+
END SUBROUTINE h5dont_atexit_f
END MODULE H5LIB
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index da21f6e..05ec366 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -2,23 +2,23 @@
!
! NAME
! H5GLOBAL
-!
+!
! FUNCTION
-! This module is used to pass C stubs for H5 Fortran APIs. The C stubs are
+! This module is used to pass C stubs for H5 Fortran APIs. The C stubs are
! packed into arrays in H5_f.c and these arrays are then passed to Fortran.
! This module then uses EQUIVALENCE to assign elements of the arrays to
! Fortran equivalent C stubs.
!
! NOTES
-! The size of the C arrays in H5_f.c have to match the values of the variables
+! The size of the C arrays in H5_f.c have to match the values of the variables
! declared as PARAMETER, hence if the size of an array in H5_f.c is changed
! then the PARAMETER of that corresponding array in Fortran must also be changed.
!
! USES
-! H5FORTRAN_TYPES - This module is generated at run time. See
+! H5FORTRAN_TYPES - This module is generated at run time. See
! H5fortran_types.f90 for further informaton.
! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -31,7 +31,7 @@
! 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
! Elena Pourmal
@@ -43,8 +43,8 @@ MODULE H5GLOBAL
! Definitions for reference datatypes.
! If you change the value of these parameters, do not forget to change corresponding
- ! values in the H5f90.h file.
- INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
+ ! values in the H5f90.h file.
+ INTEGER, PARAMETER :: REF_REG_BUF_LEN = 3
! Parameters used in the function 'h5kind_to_type' located in H5_ff.f90.
! The flag is used to tell the function whether the kind input variable
@@ -65,11 +65,11 @@ MODULE H5GLOBAL
! value when new predefined
! datatypes are added
- ! Do not forget to change the following line when new predefined
+ ! Do not forget to change the following line when new predefined
! floating data types are added
INTEGER, PARAMETER :: FLOATING_TYPES_LEN = 4
- ! Do not forget to change the following line when new predefined
+ ! Do not forget to change the following line when new predefined
! integer data types are added
INTEGER, PARAMETER :: INTEGER_TYPES_LEN = 17
@@ -169,7 +169,7 @@ MODULE H5GLOBAL
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /FLOATING_TYPES/
!DEC$endif
- COMMON /FLOATING_TYPES/ floating_types
+ COMMON /FLOATING_TYPES/ floating_types
!
! COMMON /INTEGER_TYPES/ H5T_STD_I8BE, &
! H5T_STD_I8LE, &
@@ -206,7 +206,7 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5F_FLAGS/ H5F_flags
- INTEGER :: H5F_ACC_RDWR_F
+ INTEGER :: H5F_ACC_RDWR_F
INTEGER :: H5F_ACC_RDONLY_F
INTEGER :: H5F_ACC_TRUNC_F
INTEGER :: H5F_ACC_EXCL_F
@@ -260,7 +260,7 @@ MODULE H5GLOBAL
INTEGER :: H5_ITER_UNKNOWN_F
INTEGER :: H5_ITER_INC_F
INTEGER :: H5_ITER_DEC_F
- INTEGER :: H5_ITER_NATIVE_F
+ INTEGER :: H5_ITER_NATIVE_F
INTEGER :: H5_ITER_N_F
EQUIVALENCE(H5generic_flags(1), H5_INDEX_UNKNOWN_F)
@@ -268,7 +268,7 @@ MODULE H5GLOBAL
EQUIVALENCE(H5generic_flags(3), H5_INDEX_CRT_ORDER_F)
EQUIVALENCE(H5generic_flags(4), H5_INDEX_N_F)
EQUIVALENCE(H5generic_flags(5), H5_ITER_UNKNOWN_F)
- EQUIVALENCE(H5generic_flags(6), H5_ITER_INC_F)
+ EQUIVALENCE(H5generic_flags(6), H5_ITER_INC_F)
EQUIVALENCE(H5generic_flags(7), H5_ITER_DEC_F)
EQUIVALENCE(H5generic_flags(8), H5_ITER_NATIVE_F)
EQUIVALENCE(H5generic_flags(9), H5_ITER_N_F)
@@ -301,7 +301,7 @@ MODULE H5GLOBAL
EQUIVALENCE(H5G_flags(1), H5G_UNKNOWN_F)
EQUIVALENCE(H5G_flags(2), H5G_GROUP_F)
EQUIVALENCE(H5G_flags(3), H5G_DATASET_F)
- EQUIVALENCE(H5G_flags(4), H5G_TYPE_F)
+ EQUIVALENCE(H5G_flags(4), H5G_TYPE_F)
! XXX: Fix problems with H5G_LINK_F! - QAK ! these are really H5L values -MSB-
EQUIVALENCE(H5G_flags(5), H5G_LINK_F)
EQUIVALENCE(H5G_flags(6), H5G_LINK_ERROR_F)
@@ -309,10 +309,10 @@ MODULE H5GLOBAL
EQUIVALENCE(H5G_flags(8), H5G_LINK_SOFT_F)
! XXX
- EQUIVALENCE(H5G_flags(9), H5G_STORAGE_TYPE_UNKNOWN_F )
- EQUIVALENCE(H5G_flags(10), H5G_STORAGE_TYPE_SYMBOL_TABLE_F)
- EQUIVALENCE(H5G_flags(11), H5G_STORAGE_TYPE_COMPACT_F)
- EQUIVALENCE(H5G_flags(12), H5G_STORAGE_TYPE_DENSE_F)
+ EQUIVALENCE(H5G_flags(9), H5G_STORAGE_TYPE_UNKNOWN_F )
+ EQUIVALENCE(H5G_flags(10), H5G_STORAGE_TYPE_SYMBOL_TABLE_F)
+ EQUIVALENCE(H5G_flags(11), H5G_STORAGE_TYPE_COMPACT_F)
+ EQUIVALENCE(H5G_flags(12), H5G_STORAGE_TYPE_DENSE_F)
!
! H5D flags declaration
!
@@ -324,7 +324,7 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5D_FLAGS/ H5D_flags
- INTEGER :: H5D_COMPACT_F
+ INTEGER :: H5D_COMPACT_F
INTEGER :: H5D_CONTIGUOUS_F
INTEGER :: H5D_CHUNKED_F
@@ -348,7 +348,7 @@ MODULE H5GLOBAL
INTEGER :: H5D_FILL_VALUE_DEFAULT_F
INTEGER :: H5D_FILL_VALUE_USER_DEFINED_F
-! shortened "_DEFAULT" to "_DFLT" to satisfy the limit of 31
+! shortened "_DEFAULT" to "_DFLT" to satisfy the limit of 31
! characters for variable names in Fortran.
INTEGER :: H5D_CHUNK_CACHE_NSLOTS_DFLT_F
@@ -377,7 +377,7 @@ MODULE H5GLOBAL
EQUIVALENCE(H5D_flags(16), H5D_FILL_VALUE_ERROR_F)
EQUIVALENCE(H5D_flags(17), H5D_FILL_VALUE_UNDEFINED_F)
EQUIVALENCE(H5D_flags(18), H5D_FILL_VALUE_DEFAULT_F)
- EQUIVALENCE(H5D_flags(19), H5D_FILL_VALUE_USER_DEFINED_F)
+ EQUIVALENCE(H5D_flags(19), H5D_FILL_VALUE_USER_DEFINED_F)
EQUIVALENCE(H5D_flags(20), H5D_CHUNK_CACHE_NSLOTS_DFLT_F)
EQUIVALENCE(H5D_flags(21), H5D_CHUNK_CACHE_NBYTES_DFLT_F)
@@ -393,7 +393,7 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5FD_FLAGS/ H5FD_flags
- INTEGER :: H5FD_MPIO_INDEPENDENT_F
+ INTEGER :: H5FD_MPIO_INDEPENDENT_F
INTEGER :: H5FD_MPIO_COLLECTIVE_F
INTEGER :: H5FD_MEM_NOLIST_F
INTEGER :: H5FD_MEM_DEFAULT_F
@@ -505,7 +505,7 @@ MODULE H5GLOBAL
INTEGER :: H5O_COPY_EXPAND_SOFT_LINK_F ! NOT MATCH THE C VARIABLE
INTEGER :: H5O_COPY_EXPAND_EXT_LINK_F ! IN ORDER
INTEGER :: H5O_COPY_EXPAND_REFERENCE_F ! TO STAY UNDER THE
- INTEGER :: H5O_COPY_WITHOUT_ATTR_FLAG_F
+ INTEGER :: H5O_COPY_WITHOUT_ATTR_FLAG_F
INTEGER :: H5O_COPY_PRESERVE_NULL_FLAG_F
INTEGER :: H5O_COPY_ALL_F
INTEGER :: H5O_SHMESG_NONE_FLAG_F
@@ -543,27 +543,27 @@ MODULE H5GLOBAL
EQUIVALENCE(h5o_flags(17) , H5O_HDR_ATTR_CRT_ORDER_INDEX_F)
EQUIVALENCE(h5o_flags(18) , H5O_HDR_ATTR_STORE_PHASE_CHA_F)
EQUIVALENCE(h5o_flags(19) , H5O_HDR_STORE_TIMES_F)
- EQUIVALENCE(h5o_flags(20) , H5O_HDR_ALL_FLAGS_F)
+ EQUIVALENCE(h5o_flags(20) , H5O_HDR_ALL_FLAGS_F)
EQUIVALENCE(h5o_flags(21) , H5O_SHMESG_MAX_NINDEXES_F)
EQUIVALENCE(h5o_flags(22) , H5O_SHMESG_MAX_LIST_SIZE_F)
!
! H5P flags declaration
!
- INTEGER, PARAMETER :: H5P_FLAGS_LEN = 18
+ INTEGER, PARAMETER :: H5P_FLAGS_LEN = 18
INTEGER(HID_T) H5P_flags(H5P_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /H5P_FLAGS/
!DEC$endif
COMMON /H5P_FLAGS/ H5P_flags
- INTEGER(HID_T) :: H5P_FILE_CREATE_F
- INTEGER(HID_T) :: H5P_FILE_ACCESS_F
+ INTEGER(HID_T) :: H5P_FILE_CREATE_F
+ INTEGER(HID_T) :: H5P_FILE_ACCESS_F
INTEGER(HID_T) :: H5P_DATASET_CREATE_F
- INTEGER(HID_T) :: H5P_DATASET_XFER_F
- INTEGER(HID_T) :: H5P_FILE_MOUNT_F
- INTEGER(HID_T) :: H5P_DEFAULT_F
- INTEGER(HID_T) :: H5P_ROOT_F
+ INTEGER(HID_T) :: H5P_DATASET_XFER_F
+ INTEGER(HID_T) :: H5P_FILE_MOUNT_F
+ INTEGER(HID_T) :: H5P_DEFAULT_F
+ INTEGER(HID_T) :: H5P_ROOT_F
INTEGER(HID_T) :: H5P_OBJECT_CREATE_F
INTEGER(HID_T) :: H5P_DATASET_ACCESS_F
INTEGER(HID_T) :: H5P_GROUP_CREATE_F
@@ -598,14 +598,14 @@ MODULE H5GLOBAL
!
! H5P intgere flags declaration
!
- INTEGER, PARAMETER :: H5P_FLAGS_INT_LEN = 2
+ INTEGER, PARAMETER :: H5P_FLAGS_INT_LEN = 2
INTEGER H5P_flags_int(H5P_FLAGS_INT_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /H5P_FLAGS_INT/
!DEC$endif
COMMON /H5P_FLAGS_INT/ H5P_flags_int
- INTEGER :: H5P_CRT_ORDER_INDEXED_F
- INTEGER :: H5P_CRT_ORDER_TRACKED_F
+ INTEGER :: H5P_CRT_ORDER_INDEXED_F
+ INTEGER :: H5P_CRT_ORDER_TRACKED_F
EQUIVALENCE(H5P_flags_int(1), H5P_CRT_ORDER_INDEXED_F)
EQUIVALENCE(H5P_flags_int(2), H5P_CRT_ORDER_TRACKED_F)
!
@@ -627,16 +627,16 @@ MODULE H5GLOBAL
!
! H5S flags declaration
!
- INTEGER, PARAMETER :: H5S_FLAGS_LEN = 20
+ INTEGER, PARAMETER :: H5S_FLAGS_LEN = 20
INTEGER H5S_flags(H5S_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /H5S_FLAGS/
!DEC$endif
COMMON /H5S_FLAGS/ H5S_flags
- INTEGER :: H5S_SCALAR_F
- INTEGER :: H5S_SIMPLE_F
- INTEGER :: H5S_NULL_F
+ INTEGER :: H5S_SCALAR_F
+ INTEGER :: H5S_SIMPLE_F
+ INTEGER :: H5S_NULL_F
INTEGER :: H5S_UNLIMITED_F
INTEGER :: H5S_ALL_F
@@ -644,13 +644,13 @@ MODULE H5GLOBAL
INTEGER :: H5S_SELECT_NOOP_F
INTEGER :: H5S_SELECT_SET_F
INTEGER :: H5S_SELECT_OR_F
- INTEGER :: H5S_SELECT_AND_F
- INTEGER :: H5S_SELECT_XOR_F
- INTEGER :: H5S_SELECT_NOTB_F
- INTEGER :: H5S_SELECT_NOTA_F
- INTEGER :: H5S_SELECT_APPEND_F
- INTEGER :: H5S_SELECT_PREPEND_F
- INTEGER :: H5S_SELECT_INVALID_F
+ INTEGER :: H5S_SELECT_AND_F
+ INTEGER :: H5S_SELECT_XOR_F
+ INTEGER :: H5S_SELECT_NOTB_F
+ INTEGER :: H5S_SELECT_NOTA_F
+ INTEGER :: H5S_SELECT_APPEND_F
+ INTEGER :: H5S_SELECT_PREPEND_F
+ INTEGER :: H5S_SELECT_INVALID_F
INTEGER :: H5S_SEL_ERROR_F
@@ -668,12 +668,12 @@ MODULE H5GLOBAL
EQUIVALENCE(H5S_flags(7), H5S_ALL_F)
EQUIVALENCE(H5S_flags(8), H5S_SELECT_NOOP_F)
- EQUIVALENCE(H5S_flags(9), H5S_SELECT_AND_F)
+ EQUIVALENCE(H5S_flags(9), H5S_SELECT_AND_F)
EQUIVALENCE(H5S_flags(10), H5S_SELECT_XOR_F)
EQUIVALENCE(H5S_flags(11), H5S_SELECT_NOTB_F)
EQUIVALENCE(H5S_flags(12), H5S_SELECT_NOTA_F)
- EQUIVALENCE(H5S_flags(13), H5S_SELECT_APPEND_F)
- EQUIVALENCE(H5S_flags(14), H5S_SELECT_PREPEND_F)
+ EQUIVALENCE(H5S_flags(13), H5S_SELECT_APPEND_F)
+ EQUIVALENCE(H5S_flags(14), H5S_SELECT_PREPEND_F)
EQUIVALENCE(H5S_flags(15), H5S_SELECT_INVALID_F)
@@ -694,36 +694,36 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5T_FLAGS/ H5T_flags
- INTEGER :: H5T_NO_CLASS_F
- INTEGER :: H5T_INTEGER_F
- INTEGER :: H5T_FLOAT_F
- INTEGER :: H5T_TIME_F
- INTEGER :: H5T_STRING_F
+ INTEGER :: H5T_NO_CLASS_F
+ INTEGER :: H5T_INTEGER_F
+ INTEGER :: H5T_FLOAT_F
+ INTEGER :: H5T_TIME_F
+ INTEGER :: H5T_STRING_F
INTEGER :: H5T_BITFIELD_F
- INTEGER :: H5T_OPAQUE_F
- INTEGER :: H5T_COMPOUND_F
+ INTEGER :: H5T_OPAQUE_F
+ INTEGER :: H5T_COMPOUND_F
INTEGER :: H5T_REFERENCE_F
- INTEGER :: H5T_ENUM_F
+ INTEGER :: H5T_ENUM_F
INTEGER :: H5T_VLEN_F
INTEGER :: H5T_ARRAY_F
- INTEGER :: H5T_ORDER_LE_F
+ INTEGER :: H5T_ORDER_LE_F
INTEGER :: H5T_ORDER_BE_F
INTEGER :: H5T_ORDER_VAX_F
INTEGER :: H5T_ORDER_NONE_F
INTEGER :: H5T_PAD_ZERO_F
INTEGER :: H5T_PAD_ONE_F
INTEGER :: H5T_PAD_BACKGROUND_F
- INTEGER :: H5T_PAD_ERROR_F
- INTEGER :: H5T_SGN_NONE_F
- INTEGER :: H5T_SGN_2_F
+ INTEGER :: H5T_PAD_ERROR_F
+ INTEGER :: H5T_SGN_NONE_F
+ INTEGER :: H5T_SGN_2_F
INTEGER :: H5T_SGN_ERROR_F
INTEGER :: H5T_NORM_IMPLIED_F
INTEGER :: H5T_NORM_MSBSET_F
- INTEGER :: H5T_NORM_NONE_F
+ INTEGER :: H5T_NORM_NONE_F
INTEGER :: H5T_CSET_ASCII_F
INTEGER :: H5T_CSET_UTF8_F
- INTEGER :: H5T_STR_NULLTERM_F
- INTEGER :: H5T_STR_NULLPAD_F
+ INTEGER :: H5T_STR_NULLTERM_F
+ INTEGER :: H5T_STR_NULLPAD_F
INTEGER :: H5T_STR_SPACEPAD_F
INTEGER :: H5T_STR_ERROR_F
INTEGER :: H5T_DIR_ASCEND_F
@@ -774,13 +774,13 @@ MODULE H5GLOBAL
!DEC$endif
COMMON /H5Z_FLAGS/ H5Z_flags
- INTEGER :: H5Z_FILTER_ERROR_F
- INTEGER :: H5Z_FILTER_NONE_F
+ INTEGER :: H5Z_FILTER_ERROR_F
+ INTEGER :: H5Z_FILTER_NONE_F
INTEGER :: H5Z_FILTER_ALL_F
- INTEGER :: H5Z_FILTER_DEFLATE_F
- INTEGER :: H5Z_FILTER_SHUFFLE_F
- INTEGER :: H5Z_FILTER_FLETCHER32_F
- INTEGER :: H5Z_FILTER_SZIP_F
+ INTEGER :: H5Z_FILTER_DEFLATE_F
+ INTEGER :: H5Z_FILTER_SHUFFLE_F
+ INTEGER :: H5Z_FILTER_FLETCHER32_F
+ INTEGER :: H5Z_FILTER_SZIP_F
INTEGER :: H5Z_ERROR_EDC_F
INTEGER :: H5Z_DISABLE_EDC_F
INTEGER :: H5Z_ENABLE_EDC_F
@@ -809,7 +809,7 @@ MODULE H5GLOBAL
! H5 Library flags declaration
!
INTEGER, PARAMETER :: H5LIB_FLAGS_LEN = 2
- INTEGER :: H5LIB_flags(H5LIB_FLAGS_LEN)
+ INTEGER :: H5LIB_flags(H5LIB_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /H5LIB_FLAGS/
!DEC$endif
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c
index d6b7a85..78fb9e9 100644
--- a/fortran/src/H5match_types.c
+++ b/fortran/src/H5match_types.c
@@ -149,9 +149,9 @@ int main()
/* Default is C has 16 byte float */
- H5_C_HAS_REAL_NATIVE_16 = 1;
+ H5_C_HAS_REAL_NATIVE_16 = 1;
/* Default is C has 12 byte float */
- H5_C_HAS_REAL_NATIVE_12 = 1;
+ H5_C_HAS_REAL_NATIVE_12 = 1;
/* Write copyright, boilerplate to both files */
initCfile();
@@ -251,7 +251,7 @@ int main()
writeFloatTypedef("double", 12);
else if(sizeof(float) == 12)
writeFloatTypedef("float", 12);
- else /*C has no 12 byte float so disable it in Fortran*/
+ else /*C has no 12 byte float so disable it in Fortran*/
{ printf("warning: Fortran REAL is 12 bytes, no corresponding C floating type\n");
printf(" Disabling Fortran 12 byte REALs\n");
H5_C_HAS_REAL_NATIVE_12 = 0;
@@ -265,7 +265,7 @@ int main()
writeFloatTypedef("double", 16);
else if(sizeof(float) == 16)
writeFloatTypedef("float", 16);
- else /*C has no 16 byte float so disable it in Fortran*/
+ else /*C has no 16 byte float so disable it in Fortran*/
{ printf("warning: Fortran REAL is 16 bytes, no corresponding C floating type\n");
printf(" Disabling Fortran 16 byte REALs\n");
H5_C_HAS_REAL_NATIVE_16 = 0;
@@ -408,7 +408,7 @@ int main()
}
if(flag == 0) /* No higher or lower one found, indicating an error */
{
- return -1;
+ return -1;
}
}
}
@@ -490,7 +490,7 @@ int main()
}
if(flag == 0) /* No higher or lower one found, indicating an error */
{
- return -1;
+ return -1;
}
}
}
diff --git a/fortran/src/H5test_kind.f90 b/fortran/src/H5test_kind.f90
index b945cd3..bdf5f5b 100644
--- a/fortran/src/H5test_kind.f90
+++ b/fortran/src/H5test_kind.f90
@@ -2,24 +2,24 @@
!
! NAME
! H5test_kind
-!
+!
! FUNCTION
-! This stand alone program is used at build time to generate the program
+! This stand alone program is used at build time to generate the program
! H5fortran_detect.f90. It cycles through all the available KIND parameters for
-! integers and reals. The appropriate program and subroutines are then generated
+! integers and reals. The appropriate program and subroutines are then generated
! depending on which of the KIND values are found.
!
! NOTES
-! This program is depreciated in favor of H5test_kind_SIZEOF.f90 and is only
+! This program is depreciated in favor of H5test_kind_SIZEOF.f90 and is only
! used when the Fortran intrinsic function SIZEOF is not available. It generates
-! code that does not make use of SIZEOF in H5fortran_detect.f90 which is less
+! code that does not make use of SIZEOF in H5fortran_detect.f90 which is less
! portable in comparison to using SIZEOF.
!
-! The availability of SIZEOF is checked at configure time and the TRUE/FALSE
+! The availability of SIZEOF is checked at configure time and the TRUE/FALSE
! condition is set in the configure variable "FORTRAN_HAVE_SIZEOF".
!
! COPYRIGHT
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -32,7 +32,7 @@
! 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
! Elena Pourma
@@ -88,7 +88,7 @@ WRITE(*,'(40(A,/))') &
'! NOTES',&
'! This source code does not make use of the Fortran intrinsic function SIZEOF because',&
'! the availability of the intrinsic function was determined to be not available at',&
-'! configure time',&
+'! configure time',&
'!',&
'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
'! Copyright by The HDF Group. *',&
@@ -151,7 +151,7 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" WRITE(*,*) ""#define H5_FORTRAN_HAS_NATIVE_16"" "
WRITE(*,*)" ENDIF"
WRITE(*,*)" RETURN"
- WRITE(*,*)"END SUBROUTINE"
+ WRITE(*,*)"END SUBROUTINE"
jr = 0
WRITE(*, "("" SUBROUTINE r"", i2.2,""()"")") j
WRITE(*,*)" IMPLICIT NONE"
@@ -171,7 +171,7 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_REAL_NATIVE_16"" "
WRITE(*,*)" ENDIF"
WRITE(*,*)" RETURN"
- WRITE(*,*)"END SUBROUTINE"
+ WRITE(*,*)"END SUBROUTINE"
jd = 0
WRITE(*, "("" SUBROUTINE d"", i2.2,""()"")") jd
WRITE(*,*)" IMPLICIT NONE"
@@ -188,7 +188,7 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" WRITE(*,*) ""#define H5_FORTRAN_HAS_DOUBLE_NATIVE_16"" "
WRITE(*,*)" ENDIF"
WRITE(*,*)" RETURN"
- WRITE(*,*)"END SUBROUTINE"
+ WRITE(*,*)"END SUBROUTINE"
DO i = 1, ii
j = ikind_numbers(i)
WRITE(*, "("" SUBROUTINE i"", i2.2,""()"")") j
@@ -212,7 +212,7 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" WRITE(*,*) ""#define H5_FORTRAN_HAS_INTEGER_16"" "
WRITE(*,*)" ENDIF"
WRITE(*,*)" RETURN"
- WRITE(*,*)" END SUBROUTINE"
+ WRITE(*,*)" END SUBROUTINE"
ENDDO
DO i = 1, ir
j = rkind_numbers(i)
@@ -234,9 +234,9 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" write(*,*) ""#define H5_FORTRAN_HAS_REAL_16"" "
WRITE(*,*)" ENDIF"
WRITE(*,*)" RETURN"
- WRITE(*,*)" END SUBROUTINE"
+ WRITE(*,*)" END SUBROUTINE"
ENDDO
END PROGRAM test_kind
-
+
diff --git a/fortran/src/H5test_kind_SIZEOF.f90 b/fortran/src/H5test_kind_SIZEOF.f90
index 2b992a3..fbbe8e9 100644
--- a/fortran/src/H5test_kind_SIZEOF.f90
+++ b/fortran/src/H5test_kind_SIZEOF.f90
@@ -4,17 +4,17 @@
! H5test_kind
!
! FUNCTION
-! This stand alone program is used at build time to generate the program
+! This stand alone program is used at build time to generate the program
! H5fortran_detect.f90. It cycles through all the available KIND parameters for
-! integers and reals. The appropriate program and subroutines are then generated
+! integers and reals. The appropriate program and subroutines are then generated
! depending on which of the KIND values are found.
!
! NOTES
-! This program is used in place of H5test_kind.f90 when the Fortran intrinsic
-! function SIZEOF is available. It generates code that makes use of SIZEOF in
+! This program is used in place of H5test_kind.f90 when the Fortran intrinsic
+! function SIZEOF is available. It generates code that makes use of SIZEOF in
! H5fortran_detect.f90 which is a portable solution.
!
-! The availability of SIZEOF is checked at configure time and the TRUE/FALSE
+! The availability of SIZEOF is checked at configure time and the TRUE/FALSE
! condition is set in the configure variable "FORTRAN_HAVE_SIZEOF".
!
! COPYRIGHT
@@ -86,7 +86,7 @@ WRITE(*,'(40(A,/))') &
'! NOTES',&
'! This source code makes use of the Fortran intrinsic function SIZEOF because',&
'! the availability of the intrinsic function was determined to be available at',&
-'! configure time',&
+'! configure time',&
'!',&
'! COPYRIGHT',&
'! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *',&
@@ -137,7 +137,7 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)" WRITE(ichr2,'(I2)') a_size"
WRITE(*,*)' WRITE(*,*) "#define H5_FORTRAN_HAS_NATIVE_"'//"//ADJUSTL(ichr2)"
WRITE(*,*)" RETURN"
- WRITE(*,*)"END SUBROUTINE"
+ WRITE(*,*)"END SUBROUTINE"
jr = 0
WRITE(*, "("" SUBROUTINE r"", i2.2,""()"")") j
WRITE(*,*)" IMPLICIT NONE"
@@ -187,6 +187,6 @@ WRITE(*,'(40(A,/))') &
WRITE(*,*)"END SUBROUTINE"
ENDDO
END PROGRAM test_kind
-
-
+
+
diff --git a/fortran/src/HDF5.f90 b/fortran/src/HDF5.f90
index 1d758fb..b18591d 100644
--- a/fortran/src/HDF5.f90
+++ b/fortran/src/HDF5.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
MODULE HDF5
USE H5GLOBAL
diff --git a/fortran/src/HDF5mpio.f90 b/fortran/src/HDF5mpio.f90
index 6febef8..15d3a93 100644
--- a/fortran/src/HDF5mpio.f90
+++ b/fortran/src/HDF5mpio.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
MODULE HDF5
USE H5GLOBAL
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90
index f42ae6e..8767e55 100644
--- a/fortran/test/fflush1.f90
+++ b/fortran/test/fflush1.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,23 +11,23 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! Purpose: This is the first half of a two-part test that makes sure
! that a file can be read after an application crashes as long
-! as the file was flushed first. We simulate by exit the
+! as the file was flushed first. We simulate by exit the
! the program using stop statement
!
PROGRAM FFLUSH1EXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
!
- !the respective filename is "fflush1.h5"
+ !the respective filename is "fflush1.h5"
!
CHARACTER(LEN=7), PARAMETER :: filename = "fflush1"
CHARACTER(LEN=80) :: fix_filename
@@ -42,40 +42,40 @@
!
! File identifiers
!
- INTEGER(HID_T) :: file_id
-
+ INTEGER(HID_T) :: file_id
+
!
! Group identifier
!
- INTEGER(HID_T) :: gid
+ INTEGER(HID_T) :: gid
!
! dataset identifier
!
INTEGER(HID_T) :: dset_id
-
+
!
! data space identifier
!
INTEGER(HID_T) :: dataspace
- !
+ !
!The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
- !flag to check operation success
- !
+ !flag to check operation success
+ !
INTEGER :: error
!
- !general purpose integer
- !
+ !general purpose integer
+ !
INTEGER :: i, j, total_error = 0
!
- !data buffers
- !
+ !data buffers
+ !
INTEGER, DIMENSION(NX,NY) :: data_in
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
data_dims(1) = NX
@@ -84,7 +84,7 @@
!
!Initialize FORTRAN predifined datatypes
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
CALL check("h5open_f",error,total_error)
!
@@ -98,7 +98,7 @@
!
!Create file "fflush1.h5" using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -109,29 +109,29 @@
!
!Create group "/G" inside file "fflush1.h5".
- !
+ !
CALL h5gcreate_f(file_id, "/G", gid, error)
CALL check("h5gcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
CALL check("h5screate_simple_f",error,total_error)
!
!Create dataset "/D" inside file "fflush1.h5".
- !
+ !
CALL h5dcreate_f(file_id, "/D", H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
CALL check("h5dcreate_f",error,total_error)
-
+
!
! Write data_in to the dataset
!
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data_in, data_dims, error)
CALL check("h5dwrite_f",error,total_error)
-
+
!
!flush and exit without closing the library
!
diff --git a/fortran/test/fflush2.f90 b/fortran/test/fflush2.f90
index 38a2bd7..a4710e2 100644
--- a/fortran/test/fflush2.f90
+++ b/fortran/test/fflush2.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! Purpose: This is the second half of a two-part test that makes sure
@@ -22,8 +22,8 @@
PROGRAM FFLUSH2EXAMPLE
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
CHARACTER(LEN=7), PARAMETER :: filename = "fflush1"
@@ -39,37 +39,37 @@
!
! File identifiers
!
- INTEGER(HID_T) :: file_id
-
+ INTEGER(HID_T) :: file_id
+
!
! Group identifier
!
- INTEGER(HID_T) :: gid
+ INTEGER(HID_T) :: gid
!
! dataset identifier
!
INTEGER(HID_T) :: dset_id
-
+
!
! data type identifier
!
INTEGER(HID_T) :: dtype_id
!
- !flag to check operation success
- !
+ !flag to check operation success
+ !
INTEGER :: error
!
- !general purpose integer
- !
+ !general purpose integer
+ !
INTEGER :: i, j, total_error = 0
!
- !data buffers
- !
+ !data buffers
+ !
INTEGER, DIMENSION(NX,NY) :: data_out
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
data_dims(1) = NX
@@ -78,7 +78,7 @@
!
!Initialize FORTRAN predifined datatypes
!
- CALL h5open_f(error)
+ CALL h5open_f(error)
CALL check("h5open_f",error,total_error)
!
@@ -95,13 +95,13 @@
!
!Open the dataset
- !
+ !
CALL h5dopen_f(file_id, "/D", dset_id, error)
CALL check("h5dopen_f",error,total_error)
!
!Get dataset's data type.
- !
+ !
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f",error,total_error)
@@ -128,14 +128,14 @@
!
!Open the group.
!
- CALL h5gopen_f(file_id, "G", gid, error)
+ CALL h5gopen_f(file_id, "G", gid, error)
CALL check("h5gopen_f",error,total_error)
-
+
!
!In case error happens, exit.
!
IF (error == -1) CALL h5_exit_f (1)
-
+
!
!Close the datatype
!
@@ -166,7 +166,7 @@
CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL h5close_f(error)
CALL check("h5close_types_f",error,total_error)
-
+
! if errors detected, exit with non-zero code.
IF (total_error .ne. 0) CALL h5_exit_f (1)
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90
index 8ecbcf7..5a2db07 100644
--- a/fortran/test/fortranlib_test.f90
+++ b/fortran/test/fortranlib_test.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,16 +11,16 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Fortran functionality.
!
PROGRAM fortranlibtest
-
+
USE HDF5
-
+
IMPLICIT NONE
INTEGER :: total_error = 0
INTEGER :: error
@@ -42,7 +42,7 @@ PROGRAM fortranlibtest
WRITE(*, '(" FORTRANLIB_TEST is linked with HDF5 Library version ")', advance="NO")
WRITE(*, '(I1)', advance="NO") majnum
- WRITE(*, '(".")', advance="NO")
+ WRITE(*, '(".")', advance="NO")
WRITE(*, '(I1)', advance="NO") minnum
WRITE(*, '(" release ")', advance="NO")
WRITE(*, '(I3)') relnum
@@ -59,7 +59,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL mountingtest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Mounting test', total_error)
-
+
ret_total_error = 0
CALL reopentest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Reopen test', total_error)
@@ -85,7 +85,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL datasettest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Dataset test', total_error)
-
+
ret_total_error = 0
CALL extenddsettest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Extendible dataset test', total_error)
@@ -107,7 +107,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL refobjtest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Reference to object test', total_error)
-
+
ret_total_error = 0
CALL refregtest(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Reference to dataset region test', total_error)
@@ -125,7 +125,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL test_select_hyperslab( cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Hyperslab selection test', total_error)
-
+
ret_total_error = 0
CALL test_select_element(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Element selection test', total_error)
@@ -141,7 +141,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL test_select_bounds(cleanup, ret_total_error)
CALL write_test_status(ret_total_error, ' Selection bounds test ', total_error)
-
+
! write(*,*)
! write(*,*) '========================================='
! write(*,*) 'Testing DATATYPE interface '
@@ -164,7 +164,7 @@ PROGRAM fortranlibtest
! write(*,*)
! write(*,*) '========================================='
-! write(*,*) 'Testing PROPERTY interface '
+! write(*,*) 'Testing PROPERTY interface '
! write(*,*) '========================================='
ret_total_error = 0
@@ -180,7 +180,7 @@ PROGRAM fortranlibtest
! write(*,*)
! write(*,*) '========================================='
-! write(*,*) 'Testing ATTRIBUTE interface '
+! write(*,*) 'Testing ATTRIBUTE interface '
! write(*,*) '========================================='
ret_total_error = 0
@@ -202,7 +202,7 @@ PROGRAM fortranlibtest
ret_total_error = 0
CALL szip_test(szip_flag, cleanup, ret_total_error)
-
+
IF (.NOT. szip_flag) THEN ! test not available
CALL write_test_status(-1, ' SZIP filter test', total_error)
ELSE
@@ -235,7 +235,7 @@ PROGRAM fortranlibtest
WRITE(*, fmt = '(i4)', advance='NO') total_error
WRITE(*, fmt = '(12a)' ) ' error(s) ! '
WRITE(*,*) ' ============================================ '
-
+
CALL h5close_f(error)
! if errors detected, exit with non-zero code.
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90
index 9ab6743..fac83eb 100644
--- a/fortran/test/fortranlib_test_1_8.f90
+++ b/fortran/test/fortranlib_test_1_8.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Fortran wrappers introduced in 1.8 release.
!
PROGRAM fortranlibtest
@@ -28,7 +28,7 @@ PROGRAM fortranlibtest
INTEGER :: majnum, minnum, relnum
LOGICAL :: cleanup, status
- CALL h5open_f(error)
+ CALL h5open_f(error)
cleanup = .TRUE.
CALL h5_env_nocleanup_f(status)
@@ -41,7 +41,7 @@ PROGRAM fortranlibtest
IF(total_error .EQ. 0) THEN
WRITE(*, '(" FORTRANLIB_TEST is linked with HDF5 Library version ")', advance="NO")
WRITE(*, '(I1)', advance="NO") majnum
- WRITE(*, '(".")', advance="NO")
+ WRITE(*, '(".")', advance="NO")
WRITE(*, '(I1)', advance="NO") minnum
WRITE(*, '(" release ")', advance="NO")
WRITE(*, '(I3)') relnum
@@ -92,7 +92,7 @@ PROGRAM fortranlibtest
' Testing dataspace encoding and decoding', &
total_error)
-
+
! CALL test_hard_query(group_total_error)
@@ -112,15 +112,15 @@ PROGRAM fortranlibtest
END PROGRAM fortranlibtest
SUBROUTINE dtransform(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(INOUT) :: total_error
INTEGER(HID_T) :: dxpl_id_c_to_f
INTEGER(HID_T) :: file_id
-
+
CHARACTER(LEN=15), PARAMETER :: c_to_f = "(9/5.0)*x + 123"
INTEGER :: error
CHARACTER(LEN=15) :: ptrgetTest
@@ -135,7 +135,7 @@ SUBROUTINE dtransform(cleanup, total_error)
CALL H5Pcreate_f(H5P_DATASET_XFER_F, dxpl_id_c_to_f, error)
CALL check("dtransform.H5Pcreate_f", error, total_error)
-
+
CALL H5Pset_data_transform_f(dxpl_id_c_to_f, c_to_f, error)
CALL check("dtransform.H5Pset_data_transform_f", error, total_error)
@@ -177,8 +177,8 @@ END SUBROUTINE dtransform
SUBROUTINE test_genprop_basic_class(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(INOUT) :: total_error
@@ -210,8 +210,8 @@ SUBROUTINE test_genprop_basic_class(cleanup, total_error)
IF(error.NE.0)THEN
WRITE(*,*) 'Class names do not match! name=',name, 'CLASS1_NAME=',CLASS1_NAME
total_error = total_error + 1
- ENDIF
-
+ ENDIF
+
! /* Check class name smaller buffer*/
CALL H5Pget_class_name_f(cid1, name_small, size, error)
CALL check("H5Pget_class_name", error, total_error)
@@ -266,8 +266,8 @@ SUBROUTINE test_h5s_encode(cleanup, total_error)
!**
!****************************************************************/
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(INOUT) :: total_error
@@ -296,7 +296,7 @@ SUBROUTINE test_h5s_encode(cleanup, total_error)
! H5S_sel_type sel_type;
! hssize_t nblocks;
!
- !Dataset dimensions
+ !Dataset dimensions
!
INTEGER, PARAMETER :: SPACE1_DIM1= 3, SPACE1_DIM2=15, SPACE1_DIM3=13
@@ -311,15 +311,15 @@ SUBROUTINE test_h5s_encode(cleanup, total_error)
! * Test encoding and decoding of simple dataspace and hyperslab selection.
! *-------------------------------------------------------------------------
! */
-
+
CALL H5Screate_simple_f(SPACE1_RANK, dims1, sid1, error)
CALL check("H5Screate_simple", error, total_error)
-
+
CALL h5sselect_hyperslab_f(sid1, H5S_SELECT_SET_F, &
- start, count, error, stride=stride, BLOCK=BLOCK)
+ start, count, error, stride=stride, BLOCK=BLOCK)
CALL check("h5sselect_hyperslab_f", error, total_error)
-
-
+
+
!/* Encode simple data space in a buffer */
! First find the buffer size
@@ -369,9 +369,9 @@ SUBROUTINE test_h5s_encode(cleanup, total_error)
!
CALL h5sclose_f(sid1, error)
CALL check("h5sclose_f", error, total_error)
-
+
CALL h5sclose_f(decoded_sid1, error)
- CALL check("h5sclose_f", error, total_error)
+ CALL check("h5sclose_f", error, total_error)
! /*-------------------------------------------------------------------------
! * Test encoding and decoding of scalar dataspace.
@@ -417,7 +417,7 @@ SUBROUTINE test_h5s_encode(cleanup, total_error)
CALL h5sclose_f(sid3, error)
CALL check("h5sclose_f", error, total_error)
-
+
CALL h5sclose_f(decoded_sid3, error)
CALL check("h5sclose_f", error, total_error)
diff --git a/fortran/test/t.c b/fortran/test/t.c
index f2203d0..bf30331 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -52,9 +52,9 @@ nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f* fapl, _fcd full_n
HD5packFstring(c_full_name, _fcdtocp(full_name), (size_t)*full_namelen);
done:
- if(c_base_name)
+ if(c_base_name)
HDfree(c_base_name);
- if(c_full_name)
+ if(c_full_name)
HDfree(c_full_name);
return ret_value;
diff --git a/fortran/test/tH5A.f90 b/fortran/test/tH5A.f90
index b73dd8a..dd6cbb1 100644
--- a/fortran/test/tH5A.f90
+++ b/fortran/test/tH5A.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,23 +11,23 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE attribute_test(cleanup, total_error)
-! This subroutine tests following functionalities:
+! This subroutine tests following functionalities:
! h5acreate_f, h5awrite_f, h5aclose_f,h5aread_f, h5aopen_name_f,
! h5aget_name_f,h5aget_space_f, h5aget_type_f,
-!
+!
+
+ USE HDF5 ! This module contains all necessary modules
- USE HDF5 ! This module contains all necessary modules
-
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=5), PARAMETER :: filename = "atest" !File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset" !Dataset name
CHARACTER(LEN=11), PARAMETER :: aname = "attr_string" !String Attribute name
CHARACTER(LEN=14), PARAMETER :: aname2 = "attr_character"!Character Attribute name
@@ -35,7 +35,7 @@
CHARACTER(LEN=9), PARAMETER :: aname4 = "attr_real" !Real Attribute name
CHARACTER(LEN=12), PARAMETER :: aname5 = "attr_integer" !Integer Attribute name
CHARACTER(LEN=9), PARAMETER :: aname6 = "attr_null" !Null Attribute name
-
+
!
!data space rank and dimensions
!
@@ -45,44 +45,44 @@
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: dataspace ! Dataspace identifier for dataset
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: dataspace ! Dataspace identifier for dataset
- INTEGER(HID_T) :: attr_id !String Attribute identifier
- INTEGER(HID_T) :: attr2_id !Character Attribute identifier
- INTEGER(HID_T) :: attr3_id !Double Attribute identifier
- INTEGER(HID_T) :: attr4_id !Real Attribute identifier
- INTEGER(HID_T) :: attr5_id !Integer Attribute identifier
- INTEGER(HID_T) :: attr6_id !Null Attribute identifier
- INTEGER(HID_T) :: aspace_id !String Attribute Dataspace identifier
+ INTEGER(HID_T) :: attr_id !String Attribute identifier
+ INTEGER(HID_T) :: attr2_id !Character Attribute identifier
+ INTEGER(HID_T) :: attr3_id !Double Attribute identifier
+ INTEGER(HID_T) :: attr4_id !Real Attribute identifier
+ INTEGER(HID_T) :: attr5_id !Integer Attribute identifier
+ INTEGER(HID_T) :: attr6_id !Null Attribute identifier
+ INTEGER(HID_T) :: aspace_id !String Attribute Dataspace identifier
INTEGER(HID_T) :: aspace2_id !Character Attribute Dataspace identifier
- INTEGER(HID_T) :: aspace6_id !Null Attribute Dataspace identifier
- INTEGER(HID_T) :: atype_id !String Attribute Datatype identifier
- INTEGER(HID_T) :: atype2_id !Character Attribute Datatype identifier
- INTEGER(HID_T) :: atype3_id !Double Attribute Datatype identifier
- INTEGER(HID_T) :: atype4_id !Real Attribute Datatype identifier
- INTEGER(HID_T) :: atype5_id !Integer Attribute Datatype identifier
+ INTEGER(HID_T) :: aspace6_id !Null Attribute Dataspace identifier
+ INTEGER(HID_T) :: atype_id !String Attribute Datatype identifier
+ INTEGER(HID_T) :: atype2_id !Character Attribute Datatype identifier
+ INTEGER(HID_T) :: atype3_id !Double Attribute Datatype identifier
+ INTEGER(HID_T) :: atype4_id !Real Attribute Datatype identifier
+ INTEGER(HID_T) :: atype5_id !Integer Attribute Datatype identifier
INTEGER(HSIZE_T), DIMENSION(1) :: adims = (/2/) ! Attribute dimension
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
INTEGER :: arank = 1 ! Attribure rank
INTEGER(SIZE_T) :: attrlen ! Length of the attribute string
- INTEGER(HID_T) :: attr_space !Returned String Attribute Space identifier
- INTEGER(HID_T) :: attr2_space !Returned other Attribute Space identifier
+ INTEGER(HID_T) :: attr_space !Returned String Attribute Space identifier
+ INTEGER(HID_T) :: attr2_space !Returned other Attribute Space identifier
INTEGER(HID_T) :: attr_type !Returned Attribute Datatype identifier
INTEGER(HID_T) :: attr2_type !Returned CHARACTER Attribute Datatype identifier
INTEGER(HID_T) :: attr3_type !Returned DOUBLE Attribute Datatype identifier
INTEGER(HID_T) :: attr4_type !Returned REAL Attribute Datatype identifier
INTEGER(HID_T) :: attr5_type !Returned INTEGER Attribute Datatype identifier
INTEGER(HID_T) :: attr6_type !Returned NULL Attribute Datatype identifier
- INTEGER :: num_attrs !number of attributes
+ INTEGER :: num_attrs !number of attributes
INTEGER(HSIZE_T) :: attr_storage ! attributes storage requirements .MSB.
CHARACTER(LEN=256) :: attr_name !buffer to put attr_name
INTEGER(SIZE_T) :: name_size = 80 !attribute name length
CHARACTER(LEN=35), DIMENSION(2) :: attr_data ! String attribute data
- CHARACTER(LEN=35), DIMENSION(2) :: aread_data ! Buffer to put read back
+ CHARACTER(LEN=35), DIMENSION(2) :: aread_data ! Buffer to put read back
! string attr data
CHARACTER :: attr_character_data = 'A'
DOUBLE PRECISION, DIMENSION(1) :: attr_double_data = 3.459
@@ -90,7 +90,7 @@
INTEGER, DIMENSION(1) :: attr_integer_data = 5
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
-
+
CHARACTER :: aread_character_data ! variable to put read back Character attr data
INTEGER, DIMENSION(1) :: aread_integer_data ! variable to put read back integer attr data
INTEGER, DIMENSION(1) :: aread_null_data = 7 ! variable to put read back null attr data
@@ -98,19 +98,19 @@
REAL, DIMENSION(1) :: aread_real_data ! variable to put read back real attr data
!
- !general purpose integer
- !
+ !general purpose integer
+ !
INTEGER :: i, j
INTEGER :: error ! Error flag
-
- !
+
+ !
!The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
- !data buffers
- !
+ !data buffers
+ !
INTEGER, DIMENSION(NX,NY) :: data_in
@@ -126,9 +126,9 @@
! Initialize attribute's data
!
attr_data(1) = 'Dataset character attribute'
- attr_data(2) = 'Some other string here '
- attrlen = LEN(attr_data(1))
-
+ attr_data(2) = 'Some other string here '
+ attrlen = LEN(attr_data(1))
+
!
! Create the file.
!
@@ -141,13 +141,13 @@
CALL check("h5fcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
CALL check("h5screate_simple_f",error,total_error)
!
- ! create dataset in the file.
+ ! create dataset in the file.
!
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
@@ -162,17 +162,17 @@
CALL check("h5dwrite_f",error,total_error)
!
- ! Create scalar data space for the String attribute.
+ ! Create scalar data space for the String attribute.
!
CALL h5screate_simple_f(arank, adims, aspace_id, error)
CALL check("h5screate_simple_f",error,total_error)
!
- ! Create scalar data space for all other attributes.
+ ! Create scalar data space for all other attributes.
!
CALL h5screate_simple_f(arank, adims2, aspace2_id, error)
CALL check("h5screate_simple_f",error,total_error)
!
- ! Create null data space for null attributes.
+ ! Create null data space for null attributes.
!
CALL h5screate_f(H5S_NULL_F, aspace6_id, error)
CALL check("h5screate_f",error,total_error)
@@ -222,7 +222,7 @@
CALL h5acreate_f(dset_id, aname2, atype2_id, aspace2_id, &
attr2_id, error)
CALL check("h5acreate_f",error,total_error)
-
+
!
! Create dataset DOUBLE attribute.
@@ -250,7 +250,7 @@
attr6_id, error)
CALL check("h5acreate_f",error,total_error)
-
+
!
! Write the String attribute data.
!
@@ -265,20 +265,20 @@
!
! Write the DOUBLE attribute data.
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr3_id, atype3_id, attr_double_data, data_dims, error)
CALL check("h5awrite_f",error,total_error)
!
! Write the Real attribute data.
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims, error)
CALL check("h5awrite_f",error,total_error)
!
! Write the Integer attribute data.
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr5_id, atype5_id, attr_integer_data, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -310,9 +310,9 @@
CALL check("h5aget_storage_size_f",error,total_error)
! CALL verify("h5aget_storage_size_f",attr_storage,0,total_error)
-
+
!
- ! Close the attribute.
+ ! Close the attribute.
!
CALL h5aclose_f(attr_id, error)
CALL check("h5aclose_f",error,total_error)
@@ -394,7 +394,7 @@
!
CALL h5aopen_name_f(dset_id, aname5, attr5_id, error)
CALL check("h5aopen_idx_f",error,total_error)
-
+
!
!open the NULL attrbute by name
!
@@ -412,7 +412,7 @@
IF (error .NE. 12) THEN
total_error = total_error + 1
END IF
-
+
!
!get the STRING attrbute space
!
@@ -449,7 +449,7 @@
!
CALL h5aget_type_f(attr5_id, attr5_type, error)
CALL check("h5aget_type_f",error,total_error)
-
+
!
!get the null attrbute datatype
!
@@ -483,9 +483,9 @@
IF ( (aread_data(1) .NE. attr_data(1)) .OR. (aread_data(2) .NE. attr_data(2)) ) THEN
WRITE(*,*) "Read back string attrbute is wrong", aread_data(1), aread_data(2)
- total_error = total_error + 1
+ total_error = total_error + 1
END IF
-
+
!
!read the CHARACTER attribute data back to memory
!
@@ -493,51 +493,51 @@
CALL check("h5aread_f",error,total_error)
IF (aread_character_data .NE. 'A' ) THEN
WRITE(*,*) "Read back character attrbute is wrong ",aread_character_data
- total_error = total_error + 1
+ total_error = total_error + 1
END IF
!
!read the double attribute data back to memory
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5aread_f(attr3_id, H5T_NATIVE_DOUBLE, aread_double_data, data_dims, error)
CALL check("h5aread_f",error,total_error)
IF (aread_double_data(1) .NE. 3.459 ) THEN
WRITE(*,*) "Read back double attrbute is wrong", aread_double_data(1)
total_error = total_error + 1
- END IF
+ END IF
!
!read the real attribute data back to memory
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5aread_f(attr4_id, H5T_NATIVE_REAL, aread_real_data, data_dims, error)
CALL check("h5aread_f",error,total_error)
IF (aread_real_data(1) .NE. 4.0 ) THEN
WRITE(*,*) "Read back real attrbute is wrong ", aread_real_data
- total_error = total_error + 1
- END IF
+ total_error = total_error + 1
+ END IF
!
!read the Integer attribute data back to memory
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5aread_f(attr5_id, H5T_NATIVE_INTEGER, aread_integer_data, data_dims, error)
CALL check("h5aread_f",error,total_error)
IF (aread_integer_data(1) .NE. 5 ) THEN
WRITE(*,*) "Read back integer attrbute is wrong ", aread_integer_data
- total_error = total_error + 1
- END IF
+ total_error = total_error + 1
+ END IF
!
!read the null attribute data. nothing can be read.
!
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5aread_f(attr6_id, H5T_NATIVE_INTEGER, aread_null_data, data_dims, error)
CALL check("h5aread_f",error,total_error)
IF (aread_null_data(1) .NE. 7 ) THEN
WRITE(*,*) "Read back null attrbute is wrong ", aread_null_data
- total_error = total_error + 1
- END IF
-
+ total_error = total_error + 1
+ END IF
+
!
- ! Close the attribute.
+ ! Close the attribute.
!
CALL h5aclose_f(attr_id, error)
CALL check("h5aclose_f",error,total_error)
@@ -553,9 +553,9 @@
CALL check("h5aclose_f",error,total_error)
!
- ! Delete the attribute from the Dataset.
+ ! Delete the attribute from the Dataset.
!
- CALL h5adelete_f(dset_id, aname, error)
+ CALL h5adelete_f(dset_id, aname, error)
CALL check("h5adelete_f",error,total_error)
!
@@ -591,13 +591,13 @@
CALL h5tclose_f(attr6_type, error)
CALL check("h5tclose_f",error,total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f",error,total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90
index 58408ee..223877c 100644
--- a/fortran/test/tH5A_1_8.f90
+++ b/fortran/test/tH5A_1_8.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,22 +11,22 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
-SUBROUTINE attribute_test_1_8(cleanup, total_error)
+SUBROUTINE attribute_test_1_8(cleanup, total_error)
! This subroutine tests following 1.8 functionalities:
! h5acreate_f, h5awrite_f, h5aclose_f,h5aread_f, h5aopen_name_f,
! h5aget_name_f,h5aget_space_f, h5aget_type_f, H5Pset_shared_mesg_nindexes_f,
! H5Pset_shared_mesg_index_f
-!
+!
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(INOUT) :: total_error
-
+ INTEGER, INTENT(INOUT) :: total_error
+
CHARACTER(LEN=5), PARAMETER :: filename = "atest" !File name
CHARACTER(LEN=9), PARAMETER :: dsetname = "atestdset" !Dataset name
CHARACTER(LEN=11), PARAMETER :: aname = "attr_string" !String Attribute name
@@ -35,7 +35,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
CHARACTER(LEN=9), PARAMETER :: aname4 = "attr_real" !Real Attribute name
CHARACTER(LEN=12), PARAMETER :: aname5 = "attr_integer" !Integer Attribute name
CHARACTER(LEN=9), PARAMETER :: aname6 = "attr_null" !Null Attribute name
-
+
!
!data space rank and dimensions
!
@@ -44,11 +44,11 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
INTEGER, PARAMETER :: NY = 5
!
- !general purpose integer
- !
+ !general purpose integer
+ !
INTEGER :: i, j
INTEGER :: error ! Error flag
-
+
! NEW STARTS HERE
INTEGER(HID_T) :: fapl = -1, fapl2 = -1
INTEGER(HID_T) :: fcpl = -1, fcpl2 = -1
@@ -63,7 +63,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
! ********************
! WRITE(*,*) "TESTING ATTRIBUTES"
-
+
CALL H5Pcreate_f(H5P_FILE_ACCESS_F,fapl,error)
CALL check("h5Pcreate_f",error,total_error)
CALL h5pcopy_f(fapl, fapl2, error)
@@ -71,7 +71,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
CALL H5Pcreate_f(H5P_FILE_CREATE_F,fcpl,error)
CALL check("h5Pcreate_f",error,total_error)
-
+
CALL h5pcopy_f(fcpl, fcpl2, error)
CALL check("h5pcopy_f",error,total_error)
@@ -118,13 +118,13 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
my_fcpl = fcpl
END IF
!!$ CALL test_attr_dense_create(my_fcpl, my_fapl)
-
+
ret_total_error = 0
CALL test_attr_dense_open(my_fcpl, my_fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
' - Testing INT attributes on both datasets and groups', &
total_error)
-
+
!!$ CALL test_attr_dense_delete(my_fcpl, my_fapl)
!!$ CALL test_attr_dense_rename(my_fcpl, my_fapl)
!!$ CALL test_attr_dense_unlink(my_fcpl, my_fapl)
@@ -147,7 +147,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
CALL write_test_status(ret_total_error, &
' - Testing creating objects with attribute creation order', &
total_error)
-
+
ret_total_error = 0
CALL test_attr_corder_create_compact(my_fcpl, my_fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
@@ -162,13 +162,13 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
CALL write_test_status(ret_total_error, &
' - Testing querying attribute info by index', &
total_error)
-
+
ret_total_error = 0
CALL test_attr_delete_by_idx(new_format, my_fcpl, my_fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
' - Testing deleting attribute by index', &
total_error)
-
+
!!$ CALL test_attr_iterate2(new_format, my_fcpl, my_fapl)
!!$ CALL test_attr_open_by_idx(new_format, my_fcpl, my_fapl)
!!$ CALL test_attr_open_by_name(new_format, my_fcpl, my_fapl)
@@ -192,7 +192,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
CALL write_test_status(ret_total_error,&
' - Testing deleting shared attributes in "compact" & "dense" storage', &
total_error)
-
+
!!$ CALL test_attr_shared_unlink(my_fcpl, my_fapl)
END IF
@@ -264,16 +264,16 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
INTEGER(HID_T) :: my_dataset
INTEGER :: u
-
+
INTEGER :: max_compact ! Maximum # of links to store in group compactly
INTEGER :: min_dense ! Minimum # of links to store in group "densely"
CHARACTER(LEN=7) :: attrname
CHARACTER(LEN=2) :: chr2
- INTEGER(HID_T) :: attr !String Attribute identifier
+ INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -330,7 +330,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
CALL h5acreate_f(my_dataset, attrname, H5T_NATIVE_INTEGER, sid, attr, error)
CALL check("h5acreate_f",error,total_error)
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, u, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -354,7 +354,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
CALL check("h5dclose_f",error,total_error)
CALL h5dclose_f(dset3, error)
CALL check("h5dclose_f",error,total_error)
-
+
! /* Close file */
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error,total_error)
@@ -404,7 +404,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
f_corder_valid, corder, cset, data_size, error, lapl_id = H5P_DEFAULT_F ) !with optional
CALL check("H5Aget_info_by_name_f", error, total_error)
-
+
! /* Verify creation order of attribute */
CALL verifyLogical("H5Aget_info_by_name_f", f_corder_valid, .TRUE., total_error)
@@ -417,7 +417,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
f_corder_valid, corder, cset, data_size, error) ! without optional
CALL check("H5Aget_info_by_name_f", error, total_error)
-
+
! /* Verify creation order of attribute */
CALL verifyLogical("H5Aget_info_by_name_f", f_corder_valid, .TRUE., total_error)
@@ -432,7 +432,7 @@ SUBROUTINE test_attr_corder_create_compact(fcpl,fapl, total_error)
CALL check("h5dclose_f",error,total_error)
CALL h5dclose_f(dset3, error)
CALL check("h5dclose_f",error,total_error)
-
+
! /* Close file */
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error,total_error)
@@ -463,24 +463,24 @@ SUBROUTINE test_attr_null_space(fcpl, fapl, total_error)
INTEGER :: error
-
+
INTEGER :: value_scalar
INTEGER, DIMENSION(1) :: value
- INTEGER(HID_T) :: attr !String Attribute identifier
+ INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HID_T) :: attr_sid
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- INTEGER(HSIZE_T) :: storage_size ! attributes storage requirements
+ INTEGER(HSIZE_T) :: storage_size ! attributes storage requirements
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
-
+
LOGICAL :: equal
! test: H5Sextent_equal_f
-
+
data_dims = 0
! /* Output message about test being performed */
@@ -532,7 +532,7 @@ SUBROUTINE test_attr_null_space(fcpl, fapl, total_error)
CALL H5Sextent_equal_f(attr_sid, null_sid, equal, error)
CALL check("H5Sextent_equal_f",error,total_error)
CALL Verifylogical("H5Sextent_equal_f",equal,.TRUE.,total_error)
-
+
!!$ ret = H5Sclose(attr_sid)
!!$ CALL CHECK(ret, FAIL, "H5Sclose")
@@ -586,7 +586,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
IMPLICIT NONE
INTEGER(SIZE_T), PARAMETER :: NAME_BUF_SIZE = 7
- LOGICAL :: new_format
+ LOGICAL :: new_format
INTEGER(HID_T), INTENT(IN) :: fcpl
INTEGER(HID_T), INTENT(IN) :: fapl
INTEGER, INTENT(INOUT) :: total_error
@@ -616,7 +616,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
CHARACTER(LEN=2) :: chr2
- LOGICAL, DIMENSION(1:2) :: use_index = (/.FALSE.,.TRUE./)
+ LOGICAL, DIMENSION(1:2) :: use_index = (/.FALSE.,.TRUE./)
INTEGER :: Input1
INTEGER :: i
@@ -666,10 +666,10 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
CALL h5dcreate_f(fid, DSET1_NAME, H5T_NATIVE_CHARACTER, sid, dset1, error, dcpl_id=dcpl )
CALL check("h5dcreate_f2",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET2_NAME, H5T_NATIVE_CHARACTER, sid, dset2, error, dcpl_id=dcpl )
CALL check("h5dcreate_f3",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET3_NAME, H5T_NATIVE_CHARACTER, sid, dset3, error, dcpl_id=dcpl )
CALL check("h5dcreate_f4",error,total_error)
@@ -704,12 +704,12 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
CALL H5Acreate_by_name_f(fid, dsetname, attrname, H5T_NATIVE_INTEGER, sid, &
- attr, error, lapl_id=H5P_DEFAULT_F, acpl_id=H5P_DEFAULT_F, aapl_id=H5P_DEFAULT_F)
+ attr, error, lapl_id=H5P_DEFAULT_F, acpl_id=H5P_DEFAULT_F, aapl_id=H5P_DEFAULT_F)
CALL check("H5Acreate_by_name_f",error,total_error)
-
+
! /* Write data into the attribute */
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, u, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -751,7 +751,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
my_dataset = dset3
dsetname = DSET3_NAME
END SELECT
-
+
! /* Create more attributes, to push into dense form */
DO u = max_compact, max_compact* 2 - 1
@@ -763,7 +763,7 @@ SUBROUTINE test_attr_create_by_name(new_format,fcpl,fapl, total_error)
CALL check("H5Acreate_by_name",error,total_error)
! /* Write data into the attribute */
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, u, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -867,7 +867,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -895,7 +895,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
data_dims = 0
! /* Create dataspace for dataset & attributes */
-
+
CALL h5screate_f(H5S_SCALAR_F, sid, error)
CALL check("h5screate_f",error,total_error)
@@ -911,7 +911,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
CALL check("H5Pget_attr_phase_change_f",error,total_error)
! /* Loop over using index for creation order value */
-
+
DO i = 1, 2
! /* Output message about test being performed */
@@ -937,18 +937,18 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
ENDIF
! /* Create datasets */
-
+
CALL h5dcreate_f(fid, DSET1_NAME, H5T_NATIVE_CHARACTER, sid, dset1, error )
CALL check("h5dcreate_f",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET2_NAME, H5T_NATIVE_CHARACTER, sid, dset2, error )
CALL check("h5dcreate_f",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET3_NAME, H5T_NATIVE_CHARACTER, sid, dset3, error )
CALL check("h5dcreate_f",error,total_error)
! /* Work on all the datasets */
-
+
DO curr_dset = 0,NUM_DSETS-1
SELECT CASE (curr_dset)
@@ -974,7 +974,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
! -- CHECK PASSING AN INTEGER CONSTANT IN DIFFERENT FORMS --
- ! 1) call by passing an integer with the _hsize_t declaration
+ ! 1) call by passing an integer with the _hsize_t declaration
CALL h5aget_info_by_idx_f(my_dataset, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, 0_hsize_t, &
f_corder_valid, corder, cset, data_size, error, lapl_id=H5P_DEFAULT_F)
@@ -986,13 +986,13 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
f_corder_valid, corder, cset, data_size, error, lapl_id=H5P_DEFAULT_F)
CALL VERIFY("h5aget_info_by_idx_f",error,minusone,total_error)
-
+
! 3) call by passing a variable with the attribute hsize_t
CALL h5aget_info_by_idx_f(my_dataset, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, hzero, &
f_corder_valid, corder, cset, data_size, error, lapl_id=H5P_DEFAULT_F)
CALL VERIFY("h5aget_info_by_idx_f",error,minusone,total_error)
-
+
CALL h5aget_name_by_idx_f(my_dataset, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, &
hzero, tmpname, error, size, lapl_id=H5P_DEFAULT_F)
CALL VERIFY("h5aget_name_by_idx_f",error,minusone,total_error)
@@ -1009,7 +1009,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
! check with the optional information create2 specs.
CALL h5acreate_f(my_dataset, attrname, H5T_NATIVE_INTEGER, sid, attr, error, H5P_DEFAULT_F, H5P_DEFAULT_F)
CALL check("h5acreate_f",error,total_error)
-
+
! /* Write data into the attribute */
attr_integer_data(1) = j
@@ -1023,7 +1023,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
CALL check("h5aclose_f",error,total_error)
! /* Verify information for new attribute */
-
+
!EP CALL attr_info_by_idx_check(my_dataset, attrname, INT(j,HSIZE_T), use_index(i), total_error )
htmp = j
CALL attr_info_by_idx_check(my_dataset, attrname, htmp, use_index(i), total_error )
@@ -1045,7 +1045,7 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
! /* Close file */
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error,total_error)
-
+
END DO
! /* Close property list */
@@ -1071,7 +1071,7 @@ SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error )
CHARACTER(LEN=*) :: attrname
INTEGER(HSIZE_T) :: n
LOGICAL :: use_index
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -1084,7 +1084,7 @@ SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error )
! /* Verify the information for first attribute, in increasing creation order */
CALL h5aget_info_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, hzero, &
f_corder_valid, corder, cset, data_size, error)
-
+
CALL check("h5aget_info_by_idx_f",error,total_error)
CALL verify("h5aget_info_by_idx_f",corder,0,total_error)
! /* Verify the information for new attribute, in increasing creation order */
@@ -1143,25 +1143,25 @@ SUBROUTINE attr_info_by_idx_check(obj_id, attrname, n, use_index, total_error )
f_corder_valid, corder, cset, data_size, error)
CALL check("h5aget_info_by_idx_f",error,total_error)
CALL VERIFY("h5aget_info_by_idx_f",corder,0,total_error)
-
+
!EP CALL h5aget_info_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_DEC_F, 0_HSIZE_T, &
! -- CHECK PASSING AN INTEGER CONSTANT IN DIFFERENT FORMS --
- ! 1) call by passing an integer with the _hsize_t declaration
+ ! 1) call by passing an integer with the _hsize_t declaration
CALL h5aget_info_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_DEC_F, 0_HSIZE_T, &
f_corder_valid, corder, cset, data_size, error)
CALL check("h5aget_info_by_idx_f",error,total_error)
CALL VERIFY("h5aget_info_by_idx_f",corder,INT(n),total_error)
-
+
! 2) call by passing an integer with the INT(,hsize_t) declaration
CALL h5aget_info_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_DEC_F, INT(0,HSIZE_T), &
f_corder_valid, corder, cset, data_size, error)
CALL check("h5aget_info_by_idx_f",error,total_error)
- CALL VERIFY("h5aget_info_by_idx_f",corder,INT(n),total_error)
-
+ CALL VERIFY("h5aget_info_by_idx_f",corder,INT(n),total_error)
+
! 3) call by passing a variable with the attribute hsize_t
CALL h5aget_info_by_idx_f(obj_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_DEC_F, hzero, &
@@ -1244,7 +1244,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
CHARACTER(LEN=11) :: attrname2
CHARACTER(LEN=1), PARAMETER :: chr1 = '.'
-
+
INTEGER :: u
INTEGER, PARAMETER :: SPACE1_RANK = 3
INTEGER, PARAMETER :: NX = 20
@@ -1301,7 +1301,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
CALL H5Pset_shared_mesg_nindexes_f(my_fcpl,3,error)
! /* Make attributes > 500 bytes shared */
- CALL H5Pset_shared_mesg_index_f(my_fcpl, 0, H5O_SHMESG_ATTR_FLAG_F, 500,error)
+ CALL H5Pset_shared_mesg_index_f(my_fcpl, 0, H5O_SHMESG_ATTR_FLAG_F, 500,error)
! /* Make datatypes & dataspaces > 1 byte shared (i.e. all of them :-) */
CALL H5Pset_shared_mesg_index_f(my_fcpl, 1, H5O_SHMESG_DTYPE_FLAG_F, 1,error)
CALL H5Pset_shared_mesg_index_f(my_fcpl, 2, H5O_SHMESG_SDSPACE_FLAG_F, 1,error)
@@ -1321,7 +1321,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
! /* Re-open file */
CALL h5fopen_f(FileName, H5F_ACC_RDWR_F, fid, error,fapl)
CALL check("h5open_f",error,total_error)
-
+
! /* Commit datatype to file */
IF(test_shared.EQ.2) THEN
CALL H5Tcommit_f(fid, TYPE1_NAME, attr_tid, error, H5P_DEFAULT_F, H5P_DEFAULT_F, H5P_DEFAULT_F)
@@ -1366,16 +1366,16 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
!!$ is_dense = H5O_is_attr_dense_test(dataset2);
!!$ VERIFY(is_dense, FALSE, "H5O_is_attr_dense_test");
! /* Add attributes to each dataset, until after converting to dense storage */
-
+
DO u = 0, (max_compact * 2) - 1
! /* Create attribute name */
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
-
+
! /* Alternate between creating "small" & "big" attributes */
-
+
IF(MOD(u+1,2).EQ.0)THEN
! /* Create "small" attribute on first dataset */
@@ -1412,13 +1412,13 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
attr_integer_data(1) = u + 1
CALL h5awrite_f(attr, attr_tid, attr_integer_data, data_dims, error)
CALL check("h5awrite_f",error,total_error)
-
+
! Check refcount for attribute */
!!$ ret = H5A_get_shared_rc_test(attr, &shared_refcount);
!!$ CHECK(ret, FAIL, "H5A_get_shared_rc_test");
!!$ VERIFY(shared_refcount, 1, "H5A_get_shared_rc_test");
ENDIF
-
+
! /* Close attribute */
CALL h5aclose_f(attr, error)
CALL check("h5aclose_f",error,total_error)
@@ -1444,7 +1444,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
!!$ VERIFY(is_shared, FALSE, "H5A_is_shared_test");
!!$
! /* Write data into the attribute */
-
+
attr_integer_data(1) = u + 1
data_dims(1) = 1
CALL h5awrite_f(attr, attr_tid, attr_integer_data, data_dims, error)
@@ -1452,7 +1452,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
ELSE
! /* Create "big" attribute on second dataset */
-
+
CALL h5acreate_f(dataset2, attrname, attr_tid, big_sid, attr, error, H5P_DEFAULT_F, H5P_DEFAULT_F)
CALL check("h5acreate_f",error,total_error)
@@ -1467,7 +1467,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
!!$
! /* Write data into the attribute */
-
+
attr_integer_data(1) = u + 1
data_dims(1) = 1
! CALL h5awrite_f(attr, attr_tid, attr_integer_data, data_dims, error)
@@ -1493,7 +1493,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
! /* Create new attribute name */
-
+
WRITE(chr2,'(I2.2)') u
attrname2 = 'new attr '//chr2
@@ -1556,7 +1556,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
! /* Change second dataset's attribute's name back to original */
-
+
CALL H5Arename_by_name_f(fid, DSET2_NAME, attrname2, attrname, error)
CALL check("H5Arename_by_name_f",error,total_error)
@@ -1611,7 +1611,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
! /* Close attribute */
CALL h5aclose_f(attr, error)
CALL check("h5aclose_f",error,total_error)
-
+
ENDDO
! /* Close attribute's datatype */
@@ -1696,7 +1696,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
!****************************************************************/
USE HDF5
-
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: new_format
@@ -1723,7 +1723,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -1742,14 +1742,14 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
INTEGER(SIZE_T) :: size
CHARACTER(LEN=8) :: tmpname
CHARACTER(LEN=1), PARAMETER :: chr1 = '.'
-
+
INTEGER :: idx_type
INTEGER :: order
INTEGER :: u ! /* Local index variable */
INTEGER :: Input1
INTEGER(HSIZE_T) :: hzero = 0_HSIZE_T
INTEGER :: minusone = -1
-
+
data_dims = 0
! /* Create dataspace for dataset & attributes */
@@ -1770,10 +1770,10 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
! /* Loop over operating in different orders */
DO order = H5_ITER_INC_F, H5_ITER_DEC_F
-
+
! /* Loop over using index for creation order value */
DO i = 1, 2
-
+
! /* Print appropriate test message */
!!$ IF(idx_type .EQ. H5_INDEX_CRT_ORDER_F)THEN
!!$ IF(order .EQ. H5_ITER_INC_F) THEN
@@ -1828,18 +1828,18 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
ENDIF
! /* Create datasets */
-
+
CALL h5dcreate_f(fid, DSET1_NAME, H5T_NATIVE_CHARACTER, sid, dset1, error, dcpl )
CALL check("h5dcreate_f2",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET2_NAME, H5T_NATIVE_CHARACTER, sid, dset2, error, dcpl )
CALL check("h5dcreate_f3",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET3_NAME, H5T_NATIVE_CHARACTER, sid, dset3, error, dcpl )
CALL check("h5dcreate_f4",error,total_error)
-
+
! /* Work on all the datasets */
-
+
DO curr_dset = 0,NUM_DSETS-1
SELECT CASE (curr_dset)
CASE (0)
@@ -1851,44 +1851,44 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
! CASE DEFAULT
! CALL HDassert(0.AND."Toomanydatasets!")
END SELECT
-
+
! /* Check on dataset's attribute storage status */
!!$ is_empty = H5O_is_attr_empty_test(my_dataset);
!!$ VERIFY(is_empty, TRUE, "H5O_is_attr_empty_test");
!!$ is_dense = H5O_is_attr_dense_test(my_dataset);
!!$ VERIFY(is_dense, FALSE, "H5O_is_attr_dense_test");
-
+
! /* Check for deleting non-existant attribute */
!EP CALL H5Adelete_by_idx_f(my_dataset, '.', idx_type, order, 0_HSIZE_T,error, lapl_id=H5P_DEFAULT_F)
CALL H5Adelete_by_idx_f(my_dataset, '.', idx_type, order, hzero,error, lapl_id=H5P_DEFAULT_F)
CALL VERIFY("H5Adelete_by_idx_f",error,minusone,total_error)
-
+
! /* Create attributes, up to limit of compact form */
DO u = 0, max_compact - 1
! /* Create attribute */
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
-
+
CALL h5acreate_f(my_dataset, attrname, H5T_NATIVE_INTEGER, sid, attr, error, H5P_DEFAULT_F, H5P_DEFAULT_F)
CALL check("h5acreate_f",error,total_error)
-
+
! /* Write data into the attribute */
attr_integer_data(1) = u
data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, attr_integer_data, data_dims, error)
CALL check("h5awrite_f",error,total_error)
-
+
! /* Close attribute */
CALL h5aclose_f(attr, error)
CALL check("h5aclose_f",error,total_error)
! /* Verify information for new attribute */
CALL attr_info_by_idx_check(my_dataset, attrname, INT(u,HSIZE_T), use_index(i), total_error )
-
+
ENDDO
-
+
! /* Verify state of object */
!!$ ret = H5O_num_attrs_test(my_dataset, &nattrs);
@@ -1902,7 +1902,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
!/* Check for out of bound deletions */
CALL H5Adelete_by_idx_f(my_dataset, ".", idx_type, order, INT(u,HSIZE_T), error, lapl_id=H5P_DEFAULT_F)
CALL VERIFY("H5Adelete_by_idx_f",error,minusone,total_error)
-
+
ENDDO
@@ -1917,18 +1917,18 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
! CASE DEFAULT
! CALL HDassert(0.AND."Toomanydatasets!")
END SELECT
-
+
! /* Delete attributes from compact storage */
-
+
DO u = 0, max_compact - 2
-
+
! /* Delete first attribute in appropriate order */
-
-
+
+
!EP CALL H5Adelete_by_idx_f(my_dataset, ".", idx_type, order, 0_HSIZE_T, error)
CALL H5Adelete_by_idx_f(my_dataset, ".", idx_type, order, hzero, error)
CALL check("H5Adelete_by_idx_f",error,total_error)
-
+
! /* Verify the attribute information for first attribute in appropriate order */
! HDmemset(&ainfo, 0, sizeof(ainfo));
@@ -1936,7 +1936,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
!EP CALL h5aget_info_by_idx_f(my_dataset, ".", idx_type, order, 0_HSIZE_T, &
CALL h5aget_info_by_idx_f(my_dataset, ".", idx_type, order, hzero, &
f_corder_valid, corder, cset, data_size, error)
-
+
IF(new_format)THEN
IF(order.EQ.H5_ITER_INC_F)THEN
CALL VERIFY("H5Aget_info_by_idx_f",corder,u + 1,total_error)
@@ -1944,7 +1944,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
ELSE
CALL VERIFY("H5Aget_info_by_idx_f",corder, max_compact-(u + 2),total_error)
ENDIF
-
+
! /* Verify the name for first attribute in appropriate order */
! HDmemset(tmpname, 0, (size_t)NAME_BUF_SIZE);
@@ -1969,14 +1969,14 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
CALL H5Adelete_by_idx_f(my_dataset, ".", idx_type, order, hzero, error)
CALL check("H5Adelete_by_idx_f",error,total_error)
-
+
! /* Verify state of attribute storage (empty) */
!!$ is_empty = H5O_is_attr_empty_test(my_dataset);
!!$ VERIFY(is_empty, TRUE, "H5O_is_attr_empty_test");
ENDDO
! /* Work on all the datasets */
-
+
DO curr_dset = 0,NUM_DSETS-1
SELECT CASE (curr_dset)
CASE (0)
@@ -1996,7 +1996,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
! /* Create attribute */
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
-
+
CALL h5acreate_f(my_dataset, attrname, H5T_NATIVE_INTEGER, sid, attr, error, H5P_DEFAULT_F, H5P_DEFAULT_F)
CALL check("h5acreate_f",error,total_error)
@@ -2067,7 +2067,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
CALL H5Adelete_by_idx_f(my_dataset, ".", idx_type, order, INT(0,HSIZE_T), error)
CALL check("H5Adelete_by_idx_f",error,total_error)
! /* Verify the attribute information for first attribute in appropriate order */
-
+
CALL h5aget_info_by_idx_f(my_dataset, ".", idx_type, order, INT(0,HSIZE_T), &
f_corder_valid, corder, cset, data_size, error)
IF(new_format)THEN
@@ -2081,7 +2081,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
! /* Verify the name for first attribute in appropriate order */
! HDmemset(tmpname, 0, (size_t)NAME_BUF_SIZE);
- size = 7 ! *CHECK* if not the correct size
+ size = 7 ! *CHECK* if not the correct size
CALL h5aget_name_by_idx_f(my_dataset, ".", idx_type, order,INT(0,hsize_t), &
tmpname, error, size)
@@ -2089,12 +2089,12 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
WRITE(chr2,'(I2.2)') u + 1
attrname = 'attr '//chr2
ELSE
- WRITE(chr2,'(I2.2)') max_compact * 2 - (u + 2)
+ WRITE(chr2,'(I2.2)') max_compact * 2 - (u + 2)
attrname = 'attr '//chr2
ENDIF
IF(TRIM(attrname).NE.TRIM(tmpname)) error = -1
CALL VERIFY("h5aget_name_by_idx_f",error,0,total_error)
-
+
ENDDO
! /* Delete last attribute */
@@ -2117,7 +2117,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
CALL check("h5dclose_f",error,total_error)
CALL h5dclose_f(dset3, error)
CALL check("h5dclose_f",error,total_error)
-
+
! /* Close file */
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error,total_error)
@@ -2145,7 +2145,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
!****************************************************************/
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fcpl
@@ -2179,7 +2179,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
CHARACTER(LEN=7) :: attrname
CHARACTER(LEN=1), PARAMETER :: chr1 = '.'
-
+
INTEGER :: u
INTEGER, PARAMETER :: SPACE1_RANK = 3
INTEGER, PARAMETER :: NX = 20
@@ -2209,7 +2209,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
! /* Loop over type of shared components */
DO test_shared = 0, 2
-
+
! /* Make copy of file creation property list */
CALL H5Pcopy_f(fcpl, my_fcpl, error)
@@ -2271,7 +2271,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
CALL h5dcreate_f(fid, DSET1_NAME, H5T_NATIVE_CHARACTER, sid, dataset, error, dcpl_id=dcpl )
CALL check("h5dcreate_f",error,total_error)
-
+
CALL h5dcreate_f(fid, DSET2_NAME, H5T_NATIVE_CHARACTER, sid, dataset2, error, dcpl_id=dcpl )
CALL check("h5dcreate_f",error,total_error)
@@ -2303,13 +2303,13 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
!!$ VERIFY(is_dense, FALSE, "H5O_is_attr_dense_test");
!!$
! /* Add attributes to each dataset, until after converting to dense storage */
-
+
DO u = 0, (max_compact * 2) - 1
! /* Create attribute name */
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
-
+
! /* Alternate between creating "small" & "big" attributes */
IF(MOD(u+1,2).EQ.0)THEN
@@ -2387,7 +2387,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
ELSE
! /* Create "big" attribute on second dataset */
-
+
CALL h5acreate_f(dataset2, attrname, attr_tid, big_sid, attr, error, acpl_id=H5P_DEFAULT_F, aapl_id=H5P_DEFAULT_F)
CALL check("h5acreate_f",error,total_error)
@@ -2402,7 +2402,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
!!$
! /* Write data into the attribute */
-
+
attr_integer_data(1) = u + 1
data_dims(1) = 1
CALL h5awrite_f(attr, attr_tid, attr_integer_data, data_dims, error)
@@ -2469,7 +2469,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
ENDDO
! /* Close attribute's datatype */
-
+
CALL h5tclose_f(attr_tid, error)
CALL check("h5tclose_f",error,total_error)
@@ -2556,7 +2556,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
!****************************************************************/
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fcpl
@@ -2618,7 +2618,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
CALL check("H5Pset_attr_creation_order",error,total_error)
! /* Create a dataset */
-
+
CALL h5dcreate_f(fid, DSET1_NAME, H5T_NATIVE_CHARACTER, sid, dataset, error, &
lcpl_id=H5P_DEFAULT_F, dcpl_id=dcpl, dapl_id=H5P_DEFAULT_F)
CALL check("h5dcreate_f",error,total_error)
@@ -2647,7 +2647,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
! /* Write data into the attribute */
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, u, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -2666,7 +2666,7 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
! /* Add one more attribute, to push into "dense" storage */
! /* Create attribute */
-
+
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
@@ -2677,9 +2677,9 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error)
!!$ is_dense = H5O_is_attr_dense_test(dataset);
!!$ VERIFY(is_dense, TRUE, "H5O_is_attr_dense_test");
-
+
! /* Write data into the attribute */
- data_dims(1) = 1
+ data_dims(1) = 1
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, u, data_dims, error)
CALL check("h5awrite_f",error,total_error)
@@ -2724,7 +2724,7 @@ END SUBROUTINE test_attr_dense_open
SUBROUTINE test_attr_dense_verify(loc_id, max_attr, total_error)
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: loc_id
@@ -2739,7 +2739,7 @@ SUBROUTINE test_attr_dense_verify(loc_id, max_attr, total_error)
CHARACTER(LEN=ATTR_NAME_LEN) :: check_name
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims
- INTEGER(HID_T) :: attr !String Attribute identifier
+ INTEGER(HID_T) :: attr !String Attribute identifier
INTEGER :: error
INTEGER :: value
@@ -2785,7 +2785,7 @@ SUBROUTINE test_attr_dense_verify(loc_id, max_attr, total_error)
attr, error, aapl_id=H5P_DEFAULT_F)
! /* Verify Name */
-
+
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
@@ -2819,7 +2819,7 @@ END SUBROUTINE test_attr_dense_verify
SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error )
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fcpl
@@ -2849,7 +2849,7 @@ SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error )
! /* Create dataset creation property list */
CALL H5Pcreate_f(H5P_DATASET_CREATE_F,dcpl,error)
CALL check("h5Pcreate_f",error,total_error)
-
+
! /* Get creation order indexing on object */
CALL H5Pget_attr_creation_order_f(dcpl, crt_order_flags, error)
CALL check("H5Pget_attr_creation_order_f",error,total_error)
@@ -2919,11 +2919,11 @@ SUBROUTINE test_attr_corder_create_basic( fcpl, fapl, total_error )
! /* Close property list */
CALL h5pclose_f(dcpl, error)
CALL check("h5pclose_f",error,total_error)
-
+
! /* Close Dataset */
CALL h5dclose_f(dataset, error)
CALL check("h5dclose_f",error,total_error)
-
+
! /* Close file */
CALL h5fclose_f(fid, error)
CALL check("h5fclose_f",error,total_error)
@@ -2941,7 +2941,7 @@ END SUBROUTINE test_attr_corder_create_basic
SUBROUTINE test_attr_basic_write(fapl, total_error)
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -2962,11 +2962,11 @@ SUBROUTINE test_attr_basic_write(fapl, total_error)
CHARACTER(LEN=25) :: check_name
CHARACTER(LEN=18) :: chr_exact_size
- INTEGER, PARAMETER :: SPACE1_RANK = 2
+ INTEGER, PARAMETER :: SPACE1_RANK = 2
CHARACTER(LEN=5), PARAMETER :: ATTR1_NAME="Attr1"
- INTEGER, PARAMETER :: ATTR1_RANK = 1
- INTEGER, PARAMETER :: ATTR1_DIM1 = 3
+ INTEGER, PARAMETER :: ATTR1_RANK = 1
+ INTEGER, PARAMETER :: ATTR1_DIM1 = 3
CHARACTER(LEN=7), PARAMETER :: ATTR1A_NAME ="Attr1_a"
CHARACTER(LEN=18), PARAMETER :: ATTR_TMP_NAME = "Attr1_a-1234567890"
INTEGER, DIMENSION(ATTR1_DIM1) :: attr_data1
@@ -3021,7 +3021,7 @@ SUBROUTINE test_attr_basic_write(fapl, total_error)
CALL H5Gopen_f(fid1, "/", group, error, H5P_DEFAULT_F)
CALL check("H5Gopen_f",error,total_error)
- ! /* Open attribute again */
+ ! /* Open attribute again */
CALL h5aopen_f(group, ATTR1_NAME, attr, error)
CALL check("h5aopen_f",error,total_error)
@@ -3038,7 +3038,7 @@ SUBROUTINE test_attr_basic_write(fapl, total_error)
CALL check("h5acreate_f",error,total_error)
! /* Write attribute information */
-
+
CALL h5awrite_f(attr, H5T_NATIVE_INTEGER, attr_data1, dimsa, error)
CALL check("h5awrite_f",error,total_error)
@@ -3144,7 +3144,7 @@ END SUBROUTINE test_attr_basic_write
SUBROUTINE test_attr_many(new_format, fcpl, fapl, total_error)
USE HDF5
-
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: new_format
@@ -3188,7 +3188,7 @@ SUBROUTINE test_attr_many(new_format, fcpl, fapl, total_error)
! /* Create group for attributes */
- CALL H5Gcreate_f(fid, GROUP1_NAME, gid, error)
+ CALL H5Gcreate_f(fid, GROUP1_NAME, gid, error)
CALL check("H5Gcreate_f", error, total_error)
! /* Create many attributes */
@@ -3266,7 +3266,7 @@ END SUBROUTINE test_attr_many
SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fid
CHARACTER(LEN=*), INTENT(IN) :: dsetname
@@ -3278,7 +3278,7 @@ SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
CHARACTER (LEN=8) :: attrname
INTEGER, PARAMETER :: NUM_DSETS = 3
INTEGER :: error
- LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER(HSIZE_T) :: data_size ! indicates the size, in the number of characters
@@ -3293,14 +3293,14 @@ SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
WRITE(chr2,'(I2.2)') u
attrname = 'attr '//chr2
-
-
+
+
CALL h5aopen_f(obj_id, attrname, attr_id, error)
CALL check("h5aopen_f",error,total_error)
! /* Get the attribute's information */
-
+
CALL h5aget_info_f(attr_id, f_corder_valid, corder, cset, data_size, error)
CALL check("h5aget_info_f",error,total_error)
@@ -3310,7 +3310,7 @@ SUBROUTINE attr_open_check(fid, dsetname, obj_id, max_attrs, total_error )
CALL VERIFY("h5aget_info_f.cset", cset, H5T_CSET_ASCII_F, total_error)
CALL h5aget_storage_size_f(attr_id, storage_size, error)
CALL check("h5aget_storage_size_f",error,total_error)
-
+
CALL VERIFY("h5aget_info_f.data_size", INT(data_size), INT(storage_size), total_error)
diff --git a/fortran/test/tH5D.f90 b/fortran/test/tH5D.f90
index e704db2..56e82f4 100644
--- a/fortran/test/tH5D.f90
+++ b/fortran/test/tH5D.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Dataset Interface functionality.
!
!
@@ -23,20 +23,20 @@
! h5dread_f, and h5dwrite_f
!
SUBROUTINE datasettest(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=5), PARAMETER :: filename = "dsetf" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
CHARACTER(LEN=9), PARAMETER :: null_dsetname = "null_dset" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: null_dset ! Null dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: null_dset ! Null dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: null_dspace ! Null dataspace identifier
INTEGER(HID_T) :: dtype_id ! Datatype identifier
@@ -65,7 +65,7 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -75,12 +75,12 @@
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
CALL check("h5screate_simple_f", error, total_error)
- !
+ !
! Create null dataspace.
!
CALL h5screate_f(H5S_NULL_F, null_dspace, error)
@@ -94,7 +94,7 @@
dset_id, error)
CALL check("h5dcreate_f", error, total_error)
!
- ! Create the null dataset.
+ ! Create the null dataset.
!
CALL h5dcreate_f(file_id, null_dsetname, H5T_NATIVE_INTEGER, null_dspace, &
null_dset, error)
@@ -104,20 +104,20 @@
! Write the dataset.
!
data_dims(1) = 4
- data_dims(2) = 6
+ data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
!
! Write null dataset. Nothing can be written.
- !
- null_data_dim(1) = 1
+ !
+ null_data_dim(1) = 1
CALL h5dwrite_f(null_dset, H5T_NATIVE_INTEGER, null_dset_data, null_data_dim, error)
CALL check("h5dwrite_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
CALL h5dclose_f(null_dset, error)
@@ -131,7 +131,7 @@
CALL h5sclose_f(null_dspace, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -144,7 +144,7 @@
CALL check("h5fopen_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
@@ -152,13 +152,13 @@
CALL check("h5dopen_f", error, total_error)
!
- ! Get the dataset type.
+ ! Get the dataset type.
!
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f", error, total_error)
!
- ! Get the data space.
+ ! Get the data space.
!
CALL h5dget_space_f(dset_id, dspace_id, error)
CALL check("h5dget_space_f", error, total_error)
@@ -176,26 +176,26 @@
!
!Compare the data.
- !
+ !
do i = 1, 4
do j = 1, 6
- IF (data_out(i,j) .NE. dset_data(i, j)) THEN
+ IF (data_out(i,j) .NE. dset_data(i, j)) THEN
write(*, *) "dataset test error occured"
write(*,*) "data read is not the same as the data writen"
END IF
- end do
+ end do
end do
!
! Check if no change to null_dset_data
!
- IF (null_dset_data .NE. 1) THEN
+ IF (null_dset_data .NE. 1) THEN
write(*, *) "null dataset test error occured"
END IF
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
CALL h5dclose_f(null_dset, error)
@@ -212,14 +212,14 @@
!
CALL h5tclose_f(dtype_id, error)
CALL check("h5tclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
RETURN
END SUBROUTINE datasettest
@@ -228,11 +228,11 @@
!
SUBROUTINE extenddsettest(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
!
!the dataset is stored in file "extf.h5"
@@ -250,11 +250,11 @@
!
INTEGER :: RANK = 2
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: dataspace ! Dataspace identifier
- INTEGER(HID_T) :: memspace ! memory Dataspace identifier
- INTEGER(HID_T) :: crp_list ! dataset creatation property identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: dataspace ! Dataspace identifier
+ INTEGER(HID_T) :: memspace ! memory Dataspace identifier
+ INTEGER(HID_T) :: crp_list ! dataset creatation property identifier
!
!dataset dimensions at creation time
@@ -262,44 +262,44 @@
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/3,3/)
!
- !data dimensions
+ !data dimensions
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/10,3/)
!
!Maximum dimensions
!
- INTEGER(HSIZE_T), DIMENSION(2) :: maxdims
+ INTEGER(HSIZE_T), DIMENSION(2) :: maxdims
!
- !data arrays for reading and writing
+ !data arrays for reading and writing
!
INTEGER, DIMENSION(10,3) :: data_in, data_out
!
- !Size of data in the file
+ !Size of data in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: size
!
- !general purpose integer
+ !general purpose integer
!
INTEGER :: i, j
!
- !flag to check operation success
+ !flag to check operation success
!
- INTEGER :: error
+ INTEGER :: error
!
!Variables used in reading data back
- !
+ !
INTEGER(HSIZE_T), DIMENSION(2) :: dimsr, maxdimsr
INTEGER :: rankr
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
!
- !data initialization
+ !data initialization
!
do i = 1, 10
do j = 1, 3
@@ -310,12 +310,12 @@
!
!Initialize FORTRAN predifined datatypes
!
-! CALL h5init_types_f(error)
+! CALL h5init_types_f(error)
! CALL check("h5init_types_f",error,total_error)
!
!Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -361,8 +361,8 @@
!
!Extend the dataset. Dataset becomes 10 x 3.
!
- size(1) = 10;
- size(2) = 3;
+ size(1) = 10;
+ size(2) = 3;
CALL h5dextend_f(dset_id, size, error)
CALL check("h5dextend_f",error,total_error)
@@ -451,7 +451,7 @@
CALL check("h5screate_simple_f",error,total_error)
!
- !Read data
+ !Read data
!
CALL H5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error, &
memspace, dataspace)
@@ -460,14 +460,14 @@
!
!Compare the data.
- !
+ !
do i = 1, dims1(1)
do j = 1, dims1(2)
- IF (data_out(i,j) .NE. data_in(i, j)) THEN
+ IF (data_out(i,j) .NE. data_in(i, j)) THEN
write(*, *) "extend dataset test error occured"
write(*, *) "read value is not the same as the written values"
END IF
- end do
+ end do
end do
!
@@ -503,6 +503,6 @@
CALL check("h5_cleanup_f", error, total_error)
RETURN
- END SUBROUTINE extenddsettest
+ END SUBROUTINE extenddsettest
diff --git a/fortran/test/tH5E.f90 b/fortran/test/tH5E.f90
index 7bd2402..a4912bd 100644
--- a/fortran/test/tH5E.f90
+++ b/fortran/test/tH5E.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,35 +11,35 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE error_report_test(cleanup, total_error)
! This subroutine tests following functionalities: h5eprint_f
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=6), PARAMETER :: filename = "etestf" ! File name
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=8), PARAMETER :: err_filename = "err_file"! Error output file
CHARACTER(LEN=80) :: fix_err_filename
-
-
+
+
INTEGER(HID_T) :: file_id ! File identifier
INTEGER(HID_T) :: grp_id ! Group identifier
INTEGER :: error, tmp_error, err_flag
-
- err_flag = 0
+
+ err_flag = 0
CALL h5eset_auto_f(err_flag, error)
CALL check("h5eprint_f",error, total_error)
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -47,7 +47,7 @@
endif
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f",error,total_error)
-
+
!
! Try to open non-existing group in the file.
! Error message should go to the err_file_name file.
@@ -61,8 +61,8 @@
CALL h5eprint_f(error, fix_err_filename)
CALL h5gopen_f(file_id, "Doesnotexist2", grp_id, tmp_error)
CALL h5eprint_f(error, fix_err_filename)
-
- !
+
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index af2d7d6..4b88cb3 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,27 +11,27 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing File Interface functionality.
!
-! In the mountingtest subroutine we create one file with a group in it,
+! In the mountingtest subroutine we create one file with a group in it,
! and another file with a dataset. Mounting is used to
-! access the dataset from the second file as a member of a group
-! in the first file.
+! access the dataset from the second file as a member of a group
+! in the first file.
!
SUBROUTINE mountingtest(cleanup, total_error)
USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
!
!the respective filename is "mount1.h5" and "mount2.h5"
!
- CHARACTER(LEN=6) :: filename1
+ CHARACTER(LEN=6) :: filename1
CHARACTER(LEN=6) :: filename2
CHARACTER(LEN=80) :: fix_filename1
CHARACTER(LEN=80) :: fix_filename2
@@ -46,12 +46,12 @@
!
! File identifiers
!
- INTEGER(HID_T) :: file1_id, file2_id
+ INTEGER(HID_T) :: file1_id, file2_id
!
! Group identifier
!
- INTEGER(HID_T) :: gid
+ INTEGER(HID_T) :: gid
!
! dataset identifier
@@ -68,29 +68,29 @@
!
INTEGER(HID_T) :: dtype_id
- !
+ !
!The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
-
+
!
!return value for testing whether a file is in hdf5 format
!
LOGICAL :: status
!
- !flag to check operation success
- !
+ !flag to check operation success
+ !
INTEGER :: error
!
- !general purpose integer
- !
+ !general purpose integer
+ !
INTEGER :: i, j
!
- !data buffers
- !
+ !data buffers
+ !
INTEGER, DIMENSION(NX,NY) :: data_in, data_out
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
@@ -114,26 +114,26 @@
! Fix names of the files
!
CALL h5_fixname_f(filename1, fix_filename1, H5P_DEFAULT_F, error)
- if(error .ne. 0) stop
+ if(error .ne. 0) stop
CALL h5_fixname_f(filename2, fix_filename2, H5P_DEFAULT_F, error)
- if(error .ne. 0) stop
+ if(error .ne. 0) stop
!
!Create first file "mount1.h5" using default properties.
- !
+ !
CALL h5fcreate_f(fix_filename1, H5F_ACC_TRUNC_F, file1_id, error)
CALL check("h5fcreate_f",error,total_error)
-
+
!
!Create group "/G" inside file "mount1.h5".
- !
+ !
CALL h5gcreate_f(file1_id, "/G", gid, error)
CALL check("h5gcreate_f",error,total_error)
!
!close file and group identifiers.
- !
+ !
CALL h5gclose_f(gid, error)
CALL check("h5gclose_f",error,total_error)
CALL h5fclose_f(file1_id, error)
@@ -141,19 +141,19 @@
!
!Create second file "mount2.h5" using default properties.
- !
+ !
CALL h5fcreate_f(fix_filename2, H5F_ACC_TRUNC_F, file2_id, error)
CALL check("h5fcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
CALL check("h5screate_simple_f",error,total_error)
!
!Create dataset "/D" inside file "mount2.h5".
- !
+ !
CALL h5dcreate_f(file2_id, "/D", H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
CALL check("h5dcreate_f",error,total_error)
@@ -168,7 +168,7 @@
!
!close file, dataset and dataspace identifiers.
- !
+ !
CALL h5sclose_f(dataspace, error)
CALL check("h5sclose_f",error,total_error)
CALL h5dclose_f(dset_id, error)
@@ -195,7 +195,7 @@
!
!reopen both files.
- !
+ !
CALL h5fopen_f (fix_filename1, H5F_ACC_RDWR_F, file1_id, error)
CALL check("hfopen_f",error,total_error)
CALL h5fopen_f (fix_filename2, H5F_ACC_RDWR_F, file2_id, error)
@@ -203,44 +203,44 @@
!
!mount the second file under the first file's "/G" group.
- !
+ !
CALL h5fmount_f (file1_id, "/G", file2_id, error)
CALL check("h5fmount_f",error,total_error)
!
!Access dataset D in the first file under /G/D name.
- !
+ !
CALL h5dopen_f(file1_id, "/G/D", dset_id, error)
CALL check("h5dopen_f",error,total_error)
!
!Get dataset's data type.
- !
+ !
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f",error,total_error)
!
!Read the dataset.
- !
+ !
CALL h5dread_f(dset_id, dtype_id, data_out, data_dims, error)
CALL check("h5dread_f",error,total_error)
!
!Compare the data.
- !
+ !
do i = 1, NX
do j = 1, NY
- IF (data_out(i,j) .NE. data_in(i, j)) THEN
+ IF (data_out(i,j) .NE. data_in(i, j)) THEN
write(*, *) "mounting test error occured"
END IF
- end do
+ end do
end do
!
!Close dset_id and dtype_id.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f",error,total_error)
CALL h5tclose_f(dtype_id, error)
@@ -248,13 +248,13 @@
!
!unmount the second file.
- !
+ !
CALL h5funmount_f(file1_id, "/G", error);
CALL check("h5funmount_f",error,total_error)
!
!Close both files.
- !
+ !
CALL h5fclose_f(file1_id, error)
CALL check("h5fclose_f",error,total_error)
CALL h5fclose_f(file2_id, error)
@@ -269,27 +269,27 @@
!
! The following subroutine tests h5freopen_f.
-! It creates the file which has name "reopen.h5" and
+! It creates the file which has name "reopen.h5" and
! the "/dset" dataset inside the file.
! writes the data to the file, close the dataset.
-! Reopen the file based upon the file_id, open the
-! dataset use the reopen_id then reads the
+! Reopen the file based upon the file_id, open the
+! dataset use the reopen_id then reads the
! dataset back to memory to test whether the data
-! read is identical to the data written
+! read is identical to the data written
!
SUBROUTINE reopentest(cleanup, total_error)
USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
-
+ INTEGER, INTENT(OUT) :: total_error
+
!
CHARACTER(LEN=6), PARAMETER :: filename = "reopen"
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
- INTEGER(HID_T) :: file_id, reopen_id ! File identifiers
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id, reopen_id ! File identifiers
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
!
!dataset name is "dset"
@@ -308,30 +308,30 @@
!
INTEGER(HID_T) :: dataspace
- !
+ !
!The dimensions for the dataset.
!
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/NX,NY/)
!
!flag to check operation success
- !
+ !
INTEGER :: error
!
!general purpose integer
- !
+ !
INTEGER :: i, j
!
- !array to store data
+ !array to store data
!
INTEGER, DIMENSION(4,6) :: dset_data, data_out
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
INTEGER(HSIZE_T) :: file_size
CHARACTER(LEN=80) :: file_name
INTEGER(SIZE_T) :: name_size
-
+
!
!initialize the dset_data array which will be written to the "/dset"
!
@@ -344,13 +344,13 @@
!
!Initialize FORTRAN predifined datatypes
!
-! CALL h5init_types_f(error)
+! CALL h5init_types_f(error)
! CALL check("h5init_types_f",error,total_error)
!
!Create file "reopen.h5" using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -360,14 +360,14 @@
CALL check("h5fcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(RANK, dims, dataspace, error)
CALL check("h5screate_simple_f",error,total_error)
!
!Create dataset "/dset" inside the file .
- !
+ !
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, &
dset_id, error)
CALL check("h5dcreate_f",error,total_error)
@@ -393,7 +393,7 @@
CALL check("h5sclose_f",error,total_error)
!
- !Reopen file dsetf.h5.
+ !Reopen file dsetf.h5.
!
CALL h5freopen_f(file_id, reopen_id, error)
CALL check("h5freopen_f",error,total_error)
@@ -404,7 +404,7 @@
CALL check("h5fget_filesize_f",error,total_error)
!
- !Open the dataset based on the reopen_id.
+ !Open the dataset based on the reopen_id.
!
CALL h5dopen_f(reopen_id, dsetname, dset_id, error)
CALL check("h5dopen_f",error,total_error)
@@ -415,7 +415,7 @@
CALL check("h5fget_name_f",error,total_error)
IF(file_name(1:name_size) .NE. fix_filename(1:name_size)) THEN
write(*,*) "file name obtained from the dataset id is incorrect"
- END IF
+ END IF
!
!Read the dataset.
@@ -425,13 +425,13 @@
!
!Compare the data.
- !
+ !
do i = 1, NX
do j = 1, NY
- IF (data_out(i,j) .NE. dset_data(i, j)) THEN
+ IF (data_out(i,j) .NE. dset_data(i, j)) THEN
write(*, *) "reopen test error occured"
END IF
- end do
+ end do
end do
@@ -448,7 +448,7 @@
CALL check("h5fclose_f",error,total_error)
CALL h5fclose_f(reopen_id, error)
CALL check("h5fclose_f",error,total_error)
-
+
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
@@ -462,13 +462,13 @@
! We first create a file using the default creation and access property
! list. Then, the file was closed and reopened. We then get the
! creation and access property lists of the first file. The second file is
-! created using the got property lists
+! created using the got property lists
SUBROUTINE plisttest(cleanup, total_error)
USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
!
!file names are "plist1.h5" and "plist2.h5"
@@ -482,12 +482,12 @@
INTEGER(HID_T) :: prop_id ! File creation property list identifier
INTEGER(HID_T) :: access_id ! File Access property list identifier
- !flag to check operation success
+ !flag to check operation success
INTEGER :: error
!
!Create a file1 using default properties.
- !
+ !
CALL h5_fixname_f(filename1, fix_filename1, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify file name"
@@ -540,7 +540,7 @@
CALL check("h5pclose_f",error,total_error)
CALL h5pclose_f(access_id, error)
CALL check("h5pclose_f",error,total_error)
-
+
!
!Terminate access to the files.
!
@@ -557,8 +557,8 @@
RETURN
END SUBROUTINE plisttest
-
-
+
+
!
! The following subroutine tests h5pget(set)_fclose_degree_f
!
@@ -567,21 +567,21 @@
USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
INTEGER :: error
-
+
!
CHARACTER(LEN=10), PARAMETER :: filename = "file_close"
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
- INTEGER(HID_T) :: fid, fid_d, fid1, fid2, fid3 ! File identifiers
+ INTEGER(HID_T) :: fid, fid_d, fid1, fid2, fid3 ! File identifiers
INTEGER(HID_T) :: fapl, fapl1, fapl2, fapl3 ! File access identifiers
INTEGER(HID_T) :: fid_d_fapl, fid1_fapl ! File access identifiers
LOGICAL :: flag
INTEGER(SIZE_T) :: obj_count, obj_countf
INTEGER(HID_T), ALLOCATABLE, DIMENSION(:) :: obj_ids
INTEGER :: i
-
+
CALL h5eset_auto_f(0, error)
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
@@ -652,7 +652,7 @@
total_error = total_error + 1
write(*,*) "Wrong number of open objects reported, error"
endif
- allocate(obj_ids(obj_countf), stat = error)
+ allocate(obj_ids(obj_countf), stat = error)
CALL h5fget_obj_ids_f(fid, H5F_OBJ_FILE_F, obj_countf, obj_ids, error)
CALL check("h5fget_obj_ids_f",error,total_error)
if(error .eq. 0) then
@@ -661,22 +661,22 @@
CALL check("h5fclose_f",error,total_error)
enddo
endif
-
+
CALL h5fclose_f(fid, error)
if(error .eq. 0) then
total_error = total_error + 1
write(*,*) "File should be closed at this point, error"
- endif
+ endif
CALL h5fclose_f(fid1, error)
if(error .eq. 0) then
total_error = total_error + 1
write(*,*) "File should be closed at this point, error"
- endif
+ endif
CALL h5fclose_f(fid_d, error)
if(error .eq. 0) then
total_error = total_error + 1
write(*,*) "File should be closed at this point, error"
- endif
+ endif
if(cleanup) then
CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
@@ -685,7 +685,7 @@
deallocate(obj_ids)
RETURN
- END SUBROUTINE file_close
+ END SUBROUTINE file_close
!
! The following subroutine tests h5fget_freespace_f
@@ -696,16 +696,16 @@
IMPLICIT NONE
CHARACTER(*), INTENT(IN) :: filename
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
INTEGER :: error
!
CHARACTER(LEN=3), PARAMETER :: grpname = "grp"
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
- INTEGER(HID_T) :: fid ! File identifiers
+ INTEGER(HID_T) :: fid ! File identifiers
INTEGER(HSSIZE_T) :: free_space
- INTEGER(HID_T) :: group_id ! Group identifier
-
+ INTEGER(HID_T) :: group_id ! Group identifier
+
CALL h5eset_auto_f(0, error)
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
@@ -730,7 +730,7 @@
! Close group
CALL h5gclose_f(group_id, error)
CALL check("h5gclose_f", error, total_error)
-
+
! Check the free space now
CALL h5fget_freespace_f(fid, free_space, error)
CALL check("h5fget_freespace_f",error,total_error)
@@ -758,7 +758,7 @@
CALL check("h5_cleanup_f", error, total_error)
RETURN
- END SUBROUTINE file_space
+ END SUBROUTINE file_space
diff --git a/fortran/test/tH5G.f90 b/fortran/test/tH5G.f90
index e0270a9..300e538 100644
--- a/fortran/test/tH5G.f90
+++ b/fortran/test/tH5G.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,46 +11,46 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE group_test(cleanup, total_error)
-! This subroutine tests following functionalities:
+! This subroutine tests following functionalities:
! h5gcreate_f, h5gopen_f, h5gclose_f, (?)h5gget_obj_info_idx_f, h5gn_members_f
! h5glink(2)_f, h5gunlink_f, h5gmove(2)_f, h5gget_linkval_f, h5gset_comment_f,
-! h5gget_comment_f
+! h5gget_comment_f
+
+ USE HDF5 ! This module contains all necessary modules
- USE HDF5 ! This module contains all necessary modules
-
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=5), PARAMETER :: filename = "gtest" !File name
CHARACTER(LEN=80) :: fix_filename
- CHARACTER(LEN=33), PARAMETER :: comment = "Testing the group functionalities"
+ CHARACTER(LEN=33), PARAMETER :: comment = "Testing the group functionalities"
! comment for this file
CHARACTER(LEN=7), PARAMETER :: groupname1 = "MyGroup" ! Group name
- CHARACTER(LEN=16), PARAMETER :: groupname2 = "/MyGroup/Group_A"
- CHARACTER(LEN=9), PARAMETER :: linkname1 = "hardlink1"
- CHARACTER(LEN=9), PARAMETER :: linkname2 = "hardlink2"
- CHARACTER(LEN=9), PARAMETER :: linkname3 = "softlink1"
- CHARACTER(LEN=9), PARAMETER :: linkname4 = "softlink2"
- CHARACTER(LEN=12), PARAMETER :: linkname5 = "newsoftlink2"
+ CHARACTER(LEN=16), PARAMETER :: groupname2 = "/MyGroup/Group_A"
+ CHARACTER(LEN=9), PARAMETER :: linkname1 = "hardlink1"
+ CHARACTER(LEN=9), PARAMETER :: linkname2 = "hardlink2"
+ CHARACTER(LEN=9), PARAMETER :: linkname3 = "softlink1"
+ CHARACTER(LEN=9), PARAMETER :: linkname4 = "softlink2"
+ CHARACTER(LEN=12), PARAMETER :: linkname5 = "newsoftlink2"
CHARACTER(LEN=13), PARAMETER :: dsetname1 = "MyGroup/dset1" ! Dataset name
CHARACTER(LEN=5), PARAMETER :: dsetname2 = "dset2" ! dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: group1_id ! Group identifier
- INTEGER(HID_T) :: group2_id ! Group identifier
- INTEGER(HID_T) :: dset1_id ! Dataset identifier
- INTEGER(HID_T) :: dset2_id ! Dataset identifier
- INTEGER(HID_T) :: dsetnew_id ! Dataset identifier
- INTEGER(HID_T) :: dspace_id ! Data space identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: group1_id ! Group identifier
+ INTEGER(HID_T) :: group2_id ! Group identifier
+ INTEGER(HID_T) :: dset1_id ! Dataset identifier
+ INTEGER(HID_T) :: dset2_id ! Dataset identifier
+ INTEGER(HID_T) :: dsetnew_id ! Dataset identifier
+ INTEGER(HID_T) :: dspace_id ! Data space identifier
- INTEGER, DIMENSION(1) :: dset1_data = 34 ! Data value
- INTEGER, DIMENSION(1) :: dset2_data = 98 ! Data value
+ INTEGER, DIMENSION(1) :: dset1_data = 34 ! Data value
+ INTEGER, DIMENSION(1) :: dset2_data = 98 ! Data value
INTEGER(HSIZE_T), DIMENSION(1) :: dims = 1 ! Datasets dimensions
INTEGER :: rank = 1 ! Datasets rank
INTEGER :: error ! Error flag
@@ -58,7 +58,7 @@
CHARACTER(LEN=100) :: name !name to put symbolic object
CHARACTER(LEN=100) :: commentout !comment to the file
INTEGER :: nmembers
- INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
+ INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
!
! Create the file.
!
@@ -75,19 +75,19 @@
!
CALL h5gcreate_f(file_id, groupname1, group1_id, error)
CALL check("h5gcreate_f",error,total_error)
-
+
!
! Create a group named "/MyGroup/Group_A" in the file.
!
CALL h5gcreate_f(file_id, groupname2, group2_id, error)
CALL check("h5gcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
CALL check("h5screate_simple_f",error,total_error)
!
- ! create dataset in the file.
+ ! create dataset in the file.
!
CALL h5dcreate_f(file_id, dsetname1, H5T_NATIVE_INTEGER, dspace_id, &
dset1_id, error)
@@ -101,7 +101,7 @@
CALL check("h5dwrite_f",error,total_error)
!
- ! create dataset2 in the Group_A.
+ ! create dataset2 in the Group_A.
!
CALL h5dcreate_f(group2_id, dsetname2, H5T_NATIVE_INTEGER, dspace_id, &
dset2_id, error)
@@ -116,22 +116,22 @@
!
!Create a hard link to the group1
!
- CALL h5glink_f(file_id, H5G_LINK_HARD_F, groupname1, linkname1, error)
+ CALL h5glink_f(file_id, H5G_LINK_HARD_F, groupname1, linkname1, error)
CALL check("h5glink_f",error,total_error)
!
!Create a hard link to the group2
!
- CALL h5glink2_f(file_id, groupname2, H5G_LINK_HARD_F, file_id, linkname2, error)
+ CALL h5glink2_f(file_id, groupname2, H5G_LINK_HARD_F, file_id, linkname2, error)
CALL check("h5glink2_f",error,total_error)
!
!Create a soft link to dataset11
!
- CALL h5glink_f(file_id, H5G_LINK_SOFT_F, dsetname1, linkname3, error)
+ CALL h5glink_f(file_id, H5G_LINK_SOFT_F, dsetname1, linkname3, error)
CALL check("h5glink_f",error,total_error)
!
!Create a soft link to dataset2
!
- CALL h5glink_f(file_id, H5G_LINK_SOFT_F, dsetname2, linkname4, error)
+ CALL h5glink_f(file_id, H5G_LINK_SOFT_F, dsetname2, linkname4, error)
CALL check("h5glink_f",error,total_error)
!
!close group1
@@ -147,7 +147,7 @@
!get obj info of group1
!
! CALL h5gget_obj_info_idx_f(file_id, linkname1, 2, name, obj_type, error)
-! CALL check("h5gget_obj_info_idx_f", error, total_error)
+! CALL check("h5gget_obj_info_idx_f", error, total_error)
! XXX: Fix problems with H5G_LINK_F! - QAK
! if (obj_type .ne. H5G_LINK_F) then
! write(*,*) "got object ", name, " type error ", obj_type
@@ -202,7 +202,7 @@
!get the comment of dataset1
!
CALL h5gget_comment_f(file_id, dsetname1,namesize, commentout, error)
- CALL check("h5gget_comment_f", error, total_error)
+ CALL check("h5gget_comment_f", error, total_error)
if ( commentout(1:33) .ne. comment) then
write(*,*) "got comment ", commentout, " is wrong"
total_error = total_error +1
@@ -211,10 +211,10 @@
! Move dataset1 to gourp2_id location
!
CALL h5dclose_f(dset1_id, error)
- CALL check("h5dclose_f", error, total_error)
+ CALL check("h5dclose_f", error, total_error)
- CALL h5gmove2_f(file_id, dsetname1, group2_id, "dset1", error)
- CALL check("h5gmove2_f", error, total_error)
+ CALL h5gmove2_f(file_id, dsetname1, group2_id, "dset1", error)
+ CALL check("h5gmove2_f", error, total_error)
!
! Open dataset from the new location
!
@@ -224,17 +224,17 @@
!release all the resources
!
CALL h5fclose_f(file_id, error)
- CALL check("h5fclose_f", error, total_error)
+ CALL check("h5fclose_f", error, total_error)
CALL h5gclose_f(group1_id, error)
- CALL check("h5gclose_f", error, total_error)
+ CALL check("h5gclose_f", error, total_error)
CALL h5gclose_f(group2_id, error)
- CALL check("h5gclose_f", error, total_error)
+ CALL check("h5gclose_f", error, total_error)
CALL h5dclose_f(dset2_id, error)
- CALL check("h5dclose_f", error, total_error)
+ CALL check("h5dclose_f", error, total_error)
CALL h5dclose_f(dsetnew_id, error)
- CALL check("h5dclose_f", error, total_error)
+ CALL check("h5dclose_f", error, total_error)
CALL h5sclose_f(dspace_id, error)
- CALL check("h5sclose_f", error, total_error)
+ CALL check("h5sclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90
index 725e21b..6a2c623 100644
--- a/fortran/test/tH5G_1_8.f90
+++ b/fortran/test/tH5G_1_8.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,17 +11,17 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE group_test(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T) :: fapl, fapl2, my_fapl ! /* File access property lists */
-
+
INTEGER :: error, ret_total_error
! WRITE(*,*) "TESTING GROUPS"
@@ -75,7 +75,7 @@ SUBROUTINE group_test(cleanup, total_error)
CALL write_test_status(ret_total_error, &
' Testing deleting links by index', &
total_error)
-
+
ret_total_error = 0
CALL test_lcpl(cleanup, fapl, ret_total_error)
CALL write_test_status(ret_total_error, &
@@ -118,15 +118,15 @@ END SUBROUTINE group_test
SUBROUTINE group_info(cleanup, fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
INTEGER(HID_T) :: gcpl_id ! /* Group creation property list ID */
- INTEGER :: max_compact ! /* Maximum # of links to store in group compactly */
+ INTEGER :: max_compact ! /* Maximum # of links to store in group compactly */
INTEGER :: min_dense ! /* Minimum # of links to store in group "densely" */
INTEGER :: idx_type ! /* Type of index to operate on */
@@ -144,7 +144,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
! H5G_STORAGE_TYPE_DENSE: Indexed storage
! H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
INTEGER :: nlinks ! Number of links in group
- INTEGER :: max_corder ! Current maximum creation order value for group
+ INTEGER :: max_corder ! Current maximum creation order value for group
INTEGER :: u,v ! /* Local index variables */
CHARACTER(LEN=2) :: chr2
@@ -352,7 +352,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
! /* Close group created */
CALL H5Gclose_f(group_id2, error)
CALL check("H5Gclose_f", error, total_error)
-
+
! /* Retrieve main group's information */
CALL H5Gget_info_f(group_id, storage_type, nlinks, max_corder, error)
CALL check("H5Gget_info_f", error, total_error)
@@ -361,11 +361,11 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL VERIFY("H5Gget_info_f", storage_type, H5G_STORAGE_TYPE_COMPACT_F, total_error)
CALL VERIFY("H5Gget_info_f", max_corder, u+1, total_error)
CALL VERIFY("H5Gget_info_f", nlinks, u+1, total_error)
-
+
! /* Retrieve main group's information, by name */
CALL H5Gget_info_by_name_f(file_id, CORDER_GROUP_NAME, storage_type, nlinks, max_corder, error)
CALL check("H5Gget_info_by_name_f", error, total_error)
-
+
! /* Check main group's information */
CALL VERIFY("H5Gget_info_by_name_f", storage_type, H5G_STORAGE_TYPE_COMPACT_F, total_error)
CALL VERIFY("H5Gget_info_by_name_f", max_corder, u+1, total_error)
@@ -384,7 +384,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
valname = CORDER_GROUP_NAME//objname
CALL H5Lcreate_soft_f(valname, soft_group_id, objname, error, H5P_DEFAULT_F, H5P_DEFAULT_F)
-
+
! /* Retrieve soft link group's information, by name */
CALL H5Gget_info_f(soft_group_id, storage_type, nlinks, max_corder, error)
CALL check("H5Gget_info_f", error, total_error)
@@ -401,7 +401,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL check("H5Gclose_f", error, total_error)
CALL H5Gclose_f(soft_group_id, error)
CALL check("H5Gclose_f", error, total_error)
-
+
! /* Close the file */
CALL H5Fclose_f(file_id, error)
CALL check("H5Fclose_f", error, total_error)
@@ -434,8 +434,8 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
SUBROUTINE timestamps(cleanup, fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -445,7 +445,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
INTEGER(HID_T) :: group_id2 !/* Group ID */
INTEGER(HID_T) :: gcpl_id !/* Group creation property list ID */
INTEGER(HID_T) :: gcpl_id2 !/* Group creation property list ID */
-
+
CHARACTER(LEN=6), PARAMETER :: prefix = 'links9'
CHARACTER(LEN=9), PARAMETER :: filename = prefix//'.h5' ! /* File name */
! /* Timestamp macros */
@@ -483,7 +483,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
! /* Create file */
!h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
-
+
CALL H5Fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error, H5P_DEFAULT_F, fapl)
CALL check("h5fcreate_f",error,total_error)
@@ -514,7 +514,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL H5Pget_obj_track_times_f(gcpl_id2, track_times, error)
CALL check("H5Pget_obj_track_times_f", error, total_error)
CALL VerifyLogical("H5Pget_obj_track_times2",track_times,.TRUE.,total_error)
-
+
! /* Query the object information for each group */
! if(H5Oget_info(group_id, &oinfo) < 0) TEST_ERROR
! if(H5Oget_info(group_id2, &oinfo2) < 0) TEST_ERROR
@@ -630,8 +630,8 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
SUBROUTINE mklinks(fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -642,7 +642,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
INTEGER :: arank = 1 ! Attribure rank
INTEGER :: error
- INTEGER :: cset ! Indicates the character set used for the link’s name.
+ INTEGER :: cset ! Indicates the character set used for the link’s name.
INTEGER :: corder ! Specifies the link’s creation order position.
LOGICAL :: f_corder_valid ! Indicates whether the value in corder is valid.
INTEGER :: link_type ! Specifies the link class:
@@ -663,7 +663,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL check("mklinks.h5screate_simple_f",error,total_error)
!/* Create a group */
- CALL H5Gcreate_f(file, "grp1", grp, error)
+ CALL H5Gcreate_f(file, "grp1", grp, error)
CALL check("H5Gcreate_f", error, total_error)
CALL H5Gclose_f(grp, error)
CALL check("h5gclose_f",error,total_error)
@@ -677,7 +677,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
!/* Create a hard link */
CALL H5Lcreate_hard_f(file, "d1", INT(H5L_SAME_LOC_F,HID_T), "grp1/hard", error)
CALL check("H5Lcreate_hard_f", error, total_error)
-
+
!/* Create a symbolic link */
CALL H5Lcreate_soft_f("/d1", file, "grp1/soft",error)
CALL check("H5Lcreate_soft_f", error, total_error)
@@ -725,8 +725,8 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
SUBROUTINE test_move_preserves(fapl_id, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl_id
@@ -749,7 +749,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
INTEGER :: crt_order_flags ! /* Status of creation order info for GCPL */
CHARACTER(LEN=12), PARAMETER :: filename = 'TestLinks.h5'
- INTEGER :: cset ! Indicates the character set used for the link’s name.
+ INTEGER :: cset ! Indicates the character set used for the link’s name.
INTEGER :: corder ! Specifies the link’s creation order position.
LOGICAL :: f_corder_valid ! Indicates whether the value in corder is valid.
INTEGER :: link_type ! Specifies the link class:
@@ -774,17 +774,17 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL H5Pget_link_creation_order_f(fcpl_id, crt_order_flags, error)
CALL check("H5Pget_link_creation_order_f",error, total_error)
CALL VERIFY("H5Pget_link_creation_order_f",crt_order_flags,0, total_error)
-
+
CALL H5Pset_link_creation_order_f(fcpl_id, H5P_CRT_ORDER_TRACKED_F, error)
CALL check("H5Pset_link_creation_order_f", error, total_error)
-
+
CALL H5Pget_link_creation_order_f(fcpl_id, crt_order_flags, error)
CALL check("H5Pget_link_creation_order_f",error, total_error)
CALL VERIFY("H5Pget_link_creation_order_f",crt_order_flags, H5P_CRT_ORDER_TRACKED_F, total_error)
!/* Create file */
!/* (with creation order tracking for the root group) */
-
+
CALL h5fcreate_f(FileName, H5F_ACC_TRUNC_F, file_id, error, fcpl_id, fapl_id)
CALL check("h5fcreate_f",error,total_error)
@@ -796,7 +796,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL check("H5Pset_char_encoding_f",error, total_error)
!/* Create a group with that lcpl */
- CALL H5Gcreate_f(file_id, "group", group_id, error,lcpl_id=lcpl_id, gcpl_id=H5P_DEFAULT_F, gapl_id=H5P_DEFAULT_F)
+ CALL H5Gcreate_f(file_id, "group", group_id, error,lcpl_id=lcpl_id, gcpl_id=H5P_DEFAULT_F, gapl_id=H5P_DEFAULT_F)
CALL check("H5Gcreate_f", error, total_error)
CALL H5Gclose_f(group_id, error)
CALL check("H5Gclose_f", error, total_error)
@@ -825,7 +825,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
! /* Close the file and reopen it */
CALL H5Fclose_f(file_id, error)
CALL check("H5Fclose_f", error, total_error)
-
+
!!$ if((file_id = H5Fopen(filename, H5F_ACC_RDWR, fapl_id)) < 0) TEST_ERROR
!!$
!!$ /* Get the link's character set & modification time . They should be unchanged */
@@ -908,7 +908,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
CALL check("H5Pclose_f", error, total_error)
CALL H5Pclose_f(lcpl_id, error)
CALL check("H5Pclose_f", error, total_error)
-
+
! if(H5Fclose(file_id) < 0) TEST_ERROR
END SUBROUTINE test_move_preserves
@@ -932,8 +932,8 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
SUBROUTINE lifecycle(cleanup, fapl2, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl2
@@ -985,7 +985,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error)
! /* Set up group creation property list */
CALL H5Pcreate_f(H5P_GROUP_CREATE_F,gcpl,error)
CALL check("H5Pcreate_f",error,total_error)
-
+
! /* Query default group creation property settings */
CALL H5Pget_local_heap_size_hint_f(gcpl, lheap_size_hint, error)
@@ -1002,7 +1002,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error)
CALL check("H5Pget_est_link_info_f", error, total_error)
CALL verify("H5Pget_est_link_info_f", est_num_entries, H5G_CRT_GINFO_EST_NUM_ENTRIES,total_error)
CALL verify("H5Pget_est_link_info_f", est_name_len, H5G_CRT_GINFO_EST_NAME_LEN,total_error)
-
+
!/* Set GCPL parameters */
@@ -1044,7 +1044,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error)
CALL H5Ldelete_f(fid, LIFECYCLE_TOP_GROUP, error)
CALL check("H5Ldelete_f", error, total_error)
-
+
! /* Close GCPL */
CALL H5Pclose_f(gcpl, error)
CALL check("H5Pclose_f", error, total_error)
@@ -1079,8 +1079,8 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error)
SUBROUTINE cklinks(fapl, total_error)
! USE ISO_C_BINDING
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -1116,7 +1116,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error)
!!$ TEST_ERROR
!!$ } /* end if */
-
+
CALL H5Lexists_f(file,"d1",Lexists, error)
CALL verifylogical("test_lcpl.H5Lexists", Lexists,.TRUE.,total_error)
@@ -1148,8 +1148,8 @@ END SUBROUTINE cklinks
! */
SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -1159,19 +1159,19 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
INTEGER(HID_T) :: gcpl_id ! /* Group creation property list ID */
INTEGER :: idx_type ! /* Type of index to operate on */
- LOGICAL, DIMENSION(1:2) :: use_index = (/.FALSE.,.TRUE./)
+ LOGICAL, DIMENSION(1:2) :: use_index = (/.FALSE.,.TRUE./)
! /* Use index on creation order values */
- INTEGER :: max_compact ! /* Maximum # of links to store in group compactly */
+ INTEGER :: max_compact ! /* Maximum # of links to store in group compactly */
INTEGER :: min_dense ! /* Minimum # of links to store in group "densely" */
CHARACTER(LEN=7) :: objname ! /* Object name */
CHARACTER(LEN=8) :: filename = 'file0.h5' ! /* File name */
CHARACTER(LEN=12), PARAMETER :: CORDER_GROUP_NAME = "corder_group"
- LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
- INTEGER(SIZE_T) :: val_size
+ INTEGER(SIZE_T) :: val_size
INTEGER :: link_type
INTEGER(HADDR_T) :: address
@@ -1237,7 +1237,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
! /* Create file */
CALL H5Fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error, access_prp=fapl)
CALL check("delete_by_idx.H5Fcreate_f", error, total_error)
-
+
! /* Create group creation property list */
CALL H5Pcreate_f(H5P_GROUP_CREATE_F, gcpl_id, error )
CALL check("delete_by_idx.H5Pcreate_f", error, total_error)
@@ -1287,7 +1287,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
! IF(H5G_has_links_test(group_id, NULL) != TRUE) TEST_ERROR
! /* Check for out of bound deletion */
- htmp =9
+ htmp =9
!EP CALL H5Ldelete_by_idx_f(group_id, ".", idx_type, iorder, INT(u,HSIZE_T), error)
CALL H5Ldelete_by_idx_f(group_id, ".", idx_type, iorder, htmp, error)
CALL VERIFY("H5Ldelete_by_idx_f", error, -1, total_error) ! test should fail (error = -1)
@@ -1312,7 +1312,7 @@ SUBROUTINE delete_by_idx(cleanup, fapl, total_error)
CALL check("H5Iget_type_f", error, total_error)
CALL VERIFY("H5Iget_type_f", id_type, H5I_GROUP_F, total_error)
-
+
CALL H5Gclose_f(grp, error)
CALL check("H5Gclose_f", error, total_error)
@@ -1389,8 +1389,8 @@ END SUBROUTINE delete_by_idx
SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
hard_link, use_index, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(INOUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: group_id
@@ -1399,7 +1399,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
LOGICAL, INTENT(IN) :: hard_link
LOGICAL, INTENT(IN) :: use_index
- LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
+ LOGICAL :: f_corder_valid ! Indicates whether the creation order data is valid for this attribute
INTEGER :: corder ! Is a positive integer containing the creation order of the attribute
INTEGER :: cset ! Indicates the character set used for the attribute’s name
INTEGER :: link_type
@@ -1437,7 +1437,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
! /* Verify value for new soft link, in increasing creation order */
!!$ IF(hard_link)THEN
!!$ ! HDmemset(tmpval, 0, (size_t)NAME_BUF_SIZE);
-!!$
+!!$
!!$ CALL H5Lget_val_by_idx_f(group_id, ".", H5_INDEX_CRT_ORDER_F, H5_ITER_INC_F, n, tmpval, INT(7,SIZE_T),error)
!!$ CALL check("H5Lget_val_by_idx",error,total_error)
!!$
@@ -1493,21 +1493,21 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
SUBROUTINE test_lcpl(cleanup, fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(INOUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
LOGICAL :: cleanup
-
+
INTEGER(HID_T) :: file_id
INTEGER(HID_T) :: group_id
INTEGER(HID_T) :: space_id, data_space
INTEGER(HID_T) :: dset_id
INTEGER(HID_T) :: type_id
INTEGER(HID_T) :: lcpl_id
-
- INTEGER :: cset ! Indicates the character set used for the link’s name.
+
+ INTEGER :: cset ! Indicates the character set used for the link’s name.
INTEGER :: corder ! Specifies the link’s creation order position.
LOGICAL :: f_corder_valid ! Indicates whether the value in corder is valid.
INTEGER :: link_type ! Specifies the link class:
@@ -1534,25 +1534,25 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
! WRITE(*,*) "link creation property lists (w/new group format)"
-
+
!/* Actually, intermediate group creation is tested elsewhere (tmisc).
! * Here we only need to test the character encoding property */
!/* Create file */
! h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
-
+
CALL H5Fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error, H5P_DEFAULT_F, fapl)
CALL check("test_lcpl.H5Fcreate_f", error, total_error)
! /* Create and link a group with the default LCPL */
-
+
CALL H5Gcreate_f(file_id, "/group", group_id, error)
CALL check("test_lcpl.H5Gcreate_f", error, total_error)
-
+
! /* Check that its character encoding is the default */
-
+
CALL H5Lget_info_f(file_id, "group", &
cset, corder, f_corder_valid, link_type, address, val_size, &
error, H5P_DEFAULT_F)
@@ -1570,7 +1570,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
CALL check("test_lcpl.h5tcommit_f", error, total_error)
CALL h5tclose_f(type_id, error)
CALL check("test_lcpl.h5tclose_f", error, total_error)
-
+
! /* Check that its character encoding is the default */
CALL H5Lget_info_f(file_id, "type", &
@@ -1613,7 +1613,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
CALL h5sget_simple_extent_dims_f(data_space, dimsout, maxdimsout, error)
CALL check("test_lcpl.h5sget_simple_extent_dims_f",error, total_error)
-
+
DO i = 1, 2
tmp1 = dimsout(i)
tmp2 = extend_dim(i)
@@ -1628,7 +1628,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
! /* close data set */
CALL h5dclose_f(dset_id, error)
- CALL check("test_lcpl.h5dclose_f", error, total_error)
+ CALL check("test_lcpl.h5dclose_f", error, total_error)
! /* Check that its character encoding is the default */
CALL H5Lget_info_f(file_id, "dataset", &
@@ -1689,7 +1689,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
CALL H5Pget_char_encoding_f(lcpl_id, encoding, error)
CALL check("test_lcpl.H5Pget_char_encoding_f", error, total_error)
- CALL VERIFY("test_lcpl.H5Pget_char_encoding_f", encoding, H5T_CSET_UTF8_F, total_error)
+ CALL VERIFY("test_lcpl.H5Pget_char_encoding_f", encoding, H5T_CSET_UTF8_F, total_error)
! /* Check that its character encoding is UTF-8 */
CALL H5Lget_info_f(file_id, "dataset2", &
@@ -1718,7 +1718,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
cset, corder, f_corder_valid, link_type, address, val_size, &
error)
CALL check("test_lcpl.H5Lget_info_f", error, total_error)
- CALL verify("test_lcpl.H5Lget_info_f",cset, H5T_CSET_ASCII_F,total_error)
+ CALL verify("test_lcpl.H5Lget_info_f",cset, H5T_CSET_ASCII_F,total_error)
! /* Check that the first link's encoding hasn't changed */
@@ -1731,7 +1731,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
!/* Make sure that LCPLs work properly for other API calls: */
!/* H5Lcreate_soft */
-
+
CALL H5Pset_char_encoding_f(lcpl_id, H5T_CSET_UTF8_F, error)
CALL check("test_lcpl.H5Pset_char_encoding_f",error, total_error)
CALL H5Lcreate_soft_f("dataset2", file_id, "slink_to_dset2",error,lcpl_id)
@@ -1759,12 +1759,12 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
! /* H5Lcopy */
-
+
CALL H5Pset_char_encoding_f(lcpl_id, H5T_CSET_UTF8_F, error)
CALL check("test_lcpl.H5Pset_char_encoding_f",error, total_error)
CALL H5Lcopy_f(file_id, "moved_slink", file_id, "copied_slink", error, lcpl_id)
-
+
CALL H5Lget_info_f(file_id, "copied_slink", &
cset, corder, f_corder_valid, link_type, address, val_size, &
error)
@@ -1801,8 +1801,8 @@ END SUBROUTINE test_lcpl
SUBROUTINE objcopy(fapl, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(INOUT) :: total_error
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -1821,13 +1821,13 @@ SUBROUTINE objcopy(fapl, total_error)
!/* Set the "use the latest version of the format" bounds for creating objects in the file */
CALL H5Pset_libver_bounds_f(fapl2, H5F_LIBVER_LATEST_F, H5F_LIBVER_LATEST_F, error)
-
+
! /* create property to pass copy options */
CALL h5pcreate_f(H5P_OBJECT_COPY_F, pid, error)
CALL check("h5pcreate_f",error, total_error)
! /* set options for object copy */
- CALL H5Pset_copy_object_f(pid, flag, error)
+ CALL H5Pset_copy_object_f(pid, flag, error)
CALL check("H5Pset_copy_object_f",error, total_error)
! /* Verify object copy flags */
@@ -1836,7 +1836,7 @@ SUBROUTINE objcopy(fapl, total_error)
CALL VERIFY("H5Pget_copy_object_f", cpy_flags, flag, total_error)
!!$
-!!$ CALL test_copy_option(fcpl_src, fcpl_dst, my_fapl, H5O_COPY_WITHOUT_ATTR_FLAG,
+!!$ CALL test_copy_option(fcpl_src, fcpl_dst, my_fapl, H5O_COPY_WITHOUT_ATTR_FLAG,
!!$ FALSE, "H5Ocopy(): without attributes");
CALL lapl_nlinks(fapl2, total_error)
@@ -1865,7 +1865,7 @@ END SUBROUTINE objcopy
SUBROUTINE lapl_nlinks( fapl, total_error)
USE HDF5
-
+
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: fapl
INTEGER, INTENT(INOUT) :: total_error
@@ -1877,13 +1877,13 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
INTEGER(HID_T) :: plist = (-1) ! /* lapl ID */
INTEGER(HID_T) :: tid = (-1) ! /* Other IDs */
INTEGER(HID_T) :: gapl = (-1), dapl = (-1), tapl = (-1) ! /* Other property lists */
-
+
CHARACTER(LEN=7) :: objname ! /* Object name */
INTEGER(size_t) :: name_len ! /* Length of object name */
CHARACTER(LEN=12) :: filename = 'TestLinks.h5'
INTEGER(size_t) :: nlinks ! /* nlinks for H5Pset_nlinks */
INTEGER(size_t) :: buf_size = 7
-
+
! WRITE(*,*) "adjusting nlinks with LAPL (w/new group format)"
@@ -1892,9 +1892,9 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
CALL check(" lapl_nlinks.h5fcreate_f",error,total_error)
! /* Create group with short name in file (used as target for links) */
- CALL H5Gcreate_f(fid, "final", gid, error)
+ CALL H5Gcreate_f(fid, "final", gid, error)
CALL check(" lapl_nlinks.H5Gcreate_f", error, total_error)
-
+
!/* Create chain of soft links to existing object (limited) */
CALL H5Lcreate_soft_f("final", fid, "soft1", error)
CALL H5Lcreate_soft_f("soft1", fid, "soft2", error)
@@ -1921,13 +1921,13 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
CALL check("h5fclose_f",error,total_error)
!/* Open file */
-
+
CALL h5fopen_f(FileName, H5F_ACC_RDWR_F, fid, error, fapl)
CALL check("h5open_f",error,total_error)
-
+
!/* Create LAPL with higher-than-usual nlinks value */
!/* Create a non-default lapl with udata set to point to the first group */
-
+
CALL H5Pcreate_f(H5P_LINK_ACCESS_F,plist,error)
CALL check("h5Pcreate_f",error,total_error)
nlinks = 20
@@ -1942,7 +1942,7 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
!/* Open object through what is normally too many soft links using
! * new property list */
-
+
CALL H5Oopen_f(fid,"soft17",gid,error,plist)
CALL check("H5Oopen_f",error,total_error)
@@ -1954,9 +1954,9 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
CALL H5Gcreate_f(gid, "new_soft", gid2, error)
CALL check("H5Gcreate_f", error, total_error)
- ! /* Close groups */
+ ! /* Close groups */
CALL H5Gclose_f(gid2, error)
- CALL check("H5Gclose_f", error, total_error)
+ CALL check("H5Gclose_f", error, total_error)
CALL H5Gclose_f(gid, error)
CALL check("H5Gclose_f", error, total_error)
@@ -1974,7 +1974,7 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
CALL VERIFY("H5Pget_nlinks_f", INT(nlinks), 4, total_error)
! /* Try opening through what is now too many soft links */
-
+
CALL H5Oopen_f(fid,"soft5",gid,error,plist)
CALL VERIFY("H5Oopen_f", error, -1, total_error) ! should fail
@@ -2064,11 +2064,11 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
!!$ } H5E_END_TRY
!!$
! /* Create property lists with nlinks set */
-
+
CALL H5Pcreate_f(H5P_GROUP_ACCESS_F,gapl,error)
- CALL check("h5Pcreate_f",error,total_error)
+ CALL check("h5Pcreate_f",error,total_error)
CALL H5Pcreate_f(H5P_DATATYPE_ACCESS_F,tapl,error)
- CALL check("h5Pcreate_f",error,total_error)
+ CALL check("h5Pcreate_f",error,total_error)
CALL H5Pcreate_f(H5P_DATASET_ACCESS_F,dapl,error)
CALL check("h5Pcreate_f",error,total_error)
@@ -2090,11 +2090,11 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
CALL H5Topen_f(fid, "soft17/datatype", tid, error, tapl)
CALL check("H5Gopen_f",error,total_error)
-
+
!!$ if((did = H5Dopen2(fid, "soft17/dataset", dapl)) < 0) TEST_ERROR
! /* Close objects */
-
+
CALL h5gclose_f(gid, error)
CALL check("h5gclose_f",error,total_error)
CALL h5tclose_f(tid, error)
@@ -2103,7 +2103,7 @@ SUBROUTINE lapl_nlinks( fapl, total_error)
!!$ if(H5Dclose(did) < 0) TEST_ERROR
!!$
! /* Close plists */
-
+
CALL h5pclose_f(gapl, error)
CALL check("h5pclose_f", error, total_error)
CALL h5pclose_f(tapl, error)
diff --git a/fortran/test/tH5I.f90 b/fortran/test/tH5I.f90
index c34bd09..0d1a8c5 100644
--- a/fortran/test/tH5I.f90
+++ b/fortran/test/tH5I.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,38 +11,38 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE identifier_test(cleanup, total_error)
! This subroutine tests following functionalities: h5iget_type_f
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=6), PARAMETER :: filename = "itestf" ! File name
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=10), PARAMETER :: dsetname = "/itestdset" ! Dataset name
CHARACTER(LEN=10), PARAMETER :: groupname = "itestgroup"! group name
CHARACTER(LEN=10), PARAMETER :: aname = "itestattr"! group name
-
-
+
+
INTEGER(HID_T) :: file_id ! File identifier
INTEGER(HID_T) :: new_file_id ! File identifier
- INTEGER(HID_T) :: group_id ! group identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: group_id ! group identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: attr_id ! Datatype attribute identifier
INTEGER(HID_T) :: aspace_id ! attribute data space identifier
INTEGER(HID_T) :: atype_id ! attribute data type identifier
- INTEGER, DIMENSION(1) :: dset_data = 0 ! Data value
-
+ INTEGER, DIMENSION(1) :: dset_data = 0 ! Data value
+
INTEGER(HSIZE_T), DIMENSION(1) :: dims = 1 ! Datasets dimensions
INTEGER(HSIZE_T), DIMENSION(1) :: adims = 1 ! Attribute dimensions
@@ -69,24 +69,24 @@
! check that the ID is not valid
dtype = -1
CALL H5Iis_valid_f(dtype, tri_ret, error)
- CALL check("H5Iis_valid_f", error, total_error)
+ CALL check("H5Iis_valid_f", error, total_error)
CALL VerifyLogical("H5Iis_valid_f", tri_ret, .FALSE., total_error)
-
+
! Create a datatype id
CALL H5Tcopy_f(H5T_NATIVE_INTEGER,dtype,error)
- CALL check("H5Tcopy_f", error, total_error)
-
+ CALL check("H5Tcopy_f", error, total_error)
+
! Check that the ID is valid
CALL H5Iis_valid_f(dtype, tri_ret, error)
- CALL check("H5Iis_valid_f", error, total_error)
+ CALL check("H5Iis_valid_f", error, total_error)
CALL VerifyLogical("H5Tequal_f", tri_ret, .TRUE., total_error)
-
+
CALL H5Tclose_f(dtype, error)
- CALL check("H5Tclose_f", error, total_error)
-
+ CALL check("H5Tclose_f", error, total_error)
+
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -94,7 +94,7 @@
endif
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f",error,total_error)
-
+
!
! Create a group named "/MyGroup" in the file.
!
@@ -102,20 +102,20 @@
CALL check("h5gcreate_f",error,total_error)
!
- !Create data space for the dataset.
+ !Create data space for the dataset.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
CALL check("h5screate_simple_f",error,total_error)
!
- ! create dataset in the file.
+ ! create dataset in the file.
!
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dspace_id, &
dset_id, error)
CALL check("h5dcreate_f",error,total_error)
!
! Get dataset name from dataset identifier
- !
+ !
buf_size = 80
CALL h5iget_name_f(dset_id, name_buf, buf_size, name_size, error)
CALL check("h5iget_name_f",error,total_error)
@@ -128,8 +128,8 @@
total_error = total_error + 1
endif
endif
-
- !
+
+ !
! Get file identifier from dataset identifier and then get file name
!
CALL h5iget_file_id_f(dset_id, new_file_id, error)
@@ -150,7 +150,7 @@
CALL check("h5dwrite_f",error,total_error)
!
- ! Create scalar data space for dataset attribute.
+ ! Create scalar data space for dataset attribute.
!
CALL h5screate_simple_f(arank, adims, aspace_id, error)
CALL check("h5screate_simple_f",error,total_error)
@@ -215,37 +215,37 @@
CALL check("h5iget_type_f",error,total_error)
CALL verify("get attribute identifier wrong",type,H5I_ATTR_F,total_error)
- !
+ !
! Close the attribute.
- !
+ !
CALL h5aclose_f(attr_id, error)
CALL check("h5aclose_f",error,total_error)
- !
+ !
! Close the dataspace.
- !
+ !
CALL h5sclose_f(aspace_id, error)
CALL check("h5sclose_f",error,total_error)
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f",error,total_error)
- !
+ !
! Close the dataype.
- !
+ !
CALL h5tclose_f(atype_id, error)
CALL check("h5tclose_f",error,total_error)
- !
+ !
! Close the dataset.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f",error,total_error)
- !
+ !
! Close the group.
- !
+ !
CALL h5gclose_f(group_id, error)
CALL check("h5gclose_f",error,total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -260,7 +260,7 @@
! Create a file
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f",error,total_error)
-
+
! Get the reference count for the file ID
CALL h5iget_ref_f(file_id, ref_count, error)
CALL check("h5iget_ref_f",error,total_error)
diff --git a/fortran/test/tH5O.f90 b/fortran/test/tH5O.f90
index 0aa4abd..253a42a 100644
--- a/fortran/test/tH5O.f90
+++ b/fortran/test/tH5O.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,11 +11,11 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE test_h5o(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
@@ -35,7 +35,7 @@ SUBROUTINE test_h5o(cleanup, total_error)
CALL check("h5_cleanup_f", error, total_error)
IF(cleanup) CALL h5_cleanup_f("test", H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
END SUBROUTINE test_h5o
!/****************************************************************
@@ -46,8 +46,8 @@ END SUBROUTINE test_h5o
SUBROUTINE test_h5o_link(total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
@@ -79,7 +79,7 @@ SUBROUTINE test_h5o_link(total_error)
wdata(i,j) = i*j
ENDDO
ENDDO
-
+
! /* Create the dataspace */
CALL h5screate_simple_f(2, dims, space_id, error)
CALL check("h5screate_simple_f",error,total_error)
@@ -97,14 +97,14 @@ SUBROUTINE test_h5o_link(total_error)
!/* Make a FAPL that uses the "use the latest version of the format" bounds */
CALL H5Pcreate_f(H5P_FILE_ACCESS_F,fapl_id,error)
CALL check("h5Pcreate_f",error,total_error)
-
+
! /* Set the "use the latest version of the format" bounds for creating objects in the file */
-
+
CALL H5Pset_libver_bounds_f(fapl_id, H5F_LIBVER_LATEST_F, H5F_LIBVER_LATEST_F, error)
CALL check("H5Pset_libver_bounds_f",error, total_error)
-
+
!!$ ret = H5Pset_libver_bounds(fapl_id, (new_format ? H5F_LIBVER_LATEST : H5F_LIBVER_EARLIEST), H5F_LIBVER_LATEST);
-
+
! /* Create a new HDF5 file */
CALL H5Fcreate_f(TEST_FILENAME, H5F_ACC_TRUNC_F, file_id, error, H5P_DEFAULT_F, fapl_id)
CALL check("H5Fcreate_f", error, total_error)
@@ -112,11 +112,11 @@ SUBROUTINE test_h5o_link(total_error)
! /* Close the FAPL */
CALL h5pclose_f(fapl_id, error)
CALL check("h5pclose_f",error,total_error)
-
+
! /* Create and commit a datatype with no name */
CALL H5Tcopy_f( H5T_NATIVE_INTEGER, type_id, error)
CALL check("H5Tcopy_F",error,total_error)
-
+
CALL H5Tcommit_anon_f(file_id, type_id, error) ! using no optional parameters
CALL check("H5Tcommit_anon_F",error,total_error)
@@ -130,7 +130,7 @@ SUBROUTINE test_h5o_link(total_error)
! /* Verify that we can write to and read from the dataset */
-
+
! /* Write the data to the dataset */
!EP CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, wdata, dims, error, &
@@ -143,7 +143,7 @@ SUBROUTINE test_h5o_link(total_error)
!EP mem_space_id=H5S_ALL_F, file_space_id=H5S_ALL_F, xfer_prp = H5P_DEFAULT_F)
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error)
CALL check("h5dread_f", error, total_error)
-
+
! /* Verify the data */
DO i = 1, TEST6_DIM1
DO j = 1, TEST6_DIM2
@@ -175,17 +175,17 @@ SUBROUTINE test_h5o_link(total_error)
! /* Re-open datatype using new link */
CALL H5Topen_f(group_id, "datatype", type_id, error)
CALL check("h5topen_f", error, total_error)
-
+
! /* Link nameless group to root group and close the group ID*/
CALL H5Olink_f(group_id, file_id, "/group", error)
CALL check("H5Olink_f", error, total_error)
-
+
CALL h5gclose_f(group_id, error)
CALL check("h5gclose_f",error,total_error)
! /* Open dataset through root group and verify its data */
-
+
CALL H5Dopen_f(file_id, "/group/inter_group/dataset", dset_id, error)
CALL check("test_lcpl.h5dopen_f", error, total_error)
@@ -227,8 +227,8 @@ END SUBROUTINE test_h5o_link
SUBROUTINE test_h5o_plist(total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
INTEGER, INTENT(OUT) :: total_error
@@ -240,7 +240,7 @@ SUBROUTINE test_h5o_plist(total_error)
INTEGER :: max_compact, min_dense !/* Actual phase change parameters */
INTEGER :: error !/* Value returned from API calls */
CHARACTER(LEN=7), PARAMETER :: TEST_FILENAME = 'test.h5'
-
+
! PRINT*,'Testing object creation properties'
@@ -275,7 +275,7 @@ SUBROUTINE test_h5o_plist(total_error)
CALL check("H5Pget_attr_phase_change_f", error, total_error)
CALL H5Pset_attr_phase_change_f(tcpl, def_max_compact+1, def_min_dense-1, error)
CALL check("H5Pget_attr_phase_change_f", error, total_error)
-
+
! /* Retrieve attribute phase change values on each creation property list and verify */
CALL H5Pget_attr_phase_change_f(gcpl, max_compact, min_dense, error)
CALL check("H5Pget_attr_phase_change_f", error, total_error)
@@ -307,7 +307,7 @@ SUBROUTINE test_h5o_plist(total_error)
! /* Commit the type inside the group anonymously and link it in */
CALL h5tcopy_f(H5T_NATIVE_INTEGER, dtype, error)
CALL check("h5tcopy_f", error, total_error)
-
+
CALL H5Tcommit_anon_f(fid, dtype, error, tcpl_id=tcpl)
CALL check("H5Tcommit_anon_f",error,total_error)
@@ -321,7 +321,7 @@ SUBROUTINE test_h5o_plist(total_error)
! /* Create the dataset anonymously and link it in */
CALL H5Dcreate_anon_f(fid, H5T_NATIVE_INTEGER, dspace, dset, error, dcpl )
CALL check("H5Dcreate_anon_f",error,total_error)
-
+
CALL H5Olink_f(dset, fid, "dataset", error)
CALL check("H5Olink_f", error, total_error)
@@ -338,7 +338,7 @@ SUBROUTINE test_h5o_plist(total_error)
CALL check("h5pclose_f", error, total_error)
! /* Retrieve each object's creation property list */
-
+
CALL H5Gget_create_plist_f(grp, gcpl, error)
CALL check("H5Gget_create_plist", error, total_error)
@@ -367,7 +367,7 @@ SUBROUTINE test_h5o_plist(total_error)
!/* Close current objects */
-
+
CALL h5pclose_f(gcpl,error)
CALL check("h5pclose_f", error, total_error)
CALL h5pclose_f(dcpl,error)
@@ -427,7 +427,7 @@ SUBROUTINE test_h5o_plist(total_error)
! /* Close current objects */
-
+
CALL h5pclose_f(gcpl,error)
CALL check("h5pclose_f", error, total_error)
CALL h5pclose_f(dcpl,error)
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 3063842..6a49f72 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,25 +11,25 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE external_test(cleanup, total_error)
-! This subroutine tests following functionalities:
+! This subroutine tests following functionalities:
! h5pset_external_f, h5pget_external_count_f,
! h5pget_external_f
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=8), PARAMETER :: filename = "external"
CHARACTER(LEN=80) :: fix_filename
- INTEGER(HID_T) :: file_id
- INTEGER(HID_T) :: plist_id
- INTEGER(HID_T) :: space_id
+ INTEGER(HID_T) :: file_id
+ INTEGER(HID_T) :: plist_id
+ INTEGER(HID_T) :: space_id
INTEGER(HID_T) :: dataset_id
INTEGER(HSIZE_T), DIMENSION(1) :: cur_size !data space current size
INTEGER(HSIZE_T), DIMENSION(1) :: max_size !data space maximum size
@@ -38,7 +38,7 @@
INTEGER(HSIZE_T) :: file_size !sizeof external file segment
INTEGER :: error !error code
INTEGER(SIZE_T) :: int_size !size of integer
- INTEGER(HSIZE_T) :: file_bytes !Number of bytes reserved
+ INTEGER(HSIZE_T) :: file_bytes !Number of bytes reserved
!in the file for the data
INTEGER :: RANK = 1 !dataset rank
INTEGER :: count !number of external files for the
@@ -51,7 +51,7 @@
!
!Create file "external.h5" using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -80,7 +80,7 @@
max_size(1) = 100;
call h5tget_size_f(H5T_NATIVE_INTEGER, int_size, error)
CALL check("h5tget_size_f",error,total_error)
- file_size = int_size * max_size(1);
+ file_size = int_size * max_size(1);
CALL h5pset_external_f(plist_id, "ext1.data", 0, file_size, error)
CALL check("h5pset_external_f",error,total_error)
CALL h5screate_simple_f(RANK, cur_size, space_id, error, max_size)
@@ -88,7 +88,7 @@
CALL h5dcreate_f(file_id, "dset1", H5T_NATIVE_INTEGER, space_id, &
dataset_id, error, plist_id)
CALL check("h5dcreate_f", error, total_error)
-
+
CALL h5dclose_f(dataset_id, error)
CALL check("h5dclose_f", error, total_error)
CALL h5pclose_f(plist_id, error)
@@ -100,8 +100,8 @@
CALL h5fopen_f(fix_filename, H5F_ACC_RDWR_F, file_id, error)
CALL h5dopen_f(file_id, "dset1", dataset_id, error)
CALL check("h5dopen_f",error,total_error)
-
- ! Read dataset creation information
+
+ ! Read dataset creation information
CALL h5dget_create_plist_f(dataset_id, plist_id, error)
CALL check("h5dget_create_plist_f",error,total_error)
CALL h5pget_external_count_f(plist_id, count, error)
@@ -123,7 +123,7 @@
write (*,*) "got external file size is not correct"
total_error = total_error + 1
end if
-
+
CALL h5dclose_f(dataset_id, error)
CALL check("h5dclose_f", error, total_error)
CALL h5pclose_f(plist_id, error)
@@ -136,27 +136,27 @@
CALL check("h5_cleanup_f", error, total_error)
RETURN
END SUBROUTINE external_test
-
+
SUBROUTINE multi_file_test(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=9), PARAMETER :: filename = "multidset" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: dtype_id ! Datatype identifier
INTEGER(HID_T) :: fapl, fapl_1 ! File access property list identifier
INTEGER, DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: memb_map, memb_map_out
INTEGER(HID_T), DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: memb_fapl, memb_fapl_out
CHARACTER(LEN=20), DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: memb_name, memb_name_out
- REAL, DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: memb_addr, memb_addr_out
+ REAL, DIMENSION(0:H5FD_MEM_NTYPES_F-1) :: memb_addr, memb_addr_out
!INTEGER(HADDR_T), DIMENSION(0:H5FD_MEM_NTYPES_F) :: memb_addr
LOGICAL :: relax = .TRUE.
LOGICAL :: relax_out = .TRUE.
@@ -208,7 +208,7 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -227,19 +227,19 @@
write(*,*) "Wrong value for driver"
endif
!
- ! Let's check h5pget(set)cache_f APIs here for now
+ ! Let's check h5pget(set)cache_f APIs here for now
!
CALL h5pget_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, &
rdcc_w0, error)
CALL check("h5pget_cache_f", error, total_error)
-
+
! Set cache to some number
!
rdcc_nbytes = 1024*1024
CALL h5pset_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, &
rdcc_w0, error)
CALL check("h5pset_cache_f", error, total_error)
-
+
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = fapl)
CALL check("h5fcreate_f", error, total_error)
if(error .ne. 0) then
@@ -247,10 +247,10 @@
total_error = 1
call h5pclose_f(fapl, error)
return
- endif
+ endif
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -268,14 +268,14 @@
! Write the dataset.
!
data_dims(1) = 4
- data_dims(2) = 6
+ data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -285,14 +285,14 @@
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
CALL h5pclose_f(fapl, error)
CALL check("h5pclose_f", error, total_error)
- !
+ !
! Open the existing file.
!
CALL h5pcreate_f(H5P_FILE_ACCESS_F, fapl, error)
@@ -314,19 +314,19 @@
! CALL check("h5pget_fapl_multi_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
!
- ! Get the dataset type.
+ ! Get the dataset type.
!
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f", error, total_error)
!
- ! Get the data space.
+ ! Get the data space.
!
CALL h5dget_space_f(dset_id, dspace_id, error)
CALL check("h5dget_space_f", error, total_error)
@@ -339,19 +339,19 @@
!
!Compare the data.
- !
+ !
do i = 1, 4
do j = 1, 6
- IF (data_out(i,j) .NE. dset_data(i, j)) THEN
+ IF (data_out(i,j) .NE. dset_data(i, j)) THEN
write(*, *) "dataset test error occured"
write(*,*) "data read is not the same as the data writen"
END IF
- end do
+ end do
end do
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -366,7 +366,7 @@
!
CALL h5tclose_f(dtype_id, error)
CALL check("h5tclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -377,7 +377,7 @@
CALL check("h5pclose_f", error, total_error)
IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
IF(cleanup) CALL h5_cleanup_f(filename//'.h5-b', H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
IF(cleanup) CALL h5_cleanup_f(filename//'.h5-g', H5P_DEFAULT_F, error)
@@ -390,7 +390,7 @@
CALL check("h5_cleanup_f", error, total_error)
IF(cleanup) CALL h5_cleanup_f(filename//'.h5-s', H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
RETURN
END SUBROUTINE multi_file_test
@@ -412,14 +412,14 @@
! April 16, 2009
!-------------------------------------------------------------------------
!
-SUBROUTINE test_chunk_cache(cleanup, total_error)
+SUBROUTINE test_chunk_cache(cleanup, total_error)
+
+ USE HDF5 ! This module contains all necessary modules
- USE HDF5 ! This module contains all necessary modules
-
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
-
+
CHARACTER(LEN=14), PARAMETER :: filename="chunk_cache"
CHARACTER(LEN=80) :: fix_filename
INTEGER(hid_t) :: fid = -1 ! /* File ID */
@@ -457,7 +457,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
! Verify that H5Pget_chunk_cache(dapl) returns the same values as are in
! the default fapl.
- !
+ !
CALL H5Pget_cache_f(fapl_def, mdc_nelmts, nslots_1, nbytes_1, w0_1, error)
CALL check("H5Pget_cache_f", error, total_error)
CALL H5Pget_chunk_cache_f(dapl1, nslots_4, nbytes_4, w0_4, error)
@@ -514,7 +514,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
! /* Create dataset with default dapl */
CALL H5Dcreate_f(fid, "dset", H5T_NATIVE_INTEGER, sid, dsid, error, dcpl, H5P_DEFAULT_F, dapl1)
CALL check("H5Pcreate_f", error, total_error)
-
+
! /* Retrieve dapl from dataset, verify cache values are the same as on fapl_local */
CALL H5Dget_access_plist_f(dsid, dapl2, error)
CALL check("H5Dget_access_plist_f", error, total_error)
@@ -526,7 +526,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
CALL VERIFYlogical("H5Pget_chunk_cache_f", .TRUE., .FALSE., total_error)
ENDIF
CALL H5Pclose_f(dapl2,error); CALL check("H5Pclose_f", error, total_error)
-
+
! Set new values on dapl1. nbytes will be set to default, so the file
! property will override this setting
@@ -601,7 +601,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
CALL check("H5Pset_cache_f", error, total_error)
! Close and reopen file with new fapl_local
-
+
CALL H5Dclose_f(dsid, error); CALL check("H5Dclose_f", error, total_error)
CALL H5Fclose_f(fid,error); CALL check("h5fclose_f", error, total_error)
@@ -611,12 +611,12 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
! Verify that dapl2 retrieved earlier (using values from the old fapl)
! sets its values in the new file (test use of H5Dopen2 with a dapl)
!
-
+
CALL h5dopen_f (fid, "dset", dsid, error, dapl2)
CALL check("h5dopen_f", error, total_error)
-
+
CALL H5Pclose_f(dapl2,error); CALL check("H5Pclose_f", error, total_error) ! Close dapl2, to avoid id leak
-
+
CALL H5Dget_access_plist_f(dsid, dapl2, error)
CALL check("H5Dget_access_plist_f", error, total_error)
CALL H5Pget_chunk_cache_f(dapl2, nslots_4, nbytes_4, w0_4, error)
@@ -654,11 +654,11 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
CALL H5Dclose_f(dsid, error); CALL check("H5Dclose_f", error, total_error)
CALL H5Sclose_f(sid,error); CALL check("H5Sclose_f", error, total_error)
- CALL H5Pclose_f(fapl_local,error); CALL check("H5Pclose_f", error, total_error)
- CALL H5Pclose_f(fapl_def,error); CALL check("H5Pclose_f", error, total_error)
- CALL H5Pclose_f(dapl1,error); CALL check("H5Pclose_f", error, total_error)
- CALL H5Pclose_f(dapl2,error); CALL check("H5Pclose_f", error, total_error)
- CALL H5Pclose_f(dcpl,error); CALL check("H5Pclose_f", error, total_error)
+ CALL H5Pclose_f(fapl_local,error); CALL check("H5Pclose_f", error, total_error)
+ CALL H5Pclose_f(fapl_def,error); CALL check("H5Pclose_f", error, total_error)
+ CALL H5Pclose_f(dapl1,error); CALL check("H5Pclose_f", error, total_error)
+ CALL H5Pclose_f(dapl2,error); CALL check("H5Pclose_f", error, total_error)
+ CALL H5Pclose_f(dcpl,error); CALL check("H5Pclose_f", error, total_error)
CALL H5Fclose_f(fid,error); CALL check("H5Fclose_f", error, total_error)
IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90
index 1fe26c3..1e57eb3 100644
--- a/fortran/test/tH5R.f90
+++ b/fortran/test/tH5R.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,56 +11,56 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Reference Interface functionality.
!
! The following subroutine tests h5rcreate_f, h5rdereference_f, h5rget_name_f
! and H5Rget_object_type functions
!
SUBROUTINE refobjtest(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
-
+ INTEGER, INTENT(OUT) :: total_error
+
CHARACTER(LEN=9), PARAMETER :: filename = "reference"
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=8), PARAMETER :: dsetnamei = "INTEGERS"
CHARACTER(LEN=17), PARAMETER :: dsetnamer = "OBJECT_REFERENCES"
CHARACTER(LEN=6), PARAMETER :: groupname1 = "GROUP1"
CHARACTER(LEN=6), PARAMETER :: groupname2 = "GROUP2"
-
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: grp1_id ! Group identifier
- INTEGER(HID_T) :: grp2_id ! Group identifier
- INTEGER(HID_T) :: dset1_id ! Dataset identifier
- INTEGER(HID_T) :: dsetr_id ! Dataset identifier
- INTEGER(HID_T) :: type_id ! Type identifier
- INTEGER(HID_T) :: space_id ! Dataspace identifier
- INTEGER(HID_T) :: spacer_id ! Dataspace identifier
+
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: grp1_id ! Group identifier
+ INTEGER(HID_T) :: grp2_id ! Group identifier
+ INTEGER(HID_T) :: dset1_id ! Dataset identifier
+ INTEGER(HID_T) :: dsetr_id ! Dataset identifier
+ INTEGER(HID_T) :: type_id ! Type identifier
+ INTEGER(HID_T) :: space_id ! Dataspace identifier
+ INTEGER(HID_T) :: spacer_id ! Dataspace identifier
INTEGER :: error, obj_type
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/5/)
INTEGER(HSIZE_T), DIMENSION(1) :: dimsr= (/4/)
INTEGER(HSIZE_T), DIMENSION(1) :: my_maxdims = (/5/)
- INTEGER :: rank = 1
- INTEGER :: rankr = 1
+ INTEGER :: rank = 1
+ INTEGER :: rankr = 1
TYPE(hobj_ref_t_f), DIMENSION(4) :: ref
TYPE(hobj_ref_t_f), DIMENSION(4) :: ref_out
INTEGER(HSIZE_T), DIMENSION(1) :: ref_dim
INTEGER, DIMENSION(5) :: DATA = (/1, 2, 3, 4, 5/)
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
-
+
CHARACTER(LEN=7) :: buf ! buffer to hold the region name
CHARACTER(LEN=16) :: buf_big ! buffer bigger then needed
CHARACTER(LEN=4) :: buf_small ! buffer smaller then needed
INTEGER(SIZE_T) :: buf_size ! returned size of the region buffer name
-
+
!
!Create a new file with Default file access and
- !file creation properties .
+ !file creation properties .
!
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
IF (error .NE. 0) THEN
@@ -69,28 +69,28 @@ SUBROUTINE refobjtest(cleanup, total_error)
ENDIF
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f",error,total_error)
-
-
+
+
!
! Create a group inside the file
!
CALL h5gcreate_f(file_id, groupname1, grp1_id, error)
CALL check("h5gcreate_f",error,total_error)
-
+
!
! Create a group inside the group GROUP1
!
CALL h5gcreate_f(grp1_id, groupname2, grp2_id, error)
CALL check("h5gcreate_f",error,total_error)
-
- !
- ! Create dataspaces for datasets
+
+ !
+ ! Create dataspaces for datasets
!
CALL h5screate_simple_f(rank, dims, space_id, error, maxdims=my_maxdims)
CALL check("h5screate_simple_f",error,total_error)
CALL h5screate_simple_f(rankr, dimsr, spacer_id, error)
CALL check("h5screate_simple_f",error,total_error)
-
+
!
! Create integer dataset
!
@@ -110,13 +110,13 @@ SUBROUTINE refobjtest(cleanup, total_error)
CALL check("h5tcopy_f",error,total_error)
CALL h5tcommit_f(file_id, "MyType", type_id, error)
CALL check("h5tcommit_f",error,total_error)
-
+
!
! Close dataspaces, groups and integer dataset
- !
+ !
CALL h5sclose_f(space_id, error)
CALL check("h5sclose_f",error,total_error)
- CALL h5sclose_f(spacer_id, error)
+ CALL h5sclose_f(spacer_id, error)
CALL check("h5sclose_f",error,total_error)
CALL h5dclose_f(dset1_id, error)
CALL check("h5dclose_f",error,total_error)
@@ -126,7 +126,7 @@ SUBROUTINE refobjtest(cleanup, total_error)
CALL check("h5gclose_f",error,total_error)
CALL h5gclose_f(grp2_id, error)
CALL check("h5gclose_f",error,total_error)
-
+
!
! Craete references to two groups, integer dataset and shared datatype
! and write it to the dataset in the file
@@ -142,35 +142,35 @@ SUBROUTINE refobjtest(cleanup, total_error)
ref_dim(1) = SIZE(ref)
CALL h5dwrite_f(dsetr_id, H5T_STD_REF_OBJ, ref, ref_dim, error)
CALL check("h5dwrite_f",error,total_error)
-
+
! getting path to normal dataset in root group
-
+
CALL H5Rget_name_f(dsetr_id, ref(1), buf, error, buf_size )
CALL check("H5Rget_name_f", error, total_error)
CALL VERIFY("H5Rget_name_f", INT(buf_size),7, total_error)
CALL VerifyString("H5Rget_name_f", buf, "/GROUP1", total_error)
-
+
! with buffer bigger then needed
-
+
CALL H5Rget_name_f(dsetr_id, ref(1), buf_big, error, buf_size )
CALL check("H5Rget_name_f", error, total_error)
CALL VERIFY("H5Rget_name_f", INT(buf_size),7,total_error)
CALL VerifyString("H5Rget_name_f", TRIM(buf_big), "/GROUP1", total_error)
-
+
! getting path to dataset in /Group1
-
+
CALL H5Rget_name_f(dsetr_id, ref(2), buf_big, error, buf_size )
CALL check("H5Rget_name_f", error, total_error)
CALL VERIFY("H5Rget_name_f", INT(buf_size),14,total_error)
CALL VerifyString("H5Rget_name_f", TRIM(buf_big), "/GROUP1/GROUP2", total_error)
-
+
!
!Close the dataset
- !
+ !
CALL h5dclose_f(dsetr_id, error)
CALL check("h5dclose_f",error,total_error)
-
- !
+
+ !
! Reopen the dataset with object references
!
CALL h5dopen_f(file_id, dsetnamer,dsetr_id,error)
@@ -178,60 +178,60 @@ SUBROUTINE refobjtest(cleanup, total_error)
ref_dim(1) = SIZE(ref_out)
CALL h5dread_f(dsetr_id, H5T_STD_REF_OBJ, ref_out, ref_dim, error)
CALL check("h5dread_f",error,total_error)
-
+
!
!get the third reference's type and Dereference it
!
- CALL h5rget_object_type_f(dsetr_id, ref(3), obj_type, error)
+ CALL h5rget_object_type_f(dsetr_id, ref(3), obj_type, error)
CALL check("h5rget_object_type_f",error,total_error)
- IF (obj_type == H5G_DATASET_F) THEN
+ IF (obj_type == H5G_DATASET_F) THEN
CALL h5rdereference_f(dsetr_id, ref(3), dset1_id, error)
CALL check("h5rdereference_f",error,total_error)
-
+
data_dims(1) = 5
CALL h5dwrite_f(dset1_id, H5T_NATIVE_INTEGER, DATA, data_dims, error)
CALL check("h5dwrite_f",error,total_error)
END IF
-
+
!
!get the fourth reference's type and Dereference it
!
- CALL h5rget_object_type_f(dsetr_id, ref(4), obj_type, error)
+ CALL h5rget_object_type_f(dsetr_id, ref(4), obj_type, error)
CALL check("h5rget_object_type_f",error,total_error)
- IF (obj_type == H5G_TYPE_F) THEN
+ IF (obj_type == H5G_TYPE_F) THEN
CALL h5rdereference_f(dsetr_id, ref(4), type_id, error)
CALL check("h5rdereference_f",error,total_error)
END IF
-
+
!
! Close all objects.
- !
+ !
CALL h5dclose_f(dset1_id, error)
CALL check("h5dclose_f",error,total_error)
CALL h5tclose_f(type_id, error)
CALL check("h5tclose_f",error,total_error)
-
+
CALL h5dclose_f(dsetr_id, error)
CALL check("h5dclose_f",error,total_error)
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f",error,total_error)
-
-
+
+
IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
RETURN
-
+
END SUBROUTINE refobjtest
!
! The following subroutine tests h5rget_region_f, h5rcreate_f, h5rget_name_f,
! and h5rdereference_f functionalities
-!
+!
SUBROUTINE refregtest(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
-
+ INTEGER, INTENT(OUT) :: total_error
+
CHARACTER(LEN=6), PARAMETER :: filename = "Refreg"
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=6), PARAMETER :: dsetnamev = "MATRIX"
@@ -241,24 +241,24 @@ SUBROUTINE refregtest(cleanup, total_error)
CHARACTER(LEN=11) :: buf_big ! buffer bigger then needed
CHARACTER(LEN=4) :: buf_small ! buffer smaller then needed
INTEGER(SIZE_T) :: buf_size ! returned size of the region buffer name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: space_id ! Dataspace identifier
- INTEGER(HID_T) :: spacer_id ! Dataspace identifier
- INTEGER(HID_T) :: dsetv_id ! Dataset identifier
- INTEGER(HID_T) :: dsetr_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: space_id ! Dataspace identifier
+ INTEGER(HID_T) :: spacer_id ! Dataspace identifier
+ INTEGER(HID_T) :: dsetv_id ! Dataset identifier
+ INTEGER(HID_T) :: dsetr_id ! Dataset identifier
INTEGER :: error
TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref ! Buffers to store references
TYPE(hdset_reg_ref_t_f) , DIMENSION(2) :: ref_out !
INTEGER(HSIZE_T), DIMENSION(2) :: ref_dim
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/2,9/) ! Datasets dimensions
- INTEGER(HSIZE_T), DIMENSION(1) :: dimsr = (/2/) !
+ INTEGER(HSIZE_T), DIMENSION(1) :: dimsr = (/2/) !
INTEGER(HSIZE_T), DIMENSION(2) :: start
INTEGER(HSIZE_T), DIMENSION(2) :: count
- INTEGER :: rankr = 1
+ INTEGER :: rankr = 1
INTEGER :: rank = 2
- INTEGER , DIMENSION(2,9) :: DATA
- INTEGER , DIMENSION(2,9) :: data_out = 0
+ INTEGER , DIMENSION(2,9) :: DATA
+ INTEGER , DIMENSION(2,9) :: data_out = 0
INTEGER(HSIZE_T) , DIMENSION(2,3) :: coord
INTEGER(SIZE_T) ::num_points = 3 ! Number of selected points
coord = RESHAPE((/1,1,2,7,1,9/), (/2,3/)) ! Coordinates of selected points
@@ -279,30 +279,30 @@ SUBROUTINE refregtest(cleanup, total_error)
ENDIF
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
! Default file access and file creation
- ! properties are used.
+ ! properties are used.
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create dataspaces:
- !
- ! for dataset with references to dataset regions
+ !
+ ! for dataset with references to dataset regions
!
CALL h5screate_simple_f(rankr, dimsr, spacer_id, error)
CALL check("h5screate_simple_f", error, total_error)
!
- ! for integer dataset
+ ! for integer dataset
!
CALL h5screate_simple_f(rank, dims, space_id, error)
CALL check("h5screate_simple_f", error, total_error)
!
! Create and write datasets:
!
- ! Integer dataset
+ ! Integer dataset
!
CALL h5dcreate_f(file_id, dsetnamev, H5T_NATIVE_INTEGER, space_id, &
dsetv_id, error)
CALL check("h5dcreate_f", error, total_error)
data_dims(1) = 2
- data_dims(2) = 9
+ data_dims(2) = 9
CALL h5dwrite_f(dsetv_id, H5T_NATIVE_INTEGER, DATA, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
@@ -317,14 +317,14 @@ SUBROUTINE refregtest(cleanup, total_error)
!
! Create a reference to the hyperslab selection.
!
- start(1) = 0
- start(2) = 3
+ start(1) = 0
+ start(2) = 3
COUNT(1) = 2
COUNT(2) = 3
CALL h5sselect_hyperslab_f(space_id, H5S_SELECT_SET_F, &
- start, count, error)
+ start, count, error)
CALL check("h5sselect_hyperslab_f", error, total_error)
- CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(1), error)
+ CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(1), error)
CALL check("h5rcreate_f", error, total_error)
!
! Create a reference to elements selection.
@@ -332,15 +332,15 @@ SUBROUTINE refregtest(cleanup, total_error)
CALL h5sselect_none_f(space_id, error)
CALL check("h5sselect_none_f", error, total_error)
CALL h5sselect_elements_f(space_id, H5S_SELECT_SET_F, rank, num_points,&
- coord, error)
+ coord, error)
CALL check("h5sselect_elements_f", error, total_error)
- CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(2), error)
+ CALL h5rcreate_f(file_id, dsetnamev, space_id, ref(2), error)
CALL check("h5rcreate_f", error, total_error)
!
- ! Write dataset with the references.
+ ! Write dataset with the references.
!
ref_dim(1) = SIZE(ref)
- CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, ref_dim, error)
+ CALL h5dwrite_f(dsetr_id, H5T_STD_REF_DSETREG, ref, ref_dim, error)
CALL check("h5dwrite_f", error, total_error)
!
! Close all objects.
@@ -364,7 +364,7 @@ SUBROUTINE refregtest(cleanup, total_error)
! Read references to the dataset regions.
!
ref_dim(1) = SIZE(ref_out)
- CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, ref_dim, error)
+ CALL h5dread_f(dsetr_id, H5T_STD_REF_DSETREG, ref_out, ref_dim, error)
CALL check("h5dread_f", error, total_error)
@@ -389,12 +389,12 @@ SUBROUTINE refregtest(cleanup, total_error)
CALL VERIFY("H5Rget_name_f", INT(buf_size),7,total_error)
CALL VerifyString("H5Rget_name_f", TRIM(buf_small), "/MAT", total_error)
- !
+ !
! Dereference the first reference.
- !
+ !
CALL H5rdereference_f(dsetr_id, ref_out(1), dsetv_id, error)
CALL check("h5rdereference_f", error, total_error)
- CALL H5rget_region_f(dsetr_id, ref_out(1), space_id, error)
+ CALL H5rget_region_f(dsetr_id, ref_out(1), space_id, error)
CALL check("h5rget_region_f", error, total_error)
! Get name of the dataset the second region reference points to using H5Rget_name_f
@@ -416,13 +416,13 @@ SUBROUTINE refregtest(cleanup, total_error)
CALL h5dclose_f(dsetv_id, error)
CALL check("h5dclose_f", error, total_error)
data_out = 0
- !
+ !
! Dereference the second reference.
- !
+ !
CALL H5rdereference_f(dsetr_id, ref_out(2), dsetv_id, error)
CALL check("h5rdereference_f", error, total_error)
- CALL H5rget_region_f(dsetr_id, ref_out(2), space_id, error)
+ CALL H5rget_region_f(dsetr_id, ref_out(2), space_id, error)
CALL check("h5rget_region_f", error, total_error)
!
! Read selected data from the dataset.
diff --git a/fortran/test/tH5S.f90 b/fortran/test/tH5S.f90
index 63efe5f..29943bb 100644
--- a/fortran/test/tH5S.f90
+++ b/fortran/test/tH5S.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,35 +11,35 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Dataspace Interface functionality.
!
!
! The following subroutine tests the following functionalities:
-! h5screate_f, h5scopy_f, h5screate_simple_f, h5sis_simple_f,
-! h5sget_simple_extent_dims_f,h5sget_simple_extent_ndims_f
+! h5screate_f, h5scopy_f, h5screate_simple_f, h5sis_simple_f,
+! h5sget_simple_extent_dims_f,h5sget_simple_extent_ndims_f
! h5sget_simple_extent_npoints_f, h5sget_simple_extent_type_f,
-! h5sextent_copy_f, h5sset_extent_simple_f, h5sset_extent_none_f
+! h5sextent_copy_f, h5sset_extent_simple_f, h5sset_extent_none_f
!
SUBROUTINE dataspace_basic_test(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=10), PARAMETER :: filename1 = "basicspace" ! File1 name
CHARACTER(LEN=9), PARAMETER :: filename2 = "copyspace" ! File2 name
- CHARACTER(LEN=80) :: fix_filename1
- CHARACTER(LEN=80) :: fix_filename2
+ CHARACTER(LEN=80) :: fix_filename1
+ CHARACTER(LEN=80) :: fix_filename2
CHARACTER(LEN=9), PARAMETER :: dsetname = "basicdset" ! Dataset name
- INTEGER(HID_T) :: file1_id, file2_id ! File identifiers
- INTEGER(HID_T) :: dset1_id, dset2_id ! Dataset identifiers
+ INTEGER(HID_T) :: file1_id, file2_id ! File identifiers
+ INTEGER(HID_T) :: dset1_id, dset2_id ! Dataset identifiers
INTEGER(HID_T) :: space1_id, space2_id ! Dataspace identifiers
INTEGER(HSIZE_T), DIMENSION(2) :: dims1 = (/4,6/) ! Dataset dimensions
@@ -81,10 +81,10 @@
!
! CALL h5init_types_f(error)
! CALL check("h5init_types_f", error, total_error)
-
+
!
! Create new files using default properties.
- !
+ !
CALL h5_fixname_f(filename1, fix_filename1, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -101,53 +101,53 @@
CALL h5fcreate_f(fix_filename2, H5F_ACC_TRUNC_F, file2_id, error)
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create dataspace for file1.
!
CALL h5screate_simple_f(rank1, dims1, space1_id, error, maxdims1)
CALL check("h5screate_simple_f", error, total_error)
- !
+ !
! Copy space1_id to space2_id.
!
CALL h5scopy_f(space1_id, space2_id, error)
CALL check("h5scopy_f", error, total_error)
- !
+ !
!Check whether copied space is simple.
!
CALL h5sis_simple_f(space2_id, flag, error)
CALL check("h5sissimple_f", error, total_error)
IF (.NOT. flag) write(*,*) "dataspace is not simple type"
-
- !
+
+ !
!set the copied space to none.
!
CALL h5sset_extent_none_f(space2_id, error)
CALL check("h5sset_extent_none_f", error, total_error)
-
- !
+
+ !
!copy the extent of space1_id to space2_id.
!
- CALL h5sextent_copy_f(space2_id, space1_id, error)
+ CALL h5sextent_copy_f(space2_id, space1_id, error)
CALL check("h5sextent_copy_f", error, total_error)
- !
+ !
!get the copied space's dimensions.
!
CALL h5sget_simple_extent_dims_f(space2_id, dimsout, maxdimsout, error)
CALL check("h5sget_simple_extent_dims_f", error, total_error)
IF ((dimsout(1) .NE. dims1(1)) .OR. (dimsout(2) .NE. dims1(2)) ) THEN
- write(*,*)"error occured, copied dims not same"
+ write(*,*)"error occured, copied dims not same"
END IF
-
- !
+
+ !
!get the copied space's rank.
!
CALL h5sget_simple_extent_ndims_f(space2_id, rank2, error)
CALL check("h5sget_simple_extent_ndims_f", error, total_error)
- IF (rank2 .NE. rank1) write(*,*)"error occured, copied ranks not same"
-
- !
+ IF (rank2 .NE. rank1) write(*,*)"error occured, copied ranks not same"
+
+ !
!get the copied space's number of elements.
!
CALL h5sget_simple_extent_npoints_f(space2_id, npoints, error)
@@ -155,27 +155,27 @@
IF (npoints .NE. 24) write(*,*)"error occured, number of elements not correct"
- !
+ !
!get the copied space's class type.
!
- CALL h5sget_simple_extent_type_f(space2_id, classtype, error)
+ CALL h5sget_simple_extent_type_f(space2_id, classtype, error)
CALL check("h5sget_simple_extent_type_f", error, total_error)
IF (classtype .NE. 1) write(*,*)"class type not H5S_SIMPLE_f"
- !
+ !
!set the copied space to dim2 size.
!
CALL h5sset_extent_simple_f(space2_id, rank2, dims2, maxdims2, error)
CALL check("h5sset_extent_simple_f", error, total_error)
- !
+ !
!get the copied space's dimensions.
!
CALL h5sget_simple_extent_dims_f(space2_id, dimsout, maxdimsout, error)
CALL check("h5sget_simple_extent_dims_f", error, total_error)
IF ((dimsout(1) .NE. dims2(1)) .OR. (dimsout(2) .NE. dims2(2)) ) THEN
write(*,*)"error occured, copied dims not same"
- END IF
+ END IF
!
! Create the datasets with default properties in two files.
@@ -196,7 +196,7 @@
CALL h5dwrite_f(dset1_id, H5T_NATIVE_INTEGER, data1_in, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
- data_dims(1) = 6
+ data_dims(1) = 6
data_dims(2) = 6
CALL h5dwrite_f(dset2_id, H5T_NATIVE_INTEGER, data2_in, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
@@ -211,40 +211,40 @@
!
!Compare the data.
- !
+ !
do i = 1, 4
do j = 1, 6
- IF (data1_out(i,j) .NE. data1_in(i, j)) THEN
+ IF (data1_out(i,j) .NE. data1_in(i, j)) THEN
write(*, *) "dataset test error occured"
write(*,*) "data read is not the same as the data writen"
END IF
- end do
+ end do
end do
!
! Read the second dataset.
!
- data_dims(1) = 6
+ data_dims(1) = 6
data_dims(2) = 6
CALL h5dread_f(dset2_id, H5T_NATIVE_INTEGER, data2_out, data_dims, error)
CALL check("h5dread_f", error, total_error)
!
!Compare the data.
- !
+ !
do i = 1, 6
do j = 1, 6
- IF (data2_out(i,j) .NE. data2_in(i, j)) THEN
+ IF (data2_out(i,j) .NE. data2_in(i, j)) THEN
write(*, *) "dataset test error occured"
write(*,*) "data read is not the same as the data writen"
END IF
- end do
+ end do
end do
- !
+ !
!Close the datasets.
- !
+ !
CALL h5dclose_f(dset1_id, error)
CALL check("h5dclose_f", error, total_error)
CALL h5dclose_f(dset2_id, error)
@@ -257,14 +257,14 @@
CALL check("h5sclose_f", error, total_error)
CALL h5sclose_f(space2_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the files.
!
CALL h5fclose_f(file1_id, error)
CALL check("h5fclose_f", error, total_error)
CALL h5fclose_f(file2_id, error)
CALL check("h5fclose_f", error, total_error)
-
+
if(cleanup) CALL h5_cleanup_f(filename1, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90
index 400906a..437c530 100644
--- a/fortran/test/tH5Sselect.f90
+++ b/fortran/test/tH5Sselect.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,9 +11,9 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
-!
! Testing Selection-related Dataspace Interface functionality.
!
@@ -22,17 +22,17 @@
! h5sget_select_npoints_f, h5sselect_elements_f, h5sselect_all_f,
! h5sselect_none_f, h5sselect_valid_f, h5sselect_hyperslab_f,
! h5sget_select_bounds_f, h5sget_select_elem_pointlist_f,
-! h5sget_select_elem_npoints_f, h5sget_select_hyper_blocklist_f,
+! h5sget_select_elem_npoints_f, h5sget_select_hyper_blocklist_f,
! h5sget_select_hyper_nblocks_f, h5sget_select_npoints_f
!
SUBROUTINE test_select_hyperslab(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=7), PARAMETER :: filename = "tselect"
CHARACTER(LEN=80) :: fix_filename
@@ -42,60 +42,60 @@
!
CHARACTER(LEN=8), PARAMETER :: dsetname = "IntArray"
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
- INTEGER(HID_T) :: dataspace ! Dataspace identifier
- INTEGER(HID_T) :: memspace ! memspace identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: dataspace ! Dataspace identifier
+ INTEGER(HID_T) :: memspace ! memspace identifier
!
- !Memory space dimensions
+ !Memory space dimensions
!
INTEGER(HSIZE_T), DIMENSION(3) :: dimsm = (/7,7,3/)
!
- !Dataset dimensions
+ !Dataset dimensions
!
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/5,6/)
!
- !Size of the hyperslab in the file
+ !Size of the hyperslab in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: count = (/3,4/)
!
- !hyperslab offset in the file
+ !hyperslab offset in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: offset = (/1,2/)
!
- !Size of the hyperslab in memory
+ !Size of the hyperslab in memory
!
INTEGER(HSIZE_T), DIMENSION(3) :: count_out = (/3,4,1/)
!
- !hyperslab offset in memory
+ !hyperslab offset in memory
!
INTEGER(HSIZE_T), DIMENSION(3) :: offset_out = (/3,0,0/)
!
- !data to write
+ !data to write
!
INTEGER, DIMENSION(5,6) :: data
!
- !output buffer
+ !output buffer
!
INTEGER, DIMENSION(7,7,3) :: data_out
!
- !dataset space rank
+ !dataset space rank
!
- INTEGER :: dsetrank = 2
+ INTEGER :: dsetrank = 2
!
- !memspace rank
+ !memspace rank
!
INTEGER :: memrank = 3
@@ -103,23 +103,23 @@
!
- !general purpose integer
+ !general purpose integer
!
- INTEGER :: i, j
+ INTEGER :: i, j
!
- !flag to check operation success
+ !flag to check operation success
!
- INTEGER :: error
+ INTEGER :: error
INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
!
- !This writes data to the HDF5 file.
+ !This writes data to the HDF5 file.
!
!
- !data initialization
+ !data initialization
!
do i = 1, 5
do j = 1, 6
@@ -137,12 +137,12 @@
!
!Initialize FORTRAN predifined datatypes
!
-! CALL h5init_types_f(error)
+! CALL h5init_types_f(error)
! CALL check("h5init_types_f", error, total_error)
!
!Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -152,7 +152,7 @@
CALL check("h5fcreate_f", error, total_error)
!
- !Create the data space for the dataset.
+ !Create the data space for the dataset.
!
CALL h5screate_simple_f(dsetrank, dimsf, dataspace, error)
CALL check("h5screate_simple_f", error, total_error)
@@ -168,7 +168,7 @@
! Write the dataset
!
data_dims(1) = 5
- data_dims(2) = 6
+ data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data, data_dims, error)
CALL check("h5dwrite_f", error, total_error)
@@ -191,7 +191,7 @@
CALL check("h5fclose_f", error, total_error)
!
- !This reads the hyperslab from the sds.h5 file just
+ !This reads the hyperslab from the sds.h5 file just
!created, into a 2-dimensional plane of the 3-dimensional array.
!
@@ -228,7 +228,7 @@
!Select hyperslab in the dataset.
!
CALL h5sselect_hyperslab_f(dataspace, H5S_SELECT_SET_F, &
- offset, count, error)
+ offset, count, error)
CALL check("h5sselect_hyperslab_f", error, total_error)
!
!create memory dataspace.
@@ -240,16 +240,16 @@
!Select hyperslab in memory.
!
CALL h5sselect_hyperslab_f(memspace, H5S_SELECT_SET_F, &
- offset_out, count_out, error)
+ offset_out, count_out, error)
CALL check("h5sselect_hyperslab_f", error, total_error)
!
- !Read data from hyperslab in the file into the hyperslab in
+ !Read data from hyperslab in the file into the hyperslab in
!memory and display.
!
data_dims(1) = 7
- data_dims(2) = 7
- data_dims(3) = 3
+ data_dims(2) = 7
+ data_dims(3) = 3
CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error, &
memspace, dataspace)
CALL check("h5dread_f", error, total_error)
@@ -264,7 +264,7 @@
! 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0
- ! 3 4 5 6 0 0 0
+ ! 3 4 5 6 0 0 0
! 4 5 6 7 0 0 0
! 5 6 7 8 0 0 0
! 0 0 0 0 0 0 0
@@ -307,11 +307,11 @@
SUBROUTINE test_select_element(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
!
!the dataset1 is stored in file "copy1.h5"
@@ -335,60 +335,60 @@
CHARACTER(LEN=8), PARAMETER :: dsetname2 = "Copy2"
!
- !dataset rank
+ !dataset rank
!
INTEGER, PARAMETER :: RANK = 2
!
- !number of points selected
+ !number of points selected
!
INTEGER(SIZE_T), PARAMETER :: NUMP = 2
- INTEGER(HID_T) :: file1_id ! File1 identifier
- INTEGER(HID_T) :: file2_id ! File2 identifier
- INTEGER(HID_T) :: dset1_id ! Dataset1 identifier
- INTEGER(HID_T) :: dset2_id ! Dataset2 identifier
- INTEGER(HID_T) :: dataspace1 ! Dataspace identifier
- INTEGER(HID_T) :: dataspace2 ! Dataspace identifier
- INTEGER(HID_T) :: memspace ! memspace identifier
+ INTEGER(HID_T) :: file1_id ! File1 identifier
+ INTEGER(HID_T) :: file2_id ! File2 identifier
+ INTEGER(HID_T) :: dset1_id ! Dataset1 identifier
+ INTEGER(HID_T) :: dset2_id ! Dataset2 identifier
+ INTEGER(HID_T) :: dataspace1 ! Dataspace identifier
+ INTEGER(HID_T) :: dataspace2 ! Dataspace identifier
+ INTEGER(HID_T) :: memspace ! memspace identifier
!
- !Memory space dimensions
+ !Memory space dimensions
!
INTEGER(HSIZE_T), DIMENSION(1) :: dimsm = (/2/)
!
- !Dataset dimensions
+ !Dataset dimensions
!
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/3,4/)
!
- !Points positions in the file
+ !Points positions in the file
!
INTEGER(HSIZE_T), DIMENSION(RANK,NUMP) :: coord
!
- !data buffers
+ !data buffers
!
INTEGER, DIMENSION(3,4) :: buf1, buf2, bufnew
!
- !value to write
+ !value to write
!
INTEGER, DIMENSION(2) :: val = (/53, 59/)
!
- !memory rank
+ !memory rank
!
- INTEGER :: memrank = 1
+ INTEGER :: memrank = 1
!
- !general purpose integer
+ !general purpose integer
!
- INTEGER :: i, j
+ INTEGER :: i, j
!
- !flag to check operation success
+ !flag to check operation success
!
INTEGER :: error
INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
@@ -396,11 +396,11 @@
!
!Create two files containing identical datasets. Write 0's to one
- !and 1's to the other.
+ !and 1's to the other.
!
!
- !data initialization
+ !data initialization
!
do i = 1, 3
do j = 1, 4
@@ -417,12 +417,12 @@
!
!Initialize FORTRAN predifined datatypes
!
-! CALL h5init_types_f(error)
+! CALL h5init_types_f(error)
! CALL check("h5init_types_f", error, total_error)
!
!Create file1, file2 using default properties.
- !
+ !
CALL h5_fixname_f(filename1, fix_filename1, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -440,7 +440,7 @@
CALL check("h5fcreate_f", error, total_error)
!
- !Create the data space for the datasets.
+ !Create the data space for the datasets.
!
CALL h5screate_simple_f(RANK, dimsf, dataspace1, error)
CALL check("h5screate_simple_f", error, total_error)
@@ -498,8 +498,8 @@
CALL check("h5fclose_f", error, total_error)
!
- !Open the two files. Select two points in one file, write values to
- !those point locations, then do H5Scopy and write the values to the
+ !Open the two files. Select two points in one file, write values to
+ !those point locations, then do H5Scopy and write the values to the
!other file. Close files.
!
@@ -534,12 +534,12 @@
CALL check("h5screate_simple_f", error, total_error)
!
- !Set the selected point positions.Because Fortran array index starts
+ !Set the selected point positions.Because Fortran array index starts
! from 1, so add one to the actual select points in C
!
- coord(1,1) = 1
- coord(2,1) = 2
- coord(1,2) = 1
+ coord(1,1) = 1
+ coord(2,1) = 2
+ coord(1,2) = 1
coord(2,2) = 4
!
@@ -560,7 +560,7 @@
!
!Copy the daspace1 into dataspace2
!
- CALL h5scopy_f(dataspace1, dataspace2, error)
+ CALL h5scopy_f(dataspace1, dataspace2, error)
CALL check("h5scopy_f", error, total_error)
!
@@ -683,25 +683,25 @@
SUBROUTINE test_basic_select(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
!
!the dataset is stored in file "testselect.h5"
!
CHARACTER(LEN=10), PARAMETER :: filename = "testselect"
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
!
- !dataspace rank
+ !dataspace rank
!
INTEGER, PARAMETER :: RANK = 2
!
- !select NUMP_POINTS points from the file
+ !select NUMP_POINTS points from the file
!
INTEGER(SIZE_T), PARAMETER :: NUMPS = 10
@@ -710,86 +710,86 @@
!
CHARACTER(LEN=10), PARAMETER :: dsetname = "testselect"
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dataspace ! Dataspace identifier
!
- !Dataset dimensions
+ !Dataset dimensions
!
INTEGER(HSIZE_T), DIMENSION(2) :: dimsf = (/5,6/)
!
- !Size of the hyperslab in the file
+ !Size of the hyperslab in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: count = (/2,2/)
!
- !hyperslab offset in the file
+ !hyperslab offset in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: offset = (/0,0/)
!
- !start block for getting the selected hyperslab
+ !start block for getting the selected hyperslab
!
INTEGER(HSIZE_T) :: startblock = 0
!
- !start point for getting the selected elements
+ !start point for getting the selected elements
!
INTEGER(HSIZE_T) :: startpoint = 0
!
- !Stride of the hyperslab in the file
+ !Stride of the hyperslab in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: stride = (/3,3/)
!
- !BLock size of the hyperslab in the file
+ !BLock size of the hyperslab in the file
!
INTEGER(HSIZE_T), DIMENSION(2) :: block = (/2,2/)
!
- !array to give selected points' coordinations
+ !array to give selected points' coordinations
!
INTEGER(HSIZE_T), DIMENSION(RANK, NUMPS) :: coord
!
- !Number of hyperslabs selected in the current dataspace
+ !Number of hyperslabs selected in the current dataspace
!
INTEGER(HSSIZE_T) :: num_blocks
!
!allocatable array for putting a list of hyperslabs
- !selected in the current file dataspace
+ !selected in the current file dataspace
!
INTEGER(HSIZE_T), ALLOCATABLE, DIMENSION(:) :: blocklist
!
- !Number of points selected in the current dataspace
+ !Number of points selected in the current dataspace
!
INTEGER(HSSIZE_T) :: num_points
INTEGER(HSIZE_T) :: num1_points
!
!allocatable array for putting a list of points
- !selected in the current file dataspace
+ !selected in the current file dataspace
!
INTEGER(HSIZE_T), ALLOCATABLE, DIMENSION(:) :: pointlist
!
- !start and end bounds in the current dataspace selection
+ !start and end bounds in the current dataspace selection
!
INTEGER(HSIZE_T), DIMENSION(RANK) :: startout, endout
!
- !data to write
+ !data to write
!
INTEGER, DIMENSION(5,6) :: data
!
- !flag to check operation success
+ !flag to check operation success
!
INTEGER :: error
INTEGER(HSIZE_T), DIMENSION(3) :: data_dims
@@ -797,7 +797,7 @@
INTEGER :: i
!
- !initialize the coord array to give the selected points' position
+ !initialize the coord array to give the selected points' position
!
coord(1,1) = 1
coord(2,1) = 1
@@ -822,7 +822,7 @@
!
!Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -832,7 +832,7 @@
CALL check("h5fcreate_f", error, total_error)
!
- !Create the data space for the dataset.
+ !Create the data space for the dataset.
!
CALL h5screate_simple_f(RANK, dimsf, dataspace, error)
CALL check("h5screate_simple_f", error, total_error)
@@ -875,7 +875,7 @@
!
CALL h5fopen_f (fix_filename, H5F_ACC_RDONLY_F, file_id, error)
CALL check("h5fopen_f", error, total_error)
-
+
!
!Open the dataset.
!
@@ -892,11 +892,11 @@
!Select hyperslab in the dataset.
!
CALL h5sselect_hyperslab_f(dataspace, H5S_SELECT_SET_F, &
- offset, count, error, stride, block)
+ offset, count, error, stride, block)
CALL check("h5sselect_hyperslab_f", error, total_error)
!
- !get the number of hyperslab blocks in the current dataspac selection
+ !get the number of hyperslab blocks in the current dataspac selection
!
CALL h5sget_select_hyper_nblocks_f(dataspace, num_blocks, error)
CALL check("h5sget_select_hyper_nblocks_f", error, total_error)
@@ -911,9 +911,9 @@
if(error .NE. 0) then
STOP
endif
-
+
!
- !get the list of hyperslabs selected in the current dataspac selection
+ !get the list of hyperslabs selected in the current dataspac selection
!
CALL h5sget_select_hyper_blocklist_f(dataspace, startblock, &
num_blocks, blocklist, error)
@@ -927,7 +927,7 @@
DEALLOCATE(blocklist)
!
- !get the selection bounds in the current dataspac selection
+ !get the selection bounds in the current dataspac selection
!
CALL h5sget_select_bounds_f(dataspace, startout, endout, error)
CALL check("h5sget_select_bounds_f", error, total_error)
@@ -966,7 +966,7 @@
CALL h5sget_select_elem_npoints_f(dataspace, num_points, error)
CALL check("h5sget_select_elem_npoints_f", error, total_error)
IF (num_points .NE. 10) write(*,*) "error occured with num_points"
- !write(*,*) num_points
+ !write(*,*) num_points
! result of num_points is 10
!
@@ -976,11 +976,11 @@
CALL h5sget_select_elem_pointlist_f(dataspace, startpoint, &
num1_points, pointlist, error)
CALL check("h5sget_select_elem_pointlist_f", error, total_error)
- !write(*,*) (pointlist(i), i =1, num1_points*RANK)
+ !write(*,*) (pointlist(i), i =1, num1_points*RANK)
!result of pintlist is:
- !1, 1, 3, 1, 5, 1, 1, 3, 3, 3, 5, 3, 3,
+ !1, 1, 3, 1, 5, 1, 1, 3, 3, 3, 5, 3, 3,
!4, 1, 4, 3, 5, 5, 5
-
+
!
!deallocate the pointlist array
!
@@ -1020,13 +1020,13 @@
!****************************************************************/
SUBROUTINE test_select_point(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
INTEGER(HID_T) :: xfer_plist
-
+
INTEGER, PARAMETER :: SPACE1_DIM1=3
INTEGER, PARAMETER :: SPACE1_DIM2=15
INTEGER, PARAMETER :: SPACE1_DIM3=13
@@ -1034,11 +1034,11 @@ SUBROUTINE test_select_point(cleanup, total_error)
INTEGER, PARAMETER :: SPACE2_DIM2=26
INTEGER, PARAMETER :: SPACE3_DIM1=15
INTEGER, PARAMETER :: SPACE3_DIM2=26
-
+
INTEGER, PARAMETER :: SPACE1_RANK=3
INTEGER, PARAMETER :: SPACE2_RANK=2
INTEGER, PARAMETER :: SPACE3_RANK=2
-
+
! /* Element selection information */
INTEGER, PARAMETER :: POINT1_NPOINTS=10
INTEGER(hid_t) ::fid1 ! /* HDF5 File IDs */
@@ -1047,7 +1047,7 @@ SUBROUTINE test_select_point(cleanup, total_error)
INTEGER(hsize_t), DIMENSION(1:3) :: dims1 = (/SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3/)
INTEGER(hsize_t), DIMENSION(1:2) :: dims2 = (/SPACE2_DIM1, SPACE2_DIM2/)
INTEGER(hsize_t), DIMENSION(1:2) :: dims3 = (/SPACE3_DIM1, SPACE3_DIM2/)
-
+
INTEGER(hsize_t), DIMENSION(1:SPACE1_RANK,1:POINT1_NPOINTS) :: coord1 !/* Coordinates for point selection */
INTEGER(hsize_t), DIMENSION(1:SPACE1_RANK,1:POINT1_NPOINTS) :: temp_coord1 !/* Coordinates for point selection */
INTEGER(hsize_t), DIMENSION(1:SPACE2_RANK,1:POINT1_NPOINTS) :: coord2 !/* Coordinates for point selection */
@@ -1063,7 +1063,7 @@ SUBROUTINE test_select_point(cleanup, total_error)
! struct pnt_iter pi; /* Custom Pointer iterator struct */
INTEGER :: error !/* Generic return value */
CHARACTER(LEN=9) :: filename = 'h5s_hyper'
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=1), DIMENSION(1:SPACE2_DIM1,1:SPACE2_DIM2) :: wbuf, rbuf
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
@@ -1089,11 +1089,11 @@ SUBROUTINE test_select_point(cleanup, total_error)
!!$ for(i=0, tbuf=wbuf; i<SPACE2_DIM1; i++)
!!$ for(j=0; j<SPACE2_DIM2; j++)
!!$ *tbuf++=(uint8_t)((i*SPACE2_DIM2)+j);
-
+
!/* Create file */
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, fid1, error)
CALL check("h5fcreate_f", error, total_error)
-
+
!/* Create dataspace for dataset */
CALL h5screate_simple_f(SPACE1_RANK, dims1, sid1, error)
CALL check("h5screate_simple_f", error, total_error)
@@ -1150,7 +1150,7 @@ SUBROUTINE test_select_point(cleanup, total_error)
CALL h5sselect_elements_f(sid1, H5S_SELECT_APPEND_F, SPACE1_RANK, INT(POINT1_NPOINTS,size_t), coord1, error)
CALL check("h5sselect_elements_f", error, total_error)
! /* Verify correct elements selected */
-
+
CALL h5sget_select_elem_pointlist_f(sid1, INT(POINT1_NPOINTS,hsize_t), INT(POINT1_NPOINTS,hsize_t),temp_coord1,error)
CALL check("h5sget_select_elem_pointlist_f", error, total_error)
@@ -1181,7 +1181,7 @@ SUBROUTINE test_select_point(cleanup, total_error)
!/* Verify correct elements selected */
-
+
CALL h5sget_select_elem_pointlist_f(sid2, INT(0,hsize_t), INT(POINT1_NPOINTS,hsize_t),temp_coord2,error)
CALL check("h5sget_select_elem_pointlist_f", error, total_error)
@@ -1348,8 +1348,8 @@ END SUBROUTINE test_select_point
!****************************************************************/
SUBROUTINE test_select_combine(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
@@ -1357,7 +1357,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
INTEGER, PARAMETER :: SPACE7_RANK = 2
INTEGER, PARAMETER :: SPACE7_DIM1 = 10
INTEGER, PARAMETER :: SPACE7_DIM2 = 10
-
+
INTEGER(hid_t) :: base_id ! /* Base dataspace for test */
INTEGER(hid_t) :: all_id ! /* Dataspace for "all" selection */
INTEGER(hid_t) :: none_id ! /* Dataspace for "none" selection */
@@ -1377,7 +1377,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5screate_simple_f", error, total_error)
! /* Copy base dataspace and set selection to "all" */
- CALL h5scopy_f(base_id, all_id, error)
+ CALL h5scopy_f(base_id, all_id, error)
CALL check("h5scopy_f", error, total_error)
CALL H5Sselect_all_f(all_id, error)
@@ -1388,7 +1388,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL VERIFY("H5Sget_select_type_f", INT(sel_type), INT(H5S_SEL_ALL_F), total_error)
!/* Copy base dataspace and set selection to "none" */
- CALL h5scopy_f(base_id, none_id, error)
+ CALL h5scopy_f(base_id, none_id, error)
CALL check("h5scopy_f", error, total_error)
CALL H5Sselect_none_f(none_id, error)
@@ -1397,9 +1397,9 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL H5Sget_select_type_f(none_id, sel_type, error)
CALL check("H5Sget_select_type_f", error, total_error)
CALL VERIFY("H5Sget_select_type_f", INT(sel_type), INT(H5S_SEL_NONE_F), total_error)
-
+
!/* Copy "all" selection & space */
- CALL H5Scopy_f(all_id, space1, error)
+ CALL H5Scopy_f(all_id, space1, error)
CALL check("h5scopy_f", error, total_error)
!/* 'OR' "all" selection with another hyperslab */
@@ -1408,7 +1408,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
icount(1:2) = 1
iblock(1:2) = (/5,4/)
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_OR_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
!/* Verify that it's still "all" selection */
@@ -1421,7 +1421,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
!/* Copy "all" selection & space */
- CALL H5Scopy_f(all_id, space1, error)
+ CALL H5Scopy_f(all_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'AND' "all" selection with another hyperslab */
@@ -1430,7 +1430,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
icount(1:2) = 1
iblock(1:2) = (/5,4/)
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_AND_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
!/* Verify that the new selection is the same at the original block */
@@ -1442,7 +1442,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL h5sget_select_hyper_nblocks_f(space1, nblocks, error)
CALL check("h5sget_select_hyper_nblocks_f", error, total_error)
CALL VERIFY("h5sget_select_hyper_nblocks_f", INT(nblocks), 1, total_error)
-
+
!/* Retrieve the block defined */
CALL h5sget_select_hyper_blocklist_f(space1, INT(0, hsize_t), INT(nblocks,hsize_t), blocks, error)
CALL check("h5sget_select_hyper_blocklist_f", error, total_error)
@@ -1459,7 +1459,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
!/* Copy "all" selection & space */
- CALL H5Scopy_f(all_id, space1, error)
+ CALL H5Scopy_f(all_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'XOR' "all" selection with another hyperslab */
@@ -1469,7 +1469,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/)
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_XOR_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is an inversion of the original block */
@@ -1490,7 +1490,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
! /* Verify that the correct block is defined */
- ! No guarantee is implied as the order in which blocks are listed.
+ ! No guarantee is implied as the order in which blocks are listed.
! So this will ONLY work for square domains iblock(1:2) = (/5,5/)
!!$ CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(1,1,1)), 1, total_error)
!!$ CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(2,1,1)), 5, total_error)
@@ -1511,7 +1511,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "all" selection & space */
- CALL H5Scopy_f(all_id, space1, error)
+ CALL H5Scopy_f(all_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'NOTB' "all" selection with another hyperslab */
@@ -1521,7 +1521,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_NOTB_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is an inversion of the original block */
@@ -1539,9 +1539,9 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL h5sget_select_hyper_blocklist_f(space1, INT(0, hsize_t), INT(nblocks,hsize_t), blocks, error)
CALL check("h5sget_select_hyper_blocklist_f", error, total_error)
- ! /* Verify that the correct block is defined */
+ ! /* Verify that the correct block is defined */
- ! No guarantee is implied as the order in which blocks are listed.
+ ! No guarantee is implied as the order in which blocks are listed.
! So this will ONLY work for square domains iblock(1:2) = (/5,5/)
!!$ CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(1,1,1)), 1, total_error)
@@ -1563,7 +1563,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL h5sclose_f(space1, error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "all" selection & space */
- CALL H5Scopy_f(all_id, space1, error)
+ CALL H5Scopy_f(all_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'NOTA' "all" selection with another hyperslab */
@@ -1573,7 +1573,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_NOTA_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
!/* Verify that the new selection is the "none" selection */
@@ -1586,7 +1586,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "none" selection & space */
- CALL H5Scopy_f(none_id, space1, error)
+ CALL H5Scopy_f(none_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'OR' "none" selection with another hyperslab */
@@ -1596,14 +1596,14 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_OR_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is the same as the original hyperslab */
CALL H5Sget_select_type_f(space1, sel_type, error)
CALL check("H5Sget_select_type_f", error, total_error)
CALL VERIFY("H5Sget_select_type_f", INT(sel_type), INT( H5S_SEL_HYPERSLABS_F), total_error)
-
+
! /* Verify that there is only one block */
CALL h5sget_select_hyper_nblocks_f(space1, nblocks, error)
@@ -1626,7 +1626,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "none" selection & space */
- CALL H5Scopy_f(none_id, space1, error)
+ CALL H5Scopy_f(none_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'AND' "none" selection with another hyperslab */
@@ -1636,7 +1636,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_AND_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is the "none" selection */
@@ -1649,7 +1649,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "none" selection & space */
- CALL H5Scopy_f(none_id, space1, error)
+ CALL H5Scopy_f(none_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'XOR' "none" selection with another hyperslab */
@@ -1659,14 +1659,14 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_XOR_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is the same as the original hyperslab */
CALL H5Sget_select_type_f(space1, sel_type, error)
CALL check("H5Sget_select_type_f", error, total_error)
CALL VERIFY("H5Sget_select_type_f", INT(sel_type), INT( H5S_SEL_HYPERSLABS_F), total_error)
-
+
! /* Verify that there is only one block */
CALL h5sget_select_hyper_nblocks_f(space1, nblocks, error)
@@ -1682,13 +1682,13 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(2,1,1)), 1, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(3,1,1)), 5, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(4,1,1)), 4, total_error)
-
+
! /* Close temporary dataspace */
CALL h5sclose_f(space1, error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "none" selection & space */
- CALL H5Scopy_f(none_id, space1, error)
+ CALL H5Scopy_f(none_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'NOTB' "none" selection with another hyperslab */
@@ -1698,7 +1698,7 @@ SUBROUTINE test_select_combine(cleanup, total_error)
iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_NOTB_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is the "none" selection */
@@ -1711,23 +1711,23 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL check("h5sclose_f", error, total_error)
! /* Copy "none" selection & space */
- CALL H5Scopy_f(none_id, space1, error)
+ CALL H5Scopy_f(none_id, space1, error)
CALL check("h5scopy_f", error, total_error)
! /* 'NOTA' "none" selection with another hyperslab */
start(1:2) = 0
stride(1:2) = 1
icount(1:2) = 1
- iblock(1:2) = (/5,4/) !5
+ iblock(1:2) = (/5,4/) !5
CALL h5sselect_hyperslab_f(space1, H5S_SELECT_NOTA_F, start, &
- icount, error, stride, iblock)
+ icount, error, stride, iblock)
CALL check("h5sselect_hyperslab_f", error, total_error)
! /* Verify that the new selection is the same as the original hyperslab */
CALL H5Sget_select_type_f(space1, sel_type, error)
CALL check("H5Sget_select_type_f", error, total_error)
CALL VERIFY("H5Sget_select_type_f", INT(sel_type), INT( H5S_SEL_HYPERSLABS_F), total_error)
-
+
! /* Verify that there is ONLY one BLOCK */
CALL h5sget_select_hyper_nblocks_f(space1, nblocks, error)
CALL check("h5sget_select_hyper_nblocks_f", error, total_error)
@@ -1746,13 +1746,13 @@ SUBROUTINE test_select_combine(cleanup, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(2,1,1)), 1, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(3,1,1)), 5, total_error)
CALL VERIFY("h5sget_select_hyper_blocklist_f", INT(blocks(4,1,1)), 4, total_error)
-
+
! /* Close temporary dataspace */
CALL h5sclose_f(space1, error)
CALL check("h5sclose_f", error, total_error)
! /* Close dataspaces */
-
+
CALL h5sclose_f(base_id, error)
CALL check("h5sclose_f", error, total_error)
CALL h5sclose_f(all_id, error)
@@ -1770,8 +1770,8 @@ END SUBROUTINE test_select_combine
!****************************************************************/
SUBROUTINE test_select_bounds(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
@@ -1780,7 +1780,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
INTEGER, PARAMETER :: SPACE11_DIM1=100
INTEGER, PARAMETER :: SPACE11_DIM2=50
INTEGER, PARAMETER :: SPACE11_NPOINTS=4
-
+
INTEGER(hid_t) :: sid ! /* Dataspace ID */
INTEGER(hsize_t), DIMENSION(1:SPACE11_RANK) :: dims = (/SPACE11_DIM1, SPACE11_DIM2/) !Dataspace dimensions
INTEGER(hsize_t), DIMENSION(SPACE11_RANK, SPACE11_NPOINTS) :: coord !/* Coordinates for point selection
@@ -1791,7 +1791,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
INTEGER(hssize_t), DIMENSION(SPACE11_RANK) :: offset !/* Offset amount for selection */
INTEGER(hsize_t), DIMENSION(SPACE11_RANK) :: low_bounds !/* The low bounds for the selection */
INTEGER(hsize_t), DIMENSION(SPACE11_RANK) :: high_bounds !/* The high bounds for the selection */
-
+
INTEGER :: error
!/* Create dataspace */
@@ -1835,7 +1835,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
CALL VERIFY("h5sget_select_bounds_f", error, -1, total_error)
!/* Set point selection */
-
+
coord(1,1)= 3; coord(2,1)= 3;
coord(1,2)= 3; coord(2,2)= 46;
coord(1,3)= 96; coord(2,3)= 3;
@@ -1862,7 +1862,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
! /* Get bounds for hyperslab selection with negative offset */
CALL h5sget_select_bounds_f(sid, low_bounds, high_bounds, error)
CALL VERIFY("h5sget_select_bounds_f", error, -1, total_error)
-
+
! /* Set valid offset for selection */
offset(1:2) = (/2,-2/)
CALL H5Soffset_simple_f(sid, offset, error)
@@ -1887,9 +1887,9 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
stride(1:2) = 10
count(1:2) = 4
block(1:2) = 5
-
+
CALL h5sselect_hyperslab_f(sid, H5S_SELECT_SET_F, start, &
- count, error, stride, block)
+ count, error, stride, block)
CALL check("h5sselect_hyperslab_f", error, total_error)
!/* Get bounds for hyperslab selection */
@@ -1928,7 +1928,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
offset(1:2) = 0
CALL H5Soffset_simple_f(sid, offset, error)
CALL check("H5Soffset_simple_f", error, total_error)
-
+
! /* Make "irregular" hyperslab selection */
start(1:2) = 20
stride(1:2) = 20
@@ -1936,7 +1936,7 @@ SUBROUTINE test_select_bounds(cleanup, total_error)
block(1:2) = 10
CALL h5sselect_hyperslab_f(sid, H5S_SELECT_OR_F, start, &
- count, error, stride, block)
+ count, error, stride, block)
CALL check("h5sselect_hyperslab_f", error, total_error)
!/* Get bounds for hyperslab selection */
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90
index dc5a872..15576e1 100644
--- a/fortran/test/tH5T.f90
+++ b/fortran/test/tH5T.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE compoundtest(cleanup, total_error)
!
@@ -30,20 +30,20 @@
! h5tequal_f, h5tinsert_array_f, h5tcommit_f, h5tencode_f, h5tdecode_f
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=8), PARAMETER :: filename = "compound" ! File name
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=8), PARAMETER :: dsetname = "Compound" ! Dataset name
INTEGER, PARAMETER :: dimsize = 6 ! Size of the dataset
- INTEGER, PARAMETER :: COMP_NUM_MEMBERS = 4 ! Number of members in the compound datatype
+ INTEGER, PARAMETER :: COMP_NUM_MEMBERS = 4 ! Number of members in the compound datatype
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: dtype_id ! Compound datatype identifier
INTEGER(HID_T) :: dtarray_id ! Compound datatype identifier
@@ -52,8 +52,8 @@
INTEGER(HID_T) :: dt2_id ! Memory datatype identifier (for integer field)
INTEGER(HID_T) :: dt3_id ! Memory datatype identifier (for double precision field)
INTEGER(HID_T) :: dt4_id ! Memory datatype identifier (for real field)
- INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
- INTEGER(HID_T) :: membtype_id ! Datatype identifier
+ INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
+ INTEGER(HID_T) :: membtype_id ! Datatype identifier
INTEGER(HID_T) :: plist_id ! Dataset trasfer property
@@ -62,7 +62,7 @@
INTEGER :: error ! Error flag
INTEGER(SIZE_T) :: type_size ! Size of the datatype
- INTEGER(SIZE_T) :: type_sizec ! Size of the character datatype
+ INTEGER(SIZE_T) :: type_sizec ! Size of the character datatype
INTEGER(SIZE_T) :: type_sizei ! Size of the integer datatype
INTEGER(SIZE_T) :: type_sized ! Size of the double precision datatype
INTEGER(SIZE_T) :: type_sizer ! Size of the real datatype
@@ -77,10 +77,10 @@
REAL, DIMENSION(dimsize) :: real_member
REAL, DIMENSION(dimsize) :: real_member_out
INTEGER :: i
- INTEGER :: class ! Datatype class
+ INTEGER :: class ! Datatype class
INTEGER :: num_members ! Number of members in the compound datatype
- CHARACTER(LEN=256) :: member_name
- INTEGER :: len ! Lenght of the name of the compound datatype member
+ CHARACTER(LEN=256) :: member_name
+ INTEGER :: len ! Lenght of the name of the compound datatype member
INTEGER :: member_index ! index of the field
INTEGER(HSIZE_T), DIMENSION(3) :: array_dims=(/2,3,4/)
INTEGER :: array_dims_range = 3
@@ -88,7 +88,7 @@
INTEGER(SIZE_T) :: sizechar
INTEGER(HSIZE_T), DIMENSION(1) :: data_dims
LOGICAL :: flag = .TRUE.
-
+
CHARACTER(LEN=1024) :: cmpd_buf
INTEGER(SIZE_T) :: cmpd_buf_size=0
INTEGER(HID_T) :: decoded_sid1
@@ -101,8 +101,8 @@
do i = 1, dimsize
char_member(i)(1:1) = char(65+i)
char_member(i)(2:2) = char(65+i)
- char_member_out(i)(1:1) = char(65)
- char_member_out(i)(2:2) = char(65)
+ char_member_out(i)(1:1) = char(65)
+ char_member_out(i)(2:2) = char(65)
int_member(i) = i
int_member_out(i) = 0
double_member(i) = 2.* i
@@ -121,7 +121,7 @@
CALL check("h5pset_preserve_f", error, total_error)
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -130,7 +130,7 @@
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -198,19 +198,19 @@
!!$ ! /* Try decoding bogus buffer */
!!$
!!$ CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
-!!$ CALL VERIFY("H5Tdecode_f", error, -1, total_error)
-!!$
+!!$ CALL VERIFY("H5Tdecode_f", error, -1, total_error)
+!!$
!!$ CALL H5Tencode_f(dtype_id, cmpd_buf, cmpd_buf_size, error)
!!$ CALL check("H5Tencode_f", error, total_error)
!!$
!!$ ! /* Decode from the compound buffer and return an object handle */
!!$ CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
-!!$ CALL check("H5Tdecode_f", error, total_error)
+!!$ CALL check("H5Tdecode_f", error, total_error)
!!$
!!$ ! /* Verify that the datatype was copied exactly */
-!!$
+!!$
!!$ CALL H5Tequal_f(decoded_tid1, dtype_id, flag, error)
-!!$ CALL check("H5Tequal_f", error, total_error)
+!!$ CALL check("H5Tequal_f", error, total_error)
!!$ CALL VerifyLogical("H5Tequal_f", flag, .TRUE., total_error)
!
@@ -220,8 +220,8 @@
dset_id, error)
CALL check("h5dcreate_f", error, total_error)
!
- ! Create memory types. We have to create a compound datatype
- ! for each member we want to write.
+ ! Create memory types. We have to create a compound datatype
+ ! for each member we want to write.
!
CALL h5tcreate_f(H5T_COMPOUND_F, type_sizec, dt1_id, error)
CALL check("h5tcreate_f", error, total_error)
@@ -258,9 +258,9 @@
CALL h5dwrite_f(dset_id, dt2_id, int_member, data_dims, error, xfer_prp = plist_id)
CALL check("h5dwrite_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -284,7 +284,7 @@
CALL check("h5tclose_f", error, total_error)
!
- ! Create and store compound datatype with the character and
+ ! Create and store compound datatype with the character and
! array members.
!
type_size = type_sizec + elements*type_sizer ! Size of compound datatype
@@ -304,13 +304,13 @@
CALL check("h5tclose_f", error, total_error)
CALL h5tclose_f(dtarray_id, error)
CALL check("h5tclose_f", error, total_error)
-
- !
+
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
-
+
!
! Open the file.
!
@@ -324,7 +324,7 @@
!
! Get datatype of the open dataset.
! Check it class, number of members, and member's names.
- !
+ !
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f", error, total_error)
CALL h5tget_class_f(dtype_id, class, error)
@@ -361,7 +361,7 @@
if(offset_out .ne. 0) then
write(*,*) "Offset of the char member is incorrect"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_type_f(dtype_id, i-1, membtype_id, error)
CALL check("h5tget_member_type_f", error, total_error)
CALL h5tequal_f(membtype_id, dt5_id, flag, error)
@@ -369,7 +369,7 @@
if(.not. flag) then
write(*,*) "Wrong member type returned for character member"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
CALL check("h5tget_member_class_f",error, total_error)
if (class .ne. H5T_STRING_F) then
@@ -380,7 +380,7 @@
if(offset_out .ne. type_sizec) then
write(*,*) "Offset of the integer member is incorrect"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_type_f(dtype_id, i-1, membtype_id, error)
CALL check("h5tget_member_type_f", error, total_error)
CALL h5tequal_f(membtype_id, H5T_NATIVE_INTEGER, flag, error)
@@ -388,7 +388,7 @@
if(.not. flag) then
write(*,*) "Wrong member type returned for integer memebr"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
CALL check("h5tget_member_class_f",error, total_error)
if (class .ne. H5T_INTEGER_F) then
@@ -399,7 +399,7 @@
if(offset_out .ne. (type_sizec+type_sizei)) then
write(*,*) "Offset of the double precision member is incorrect"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_type_f(dtype_id, i-1, membtype_id, error)
CALL check("h5tget_member_type_f", error, total_error)
CALL h5tequal_f(membtype_id, H5T_NATIVE_DOUBLE, flag, error)
@@ -407,7 +407,7 @@
if(.not. flag) then
write(*,*) "Wrong member type returned for double precision memebr"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
CALL check("h5tget_member_class_f",error, total_error)
if (class .ne. H5T_FLOAT_F) then
@@ -418,7 +418,7 @@
if(offset_out .ne. (type_sizec+type_sizei+type_sized)) then
write(*,*) "Offset of the real member is incorrect"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_type_f(dtype_id, i-1, membtype_id, error)
CALL check("h5tget_member_type_f", error, total_error)
CALL h5tequal_f(membtype_id, H5T_NATIVE_REAL, flag, error)
@@ -426,7 +426,7 @@
if(.not. flag) then
write(*,*) "Wrong member type returned for real memebr"
total_error = total_error + 1
- endif
+ endif
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
CALL check("h5tget_member_class_f",error, total_error)
if (class .ne. H5T_FLOAT_F) then
@@ -436,7 +436,7 @@
CASE DEFAULT
write(*,*) "Wrong member's name"
total_error = total_error + 1
-
+
END SELECT CHECK_NAME
enddo
@@ -445,7 +445,7 @@
!
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, dt2_id, error)
CALL check("h5tcopy_f", error, total_error)
- sizechar = 2
+ sizechar = 2
CALL h5tset_size_f(dt2_id, sizechar, error)
CALL check("h5tset_size_f", error, total_error)
CALL h5tget_size_f(dt2_id, type_size, error)
@@ -533,19 +533,19 @@
! /* Try decoding bogus buffer */
CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
- CALL VERIFY("H5Tdecode_f", error, -1, total_error)
-
+ CALL VERIFY("H5Tdecode_f", error, -1, total_error)
+
CALL H5Tencode_f(dtype_id, cmpd_buf, cmpd_buf_size, error)
CALL check("H5Tencode_f", error, total_error)
! /* Decode from the compound buffer and return an object handle */
CALL H5Tdecode_f(cmpd_buf, decoded_tid1, error)
- CALL check("H5Tdecode_f", error, total_error)
+ CALL check("H5Tdecode_f", error, total_error)
! /* Verify that the datatype was copied exactly */
-
+
CALL H5Tequal_f(decoded_tid1, dtype_id, flag, error)
- CALL check("H5Tequal_f", error, total_error)
+ CALL check("H5Tequal_f", error, total_error)
CALL VerifyLogical("H5Tequal_f", flag, .TRUE., total_error)
!
! Close all open objects.
@@ -572,35 +572,35 @@
-
+
SUBROUTINE basic_data_type_test(cleanup, total_error)
-! This subroutine tests following functionalities:
+! This subroutine tests following functionalities:
! H5tget_precision_f, H5tset_precision_f, H5tget_offset_f
! H5tset_offset_f, H5tget_pad_f, H5tset_pad_f, H5tget_sign_f,
! H5tset_sign_f, H5tget_ebias_f,H5tset_ebias_f, H5tget_norm_f,
! H5tset_norm_f, H5tget_inpad_f, H5tset_inpad_f, H5tget_cset_f,
! H5tset_cset_f, H5tget_strpad_f, H5tset_strpad_f
- USE HDF5 ! This module contains all necessary modules
-
+ USE HDF5 ! This module contains all necessary modules
+
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
- INTEGER(HID_T) :: dtype1_id, dtype2_id, dtype3_id, dtype4_id, dtype5_id
+ INTEGER(HID_T) :: dtype1_id, dtype2_id, dtype3_id, dtype4_id, dtype5_id
! datatype identifiers
INTEGER(SIZE_T) :: precision ! Datatype precision
INTEGER(SIZE_T) :: setprecision ! Datatype precision
INTEGER(SIZE_T) :: offset ! Datatype offset
INTEGER(SIZE_T) :: setoffset ! Datatype offset
- INTEGER :: lsbpad !padding type of the least significant bit
- INTEGER :: msbpad !padding type of the most significant bit
- INTEGER :: sign !sign type for an integer type
- INTEGER(SIZE_T) :: ebias1 !Datatype exponent bias of a floating-point type
+ INTEGER :: lsbpad !padding type of the least significant bit
+ INTEGER :: msbpad !padding type of the most significant bit
+ INTEGER :: sign !sign type for an integer type
+ INTEGER(SIZE_T) :: ebias1 !Datatype exponent bias of a floating-point type
INTEGER(SIZE_T) :: ebias2 !Datatype exponent bias of a floating-point type
- INTEGER(SIZE_T) :: setebias
- INTEGER :: norm !mantissa normalization of a floating-point datatype
+ INTEGER(SIZE_T) :: setebias
+ INTEGER :: norm !mantissa normalization of a floating-point datatype
INTEGER :: inpad !padding type for unused bits in floating-point datatypes.
INTEGER :: cset !character set type of a string datatype
INTEGER :: strpad !string padding method for a string datatype
@@ -608,7 +608,7 @@
!
- ! Create a datatype
+ ! Create a datatype
!
CALL h5tcopy_f(H5T_STD_U16BE, dtype1_id, error)
CALL check("h5tcopy_f",error,total_error)
@@ -624,17 +624,17 @@
write (*,*) "got precision is not correct"
total_error = total_error + 1
end if
-
+
CALL h5tcopy_f(H5T_STD_I32LE, dtype2_id, error)
CALL check("h5tcopy_f",error,total_error)
setprecision = 12
CALL h5tset_precision_f(dtype2_id, setprecision, error)
CALL check("h5set_precision_f",error,total_error)
- setoffset = 2
+ setoffset = 2
CALL h5tset_offset_f(dtype1_id, setoffset, error)
CALL check("h5set_offset_f",error,total_error)
- setoffset = 10
+ setoffset = 10
CALL h5tset_offset_f(dtype2_id, setoffset, error)
CALL check("h5set_offset_f",error,total_error)
CALL h5tget_offset_f(dtype2_id,offset, error)
@@ -643,7 +643,7 @@
write (*,*) "got offset is not correct"
total_error = total_error + 1
end if
-
+
CALL h5tset_pad_f(dtype2_id,H5T_PAD_ONE_F, H5T_PAD_ONE_F, error)
CALL check("h5set_pad_f",error,total_error)
CALL h5tget_pad_f(dtype2_id,lsbpad,msbpad, error)
@@ -671,7 +671,7 @@
setebias = 257
CALL h5tset_ebias_f(dtype3_id, setebias, error)
CALL check("h5tset_ebias_f",error,total_error)
- setebias = 1
+ setebias = 1
CALL h5tset_ebias_f(dtype4_id, setebias, error)
CALL check("h5tset_ebias_f",error,total_error)
CALL h5tget_ebias_f(dtype3_id, ebias1, error)
@@ -686,7 +686,7 @@
write (*,*) "got ebias is not correct"
total_error = total_error + 1
end if
-
+
!attention:
!It seems that I can't use H5T_NORM_IMPLIED_F to set the norm value
!because I got error for the get_norm function
@@ -744,7 +744,7 @@
end if
! we should not apply h5tset_cset_f to non_character data typemake
-
+
! CALL h5tset_cset_f(dtype4_id, H5T_CSET_ASCII_F, error)
! CALL check("h5tset_cset_f",error,total_error)
! CALL h5tget_cset_f(dtype4_id, cset, error)
@@ -803,22 +803,22 @@
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=4), PARAMETER :: filename="enum"
CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=8), PARAMETER :: dsetname="enumdset"
CHARACTER(LEN=4) :: true ="TRUE"
CHARACTER(LEN=5) :: false="FALSE"
- CHARACTER(LEN=5) :: mem_name
+ CHARACTER(LEN=5) :: mem_name
INTEGER(HID_T) :: file_id
INTEGER(HID_T) :: dset_id
INTEGER(HID_T) :: dspace_id
- INTEGER(HID_T) :: dtype_id, dtype, native_type
+ INTEGER(HID_T) :: dtype_id, dtype, native_type
INTEGER :: error
INTEGER :: value
INTEGER(HSIZE_T), DIMENSION(1) :: dsize
- INTEGER(SIZE_T) :: buf_size
+ INTEGER(SIZE_T) :: buf_size
INTEGER, DIMENSION(2) :: data
INTEGER(HSIZE_T), DIMENSION(7) :: dims
INTEGER :: order1, order2
@@ -831,7 +831,7 @@
data(2) = 0
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
IF (error .NE. 0) THEN
WRITE(*,*) "Cannot modify filename"
@@ -869,7 +869,7 @@
CALL check("H5Tget_order_f",error, total_error)
CALL H5Tget_order_f(H5T_NATIVE_INTEGER, order2, error)
CALL check("H5Tget_order_f",error, total_error)
- CALL VERIFY("H5Tget_native_type_f",order1, order2, total_error)
+ CALL VERIFY("H5Tget_native_type_f",order1, order2, total_error)
! this test depends on whether -i8 was specified
@@ -877,12 +877,12 @@
!!$ CALL check("H5Tget_size_f",error, total_error)
!!$ CALL H5Tget_size_f(H5T_STD_I32BE, type_size2, error)
!!$ CALL check("H5Tget_size_f",error, total_error)
-!!$ CALL VERIFY("H5Tget_native_type_f", INT(type_size1), INT(type_size2), total_error)
+!!$ CALL VERIFY("H5Tget_native_type_f", INT(type_size1), INT(type_size2), total_error)
CALL H5Tget_class_f(native_type, class, error)
CALL check("H5Tget_class_f",error, total_error)
- CALL VERIFY("H5Tget_native_type_f", INT(class), INT(H5T_ENUM_F), total_error)
-
+ CALL VERIFY("H5Tget_native_type_f", INT(class), INT(H5T_ENUM_F), total_error)
+
CALL h5dclose_f(dset_id,error)
CALL check("h5dclose_f", error, total_error)
CALL h5sclose_f(dspace_id,error)
@@ -938,17 +938,17 @@
! *-------------------------------------------------------------------------
! */
-SUBROUTINE test_derived_flt(cleanup, total_error)
+SUBROUTINE test_derived_flt(cleanup, total_error)
+
+ USE HDF5 ! This module contains all necessary modules
- USE HDF5 ! This module contains all necessary modules
-
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
INTEGER, INTENT(OUT) :: total_error
INTEGER(hid_t) :: file=-1, tid1=-1, tid2=-1
INTEGER(hid_t) :: dxpl_id=-1
INTEGER(size_t) :: spos, epos, esize, mpos, msize, size
-
+
CHARACTER(LEN=15), PARAMETER :: filename="h5t_derived_flt"
CHARACTER(LEN=80) :: fix_filename
@@ -966,7 +966,7 @@ SUBROUTINE test_derived_flt(cleanup, total_error)
CALL h5fcreate_f(fix_filename,H5F_ACC_TRUNC_F,file,error)
CALL check("h5fcreate_f", error, total_error)
-
+
CALL h5pcreate_f(H5P_DATASET_XFER_F, dxpl_id, error)
CALL check("h5pcreate_f", error, total_error)
@@ -1032,7 +1032,7 @@ SUBROUTINE test_derived_flt(cleanup, total_error)
CALL H5Tget_precision_f(tid1, precision1, error)
CALL check("H5Tget_precision_f", error, total_error)
- CALL VERIFY("H5Tget_precision_f", INT(precision1), 42, total_error)
+ CALL VERIFY("H5Tget_precision_f", INT(precision1), 42, total_error)
CALL H5Tget_offset_f(tid1, offset1, error)
CALL check("H5Tget_offset_f", error, total_error)
@@ -1093,7 +1093,7 @@ SUBROUTINE test_derived_flt(cleanup, total_error)
CALL H5Tget_precision_f(tid2, precision2, error)
CALL check("H5Tget_precision_f", error, total_error)
- CALL VERIFY("H5Tget_precision_f", INT(precision2), 24, total_error)
+ CALL VERIFY("H5Tget_precision_f", INT(precision2), 24, total_error)
CALL H5Tget_offset_f(tid2, offset2, error)
CALL check("H5Tget_offset_f", error, total_error)
diff --git a/fortran/test/tH5VL.f90 b/fortran/test/tH5VL.f90
index 13f2af1..3afd025 100644
--- a/fortran/test/tH5VL.f90
+++ b/fortran/test/tH5VL.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,34 +11,34 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! Testing Variable_length datatypes
!
!
!
SUBROUTINE vl_test_integer(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=7), PARAMETER :: filename = "VLtypes" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=5), PARAMETER :: dsetname = "VLint" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: vltype_id ! Datatype identifier
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/6/) ! Dataset dimensions
- INTEGER(SIZE_T), DIMENSION(6) :: len ! Elements lengths
- INTEGER(SIZE_T), DIMENSION(6) :: len_out
+ INTEGER(SIZE_T), DIMENSION(6) :: len ! Elements lengths
+ INTEGER(SIZE_T), DIMENSION(6) :: len_out
INTEGER :: rank = 1 ! Dataset rank
INTEGER, DIMENSION(5,6) :: vl_int_data ! Data buffers
@@ -52,14 +52,14 @@
!
! Initialize the vl_int_data array.
!
- do i = 1, 6
- do j = 1, 5
+ do i = 1, 6
+ do j = 1, 5
vl_int_data(j,i) = -100
end do
end do
- do i = 2, 6
- do j = 1, i-1
+ do i = 2, 6
+ do j = 1, i-1
vl_int_data(j,i) = i-1
end do
end do
@@ -71,7 +71,7 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -81,7 +81,7 @@
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -105,13 +105,13 @@
CALL check("h5dwrite_int_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -124,11 +124,11 @@
CALL check("h5fopen_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
-
+
CALL h5dvlen_get_max_len_f(dset_id, vltype_id, dspace_id, max_len, error)
CALL check("h5dvlen_get_max_len_f", error, total_error)
if(max_len .ne. data_dims(1)) then
@@ -168,37 +168,37 @@
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
RETURN
END SUBROUTINE vl_test_integer
SUBROUTINE vl_test_real(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=8), PARAMETER :: filename = "VLtypesR" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=6), PARAMETER :: dsetname = "VLreal" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: vltype_id ! Datatype identifier
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/6/) ! Dataset dimensions
- INTEGER(SIZE_T), DIMENSION(6) :: len ! Elements lengths
- INTEGER(SIZE_T), DIMENSION(6) :: len_out
+ INTEGER(SIZE_T), DIMENSION(6) :: len ! Elements lengths
+ INTEGER(SIZE_T), DIMENSION(6) :: len_out
INTEGER :: rank = 1 ! Dataset rank
REAL, DIMENSION(5,6) :: vl_real_data ! Data buffers
@@ -214,14 +214,14 @@
!
! Initialize the vl_int_data array.
!
- do i = 1, 6
- do j = 1, 5
+ do i = 1, 6
+ do j = 1, 5
vl_real_data(j,i) = -100.
end do
end do
- do i = 2, 6
- do j = 1, i-1
+ do i = 2, 6
+ do j = 1, i-1
vl_real_data(j,i) = i-1
end do
end do
@@ -233,7 +233,7 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -243,7 +243,7 @@
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -276,13 +276,13 @@
CALL check("h5dwrite_vl_real_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -295,11 +295,11 @@
CALL check("h5fopen_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
-
+
CALL h5dvlen_get_max_len_f(dset_id, vltype_id, dspace_id, max_len, error)
CALL check("h5dvlen_get_max_len_f", error, total_error)
if(max_len .ne. data_dims(1)) then
@@ -339,36 +339,36 @@
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
RETURN
END SUBROUTINE vl_test_real
SUBROUTINE vl_test_string(cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
CHARACTER(LEN=8), PARAMETER :: filename = "VLtypesS" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=9), PARAMETER :: dsetname = "VLstrings" ! Dataset name
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/4/) ! Dataset dimensions
- INTEGER(SIZE_T), DIMENSION(4) :: str_len ! Elements lengths
- INTEGER(SIZE_T), DIMENSION(4) :: str_len_out
+ INTEGER(SIZE_T), DIMENSION(4) :: str_len ! Elements lengths
+ INTEGER(SIZE_T), DIMENSION(4) :: str_len_out
INTEGER :: rank = 1 ! Dataset rank
CHARACTER(LEN=10), DIMENSION(4) :: string_data ! Array of strings
@@ -388,14 +388,14 @@
string_data(2) = 'a fortran '
str_len(2) = 10
string_data(3) = 'strings '
- str_len(3) = 8
+ str_len(3) = 8
string_data(4) = 'test. '
- str_len(4) = 5
+ str_len(4) = 5
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -405,7 +405,7 @@
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
@@ -437,13 +437,13 @@
CALL check("h5dwrite_string_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -456,7 +456,7 @@
CALL check("h5fopen_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
@@ -471,13 +471,13 @@
total_error=total_error + 1
write(*,*) 'Returned string length is incorrect'
goto 100
- endif
+ endif
if(string_data(1)(1:str_len(i)) .ne. string_data_out(1)(1:str_len(i))) then
write(*,*) ' Returned string is wrong'
total_error = total_error + 1
endif
-100 continue
-
+100 continue
+
!
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -488,14 +488,14 @@
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
-
+
RETURN
END SUBROUTINE vl_test_string
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index ea567a2..6262528 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,17 +11,17 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
SUBROUTINE filters_test(cleanup, total_error)
! This subroutine tests following functionalities: h5zfilter_avail_f, h5zunregister_f
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
+ INTEGER, INTENT(OUT) :: total_error
LOGICAL :: status
INTEGER(HID_T) :: crtpr_id, xfer_id
INTEGER :: nfilters
@@ -44,11 +44,11 @@
CALL h5pset_chunk_f(crtpr_id, RANK, ch_dims, error)
CALL check("h5pset_chunk_f",error, total_error)
CALL h5pset_deflate_f(crtpr_id, dlevel, error)
- CALL check("h5pset_deflate_f", error, total_error)
+ CALL check("h5pset_deflate_f", error, total_error)
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
endif
-
+
!
! Shuffle filter
!
@@ -60,11 +60,11 @@
CALL h5pset_chunk_f(crtpr_id, RANK, ch_dims, error)
CALL check("h5pset_chunk_f",error, total_error)
CALL h5pset_shuffle_f(crtpr_id, error)
- CALL check("h5pset_shuffle_f", error, total_error)
+ CALL check("h5pset_shuffle_f", error, total_error)
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
endif
-
+
!
! Checksum filter
!
@@ -76,7 +76,7 @@
CALL h5pset_chunk_f(crtpr_id, RANK, ch_dims, error)
CALL check("h5pset_chunk_f",error, total_error)
CALL h5pset_fletcher32_f(crtpr_id, error)
- CALL check("h5pset_fletcher32_f", error, total_error)
+ CALL check("h5pset_fletcher32_f", error, total_error)
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
CALL h5pcreate_f(H5P_DATASET_XFER_F, xfer_id, error)
@@ -106,11 +106,11 @@
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crtpr_id, error)
CALL check("h5pcreate_f", error, total_error)
CALL h5pset_fletcher32_f(crtpr_id, error)
- CALL check("h5pset_fletcher32_f", error, total_error)
+ CALL check("h5pset_fletcher32_f", error, total_error)
CALL h5pset_shuffle_f(crtpr_id, error)
- CALL check("h5pset_shuffle_f", error, total_error)
+ CALL check("h5pset_shuffle_f", error, total_error)
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
- CALL check("h5pget_nfilters_f", error, total_error)
+ CALL check("h5pget_nfilters_f", error, total_error)
! Verify the correct number of filters
if (nfilters .ne. 2) then
@@ -120,11 +120,11 @@
! Delete a single filter
CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_SHUFFLE_F, error)
- CALL check("h5pset_shuffle_f", error, total_error)
+ CALL check("h5pset_shuffle_f", error, total_error)
! Verify the correct number of filters now
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
- CALL check("h5pget_nfilters_f", error, total_error)
+ CALL check("h5pget_nfilters_f", error, total_error)
if (nfilters .ne. 1) then
write(*,*) "number of filters is wrong"
total_error = total_error + 1
@@ -132,11 +132,11 @@
! Delete all filters
CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_ALL_F, error)
- CALL check("h5premove_filter_f", error, total_error)
+ CALL check("h5premove_filter_f", error, total_error)
! Verify the correct number of filters now
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
- CALL check("h5pget_nfilters_f", error, total_error)
+ CALL check("h5pget_nfilters_f", error, total_error)
if (nfilters .ne. 0) then
write(*,*) "number of filters is wrong"
total_error = total_error + 1
@@ -150,24 +150,24 @@
END SUBROUTINE filters_test
SUBROUTINE szip_test(szip_flag, cleanup, total_error)
- USE HDF5 ! This module contains all necessary modules
+ USE HDF5 ! This module contains all necessary modules
IMPLICIT NONE
LOGICAL, INTENT(OUT) :: szip_flag
LOGICAL, INTENT(IN) :: cleanup
- INTEGER, INTENT(OUT) :: total_error
-
+ INTEGER, INTENT(OUT) :: total_error
+
CHARACTER(LEN=4), PARAMETER :: filename = "szip" ! File name
- CHARACTER(LEN=80) :: fix_filename
+ CHARACTER(LEN=80) :: fix_filename
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
INTEGER, PARAMETER :: N = 1024
INTEGER, PARAMETER :: NN = 64
INTEGER, PARAMETER :: M = 512
INTEGER, PARAMETER :: MM = 32
- INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HID_T) :: dset_id ! Dataset identifier
+ INTEGER(HID_T) :: file_id ! File identifier
+ INTEGER(HID_T) :: dset_id ! Dataset identifier
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: dtype_id ! Datatype identifier
@@ -183,9 +183,9 @@
INTEGER :: i, j !general purpose integers
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
INTEGER(HID_T) :: crp_list
- INTEGER :: options_mask, pix_per_block
+ INTEGER :: options_mask, pix_per_block
LOGICAL :: flag
- CHARACTER(LEN=4) filter_name
+ CHARACTER(LEN=4) filter_name
INTEGER :: filter_flag = -1
INTEGER(SIZE_T) :: cd_nelemnts = 4
@@ -213,7 +213,7 @@
CALL h5zget_filter_info_f(H5Z_FILTER_SZIP_F, config_flag, error)
CALL check("h5zget_filter_info_f", error, total_error)
! Quit if failed
- if (error .ne. 0) return
+ if (error .ne. 0) return
!
! Make sure h5zget_filter_info_f returns the right flag
!
@@ -225,10 +225,10 @@
CALL check("h5zget_filter_info_f config_flag", error, total_error)
endif
endif
- endif
+ endif
! Continue only when encoder is available
- if ( IAND(config_flag, H5Z_FILTER_ENCODE_ENABLED_F) .EQ. 0 ) return
+ if ( IAND(config_flag, H5Z_FILTER_ENCODE_ENABLED_F) .EQ. 0 ) return
options_mask = H5_SZIP_NN_OM_F
pix_per_block = 32
@@ -244,7 +244,7 @@
!
! Create a new file using default properties.
- !
+ !
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
@@ -254,12 +254,12 @@
CALL check("h5fcreate_f", error, total_error)
- !
+ !
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
CALL check("h5screate_simple_f", error, total_error)
-
+
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crp_list, error)
CALL check("h5pcreat_f",error,total_error)
@@ -277,11 +277,11 @@
total_error = -1
return
endif
-
+
CALL h5pget_filter_by_id_f(crp_list, H5Z_FILTER_SZIP_F, filter_flag, &
-
+
cd_nelemnts, cd_values,&
-
+
filter_name_len, filter_name, error)
CALL check("h5pget_filter_by_id_f",error,total_error)
!
@@ -300,9 +300,9 @@
CALL check("h5dwrite_f", error, total_error)
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -312,7 +312,7 @@
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5pclose_f(crp_list, error)
@@ -326,20 +326,20 @@
CALL check("h5fopen_f", error, total_error)
!
- ! Open the existing dataset.
+ ! Open the existing dataset.
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
CALL check("h5pget_filter_by_id_f",error,total_error)
!
- ! Get the dataset type.
+ ! Get the dataset type.
!
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f", error, total_error)
!
- ! Get the data space.
+ ! Get the data space.
!
CALL h5dget_space_f(dset_id, dspace_id, error)
CALL check("h5dget_space_f", error, total_error)
@@ -352,10 +352,10 @@
!
!Compare the data.
- !
+ !
do i = 1, N
do j = 1, M
- IF (data_out(i,j) .NE. dset_data(i, j)) THEN
+ IF (data_out(i,j) .NE. dset_data(i, j)) THEN
write(*, *) "dataset test error occured"
write(*,*) "data read is not the same as the data written"
num_errors = num_errors + 1
@@ -364,15 +364,15 @@
goto 100
END IF
END IF
- end do
+ end do
end do
100 IF (num_errors .GT. 0) THEN
total_error=total_error + 1
END IF
- !
+ !
! End access to the dataset and release resources used by it.
- !
+ !
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
@@ -387,7 +387,7 @@
!
CALL h5tclose_f(dtype_id, error)
CALL check("h5tclose_f", error, total_error)
- !
+ !
! Close the file.
!
CALL h5fclose_f(file_id, error)
@@ -395,6 +395,6 @@
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
endif ! SZIP available
-
+
RETURN
END SUBROUTINE szip_test
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90
index b4956ea..51c9410 100644
--- a/fortran/test/tf.f90
+++ b/fortran/test/tf.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+!
!
!
-!
! This file contains subroutines which are used in
! all the hdf5 fortran tests
!
@@ -22,7 +22,7 @@
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: write_test_status
+!DEC$attributes dllexport :: write_test_status
!DEC$endif
SUBROUTINE write_test_status( test_result, test_title, total_error)
@@ -31,7 +31,7 @@
IMPLICIT NONE
INTEGER, INTENT(IN) :: test_result ! negative, --skip --
- ! 0 , passed
+ ! 0 , passed
! positive, failed
CHARACTER(LEN=*), INTENT(IN) :: test_title ! Short description of test
@@ -51,9 +51,9 @@
ELSE IF (test_result == -1) THEN
error_string = skip
ENDIF
-
+
WRITE(*, fmt = '(A, T72, A)') test_title, error_string
-
+
IF(test_result.GT.0) total_error = total_error + test_result
END SUBROUTINE write_test_status
@@ -119,19 +119,19 @@ END SUBROUTINE verifyString
!----------------------------------------------------------------------
-! Name: h5_fixname_f
+! Name: h5_fixname_f
!
! Purpose: Create a file name from the a file base name.
! It is a fortran counterpart for the h5_fixname in ../../test/h5test.c
!
-! Inputs:
-! base_name - base name of the file
-! fapl - file access property list
-! Outputs:
+! Inputs:
+! base_name - base name of the file
+! fapl - file access property list
+! Outputs:
! full_name - full file name
-! hdferr: - error code
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! September 13, 2002
@@ -144,13 +144,13 @@ SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5_fixname_f
!DEC$endif
- USE H5GLOBAL
+ USE H5GLOBAL
IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name
- CHARACTER(LEN=*), INTENT(IN) :: full_name ! full name
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name
+ CHARACTER(LEN=*), INTENT(IN) :: full_name ! full name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), INTENT(IN) :: fapl ! file access property list
-
+
INTEGER(SIZE_T) :: base_namelen ! Length of the base name character string
INTEGER(SIZE_T) :: full_namelen ! Length of the full name character string
! INTEGER(HID_T) :: fapl_default
@@ -162,8 +162,8 @@ SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr)
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5_FIXNAME_C':: h5_fixname_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: base_name
- !DEC$ATTRIBUTES reference :: full_name
+ !DEC$ATTRIBUTES reference :: base_name
+ !DEC$ATTRIBUTES reference :: full_name
CHARACTER(LEN=*), INTENT(IN) :: base_name
INTEGER(SIZE_T) :: base_namelen
INTEGER(HID_T), INTENT(IN) :: fapl
@@ -171,27 +171,27 @@ SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr)
INTEGER(SIZE_T) :: full_namelen
END FUNCTION h5_fixname_c
END INTERFACE
-
+
base_namelen = LEN(base_name)
full_namelen = LEN(full_name)
hdferr = h5_fixname_c(base_name, base_namelen, fapl, &
- full_name, full_namelen)
-
+ full_name, full_namelen)
+
END SUBROUTINE h5_fixname_f
-
+
!----------------------------------------------------------------------
-! Name: h5_cleanup_f
+! Name: h5_cleanup_f
!
! Purpose: Cleanups tests files
! It is a fortran counterpart for the h5_cleanup in ../../test/h5test.c
!
-! Inputs:
-! base_name - base name of the file
-! fapl - file access property list
-! Outputs:
-! hdferr: - error code
+! Inputs:
+! base_name - base name of the file
+! fapl - file access property list
+! Outputs:
+! hdferr: - error code
! Success: 0
-! Failure: -1
+! Failure: -1
!
! Programmer: Elena Pourmal
! September 19, 2002
@@ -204,34 +204,34 @@ SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: h5_cleanup_f
!DEC$endif
- USE H5GLOBAL
+ USE H5GLOBAL
IMPLICIT NONE
- CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name
- INTEGER, INTENT(OUT) :: hdferr ! Error code
+ CHARACTER(LEN=*), INTENT(IN) :: base_name ! base name
+ INTEGER, INTENT(OUT) :: hdferr ! Error code
INTEGER(HID_T), INTENT(IN) :: fapl ! file access property list
-
+
INTEGER(SIZE_T) :: base_namelen ! Length of the base name character string
-
+
INTERFACE
INTEGER FUNCTION h5_cleanup_c(base_name, base_namelen, fapl)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5_CLEANUP_C':: h5_cleanup_c
!DEC$ ENDIF
- !DEC$ATTRIBUTES reference :: base_name
+ !DEC$ATTRIBUTES reference :: base_name
CHARACTER(LEN=*), INTENT(IN) :: base_name
INTEGER(SIZE_T) :: base_namelen
INTEGER(HID_T), INTENT(IN) :: fapl
END FUNCTION h5_cleanup_c
END INTERFACE
-
+
base_namelen = LEN(base_name)
hdferr = h5_cleanup_c(base_name, base_namelen, fapl)
-
+
END SUBROUTINE h5_cleanup_f
!----------------------------------------------------------------------
-! Name: h5_exit_f
+! Name: h5_exit_f
!
! Purpose: Exit application
! It is a fortran counterpart for the standard C 'exit()' routine
@@ -239,10 +239,10 @@ END SUBROUTINE h5_cleanup_f
! UNIX supports a very small range such as 1 byte.
! Therefore, exit(256) may end up as exit(0).
!
-! Inputs:
+! Inputs:
! status - Status to return from application
!
-! Outputs:
+! Outputs:
! none
!
! Programmer: Quincey Koziol
@@ -258,7 +258,7 @@ SUBROUTINE h5_exit_f(status)
!DEC$endif
IMPLICIT NONE
INTEGER, INTENT(IN) :: status ! Return code
-
+
INTERFACE
SUBROUTINE h5_exit_c(status)
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
@@ -267,18 +267,18 @@ SUBROUTINE h5_exit_f(status)
INTEGER, INTENT(IN) :: status
END SUBROUTINE h5_exit_c
END INTERFACE
-
+
CALL h5_exit_c(status)
-
-END SUBROUTINE h5_exit_f
+
+END SUBROUTINE h5_exit_f
!----------------------------------------------------------------------
-! Name: h5_env_nocleanup_f
+! Name: h5_env_nocleanup_f
!
-! Purpose: Uses the HDF5_NOCLEANUP environment variable in Fortran
+! Purpose: Uses the HDF5_NOCLEANUP environment variable in Fortran
! tests to determine if the output files should be removed
!
-! Inputs:
+! Inputs:
!
! Outputs: HDF5_NOCLEANUP: .true. - don't remove test files
! .false. - remove test files
@@ -305,13 +305,13 @@ SUBROUTINE h5_env_nocleanup_f(HDF5_NOCLEANUP)
INTEGER :: status
END SUBROUTINE h5_env_nocleanup_c
END INTERFACE
-
+
CALL h5_env_nocleanup_c(status)
HDF5_NOCLEANUP = .FALSE.
IF(status.EQ.1)THEN
HDF5_NOCLEANUP = .TRUE.
ENDIF
-
+
END SUBROUTINE h5_env_nocleanup_f
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90
index a6d72dd..1d65ae1 100644
--- a/fortran/testpar/hyper.f90
+++ b/fortran/testpar/hyper.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,11 +11,11 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!//////////////////////////////////////////////////////////
-! writes/reads dataset by hyperslabs
+! writes/reads dataset by hyperslabs
!//////////////////////////////////////////////////////////
SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
@@ -26,8 +26,8 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
INTEGER, INTENT(in) :: length ! array length
LOGICAL, INTENT(in) :: do_collective ! use collective I/O
LOGICAL, INTENT(in) :: do_chunk ! use chunking
- INTEGER, INTENT(in) :: mpi_size ! number of processes in the group of communicator
- INTEGER, INTENT(in) :: mpi_rank ! rank of the calling process in the communicator
+ INTEGER, INTENT(in) :: mpi_size ! number of processes in the group of communicator
+ INTEGER, INTENT(in) :: mpi_rank ! rank of the calling process in the communicator
INTEGER, INTENT(inout) :: nerrors ! number of errors
INTEGER :: mpierror ! MPI hdferror flag
INTEGER :: hdferror ! HDF hdferror flag
@@ -35,17 +35,17 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
INTEGER(hsize_t), DIMENSION(1) :: cdims ! chunk dimensions
INTEGER, ALLOCATABLE :: wbuf(:) ! write buffer
INTEGER, ALLOCATABLE :: rbuf(:) ! read buffer
- INTEGER(hsize_t), DIMENSION(1) :: counti ! hyperslab selection
- INTEGER(hsize_t), DIMENSION(1) :: start ! hyperslab selection
+ INTEGER(hsize_t), DIMENSION(1) :: counti ! hyperslab selection
+ INTEGER(hsize_t), DIMENSION(1) :: start ! hyperslab selection
INTEGER(hid_t) :: fapl_id ! file access identifier
- INTEGER(hid_t) :: dxpl_id ! dataset transfer property list
- INTEGER(hid_t) :: dcpl_id ! dataset creation property list
+ INTEGER(hid_t) :: dxpl_id ! dataset transfer property list
+ INTEGER(hid_t) :: dcpl_id ! dataset creation property list
INTEGER(hid_t) :: file_id ! file identifier
INTEGER(hid_t) :: dset_id ! dataset identifier
INTEGER(hid_t) :: fspace_id ! file space identifier
INTEGER(hid_t) :: mspace_id ! memory space identifier
INTEGER(hid_t) :: driver_id ! low-level file driver identifier
- INTEGER :: istart ! start position in array
+ INTEGER :: istart ! start position in array
INTEGER :: iend ! end position in array
INTEGER :: icount ! number of elements in array
CHARACTER(len=80) :: filename ! filename
@@ -139,11 +139,11 @@ SUBROUTINE hyper(length,do_collective,do_chunk, mpi_size, mpi_rank, nerrors)
CALL check("h5dcreate_f", hdferror, nerrors)
!//////////////////////////////////////////////////////////
- ! define hyperslab
+ ! define hyperslab
!//////////////////////////////////////////////////////////
- counti(1) = icount
- start(1) = istart
+ counti(1) = icount
+ start(1) = istart
!//////////////////////////////////////////////////////////
! select hyperslab in memory
diff --git a/fortran/testpar/mdset.f90 b/fortran/testpar/mdset.f90
index dcc7210..9d14a50 100644
--- a/fortran/testpar/mdset.f90
+++ b/fortran/testpar/mdset.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,11 +11,11 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!//////////////////////////////////////////////////////////
-! writes/reads dataset by hyperslabs
+! writes/reads dataset by hyperslabs
!//////////////////////////////////////////////////////////
SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_rank, nerrors)
@@ -26,8 +26,8 @@ SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_ra
INTEGER, INTENT(in) :: length ! array length
LOGICAL, INTENT(in) :: do_collective ! use collective I/O
LOGICAL, INTENT(in) :: do_chunk ! use chunking
- INTEGER, INTENT(in) :: mpi_size ! number of processes in the group of communicator
- INTEGER, INTENT(in) :: mpi_rank ! rank of the calling process in the communicator
+ INTEGER, INTENT(in) :: mpi_size ! number of processes in the group of communicator
+ INTEGER, INTENT(in) :: mpi_rank ! rank of the calling process in the communicator
INTEGER, INTENT(inout) :: nerrors ! number of errors
INTEGER :: mpierror ! MPI hdferror flag
INTEGER :: hdferror ! HDF hdferror flag
@@ -35,17 +35,17 @@ SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_ra
INTEGER(hsize_t), DIMENSION(1) :: cdims ! chunk dimensions
INTEGER, ALLOCATABLE :: wbuf(:) ! write buffer
INTEGER, ALLOCATABLE :: rbuf(:) ! read buffer
- INTEGER(hsize_t), DIMENSION(1) :: counti ! hyperslab selection
- INTEGER(hsize_t), DIMENSION(1) :: start ! hyperslab selection
+ INTEGER(hsize_t), DIMENSION(1) :: counti ! hyperslab selection
+ INTEGER(hsize_t), DIMENSION(1) :: start ! hyperslab selection
INTEGER(hid_t) :: fapl_id ! file access identifier
- INTEGER(hid_t) :: dxpl_id ! dataset transfer property list
- INTEGER(hid_t) :: dcpl_id ! dataset creation property list
+ INTEGER(hid_t) :: dxpl_id ! dataset transfer property list
+ INTEGER(hid_t) :: dcpl_id ! dataset creation property list
INTEGER(hid_t) :: file_id ! file identifier
INTEGER(hid_t) :: dset_id ! dataset identifier
INTEGER(hid_t) :: fspace_id ! file space identifier
INTEGER(hid_t) :: mspace_id ! memory space identifier
INTEGER(hid_t) :: driver_id ! low-level file driver identifier
- INTEGER :: istart ! start position in array
+ INTEGER :: istart ! start position in array
INTEGER :: iend ! end position in array
INTEGER :: icount ! number of elements in array
CHARACTER(len=80) :: filename ! filename
@@ -141,11 +141,11 @@ SUBROUTINE multiple_dset_write(length, do_collective, do_chunk, mpi_size, mpi_ra
ENDIF
!//////////////////////////////////////////////////////////
- ! define hyperslab
+ ! define hyperslab
!//////////////////////////////////////////////////////////
- counti(1) = icount
- start(1) = istart
+ counti(1) = icount
+ start(1) = istart
!//////////////////////////////////////////////////////////
! select hyperslab in memory
diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90
index 6f6fb2e..e474668 100644
--- a/fortran/testpar/ptest.f90
+++ b/fortran/testpar/ptest.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!//////////////////////////////////////////////////////////
! main program for parallel HDF5 Fortran tests
@@ -27,8 +27,8 @@ PROGRAM parallel_test
LOGICAL :: do_collective ! use collective MPI I/O
LOGICAL :: do_chunk ! use chunking
INTEGER :: nerrors = 0 ! number of errors
- INTEGER :: mpi_size ! number of processes in the group of communicator
- INTEGER :: mpi_rank ! rank of the calling process in the communicator
+ INTEGER :: mpi_size ! number of processes in the group of communicator
+ INTEGER :: mpi_rank ! rank of the calling process in the communicator
INTEGER :: length = 12000 ! length of array
!//////////////////////////////////////////////////////////
@@ -115,20 +115,20 @@ PROGRAM parallel_test
!//////////////////////////////////////////////////////////
IF (nerrors == 0) THEN
- CALL mpi_finalize(mpierror)
+ CALL mpi_finalize(mpierror)
IF (mpierror .NE. MPI_SUCCESS) THEN
WRITE(*,*) "MPI_FINALIZE *FAILED* Process = ", mpi_rank
ENDIF
ELSE
WRITE(*,*) 'Errors detected in process ', mpi_rank
- CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror)
+ CALL mpi_abort(MPI_COMM_WORLD, 1, mpierror)
IF (mpierror .NE. MPI_SUCCESS) THEN
WRITE(*,*) "MPI_ABORT *FAILED* Process = ", mpi_rank
ENDIF
ENDIF
!//////////////////////////////////////////////////////////
- ! end main program
+ ! end main program
!//////////////////////////////////////////////////////////
END PROGRAM parallel_test
diff --git a/hl/fortran/examples/exlite.f90 b/hl/fortran/examples/exlite.f90
index ad9c6d5..916bcb9 100644
--- a/hl/fortran/examples/exlite.f90
+++ b/hl/fortran/examples/exlite.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
! This file contains a FORTRAN90 example for the H5LT API
@@ -20,7 +20,7 @@
program lite_example
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -28,7 +28,7 @@ implicit none
integer, parameter :: DIM1 = 4; ! Dimension of array
character(len=9), parameter :: filename = "exlite.h5"! File name
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(1) :: dims = (/DIM1/) ! Dataset dimensions
integer :: rank = 1 ! Dataset rank
integer, dimension(DIM1) :: buf1 ! Data buffer
@@ -49,7 +49,7 @@ end do
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -58,13 +58,13 @@ call h5open_f(errcode)
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf1, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr1, dims, errcode)
@@ -96,10 +96,10 @@ call h5fclose_f(file_id, errcode)
call h5close_f(errcode)
!
-! end
+! end
!
-end program lite_example
+end program lite_example
diff --git a/hl/fortran/src/H5IMfc.c b/hl/fortran/src/H5IMfc.c
index 7a54437..818096e 100755
--- a/hl/fortran/src/H5IMfc.c
+++ b/hl/fortran/src/H5IMfc.c
@@ -59,7 +59,7 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -68,15 +68,15 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
ret = H5IMmake_image_8bitf(c_loc_id,c_name,w,h,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
-
+
done:
if(c_name!=NULL)
free(c_name);
-
+
return ret_value;
@@ -118,7 +118,7 @@ nh5imread_image_c (hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -128,7 +128,7 @@ nh5imread_image_c (hid_t_f *loc_id,
ret = H5IMread_imagef(c_loc_id,c_name,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -184,12 +184,12 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_ilen = *ilen;
c_il = (char *)HD5f2cstring(il, c_ilen);
- if (c_il == NULL)
+ if (c_il == NULL)
goto done;
/*
@@ -199,7 +199,7 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
ret = H5IMmake_image_24bitf(c_loc_id,c_name,w,h,c_il,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -259,7 +259,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -275,7 +275,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
ret = H5IMget_image_info(c_loc_id,c_name,&c_width,&c_height,&c_planes,c_buf,&c_npals);
- if (ret < 0)
+ if (ret < 0)
goto done;
*width = (hsize_t_f) c_width;
@@ -287,13 +287,13 @@ nh5imget_image_info_c(hid_t_f *loc_id,
* convert C name to FORTRAN and place it in the given buffer
*/
HD5packFstring(c_buf, _fcdtocp(interlace), (size_t)*ilen);
-
+
ret_value = 0;
done:
if(c_name!=NULL)
free(c_name);
- if(c_buf!=NULL)
+ if(c_buf!=NULL)
free(c_buf);
return ret_value;
@@ -389,13 +389,13 @@ nh5immake_palette_c (hid_t_f *loc_id,
if(NULL == (c_name = (char *)HD5f2cstring(name, (int)*namelen)))
HGOTO_DONE(FAIL)
- for(i = 0; i < rank ; i++)
+ for(i = 0; i < rank ; i++)
c_dims[i] = dims[i];
/*
* call H5IMmake_palette function.
*/
- if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0)
+ if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0)
HGOTO_DONE(FAIL)
done:
@@ -445,12 +445,12 @@ nh5imlink_palette_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_namelenpal = *ilen;
c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
- if (c_namepal == NULL)
+ if (c_namepal == NULL)
goto done;
/*
@@ -460,7 +460,7 @@ nh5imlink_palette_c (hid_t_f *loc_id,
ret = H5IMlink_palette(c_loc_id,c_name,c_namepal);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -515,12 +515,12 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_namelenpal = *ilen;
c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
- if (c_namepal == NULL)
+ if (c_namepal == NULL)
goto done;
/*
@@ -530,7 +530,7 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
ret = H5IMunlink_palette(c_loc_id,c_name,c_namepal);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -583,7 +583,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -595,7 +595,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
*npals = (hsize_t_f) c_npals;
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -649,7 +649,7 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -658,11 +658,11 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
ret = H5IMget_palette_info(c_loc_id,c_name,*pal_number,c_dims);
-
- if (ret < 0)
+
+ if (ret < 0)
goto done;
- for (i = 0; i < 2 ; i++)
+ for (i = 0; i < 2 ; i++)
{
dims[i] = (hsize_t_f) c_dims[i];
}
@@ -716,7 +716,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -726,7 +726,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
ret = H5IMget_palettef(c_loc_id,c_name,*pal_number,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
diff --git a/hl/fortran/src/H5IMff.f90 b/hl/fortran/src/H5IMff.f90
index 6e13c30..d78dc06 100755
--- a/hl/fortran/src/H5IMff.f90
+++ b/hl/fortran/src/H5IMff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,15 +11,15 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5IM functions
!
-
+
module h5im
use h5fortran_types
-use hdf5
+use hdf5
contains
@@ -40,12 +40,12 @@ contains
!
!-------------------------------------------------------------------------
-subroutine h5immake_image_8bit_f(loc_id,&
+subroutine h5immake_image_8bit_f(loc_id,&
dset_name,&
- width,&
+ width,&
height,&
buf,&
- errcode )
+ errcode )
implicit none
@@ -56,14 +56,14 @@ subroutine h5immake_image_8bit_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: width ! width of image
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: width ! width of image
integer(hsize_t), intent(in) :: height ! height of image
- integer, intent(in), dimension(*) :: buf ! buffer
+ integer, intent(in), dimension(*) :: buf ! buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5immake_image_8bit_c(loc_id,namelen,dset_name,width,height,buf)
use h5global
@@ -73,10 +73,10 @@ subroutine h5immake_image_8bit_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: width ! width of image
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: width ! width of image
integer(hsize_t), intent(in) :: height ! height of image
- integer , intent(in), dimension(*) :: buf ! buffer
+ integer , intent(in), dimension(*) :: buf ! buffer
end function h5immake_image_8bit_c
end interface
@@ -105,10 +105,10 @@ end subroutine h5immake_image_8bit_f
!-------------------------------------------------------------------------
-subroutine h5imread_image_f(loc_id,&
+subroutine h5imread_image_f(loc_id,&
dset_name,&
buf,&
- errcode )
+ errcode )
implicit none
@@ -118,12 +118,12 @@ subroutine h5imread_image_f(loc_id,&
!DEC$attributes dllexport :: h5imread_image_f
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(inout), dimension(*) :: buf ! buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(inout), dimension(*) :: buf ! buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5imread_image_c(loc_id,namelen,dset_name,buf)
use h5global
@@ -133,8 +133,8 @@ subroutine h5imread_image_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(inout), dimension(*) :: buf ! buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(inout), dimension(*) :: buf ! buffer
end function h5imread_image_c
end interface
@@ -161,13 +161,13 @@ end subroutine h5imread_image_f
!
!-------------------------------------------------------------------------
-subroutine h5immake_image_24bit_f(loc_id,&
+subroutine h5immake_image_24bit_f(loc_id,&
dset_name,&
- width,&
+ width,&
height,&
il,&
buf,&
- errcode )
+ errcode )
implicit none
@@ -178,16 +178,16 @@ subroutine h5immake_image_24bit_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: width ! width of image
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: width ! width of image
integer(hsize_t), intent(in) :: height ! height of image
character(len=*), intent(in) :: il ! interlace
- integer, intent(in), dimension(*) :: buf ! buffer
+ integer, intent(in), dimension(*) :: buf ! buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: ilen ! name length
-
+
interface
integer function h5immake_image_24bit_c(loc_id,namelen,dset_name,ilen,il,width,height,buf)
use h5global
@@ -197,14 +197,14 @@ subroutine h5immake_image_24bit_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: il
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: width ! width of image
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: width ! width of image
integer(hsize_t), intent(in) :: height ! height of image
character(len=*), intent(in) :: il ! interlace
- integer, intent(in), dimension(*) :: buf ! buffer
+ integer, intent(in), dimension(*) :: buf ! buffer
integer :: namelen ! lenght of name buffer
integer :: ilen ! name length
-
+
end function h5immake_image_24bit_c
end interface
@@ -218,7 +218,7 @@ end subroutine h5immake_image_24bit_f
!-------------------------------------------------------------------------
! Function: h5imget_image_info_f
!
-! Purpose: Gets information about an image dataset (dimensions, interlace mode
+! Purpose: Gets information about an image dataset (dimensions, interlace mode
! and number of associated palettes).
!
! Return: Success: 0, Failure: -1
@@ -233,14 +233,14 @@ end subroutine h5immake_image_24bit_f
!
!-------------------------------------------------------------------------
-subroutine h5imget_image_info_f(loc_id,&
+subroutine h5imget_image_info_f(loc_id,&
dset_name,&
width,&
height,&
planes,&
interlace,&
npals,&
- errcode )
+ errcode )
implicit none
@@ -251,13 +251,13 @@ subroutine h5imget_image_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(inout) :: width ! width of image
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(inout) :: width ! width of image
integer(hsize_t), intent(inout) :: height ! height of image
integer(hsize_t), intent(inout) :: planes ! color planes
integer(hsize_t), intent(inout) :: npals ! palettes
- character(len=*), intent(inout) :: interlace ! interlace
+ character(len=*), intent(inout) :: interlace ! interlace
integer :: errcode ! error code
integer :: namelen ! name length
integer :: ilen ! name length
@@ -270,13 +270,13 @@ subroutine h5imget_image_info_f(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: interlace
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(inout) :: width ! width of image
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(inout) :: width ! width of image
integer(hsize_t), intent(inout) :: height ! height of image
integer(hsize_t), intent(inout) :: planes ! color planes
integer(hsize_t), intent(inout) :: npals ! palettes
- character(len=*), intent(inout) :: interlace ! interlace
+ character(len=*), intent(inout) :: interlace ! interlace
integer :: namelen ! name length
integer :: ilen ! name length
end function h5imget_image_info_c
@@ -306,8 +306,8 @@ end subroutine h5imget_image_info_f
!
!-------------------------------------------------------------------------
-integer function h5imis_image_f(loc_id,&
- dset_name)
+integer function h5imis_image_f(loc_id,&
+ dset_name)
implicit none
@@ -318,8 +318,8 @@ integer function h5imis_image_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer :: errcode ! error code
integer :: namelen ! name length
@@ -332,7 +332,7 @@ integer function h5imis_image_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
end function h5imis_image_c
end interface
@@ -360,11 +360,11 @@ end function h5imis_image_f
!
!-------------------------------------------------------------------------
-subroutine h5immake_palette_f(loc_id,&
+subroutine h5immake_palette_f(loc_id,&
dset_name,&
- pal_dims,&
+ pal_dims,&
buf,&
- errcode )
+ errcode )
implicit none
@@ -375,13 +375,13 @@ subroutine h5immake_palette_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in), dimension(*) :: pal_dims ! dimensions
- integer, intent(in), dimension(*) :: buf ! buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in), dimension(*) :: pal_dims ! dimensions
+ integer, intent(in), dimension(*) :: buf ! buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5immake_palette_c(loc_id,namelen,dset_name,pal_dims,buf)
use h5global
@@ -391,9 +391,9 @@ subroutine h5immake_palette_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), intent(in), dimension(*) :: pal_dims ! dimensions
- integer, intent(in), dimension(*) :: buf ! buffer
+ integer, intent(in), dimension(*) :: buf ! buffer
end function h5immake_palette_c
end interface
@@ -421,10 +421,10 @@ end subroutine h5immake_palette_f
!
!-------------------------------------------------------------------------
-subroutine h5imlink_palette_f(loc_id,&
+subroutine h5imlink_palette_f(loc_id,&
dset_name,&
pal_name,&
- errcode )
+ errcode )
implicit none
@@ -434,9 +434,9 @@ subroutine h5imlink_palette_f(loc_id,&
!DEC$attributes dllexport :: h5imlink_palette_f
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: pal_name ! palette name
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: pal_name ! palette name
integer :: errcode ! error code
integer :: namelen ! name length
integer :: ilen ! name length
@@ -449,9 +449,9 @@ subroutine h5imlink_palette_f(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: pal_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: pal_name ! palette name
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: pal_name ! palette name
integer :: namelen ! name length
integer :: ilen ! name length
end function h5imlink_palette_c
@@ -481,10 +481,10 @@ end subroutine h5imlink_palette_f
!
!-------------------------------------------------------------------------
-subroutine h5imunlink_palette_f(loc_id,&
+subroutine h5imunlink_palette_f(loc_id,&
dset_name,&
pal_name,&
- errcode )
+ errcode )
implicit none
@@ -496,9 +496,9 @@ subroutine h5imunlink_palette_f(loc_id,&
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: pal_name ! palette name
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: pal_name ! palette name
integer :: errcode ! error code
integer :: namelen ! name length
integer :: ilen ! name length
@@ -511,9 +511,9 @@ subroutine h5imunlink_palette_f(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: pal_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: pal_name ! palette name
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: pal_name ! palette name
integer :: namelen ! name length
integer :: ilen ! name length
end function h5imunlink_palette_c
@@ -544,10 +544,10 @@ end subroutine h5imunlink_palette_f
!
!-------------------------------------------------------------------------
-subroutine h5imget_npalettes_f(loc_id,&
+subroutine h5imget_npalettes_f(loc_id,&
dset_name,&
npals,&
- errcode )
+ errcode )
implicit none
@@ -558,8 +558,8 @@ subroutine h5imget_npalettes_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), intent(inout) :: npals ! palettes
integer :: errcode ! error code
integer :: namelen ! name length
@@ -571,8 +571,8 @@ subroutine h5imget_npalettes_f(loc_id,&
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_NPALETTES_C'::h5imget_npalettes_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer(hsize_t), intent(inout) :: npals ! palettes
integer :: namelen ! name length
end function h5imget_npalettes_c
@@ -601,15 +601,15 @@ end subroutine h5imget_npalettes_f
!
!-------------------------------------------------------------------------
-subroutine h5imget_palette_info_f(loc_id,&
+subroutine h5imget_palette_info_f(loc_id,&
dset_name,&
pal_number,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -617,10 +617,10 @@ subroutine h5imget_palette_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: pal_number ! palette number
- integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
+ integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
integer :: errcode ! error code
integer :: namelen ! name length
@@ -631,10 +631,10 @@ subroutine h5imget_palette_info_f(loc_id,&
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_INFO_C'::h5imget_palette_info_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: pal_number ! palette number
- integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
+ integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
integer :: namelen ! name length
end function h5imget_palette_info_c
end interface
@@ -664,11 +664,11 @@ end subroutine h5imget_palette_info_f
!-------------------------------------------------------------------------
-subroutine h5imget_palette_f(loc_id,&
+subroutine h5imget_palette_f(loc_id,&
dset_name,&
pal_number,&
buf,&
- errcode )
+ errcode )
implicit none
@@ -679,13 +679,13 @@ subroutine h5imget_palette_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: pal_number ! palette number
- integer, intent(inout), dimension(*) :: buf ! buffer
+ integer, intent(inout), dimension(*) :: buf ! buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5imget_palette_c(loc_id,namelen,dset_name,pal_number,buf)
use h5global
@@ -695,9 +695,9 @@ subroutine h5imget_palette_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: pal_number ! palette number
- integer, intent(inout), dimension(*) :: buf ! buffer
+ integer, intent(inout), dimension(*) :: buf ! buffer
end function h5imget_palette_c
end interface
@@ -724,8 +724,8 @@ end subroutine h5imget_palette_f
!
!-------------------------------------------------------------------------
-integer function h5imis_palette_f(loc_id,&
- dset_name)
+integer function h5imis_palette_f(loc_id,&
+ dset_name)
implicit none
@@ -736,8 +736,8 @@ integer function h5imis_palette_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer :: errcode ! error code
integer :: namelen ! name length
@@ -750,7 +750,7 @@ integer function h5imis_palette_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
end function h5imis_palette_c
end interface
@@ -764,7 +764,7 @@ end function h5imis_palette_f
! end
!
end module H5IM
-
+
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index 039385a..0985aac 100755
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -66,13 +66,13 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
goto done;
c_dims = malloc(sizeof(hsize_t) * (*rank ));
- if (c_dims == NULL)
+ if (c_dims == NULL)
goto done;
/*
* transpose dimension arrays because of C-FORTRAN storage order
*/
- for (i = 0; i < *rank ; i++)
+ for (i = 0; i < *rank ; i++)
{
c_dims[i] = dims[*rank - i - 1];
}
@@ -85,7 +85,7 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
ret = H5LTmake_dataset(c_loc_id, c_name, *rank, c_dims, c_type_id, buf );
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -732,7 +732,7 @@ nh5ltset_attribute_int_c(hid_t_f *loc_id,
else
goto done;
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -788,12 +788,12 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = *attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -804,7 +804,7 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
ret = H5LTset_attribute_float(c_loc_id,c_name,c_attrname,buf,c_size);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -861,7 +861,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = *attrnamelen;
@@ -877,7 +877,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
ret = H5LTset_attribute_double(c_loc_id,c_name,c_attrname,buf,c_size);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -935,12 +935,12 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
*/
c_namelen = *namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = *attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
c_buflen = *buflen;
@@ -956,7 +956,7 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
ret = H5LTset_attribute_string(c_loc_id,c_name,c_attrname,c_buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -1013,12 +1013,12 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1035,7 +1035,7 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
else
goto done;
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -1091,12 +1091,12 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1106,7 +1106,7 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
ret = H5LTget_attribute_float(c_loc_id,c_name,c_attrname,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -1160,12 +1160,12 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1175,7 +1175,7 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
ret = H5LTget_attribute_double(c_loc_id,c_name,c_attrname,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -1230,12 +1230,12 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(dsetname, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1245,7 +1245,7 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
ret = H5LTget_attribute_string(c_loc_id,c_name,c_attrname,buf);
- if (ret < 0)
+ if (ret < 0)
goto done;
ret_value = 0;
@@ -1299,7 +1299,7 @@ nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -1309,7 +1309,7 @@ nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
ret = H5LTget_dataset_ndims(c_loc_id, c_name, &c_rank);
- if (ret < 0)
+ if (ret < 0)
goto done;
*rank = (int_f)c_rank;
@@ -1417,7 +1417,7 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
/*
@@ -1437,10 +1437,10 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
*/
ret = H5LTget_dataset_ndims(c_loc_id, c_name, &c_rank);
- if (ret < 0)
+ if (ret < 0)
goto done;
- for (i = 0; i < c_rank ; i++)
+ for (i = 0; i < c_rank ; i++)
{
dims[i] = (hsize_t_f) c_dims[c_rank - i - 1];
}
@@ -1501,7 +1501,7 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1511,7 +1511,7 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
ret = H5LTget_attribute_ndims(c_loc_id,c_name,c_attrname,&c_rank);
- if (ret < 0)
+ if (ret < 0)
goto done;
*rank = (int_f)c_rank;
@@ -1575,12 +1575,12 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
*/
c_namelen = (int)*namelen;
c_name = (char *)HD5f2cstring(name, c_namelen);
- if (c_name == NULL)
+ if (c_name == NULL)
goto done;
c_attrnamelen = (int)*attrnamelen;
c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
- if (c_attrname == NULL)
+ if (c_attrname == NULL)
goto done;
/*
@@ -1589,7 +1589,7 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
c_loc_id = (hid_t)*loc_id;
ret = H5LTget_attribute_info(c_loc_id,c_name,c_attrname,c_dims,&c_classtype,&c_type_size);
- if (ret < 0)
+ if (ret < 0)
goto done;
*type_class = c_classtype;
@@ -1600,10 +1600,10 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
*/
ret = H5LTget_attribute_ndims(c_loc_id,c_name,c_attrname,&c_rank);
- if (ret < 0)
+ if (ret < 0)
goto done;
- for (i = 0; i < c_rank ; i++)
+ for (i = 0; i < c_rank ; i++)
{
dims[i] = (hsize_t_f) c_dims[c_rank - i - 1];
}
diff --git a/hl/fortran/src/H5LTff.f90 b/hl/fortran/src/H5LTff.f90
index b622206..0c07449 100755
--- a/hl/fortran/src/H5LTff.f90
+++ b/hl/fortran/src/H5LTff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,7 +11,7 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5LT functions
@@ -19,7 +19,7 @@
module h5lt
use h5fortran_types
-use hdf5
+use hdf5
interface h5ltmake_dataset_f
module procedure h5ltmake_dataset_f_int1
@@ -103,16 +103,16 @@ contains
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_int1(loc_id,&
+subroutine h5ltmake_dataset_f_int1(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -120,15 +120,15 @@ subroutine h5ltmake_dataset_f_int1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -137,12 +137,12 @@ subroutine h5ltmake_dataset_f_int1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(in), dimension(*) :: buf ! data buffer
end function h5ltmake_dataset_int1_c
end interface
@@ -168,16 +168,16 @@ end subroutine h5ltmake_dataset_f_int1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_int2(loc_id,&
+subroutine h5ltmake_dataset_f_int2(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
+
+ implicit none
- implicit none
-
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -185,16 +185,16 @@ subroutine h5ltmake_dataset_f_int2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -203,13 +203,13 @@ subroutine h5ltmake_dataset_f_int2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_int2_c
end interface
@@ -235,16 +235,16 @@ end subroutine h5ltmake_dataset_f_int2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_int3(loc_id,&
+subroutine h5ltmake_dataset_f_int3(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -252,16 +252,16 @@ subroutine h5ltmake_dataset_f_int3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -270,13 +270,13 @@ subroutine h5ltmake_dataset_f_int3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_int3_c
end interface
@@ -303,16 +303,16 @@ end subroutine h5ltmake_dataset_f_int3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_float1(loc_id,&
+subroutine h5ltmake_dataset_f_float1(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -320,15 +320,15 @@ subroutine h5ltmake_dataset_f_float1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- real, intent(in), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -337,12 +337,12 @@ subroutine h5ltmake_dataset_f_float1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- real, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(in), dimension(*) :: buf ! data buffer
end function h5ltmake_dataset_fl1_c
end interface
@@ -368,16 +368,16 @@ end subroutine h5ltmake_dataset_f_float1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_float2(loc_id,&
+subroutine h5ltmake_dataset_f_float2(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -385,16 +385,16 @@ subroutine h5ltmake_dataset_f_float2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -403,13 +403,13 @@ subroutine h5ltmake_dataset_f_float2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_fl2_c
end interface
@@ -435,16 +435,16 @@ end subroutine h5ltmake_dataset_f_float2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_float3(loc_id,&
+subroutine h5ltmake_dataset_f_float3(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -452,16 +452,16 @@ subroutine h5ltmake_dataset_f_float3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -470,13 +470,13 @@ subroutine h5ltmake_dataset_f_float3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_fl3_c
end interface
@@ -502,16 +502,16 @@ end subroutine h5ltmake_dataset_f_float3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_double1(loc_id,&
+subroutine h5ltmake_dataset_f_double1(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -519,15 +519,15 @@ subroutine h5ltmake_dataset_f_double1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -536,12 +536,12 @@ subroutine h5ltmake_dataset_f_double1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ double precision, intent(in), dimension(*) :: buf ! data buffer
end function h5ltmake_dataset_dl1_c
end interface
@@ -567,16 +567,16 @@ end subroutine h5ltmake_dataset_f_double1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_double2(loc_id,&
+subroutine h5ltmake_dataset_f_double2(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -584,16 +584,16 @@ subroutine h5ltmake_dataset_f_double2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -602,13 +602,13 @@ subroutine h5ltmake_dataset_f_double2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_dl2_c
end interface
@@ -634,16 +634,16 @@ end subroutine h5ltmake_dataset_f_double2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_f_double3(loc_id,&
+subroutine h5ltmake_dataset_f_double3(loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
type_id,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -651,16 +651,16 @@ subroutine h5ltmake_dataset_f_double3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -669,13 +669,13 @@ subroutine h5ltmake_dataset_f_double3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_dl3_c
end interface
@@ -703,15 +703,15 @@ end subroutine h5ltmake_dataset_f_double3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_int1(loc_id,&
+subroutine h5ltread_dataset_f_int1(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -719,11 +719,11 @@ subroutine h5ltread_dataset_f_int1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer, intent(inout), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(inout), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
@@ -735,11 +735,11 @@ subroutine h5ltread_dataset_f_int1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(HID_T), intent(IN) :: loc_id ! file or group identifier
- integer(HID_T), intent(IN) :: type_id ! datatype identifier
+ integer(HID_T), intent(IN) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(LEN=*), intent(IN) :: dset_name ! name of the dataset
- integer(HSIZE_T), dimension(*), intent(IN) :: dims ! size of the bufffer buf
- integer, intent(IN), dimension(*) :: buf ! data buffer
+ character(LEN=*), intent(IN) :: dset_name ! name of the dataset
+ integer(HSIZE_T), dimension(*), intent(IN) :: dims ! size of the bufffer buf
+ integer, intent(IN), dimension(*) :: buf ! data buffer
end function h5ltread_dataset_int1_c
end interface
@@ -765,15 +765,15 @@ end subroutine h5ltread_dataset_f_int1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_int2(loc_id,&
+subroutine h5ltread_dataset_f_int2(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -781,14 +781,14 @@ subroutine h5ltread_dataset_f_int2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -798,12 +798,12 @@ subroutine h5ltread_dataset_f_int2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_int2_c
end interface
@@ -829,15 +829,15 @@ end subroutine h5ltread_dataset_f_int2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_int3(loc_id,&
+subroutine h5ltread_dataset_f_int3(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -845,14 +845,14 @@ subroutine h5ltread_dataset_f_int3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -862,12 +862,12 @@ subroutine h5ltread_dataset_f_int3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_int3_c
end interface
@@ -896,15 +896,15 @@ end subroutine h5ltread_dataset_f_int3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_float1(loc_id,&
+subroutine h5ltread_dataset_f_float1(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -912,11 +912,11 @@ subroutine h5ltread_dataset_f_float1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- real, intent(inout), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(inout), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
@@ -928,11 +928,11 @@ subroutine h5ltread_dataset_f_float1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- real, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(in), dimension(*) :: buf ! data buffer
end function h5ltread_dataset_fl1_c
end interface
@@ -958,15 +958,15 @@ end subroutine h5ltread_dataset_f_float1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_float2(loc_id,&
+subroutine h5ltread_dataset_f_float2(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -975,14 +975,14 @@ subroutine h5ltread_dataset_f_float2(loc_id,&
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -992,12 +992,12 @@ subroutine h5ltread_dataset_f_float2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_fl2_c
end interface
@@ -1023,15 +1023,15 @@ end subroutine h5ltread_dataset_f_float2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_float3(loc_id,&
+subroutine h5ltread_dataset_f_float3(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1039,14 +1039,14 @@ subroutine h5ltread_dataset_f_float3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1056,12 +1056,12 @@ subroutine h5ltread_dataset_f_float3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_fl3_c
end interface
@@ -1088,15 +1088,15 @@ end subroutine h5ltread_dataset_f_float3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_double1(loc_id,&
+subroutine h5ltread_dataset_f_double1(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1104,11 +1104,11 @@ subroutine h5ltread_dataset_f_double1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- double precision, intent(inout), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ double precision, intent(inout), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
@@ -1120,11 +1120,11 @@ subroutine h5ltread_dataset_f_double1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ double precision, intent(in), dimension(*) :: buf ! data buffer
end function h5ltread_dataset_dl1_c
end interface
@@ -1150,15 +1150,15 @@ end subroutine h5ltread_dataset_f_double1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_double2(loc_id,&
+subroutine h5ltread_dataset_f_double2(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1166,14 +1166,14 @@ subroutine h5ltread_dataset_f_double2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1183,12 +1183,12 @@ subroutine h5ltread_dataset_f_double2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_dl2_c
end interface
@@ -1214,15 +1214,15 @@ end subroutine h5ltread_dataset_f_double2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_f_double3(loc_id,&
+subroutine h5ltread_dataset_f_double3(loc_id,&
dset_name,&
type_id,&
buf,&
dims,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1230,14 +1230,14 @@ subroutine h5ltread_dataset_f_double3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hid_t), intent(in) :: type_id ! datatype identifier
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1247,12 +1247,12 @@ subroutine h5ltread_dataset_f_double3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_dl3_c
end interface
@@ -1279,15 +1279,15 @@ end subroutine h5ltread_dataset_f_double3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_int_f_1 (loc_id,&
+subroutine h5ltmake_dataset_int_f_1 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1295,14 +1295,14 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1311,12 +1311,12 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- integer, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(in), dimension(*) :: buf ! data buffer
end function h5ltmake_dataset_nint1_c
end interface
@@ -1342,15 +1342,15 @@ end subroutine h5ltmake_dataset_int_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_int_f_2 (loc_id,&
+subroutine h5ltmake_dataset_int_f_2 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1358,16 +1358,16 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
-
-
+ dimension(dims(1),dims(2)) :: buf ! data buffer
+
+
interface
integer function h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1376,13 +1376,13 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_nint2_c
end interface
@@ -1409,15 +1409,15 @@ end subroutine h5ltmake_dataset_int_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_int_f_3 (loc_id,&
+subroutine h5ltmake_dataset_int_f_3 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1425,16 +1425,16 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
-
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
+
interface
integer function h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1443,13 +1443,13 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_nint3_c
end interface
@@ -1477,15 +1477,15 @@ end subroutine h5ltmake_dataset_int_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_float_f_1 (loc_id,&
+subroutine h5ltmake_dataset_float_f_1 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1493,14 +1493,14 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- real, intent(in), dimension(*) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
-
+
interface
integer function h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1509,12 +1509,12 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
- real, intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(in), dimension(*) :: buf ! data buffer
end function h5ltmake_dataset_nfl1_c
end interface
@@ -1540,15 +1540,15 @@ end subroutine h5ltmake_dataset_float_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_float_f_2 (loc_id,&
+subroutine h5ltmake_dataset_float_f_2 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1556,15 +1556,15 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(in), &
dimension(dims(1),dims(2)) :: buf ! data buffer
-
+
interface
integer function h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1573,13 +1573,13 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_nfl2_c
end interface
@@ -1605,15 +1605,15 @@ end subroutine h5ltmake_dataset_float_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_float_f_3 (loc_id,&
+subroutine h5ltmake_dataset_float_f_3 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1621,15 +1621,15 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(in), &
dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
+
interface
integer function h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1638,13 +1638,13 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_nfl3_c
end interface
@@ -1673,15 +1673,15 @@ end subroutine h5ltmake_dataset_float_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_double_f_1 (loc_id,&
+subroutine h5ltmake_dataset_double_f_1 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1689,15 +1689,15 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(in), &
- dimension(dims(1)) :: buf ! data buffer
-
+ dimension(dims(1)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1706,13 +1706,13 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
end function h5ltmake_dataset_ndl1_c
end interface
@@ -1739,15 +1739,15 @@ end subroutine h5ltmake_dataset_double_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_double_f_2 (loc_id,&
+subroutine h5ltmake_dataset_double_f_2 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1755,15 +1755,15 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1772,13 +1772,13 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltmake_dataset_ndl2_c
end interface
@@ -1804,15 +1804,15 @@ end subroutine h5ltmake_dataset_double_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_double_f_3 (loc_id,&
+subroutine h5ltmake_dataset_double_f_3 (loc_id,&
dset_name,&
- rank,&
+ rank,&
dims,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1820,15 +1820,15 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
-
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
interface
integer function h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
use h5global
@@ -1837,13 +1837,13 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(in) :: rank ! rank
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(in) :: rank ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltmake_dataset_ndl3_c
end interface
@@ -1871,14 +1871,14 @@ end subroutine h5ltmake_dataset_double_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_int_f_1(loc_id,&
+subroutine h5ltread_dataset_int_f_1(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1886,13 +1886,13 @@ subroutine h5ltread_dataset_int_f_1(loc_id,&
!DEC$endif
!
- integer(HID_T), intent(IN) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(HID_T), intent(IN) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1902,12 +1902,12 @@ subroutine h5ltread_dataset_int_f_1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
end function h5ltread_dataset_nint1_c
end interface
@@ -1920,7 +1920,7 @@ end subroutine h5ltread_dataset_int_f_1
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_2
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -1934,14 +1934,14 @@ end subroutine h5ltread_dataset_int_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_int_f_2(loc_id,&
+subroutine h5ltread_dataset_int_f_2(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1949,13 +1949,13 @@ subroutine h5ltread_dataset_int_f_2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1965,12 +1965,12 @@ subroutine h5ltread_dataset_int_f_2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_nint2_c
end interface
@@ -1982,7 +1982,7 @@ end subroutine h5ltread_dataset_int_f_2
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_int_f_3
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -1996,14 +1996,14 @@ end subroutine h5ltread_dataset_int_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_int_f_3(loc_id,&
+subroutine h5ltread_dataset_int_f_3(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2011,13 +2011,13 @@ subroutine h5ltread_dataset_int_f_3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
integer, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2027,12 +2027,12 @@ subroutine h5ltread_dataset_int_f_3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_nint3_c
end interface
@@ -2045,7 +2045,7 @@ end subroutine h5ltread_dataset_int_f_3
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_float_f_1
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2059,14 +2059,14 @@ end subroutine h5ltread_dataset_int_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_float_f_1(loc_id,&
+subroutine h5ltread_dataset_float_f_1(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2074,13 +2074,13 @@ subroutine h5ltread_dataset_float_f_1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2090,12 +2090,12 @@ subroutine h5ltread_dataset_float_f_1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
end function h5ltread_dataset_nfl1_c
end interface
@@ -2108,7 +2108,7 @@ end subroutine h5ltread_dataset_float_f_1
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_float_f_2
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2122,14 +2122,14 @@ end subroutine h5ltread_dataset_float_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_float_f_2(loc_id,&
+subroutine h5ltread_dataset_float_f_2(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2137,13 +2137,13 @@ subroutine h5ltread_dataset_float_f_2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2153,12 +2153,12 @@ subroutine h5ltread_dataset_float_f_2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_nfl2_c
end interface
@@ -2184,14 +2184,14 @@ end subroutine h5ltread_dataset_float_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_float_f_3(loc_id,&
+subroutine h5ltread_dataset_float_f_3(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2199,13 +2199,13 @@ subroutine h5ltread_dataset_float_f_3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
real, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2215,12 +2215,12 @@ subroutine h5ltread_dataset_float_f_3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
real, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_nfl3_c
end interface
@@ -2232,7 +2232,7 @@ end subroutine h5ltread_dataset_float_f_3
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_1
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2246,14 +2246,14 @@ end subroutine h5ltread_dataset_float_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_double_f_1(loc_id,&
+subroutine h5ltread_dataset_double_f_1(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2261,13 +2261,13 @@ subroutine h5ltread_dataset_double_f_1(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
interface
integer function h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2277,12 +2277,12 @@ subroutine h5ltread_dataset_double_f_1(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(inout), &
- dimension(dims(1)) :: buf ! data buffer
+ dimension(dims(1)) :: buf ! data buffer
end function h5ltread_dataset_ndl1_c
end interface
@@ -2295,7 +2295,7 @@ end subroutine h5ltread_dataset_double_f_1
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_2
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2309,14 +2309,14 @@ end subroutine h5ltread_dataset_double_f_1
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_double_f_2(loc_id,&
+subroutine h5ltread_dataset_double_f_2(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2324,13 +2324,13 @@ subroutine h5ltread_dataset_double_f_2(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
interface
integer function h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2340,12 +2340,12 @@ subroutine h5ltread_dataset_double_f_2(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(inout), &
- dimension(dims(1),dims(2)) :: buf ! data buffer
+ dimension(dims(1),dims(2)) :: buf ! data buffer
end function h5ltread_dataset_ndl2_c
end interface
@@ -2357,7 +2357,7 @@ end subroutine h5ltread_dataset_double_f_2
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_double_f_3
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2371,14 +2371,14 @@ end subroutine h5ltread_dataset_double_f_2
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_double_f_3(loc_id,&
+subroutine h5ltread_dataset_double_f_3(loc_id,&
dset_name,&
buf,&
- dims,&
- errcode )
+ dims,&
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2386,13 +2386,13 @@ subroutine h5ltread_dataset_double_f_3(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
integer :: errcode ! error code
integer :: namelen ! name length
double precision, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
interface
integer function h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2402,12 +2402,12 @@ subroutine h5ltread_dataset_double_f_3(loc_id,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
- integer(hid_t), intent(in) :: type_id ! datatype identifier
+ integer(hid_t), intent(in) :: type_id ! datatype identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
double precision, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ dimension(dims(1),dims(2),dims(3)) :: buf ! data buffer
end function h5ltread_dataset_ndl3_c
end interface
@@ -2434,13 +2434,13 @@ end subroutine h5ltread_dataset_double_f_3
!
!-------------------------------------------------------------------------
-subroutine h5ltmake_dataset_string_f(loc_id,&
+subroutine h5ltmake_dataset_string_f(loc_id,&
dset_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2448,13 +2448,13 @@ subroutine h5ltmake_dataset_string_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: buf ! data buffer
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: buflen ! buffer length
-
+
interface
integer function h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buflen,buf)
use h5global
@@ -2465,8 +2465,8 @@ subroutine h5ltmake_dataset_string_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: buflen ! lenght of data buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- character(len=*), intent(in) :: buf ! data buffer
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: buf ! data buffer
end function h5ltmake_dataset_string_c
end interface
@@ -2479,7 +2479,7 @@ end subroutine h5ltmake_dataset_string_f
!-------------------------------------------------------------------------
! Function: h5ltread_dataset_string_f
!
-! Purpose: Read a dataset
+! Purpose: Read a dataset
!
! Return: Success: 0, Failure: -1
!
@@ -2493,13 +2493,13 @@ end subroutine h5ltmake_dataset_string_f
!
!-------------------------------------------------------------------------
-subroutine h5ltread_dataset_string_f(loc_id,&
+subroutine h5ltread_dataset_string_f(loc_id,&
dset_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2507,8 +2507,8 @@ subroutine h5ltread_dataset_string_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(inout) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
@@ -2522,7 +2522,7 @@ subroutine h5ltread_dataset_string_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(inout) :: buf ! data buffer
end function h5ltread_dataset_string_c
end interface
@@ -2557,15 +2557,15 @@ end subroutine h5ltread_dataset_string_f
!
!-------------------------------------------------------------------------
-subroutine h5ltset_attribute_int_f(loc_id,&
+subroutine h5ltset_attribute_int_f(loc_id,&
dset_name,&
attr_name,&
buf,&
size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2573,8 +2573,8 @@ subroutine h5ltset_attribute_int_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
integer :: errcode ! error code
@@ -2593,7 +2593,7 @@ subroutine h5ltset_attribute_int_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
integer, intent(in), dimension(*) :: buf ! data buffer
@@ -2623,15 +2623,15 @@ end subroutine h5ltset_attribute_int_f
!
!-------------------------------------------------------------------------
-subroutine h5ltset_attribute_float_f(loc_id,&
+subroutine h5ltset_attribute_float_f(loc_id,&
dset_name,&
attr_name,&
buf,&
size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2639,8 +2639,8 @@ subroutine h5ltset_attribute_float_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
integer :: errcode ! error code
@@ -2659,7 +2659,7 @@ subroutine h5ltset_attribute_float_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
real, intent(in), dimension(*) :: buf ! data buffer
@@ -2689,15 +2689,15 @@ end subroutine h5ltset_attribute_float_f
!
!-------------------------------------------------------------------------
-subroutine h5ltset_attribute_double_f(loc_id,&
+subroutine h5ltset_attribute_double_f(loc_id,&
dset_name,&
attr_name,&
buf,&
size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2705,8 +2705,8 @@ subroutine h5ltset_attribute_double_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
integer :: errcode ! error code
@@ -2725,7 +2725,7 @@ subroutine h5ltset_attribute_double_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer(size_t), intent(in) :: size ! size of attribute array
double precision, intent(in), dimension(*) :: buf ! data buffer
@@ -2756,14 +2756,14 @@ end subroutine h5ltset_attribute_double_f
!
!-------------------------------------------------------------------------
-subroutine h5ltset_attribute_string_f(loc_id,&
+subroutine h5ltset_attribute_string_f(loc_id,&
dset_name,&
attr_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2771,8 +2771,8 @@ subroutine h5ltset_attribute_string_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer :: errcode ! error code
character(len=*), intent(in) :: buf ! data buffer
@@ -2792,7 +2792,7 @@ subroutine h5ltset_attribute_string_f(loc_id,&
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
integer :: buflen ! data buffer length
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
character(len=*), intent(in) :: buf ! data buffer
end function h5ltset_attribute_string_c
@@ -2824,14 +2824,14 @@ end subroutine h5ltset_attribute_string_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_int_f(loc_id,&
+subroutine h5ltget_attribute_int_f(loc_id,&
dset_name,&
attr_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2839,8 +2839,8 @@ subroutine h5ltget_attribute_int_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer :: errcode ! error code
integer, intent(inout), dimension(*) :: buf ! data buffer
@@ -2858,7 +2858,7 @@ subroutine h5ltget_attribute_int_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer, intent(inout), dimension(*) :: buf ! data buffer
end function h5ltget_attribute_int_c
@@ -2888,14 +2888,14 @@ end subroutine h5ltget_attribute_int_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_float_f(loc_id,&
+subroutine h5ltget_attribute_float_f(loc_id,&
dset_name,&
attr_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2903,8 +2903,8 @@ subroutine h5ltget_attribute_float_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer :: errcode ! error code
real, intent(inout), dimension(*) :: buf ! data buffer
@@ -2922,7 +2922,7 @@ subroutine h5ltget_attribute_float_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
real, intent(inout), dimension(*) :: buf ! data buffer
end function h5ltget_attribute_float_c
@@ -2951,14 +2951,14 @@ end subroutine h5ltget_attribute_float_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_double_f(loc_id,&
+subroutine h5ltget_attribute_double_f(loc_id,&
dset_name,&
attr_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -2966,8 +2966,8 @@ subroutine h5ltget_attribute_double_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer :: errcode ! error code
double precision,intent(inout),dimension(*) :: buf ! data buffer
@@ -2985,7 +2985,7 @@ subroutine h5ltget_attribute_double_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
double precision, intent(inout), dimension(*) :: buf ! data buffer
end function h5ltget_attribute_double_c
@@ -3014,14 +3014,14 @@ end subroutine h5ltget_attribute_double_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_string_f(loc_id,&
+subroutine h5ltget_attribute_string_f(loc_id,&
dset_name,&
attr_name,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3029,8 +3029,8 @@ subroutine h5ltget_attribute_string_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
integer :: errcode ! error code
character(len=*), intent(inout) :: buf ! data buffer
@@ -3048,7 +3048,7 @@ subroutine h5ltget_attribute_string_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
character(len=*), intent(inout) :: buf ! data buffer
end function h5ltget_attribute_string_c
@@ -3081,13 +3081,13 @@ end subroutine h5ltget_attribute_string_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_dataset_ndims_f(loc_id,&
+subroutine h5ltget_dataset_ndims_f(loc_id,&
dset_name,&
rank,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3095,9 +3095,9 @@ subroutine h5ltget_dataset_ndims_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(inout) :: rank ! rank
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(inout) :: rank ! rank
integer :: errcode ! error code
integer :: namelen ! name length
@@ -3110,8 +3110,8 @@ subroutine h5ltget_dataset_ndims_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer, intent(inout) :: rank ! rank
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer, intent(inout) :: rank ! rank
end function h5ltget_dataset_ndims_c
end interface
@@ -3124,7 +3124,7 @@ end subroutine h5ltget_dataset_ndims_f
!-------------------------------------------------------------------------
! Function: h5ltfind_dataset_f
!
-! Purpose: Inquires if a dataset named dset_name exists attached
+! Purpose: Inquires if a dataset named dset_name exists attached
! to the object loc_id.
!
! Return: Success: 0, Failure: -1
@@ -3139,11 +3139,11 @@ end subroutine h5ltget_dataset_ndims_f
!
!-------------------------------------------------------------------------
-integer function h5ltfind_dataset_f(loc_id,&
- dset_name)
+integer function h5ltfind_dataset_f(loc_id,&
+ dset_name)
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3151,8 +3151,8 @@ integer function h5ltfind_dataset_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer :: errcode ! error code
integer :: namelen ! name length
@@ -3165,7 +3165,7 @@ integer function h5ltfind_dataset_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
end function h5ltfind_dataset_c
end interface
@@ -3192,15 +3192,15 @@ end function h5ltfind_dataset_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_dataset_info_f(loc_id,&
+subroutine h5ltget_dataset_info_f(loc_id,&
dset_name,&
dims,&
type_class,&
type_size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3208,9 +3208,9 @@ subroutine h5ltget_dataset_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
integer, intent(inout) :: type_class ! type class
integer(size_t), intent(inout) :: type_size ! type size
integer :: errcode ! error code
@@ -3225,10 +3225,10 @@ subroutine h5ltget_dataset_info_f(loc_id,&
!DEC$ATTRIBUTES reference :: dset_name
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
integer, intent(inout) :: type_class ! type class
- integer(size_t), intent(inout) :: type_size ! type size
+ integer(size_t), intent(inout) :: type_size ! type size
end function h5ltget_dataset_info_c
end interface
@@ -3260,14 +3260,14 @@ end subroutine h5ltget_dataset_info_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_ndims_f(loc_id,&
+subroutine h5ltget_attribute_ndims_f(loc_id,&
dset_name,&
attr_name,&
rank,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3275,10 +3275,10 @@ subroutine h5ltget_attribute_ndims_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
- integer, intent(inout) :: rank ! rank
+ integer, intent(inout) :: rank ! rank
integer :: errcode ! error code
integer :: namelen ! name length
integer :: attrlen ! name length
@@ -3294,9 +3294,9 @@ subroutine h5ltget_attribute_ndims_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
- integer, intent(inout) :: rank ! rank
+ integer, intent(inout) :: rank ! rank
end function h5ltget_attribute_ndims_c
end interface
@@ -3324,16 +3324,16 @@ end subroutine h5ltget_attribute_ndims_f
!
!-------------------------------------------------------------------------
-subroutine h5ltget_attribute_info_f(loc_id,&
+subroutine h5ltget_attribute_info_f(loc_id,&
dset_name,&
attr_name,&
dims,&
type_class,&
type_size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -3341,10 +3341,10 @@ subroutine h5ltget_attribute_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
integer, intent(inout) :: type_class ! type class
integer(size_t), intent(inout) :: type_size ! type size
integer :: errcode ! error code
@@ -3362,11 +3362,11 @@ subroutine h5ltget_attribute_info_f(loc_id,&
integer(hid_t), intent(in) :: loc_id ! file or group identifier
integer :: namelen ! lenght of name buffer
integer :: attrlen ! lenght of attr name buffer
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: attr_name ! name of the attribute
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
integer, intent(inout) :: type_class ! type class
- integer(size_t), intent(inout) :: type_size ! type size
+ integer(size_t), intent(inout) :: type_size ! type size
end function h5ltget_attribute_info_c
end interface
@@ -3381,9 +3381,9 @@ end subroutine h5ltget_attribute_info_f
! end
!
end module H5LT
-
-
+
+
diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index a09d73b..7139be3 100755
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -123,7 +123,7 @@ nh5tbmake_table_c(int_f *namelen1,
c_chunk_size, NULL, *compress, NULL) < 0)
HGOTO_DONE(FAIL)
-done:
+done:
if(c_name)
HDfree(c_name);
if(c_name1)
diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90
index 03ecc6e..9acdcee 100755
--- a/hl/fortran/src/H5TBff.f90
+++ b/hl/fortran/src/H5TBff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,15 +11,15 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
! This file contains FORTRAN90 interfaces for H5TB functions
!
-
+
module h5tb
use h5fortran_types
-use hdf5
+use hdf5
interface h5tbwrite_field_name_f
@@ -80,9 +80,9 @@ contains
!-------------------------------------------------------------------------
subroutine h5tbmake_table_f(table_title,&
- loc_id,&
+ loc_id,&
dset_name,&
- nfields,&
+ nfields,&
nrecords,&
type_size,&
field_names,&
@@ -90,7 +90,7 @@ subroutine h5tbmake_table_f(table_title,&
field_types,&
chunk_size,&
compress,&
- errcode )
+ errcode )
implicit none
@@ -101,10 +101,10 @@ subroutine h5tbmake_table_f(table_title,&
!DEC$endif
!
- character(len=*), intent(in) :: table_title ! name of the dataset
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: nfields ! fields
+ character(len=*), intent(in) :: table_title ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: nfields ! fields
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
character(len=*), dimension(nfields), intent(in) :: field_names ! field names
@@ -118,7 +118,7 @@ subroutine h5tbmake_table_f(table_title,&
integer, dimension(nfields) :: namelen2 ! name lengths
integer :: i ! general purpose integer
-
+
interface
integer function h5tbmake_table_c(namelen1,&
table_title,&
@@ -141,10 +141,10 @@ subroutine h5tbmake_table_f(table_title,&
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: table_title
- character(len=*), intent(in) :: table_title ! name of the dataset
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in) :: nfields ! fields
+ character(len=*), intent(in) :: table_title ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in) :: nfields ! fields
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
character(len=*), dimension(nfields), intent(in) :: field_names ! field names
@@ -197,17 +197,17 @@ end subroutine h5tbmake_table_f
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_name_f_int(loc_id,&
+subroutine h5tbwrite_field_name_f_int(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -215,13 +215,13 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -229,20 +229,20 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
interface
integer function h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_INT_C'::h5tbwrite_field_name_int_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -251,7 +251,7 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -272,17 +272,17 @@ end subroutine h5tbwrite_field_name_f_int
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_name_f_float(loc_id,&
+subroutine h5tbwrite_field_name_f_float(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -290,13 +290,13 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -304,20 +304,20 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
interface
integer function h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_FL_C'::h5tbwrite_field_name_fl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -326,7 +326,7 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -349,17 +349,17 @@ end subroutine h5tbwrite_field_name_f_float
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_name_f_double(loc_id,&
+subroutine h5tbwrite_field_name_f_double(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -367,13 +367,13 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -381,20 +381,20 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
interface
integer function h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_DL_C'::h5tbwrite_field_name_dl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -403,7 +403,7 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -424,17 +424,17 @@ end subroutine h5tbwrite_field_name_f_double
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_name_f_string(loc_id,&
+subroutine h5tbwrite_field_name_f_string(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -442,13 +442,13 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -456,20 +456,20 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
interface
integer function h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_ST_C'::h5tbwrite_field_name_st_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -478,7 +478,7 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -500,17 +500,17 @@ end subroutine h5tbwrite_field_name_f_string
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_name_f_int(loc_id,&
+subroutine h5tbread_field_name_f_int(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -518,13 +518,13 @@ subroutine h5tbread_field_name_f_int(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -532,20 +532,20 @@ subroutine h5tbread_field_name_f_int(loc_id,&
interface
integer function h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_INT_C'::h5tbread_field_name_int_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -554,7 +554,7 @@ subroutine h5tbread_field_name_f_int(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -575,17 +575,17 @@ end subroutine h5tbread_field_name_f_int
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_name_f_float(loc_id,&
+subroutine h5tbread_field_name_f_float(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -593,13 +593,13 @@ subroutine h5tbread_field_name_f_float(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -607,20 +607,20 @@ subroutine h5tbread_field_name_f_float(loc_id,&
interface
integer function h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_FL_C'::h5tbread_field_name_fl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -629,7 +629,7 @@ subroutine h5tbread_field_name_f_float(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -650,17 +650,17 @@ end subroutine h5tbread_field_name_f_float
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_name_f_double(loc_id,&
+subroutine h5tbread_field_name_f_double(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -668,13 +668,13 @@ subroutine h5tbread_field_name_f_double(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -682,20 +682,20 @@ subroutine h5tbread_field_name_f_double(loc_id,&
interface
integer function h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_DL_C'::h5tbread_field_name_dl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -704,7 +704,7 @@ subroutine h5tbread_field_name_f_double(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -725,17 +725,17 @@ end subroutine h5tbread_field_name_f_double
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_name_f_string(loc_id,&
+subroutine h5tbread_field_name_f_string(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -743,13 +743,13 @@ subroutine h5tbread_field_name_f_string(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -757,20 +757,20 @@ subroutine h5tbread_field_name_f_string(loc_id,&
interface
integer function h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_ST_C'::h5tbread_field_name_st_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -779,7 +779,7 @@ subroutine h5tbread_field_name_f_string(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
start,nrecords,type_size,buf)
@@ -801,17 +801,17 @@ end subroutine h5tbread_field_name_f_string
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_index_f_int(loc_id,&
+subroutine h5tbwrite_field_index_f_int(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -819,39 +819,39 @@ subroutine h5tbwrite_field_index_f_int(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_INT_C'::h5tbwrite_field_index_int_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbwrite_field_index_int_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -872,17 +872,17 @@ end subroutine h5tbwrite_field_index_f_int
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_index_f_float(loc_id,&
+subroutine h5tbwrite_field_index_f_float(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -890,39 +890,39 @@ subroutine h5tbwrite_field_index_f_float(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_FL_C'::h5tbwrite_field_index_fl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbwrite_field_index_fl_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -945,17 +945,17 @@ end subroutine h5tbwrite_field_index_f_float
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_index_f_double(loc_id,&
+subroutine h5tbwrite_field_index_f_double(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -963,39 +963,39 @@ subroutine h5tbwrite_field_index_f_double(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_DL_C'::h5tbwrite_field_index_dl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbwrite_field_index_dl_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1016,17 +1016,17 @@ end subroutine h5tbwrite_field_index_f_double
!
!-------------------------------------------------------------------------
-subroutine h5tbwrite_field_index_f_string(loc_id,&
+subroutine h5tbwrite_field_index_f_string(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1034,39 +1034,39 @@ subroutine h5tbwrite_field_index_f_string(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_ST_C'::h5tbwrite_field_index_st_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbwrite_field_index_st_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1088,17 +1088,17 @@ end subroutine h5tbwrite_field_index_f_string
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_index_f_int(loc_id,&
+subroutine h5tbread_field_index_f_int(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1106,39 +1106,39 @@ subroutine h5tbread_field_index_f_int(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_INT_C'::h5tbread_field_index_int_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbread_field_index_int_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1159,17 +1159,17 @@ end subroutine h5tbread_field_index_f_int
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_index_f_float(loc_id,&
+subroutine h5tbread_field_index_f_float(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1177,39 +1177,39 @@ subroutine h5tbread_field_index_f_float(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_FL_C'::h5tbread_field_index_fl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbread_field_index_fl_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1230,17 +1230,17 @@ end subroutine h5tbread_field_index_f_float
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_index_f_double(loc_id,&
+subroutine h5tbread_field_index_f_double(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1248,39 +1248,39 @@ subroutine h5tbread_field_index_f_double(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_DL_C'::h5tbread_field_index_dl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbread_field_index_dl_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1301,17 +1301,17 @@ end subroutine h5tbread_field_index_f_double
!
!-------------------------------------------------------------------------
-subroutine h5tbread_field_index_f_string(loc_id,&
+subroutine h5tbread_field_index_f_string(loc_id,&
dset_name,&
- field_index,&
+ field_index,&
start,&
nrecords,&
type_size,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1319,39 +1319,39 @@ subroutine h5tbread_field_index_f_string(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
interface
integer function h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_ST_C'::h5tbread_field_index_st_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
integer, intent(in) :: field_index ! index
- integer(hsize_t), intent(in) :: start ! start record
+ integer(hsize_t), intent(in) :: start ! start record
integer(hsize_t), intent(in) :: nrecords ! records
integer(size_t), intent(in) :: type_size ! type size
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
integer :: namelen ! name length
end function h5tbread_field_index_st_c
end interface
namelen = len(dset_name)
-
+
errcode = h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,&
start,nrecords,type_size,buf)
@@ -1373,15 +1373,15 @@ end subroutine h5tbread_field_index_f_string
!
!-------------------------------------------------------------------------
-subroutine h5tbinsert_field_f_int(loc_id,&
+subroutine h5tbinsert_field_f_int(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
field_type,&
field_index,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1389,12 +1389,12 @@ subroutine h5tbinsert_field_f_int(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length
integer :: errcode ! error code
@@ -1403,19 +1403,19 @@ subroutine h5tbinsert_field_f_int(loc_id,&
interface
integer function h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_INT_C'::h5tbinsert_field_int_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- integer, intent(in), dimension(*) :: buf ! data buffer
+ integer, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length length
end function h5tbinsert_field_int_c
@@ -1423,7 +1423,7 @@ subroutine h5tbinsert_field_f_int(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
@@ -1446,15 +1446,15 @@ end subroutine h5tbinsert_field_f_int
!
!-------------------------------------------------------------------------
-subroutine h5tbinsert_field_f_float(loc_id,&
+subroutine h5tbinsert_field_f_float(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
field_type,&
field_index,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1462,12 +1462,12 @@ subroutine h5tbinsert_field_f_float(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length
integer :: errcode ! error code
@@ -1476,19 +1476,19 @@ subroutine h5tbinsert_field_f_float(loc_id,&
interface
integer function h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_FL_C'::h5tbinsert_field_fl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- real, intent(in), dimension(*) :: buf ! data buffer
+ real, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length length
end function h5tbinsert_field_fl_c
@@ -1496,7 +1496,7 @@ subroutine h5tbinsert_field_f_float(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
@@ -1519,15 +1519,15 @@ end subroutine h5tbinsert_field_f_float
!
!-------------------------------------------------------------------------
-subroutine h5tbinsert_field_f_double(loc_id,&
+subroutine h5tbinsert_field_f_double(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
field_type,&
field_index,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1535,12 +1535,12 @@ subroutine h5tbinsert_field_f_double(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length
integer :: errcode ! error code
@@ -1549,19 +1549,19 @@ subroutine h5tbinsert_field_f_double(loc_id,&
interface
integer function h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_DL_C'::h5tbinsert_field_dl_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- double precision, intent(in), dimension(*) :: buf ! data buffer
+ double precision, intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length length
end function h5tbinsert_field_dl_c
@@ -1569,7 +1569,7 @@ subroutine h5tbinsert_field_f_double(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
@@ -1593,15 +1593,15 @@ end subroutine h5tbinsert_field_f_double
!
!-------------------------------------------------------------------------
-subroutine h5tbinsert_field_f_string(loc_id,&
+subroutine h5tbinsert_field_f_string(loc_id,&
dset_name,&
- field_name,&
+ field_name,&
field_type,&
field_index,&
buf,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1609,12 +1609,12 @@ subroutine h5tbinsert_field_f_string(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length
integer :: errcode ! error code
@@ -1623,19 +1623,19 @@ subroutine h5tbinsert_field_f_string(loc_id,&
interface
integer function h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_ST_C'::h5tbinsert_field_st_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer(hid_t), intent(in) :: field_type ! field type
integer, intent(in) :: field_index ! field_index
- character(len=*), intent(in), dimension(*) :: buf ! data buffer
+ character(len=*), intent(in), dimension(*) :: buf ! data buffer
integer :: namelen ! name length
integer :: namelen1 ! name length length
end function h5tbinsert_field_st_c
@@ -1643,7 +1643,7 @@ subroutine h5tbinsert_field_f_string(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
field_type,field_index,buf)
@@ -1667,12 +1667,12 @@ end subroutine h5tbinsert_field_f_string
!
!-------------------------------------------------------------------------
-subroutine h5tbdelete_field_f(loc_id,&
+subroutine h5tbdelete_field_f(loc_id,&
dset_name,&
field_name,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1680,8 +1680,8 @@ subroutine h5tbdelete_field_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
character(len=*), intent(in) :: field_name ! name of the field
integer :: namelen ! name length
integer :: namelen1 ! name length
@@ -1690,15 +1690,15 @@ subroutine h5tbdelete_field_f(loc_id,&
interface
integer function h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name)
-
+
use h5global
!DEC$IF DEFINED(HDF5F90_WINDOWS)
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBDELETE_FIELD_C'::h5tbdelete_field_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
!DEC$ATTRIBUTES reference :: field_name
- integer(HID_T), intent(IN) :: loc_id ! file or group identifier
- character(LEN=*), intent(IN) :: dset_name ! name of the dataset
+ integer(HID_T), intent(IN) :: loc_id ! file or group identifier
+ character(LEN=*), intent(IN) :: dset_name ! name of the dataset
character(LEN=*), intent(IN) :: field_name ! name of the field
integer :: namelen ! name length
integer :: namelen1 ! name length length
@@ -1707,7 +1707,7 @@ subroutine h5tbdelete_field_f(loc_id,&
namelen = len(dset_name)
namelen1 = len(field_name)
-
+
errcode = h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name)
end subroutine h5tbdelete_field_f
@@ -1731,14 +1731,14 @@ end subroutine h5tbdelete_field_f
!
!-------------------------------------------------------------------------
-subroutine h5tbget_table_info_f(loc_id,&
+subroutine h5tbget_table_info_f(loc_id,&
dset_name,&
nfields,&
nrecords,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1746,10 +1746,10 @@ subroutine h5tbget_table_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(inout):: nfields ! nfields
- integer(hsize_t), intent(inout):: nrecords ! nrecords
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(inout):: nfields ! nfields
+ integer(hsize_t), intent(inout):: nrecords ! nrecords
integer :: errcode ! error code
integer :: namelen ! name length
@@ -1760,10 +1760,10 @@ subroutine h5tbget_table_info_f(loc_id,&
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_TABLE_INFO_C'::h5tbget_table_info_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(inout):: nfields ! nfields
- integer(hsize_t), intent(inout):: nrecords ! nrecords
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(inout):: nfields ! nfields
+ integer(hsize_t), intent(inout):: nrecords ! nrecords
integer :: namelen ! name length
end function h5tbget_table_info_c
end interface
@@ -1791,17 +1791,17 @@ end subroutine h5tbget_table_info_f
!
!-------------------------------------------------------------------------
-subroutine h5tbget_field_info_f(loc_id,&
+subroutine h5tbget_field_info_f(loc_id,&
dset_name,&
nfields,&
field_names,&
field_sizes,&
field_offsets,&
type_size,&
- errcode )
+ errcode )
implicit none
-
+
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -1809,13 +1809,13 @@ subroutine h5tbget_field_info_f(loc_id,&
!DEC$endif
!
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in):: nfields ! nfields
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in):: nfields ! nfields
character(len=*), dimension(nfields), intent(inout) :: field_names ! field names
integer(size_t), dimension(nfields), intent(inout) :: field_sizes ! field sizes
integer(size_t), dimension(nfields), intent(inout) :: field_offsets ! field offsets
- integer(size_t), intent(inout):: type_size ! type size
+ integer(size_t), intent(inout):: type_size ! type size
integer :: errcode ! error code
integer :: namelen ! name length
integer, dimension(nfields) :: namelen2 ! name lengths
@@ -1830,13 +1830,13 @@ subroutine h5tbget_field_info_f(loc_id,&
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_FIELD_INFO_C'::h5tbget_field_info_c
!DEC$ENDIF
!DEC$ATTRIBUTES reference :: dset_name
- integer(hid_t), intent(in) :: loc_id ! file or group identifier
- character(len=*), intent(in) :: dset_name ! name of the dataset
- integer(hsize_t), intent(in):: nfields ! nfields
+ integer(hid_t), intent(in) :: loc_id ! file or group identifier
+ character(len=*), intent(in) :: dset_name ! name of the dataset
+ integer(hsize_t), intent(in):: nfields ! nfields
character(len=*), dimension(nfields), intent(inout) :: field_names ! field names
integer(size_t), dimension(nfields), intent(inout) :: field_sizes ! field sizes
integer(size_t), dimension(nfields), intent(inout) :: field_offsets ! field offsets
- integer(size_t), intent(inout):: type_size ! type size
+ integer(size_t), intent(inout):: type_size ! type size
integer :: namelen ! name length
integer, dimension(nfields) :: namelen2 ! name lengths
end function h5tbget_field_info_c
@@ -1856,9 +1856,9 @@ end subroutine h5tbget_field_info_f
! end
!
end module H5TB
-
-
+
+
diff --git a/hl/fortran/test/tstimage.f90 b/hl/fortran/test/tstimage.f90
index 9eee787..3794bbf 100755
--- a/hl/fortran/test/tstimage.f90
+++ b/hl/fortran/test/tstimage.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,21 +11,21 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program image_test
call make_image1()
-end program image_test
+end program image_test
!-------------------------------------------------------------------------
-! make_image1
+! make_image1
!-------------------------------------------------------------------------
subroutine make_image1()
@@ -39,7 +39,7 @@ character(len=8), parameter :: filename = "f1img.h5" ! file name
character(len=4), parameter :: dsetname1 = "img1" ! dataset name
character(len=4), parameter :: dsetname2 = "img2" ! dataset name
character(len=15), parameter :: il ="INTERLACE_PIXEL"! dataset name
-integer(hid_t) :: file_id ! file identifier
+integer(hid_t) :: file_id ! file identifier
integer(hsize_t), parameter :: width = 500 ! width of image
integer(hsize_t), parameter :: height = 200 ! height of image
integer, parameter :: pal_entries = 9 ! palette number of entries
@@ -47,39 +47,39 @@ integer, dimension(width*height) :: buf1 ! data buffer
integer, dimension(width*height) :: bufr1 ! data buffer
integer, dimension(width*height*3) :: buf2 ! data buffer
integer, dimension(width*height*3) :: bufr2 ! data buffer
-integer(hsize_t) :: widthr ! width of image
+integer(hsize_t) :: widthr ! width of image
integer(hsize_t) :: heightr ! height of image
integer(hsize_t) :: planesr ! color planes
integer(hsize_t) :: npalsr ! palettes
-character(len=15) :: interlacer ! interlace
+character(len=15) :: interlacer ! interlace
integer :: errcode ! error flag
integer :: is_image ! error flag
integer :: i, j, n ! general purpose integers
!
! palette
-! create a 9 entry palette
+! create a 9 entry palette
!
character(len=4), parameter :: pal_name = "pal1" ! dataset name
integer(hsize_t), dimension(2) :: pal_dims = (/pal_entries,3/) ! palette dimensions
integer(hsize_t), dimension(2) :: pal_dims_out ! palette dimensions
integer, dimension(pal_entries*3) :: pal_data_out ! data buffer
integer(hsize_t) :: npals ! number of palettes
-integer :: pal_number ! palette number
-integer :: is_palette ! is palette
+integer :: pal_number ! palette number
+integer :: is_palette ! is palette
integer :: space
integer, dimension(pal_entries*3) :: pal_data_in = (/&
- 0,0,168,& ! dark blue
- 0,0,252,& ! blue
- 0,168,252,& ! ocean blue
- 84,252,252,& ! light blue
- 168,252,168,& ! light green
- 0,252,168,& ! green
- 252,252,84,& ! yellow
- 252,168,0,& ! orange
- 252,0,0/) ! red
+ 0,0,168,& ! dark blue
+ 0,0,252,& ! blue
+ 0,168,252,& ! ocean blue
+ 84,252,252,& ! light blue
+ 168,252,168,& ! light green
+ 0,252,168,& ! green
+ 252,252,84,& ! yellow
+ 252,168,0,& ! orange
+ 252,0,0/) ! red
-! create an 8bit image of 9 values divided evenly by the array
+! create an 8bit image of 9 values divided evenly by the array
!
space = width*height / pal_entries;
n = 0; j = 0;
@@ -110,7 +110,7 @@ end do
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -119,17 +119,17 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
-! indexed image
+! indexed image
!-------------------------------------------------------------------------
call test_begin(' Make/Read image 8bit ')
!
-! write image.
+! write image.
!
call h5immake_image_8bit_f(file_id,dsetname1,width,height,buf1,errcode)
!
-! read image.
+! read image.
!
call h5imread_image_f(file_id,dsetname1,bufr1,errcode)
!
@@ -144,7 +144,7 @@ do i = 1, width*height
end do
!
-! get image info.
+! get image info.
!
call h5imget_image_info_f(file_id,dsetname1,widthr,heightr,planesr,interlacer,npalsr,errcode)
@@ -163,18 +163,18 @@ endif
call passed()
!-------------------------------------------------------------------------
-! true color image
+! true color image
!-------------------------------------------------------------------------
call test_begin(' Make/Read image 24bit ')
!
-! write image.
+! write image.
!
call h5immake_image_24bit_f(file_id,dsetname2,width,height,il,buf2,errcode)
!
-! read image.
+! read image.
!
call h5imread_image_f(file_id,dsetname2,bufr2,errcode)
@@ -190,7 +190,7 @@ do i = 1, width*height*3
end do
!
-! get image info.
+! get image info.
!
call h5imget_image_info_f(file_id,dsetname2,widthr,heightr,planesr,interlacer,npalsr,errcode)
@@ -210,15 +210,15 @@ endif
call passed()
!-------------------------------------------------------------------------
-! palette
+! palette
!-------------------------------------------------------------------------
call test_begin(' Make palette ')
!
-! make palette.
+! make palette.
!
-call h5immake_palette_f(file_id,pal_name,pal_dims,pal_data_in,errcode)
+call h5immake_palette_f(file_id,pal_name,pal_dims,pal_data_in,errcode)
call passed()
@@ -226,13 +226,13 @@ call passed()
call test_begin(' Link/Unlink palette ')
!
-! link palette.
+! link palette.
!
call h5imlink_palette_f(file_id,dsetname1,pal_name,errcode)
!
-! read palette.
+! read palette.
!
pal_number = 0
call h5imget_palette_f(file_id,dsetname1,pal_number,pal_data_out,errcode)
@@ -251,7 +251,7 @@ end do
!
! get number of palettes
!
-call h5imget_npalettes_f(file_id,dsetname1,npals,errcode)
+call h5imget_npalettes_f(file_id,dsetname1,npals,errcode)
if ( npals /= 1) then
print *, 'h5imget_npalettes_f bad value'
@@ -262,7 +262,7 @@ endif
! get palette info
!
pal_number = 0
-call h5imget_palette_info_f(file_id,dsetname1,pal_number,pal_dims_out,errcode)
+call h5imget_palette_info_f(file_id,dsetname1,pal_number,pal_dims_out,errcode)
if ( (pal_dims_out(1) /= pal_dims(1)) .or. (pal_dims_out(2) /= pal_dims(2))) then
print *, 'h5imget_palette_info_f bad value'
@@ -270,9 +270,9 @@ if ( (pal_dims_out(1) /= pal_dims(1)) .or. (pal_dims_out(2) /= pal_dims(2))) the
endif
!
-! is palette
+! is palette
!
-is_palette = h5imis_palette_f(file_id,pal_name)
+is_palette = h5imis_palette_f(file_id,pal_name)
if ( is_palette /= 1 ) then
print *, 'h5imis_palette_f bad value'
@@ -280,14 +280,14 @@ if ( is_palette /= 1 ) then
endif
!
-! unlink palette.
+! unlink palette.
!
call h5imunlink_palette_f(file_id,dsetname1,pal_name,errcode)
!
! get number of palettes
!
-call h5imget_npalettes_f(file_id,dsetname1,npals,errcode )
+call h5imget_npalettes_f(file_id,dsetname1,npals,errcode )
if ( npals /= 0) then
print *, 'h5imget_npalettes_f bad value'
@@ -304,7 +304,7 @@ call passed()
!-------------------------------------------------------------------------
-! end
+! end
!-------------------------------------------------------------------------
!
@@ -323,17 +323,17 @@ call h5close_f(errcode)
end subroutine make_image1
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(len=*), intent(in) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index 168bb99..504b8d7 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program lite_test
@@ -25,16 +25,16 @@ call test_dataset3D()
call test_datasets()
call test_attributes()
-end program lite_test
+end program lite_test
!-------------------------------------------------------------------------
-! test_dataset1D
+! test_dataset1D
!-------------------------------------------------------------------------
subroutine test_dataset1D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -44,7 +44,7 @@ character(len=9), parameter :: filename = "dsetf1.h5"! File name
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(1) :: dims = (/DIM1/) ! Dataset dimensions
integer :: rank = 1 ! Dataset rank
integer, dimension(DIM1) :: buf1 ! Data buffer
@@ -72,7 +72,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -80,16 +80,16 @@ call h5open_f(errcode)
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
-! H5T_NATIVE_INTEGER
+! H5T_NATIVE_INTEGER
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf1, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr1, dims, errcode)
@@ -105,16 +105,16 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! H5T_NATIVE_REAL
+! H5T_NATIVE_REAL
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_REAL, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_REAL, bufr2, dims, errcode)
@@ -130,16 +130,16 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! H5T_NATIVE_DOUBLE
+! H5T_NATIVE_DOUBLE
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_DOUBLE, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_DOUBLE, bufr3, dims, errcode)
@@ -169,14 +169,14 @@ call passed()
! end function.
!
end subroutine test_dataset1D
-
+
!-------------------------------------------------------------------------
-! test_dataset2D
+! test_dataset2D
!-------------------------------------------------------------------------
subroutine test_dataset2D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -189,7 +189,7 @@ character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
character(LEN=5), parameter :: dsetname4 = "dset4" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(2) :: dims = (/4,6/) ! Dataset dimensions
integer :: rank = 2 ! Dataset rank
integer, dimension(DIM1*DIM2) :: buf ! Data buffer
@@ -222,12 +222,12 @@ do i = 1, dims(1)
buf4(i,j) = (i-1)*dims(2) + j;
end do
end do
-
+
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -239,12 +239,12 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr, dims, errcode)
@@ -264,12 +264,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_INTEGER, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_INTEGER, buf2r, dims, errcode)
@@ -291,12 +291,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_REAL, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_REAL, buf3r, dims, errcode)
@@ -318,12 +318,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, buf4r, dims, errcode)
@@ -354,7 +354,7 @@ call passed()
!
! end function.
!
-end subroutine test_dataset2D
+end subroutine test_dataset2D
!-------------------------------------------------------------------------
@@ -364,7 +364,7 @@ end subroutine test_dataset2D
subroutine test_dataset3D()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
@@ -377,7 +377,7 @@ character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
character(LEN=5), parameter :: dsetname2 = "dset2" ! Dataset name
character(LEN=5), parameter :: dsetname3 = "dset3" ! Dataset name
character(LEN=5), parameter :: dsetname4 = "dset4" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), dimension(3) :: dims = (/DIM1,DIM2,DIM3/) ! Dataset dimensions
integer(HSIZE_T), dimension(3) :: dimsr ! Dataset dimensions
integer, dimension(DIM1*DIM2*DIM3) :: buf ! Data buffer
@@ -421,7 +421,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -433,12 +433,12 @@ call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname1, rank, dims, H5T_NATIVE_INTEGER, buf, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname1, H5T_NATIVE_INTEGER, bufr, dims, errcode)
@@ -458,12 +458,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname2, rank, dims, H5T_NATIVE_INTEGER, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname2, H5T_NATIVE_INTEGER, buf2r, dims, errcode)
@@ -487,12 +487,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_REAL, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname3, H5T_NATIVE_REAL, buf3r, dims, errcode)
@@ -516,12 +516,12 @@ end do
!-------------------------------------------------------------------------
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, buf4r, dims, errcode)
@@ -540,7 +540,7 @@ do i = 1, dims(1)
end do
end do
-call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
+call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
!
! compare dimensions
@@ -576,13 +576,13 @@ end subroutine test_dataset3D
subroutine test_datasets()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
character(len=9), parameter :: filename = "dsetf4.h5"! File name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer :: errcode ! Error flag
integer, parameter :: DIM1 = 10; ! Dimension of array
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
@@ -610,7 +610,7 @@ integer(SIZE_T) :: type_size
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -629,18 +629,18 @@ do i = 1, DIM1
end do
!-------------------------------------------------------------------------
-! int
+! int
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (integer) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_int_f(file_id, dsetname2, rank, dims, buf2, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_int_f(file_id, dsetname2, bufr2, dims, errcode)
@@ -658,19 +658,19 @@ end do
call passed()
!-------------------------------------------------------------------------
-! real
+! real
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (float) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_float_f(file_id, dsetname3, rank, dims, buf3, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_float_f(file_id, dsetname3, bufr3, dims, errcode)
@@ -688,19 +688,19 @@ end do
call passed()
!-------------------------------------------------------------------------
-! double
+! double
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (double) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_double_f(file_id, dsetname4, rank, dims, buf4, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_double_f(file_id, dsetname4, bufr4, dims, errcode)
@@ -719,19 +719,19 @@ call passed()
!-------------------------------------------------------------------------
-! string
+! string
!-------------------------------------------------------------------------
call test_begin(' Make/Read datasets (string) ')
!
-! write dataset.
+! write dataset.
!
call h5ltmake_dataset_string_f(file_id, dsetname5, buf1, errcode)
!
-! read dataset.
+! read dataset.
!
call h5ltread_dataset_string_f(file_id, dsetname5, buf1r, errcode)
@@ -754,7 +754,7 @@ call passed()
call test_begin(' Get dataset dimensions/info ')
!-------------------------------------------------------------------------
-! h5ltget_dataset_ndims_f
+! h5ltget_dataset_ndims_f
!-------------------------------------------------------------------------
call h5ltget_dataset_ndims_f(file_id, dsetname4, rankr, errcode)
@@ -780,7 +780,7 @@ endif
!-------------------------------------------------------------------------
-call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
+call h5ltget_dataset_info_f(file_id,dsetname4,dimsr,type_class,type_size,errcode )
!
! compare dimensions
@@ -811,22 +811,22 @@ call passed()
! end function.
!
end subroutine test_datasets
-
-
+
+
!-------------------------------------------------------------------------
-! test_attributes
+! test_attributes
!-------------------------------------------------------------------------
subroutine test_attributes()
-use H5LT ! module of H5LT
+use H5LT ! module of H5LT
use HDF5 ! module of HDF5 library
implicit none
character(len=9), parameter :: filename = "dsetf5.h5"! File name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer, parameter :: DIM1 = 10; ! Dimension of array
character(LEN=5), parameter :: attrname1 = "attr1" ! Attribute name
character(LEN=5), parameter :: attrname2 = "attr2" ! Attribute name
@@ -856,13 +856,13 @@ integer, dimension(DIM1) :: buf ! Data buffer
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
!
call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, errcode)
!
-! make a dataset.
+! make a dataset.
!
call h5ltmake_dataset_int_f(file_id, dsetname1, rank, dims, buf, errcode)
@@ -887,12 +887,12 @@ call test_begin(' Set/Get attributes int ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_int_f(file_id,dsetname1,attrname2,buf2,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_int_f(file_id,dsetname1,attrname2,bufr2,errcode)
@@ -917,12 +917,12 @@ call test_begin(' Set/Get attributes float ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_float_f(file_id,dsetname1,attrname3,buf3,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_float_f(file_id,dsetname1,attrname3,bufr3,errcode)
@@ -948,12 +948,12 @@ call test_begin(' Set/Get attributes double ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_double_f(file_id,dsetname1,attrname4,buf4,size,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_double_f(file_id,dsetname1,attrname4,bufr4,errcode)
@@ -980,12 +980,12 @@ call test_begin(' Set/Get attributes string ')
!
-! write attribute.
+! write attribute.
!
call h5ltset_attribute_string_f(file_id,dsetname1,attrname5,buf1,errcode)
!
-! read attribute.
+! read attribute.
!
call h5ltget_attribute_string_f(file_id,dsetname1,attrname5,bufr1,errcode)
@@ -1009,7 +1009,7 @@ call passed()
call test_begin(' Get attribute rank/info ')
-call h5ltget_attribute_ndims_f(file_id,dsetname1,attrname2,rankr,errcode)
+call h5ltget_attribute_ndims_f(file_id,dsetname1,attrname2,rankr,errcode)
if ( rankr .ne. 1 ) then
print *, 'h5ltget_attribute_ndims_f return error'
@@ -1017,7 +1017,7 @@ if ( rankr .ne. 1 ) then
endif
-call h5ltget_attribute_info_f(file_id,dsetname1,attrname2,dimsr,type_class,type_size,errcode)
+call h5ltget_attribute_info_f(file_id,dsetname1,attrname2,dimsr,type_class,type_size,errcode)
!
! compare dimensions
@@ -1051,17 +1051,17 @@ end subroutine test_attributes
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(LEN=*), intent(IN) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()
diff --git a/hl/fortran/test/tsttable.f90 b/hl/fortran/test/tsttable.f90
index c9c6b33..a6ce27f 100755
--- a/hl/fortran/test/tsttable.f90
+++ b/hl/fortran/test/tsttable.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
! Copyright by The HDF Group. *
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
@@ -11,10 +11,10 @@
! 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. *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
!
!
-! This file contains the FORTRAN90 tests for H5LT
+! This file contains the FORTRAN90 tests for H5LT
!
program table_test
@@ -22,23 +22,23 @@ program table_test
call test_table1()
-end program table_test
+end program table_test
!-------------------------------------------------------------------------
-! test_table1
+! test_table1
!-------------------------------------------------------------------------
subroutine test_table1()
-use H5TB ! module of H5TB
+use H5TB ! module of H5TB
use HDF5 ! module of HDF5 library
implicit none
character(len=8), parameter :: filename = "f1tab.h5" ! File name
character(LEN=5), parameter :: dsetname1 = "dset1" ! Dataset name
-integer(HID_T) :: file_id ! File identifier
+integer(HID_T) :: file_id ! File identifier
integer(HSIZE_T), parameter :: nfields = 4; ! nfields
integer(HSIZE_T), parameter :: nrecords = 5; ! nrecords
character(LEN=6), dimension(nfields) :: field_names ! field names
@@ -49,7 +49,7 @@ integer, parameter :: compress = 0 ! compress
integer :: errcode ! Error flag
integer :: i ! general purpose integer
integer(SIZE_T) :: type_size ! Size of the datatype
-integer(SIZE_T) :: type_sizec ! Size of the character datatype
+integer(SIZE_T) :: type_sizec ! Size of the character datatype
integer(SIZE_T) :: type_sizei ! Size of the integer datatype
integer(SIZE_T) :: type_sized ! Size of the double precision datatype
integer(SIZE_T) :: type_sizer ! Size of the real datatype
@@ -84,7 +84,7 @@ end do
!
! Initialize FORTRAN predefined datatypes.
!
-call h5open_f(errcode)
+call h5open_f(errcode)
!
! Create a new file using default properties.
@@ -142,9 +142,9 @@ call test_begin(' Make table ')
call h5tbmake_table_f(dsetname1,&
- file_id,&
+ file_id,&
dsetname1,&
- nfields,&
+ nfields,&
nrecords,&
type_size,&
field_names,&
@@ -163,7 +163,7 @@ call passed()
call test_begin(' Read/Write field by name ')
call h5tbwrite_field_name_f(file_id,dsetname1,field_names(1),start,nrecords,type_sizec,&
- bufs,errcode)
+ bufs,errcode)
call h5tbwrite_field_name_f(file_id,dsetname1,field_names(2),start,nrecords,type_sizei,&
bufi,errcode)
@@ -236,7 +236,7 @@ do i = 1, nrecords
endif
end do
-
+
call passed()
@@ -247,7 +247,7 @@ call passed()
call test_begin(' Read/Write field by index ')
call h5tbwrite_field_index_f(file_id,dsetname1,1,start,nrecords,type_sizec,&
- bufs,errcode)
+ bufs,errcode)
call h5tbwrite_field_index_f(file_id,dsetname1,2,start,nrecords,type_sizei,&
bufi,errcode)
@@ -320,12 +320,12 @@ do i = 1, nrecords
endif
end do
-
+
call passed()
!-------------------------------------------------------------------------
-! Insert field
+! Insert field
! we insert a field callsed "field5" with the same type and buffer as field 4 (Real)
!-------------------------------------------------------------------------
@@ -362,12 +362,12 @@ call passed()
!-------------------------------------------------------------------------
-! Gets the number of records and fields
+! Gets the number of records and fields
!-------------------------------------------------------------------------
call test_begin(' Get table info ')
-call h5tbget_table_info_f(file_id,dsetname1,nfieldsr,nrecordsr,errcode )
+call h5tbget_table_info_f(file_id,dsetname1,nfieldsr,nrecordsr,errcode )
if ( nfieldsr .ne. nfields .and. nrecordsr .ne. nrecords ) then
print *, 'h5tbget_table_info_f return error'
@@ -384,7 +384,7 @@ call passed()
!call test_begin(' Get fields info ')
!call h5tbget_field_info_f(file_id,dsetname1,nfields,field_namesr,field_sizesr,&
-! field_offsetr,type_sizeout,errcode )
+! field_offsetr,type_sizeout,errcode )
!call passed()
@@ -416,17 +416,17 @@ end subroutine test_table1
!-------------------------------------------------------------------------
-! test_begin
+! test_begin
!-------------------------------------------------------------------------
subroutine test_begin(string)
character(LEN=*), intent(IN) :: string
write(*, fmt = '(14a)', advance = 'no') string
-write(*, fmt = '(40x,a)', advance = 'no') ' '
+write(*, fmt = '(40x,a)', advance = 'no') ' '
end subroutine test_begin
!-------------------------------------------------------------------------
-! passed
+! passed
!-------------------------------------------------------------------------
subroutine passed()
diff --git a/hl/src/H5DS.c b/hl/src/H5DS.c
index e15c132..245a2c5 100644
--- a/hl/src/H5DS.c
+++ b/hl/src/H5DS.c
@@ -149,10 +149,10 @@ herr_t H5DSattach_scale(hid_t did,
* parameter checking
*-------------------------------------------------------------------------
*/
-
+
if ((is_scale = H5DSis_scale(did)) < 0)
return FAIL;
-
+
/* the dataset cannot be a DS dataset */
if ( is_scale == 1)
return FAIL;
@@ -473,7 +473,7 @@ herr_t H5DSattach_scale(hid_t did,
if((tid = H5Aget_type(aid)) < 0)
goto out;
-
+
if((ntid = H5Tget_native_type(tid, H5T_DIR_DEFAULT)) < 0)
goto out;
@@ -656,10 +656,10 @@ herr_t H5DSdetach_scale(hid_t did,
* parameter checking
*-------------------------------------------------------------------------
*/
-
+
if ((is_scale = H5DSis_scale(did)) < 0)
return FAIL;
-
+
/* the dataset cannot be a DS dataset */
if ( is_scale == 1)
return FAIL;
@@ -770,7 +770,7 @@ herr_t H5DSdetach_scale(hid_t did,
goto out;
/* same object, reset */
- if(oi1.fileno == oi2.fileno && oi1.addr == oi2.addr)
+ if(oi1.fileno == oi2.fileno && oi1.addr == oi2.addr)
{
size_t len;
@@ -778,13 +778,13 @@ herr_t H5DSdetach_scale(hid_t did,
{
((hobj_ref_t *)buf[idx].p)[jj] = ((hobj_ref_t *)buf[idx].p)[jj+1];
}
-
+
buf[idx].len--;
len = buf[idx].len;
buf[idx].p = realloc( buf[idx].p, len * sizeof(hobj_ref_t));
-
+
found_ds = 1;
-
+
/* close the dereferenced dataset and break */
if (H5Dclose(dsid_j) < 0)
goto out;
@@ -831,7 +831,7 @@ herr_t H5DSdetach_scale(hid_t did,
if((tid = H5Aget_type(aid)) < 0)
goto out;
-
+
if((ntid = H5Tget_native_type(tid, H5T_DIR_DEFAULT)) < 0)
goto out;
@@ -950,17 +950,17 @@ herr_t H5DSdetach_scale(hid_t did,
if (H5Tclose(tid) < 0)
goto out;
- if (dsbuf)
+ if (dsbuf)
{
free(dsbuf);
dsbuf=NULL;
}
- if (dsbufn)
+ if (dsbufn)
{
free(dsbufn);
dsbufn=NULL;
}
- if (dims)
+ if (dims)
{
free(dims);
dims=NULL;
@@ -976,23 +976,23 @@ out:
H5Aclose(aid);
H5Tclose(ntid);
H5Tclose(tid);
-
- if (dsbuf)
+
+ if (dsbuf)
{
free(dsbuf);
dsbuf=NULL;
}
- if (dsbufn)
+ if (dsbufn)
{
free(dsbufn);
dsbufn=NULL;
}
- if (dims)
+ if (dims)
{
free(dims);
dims=NULL;
}
- if (buf)
+ if (buf)
{
free(buf);
buf=NULL;
@@ -1056,10 +1056,10 @@ htri_t H5DSis_attached(hid_t did,
* parameter checking
*-------------------------------------------------------------------------
*/
-
+
if ((is_scale = H5DSis_scale(did)) < 0)
return FAIL;
-
+
/* the dataset cannot be a DS dataset */
if ( is_scale == 1)
return FAIL;
@@ -1202,10 +1202,10 @@ htri_t H5DSis_attached(hid_t did,
if((tid = H5Aget_type(aid)) < 0)
goto out;
-
+
if((ntid = H5Tget_native_type(tid, H5T_DIR_DEFAULT)) < 0)
goto out;
-
+
/* get and save the old reference(s) */
if((sid = H5Aget_space(aid)) < 0)
goto out;
@@ -1313,8 +1313,8 @@ out:
*
* hid_t DID; IN: the dataset
* unsigned int DIM; IN: the dimension of the dataset
-* int *DS_IDX; IN/OUT: on input the dimension scale index to start iterating,
-* on output the next index to visit. If NULL, start at
+* int *DS_IDX; IN/OUT: on input the dimension scale index to start iterating,
+* on output the next index to visit. If NULL, start at
* the first position.
* H5DS_iterate_t VISITOR; IN: the visitor function
* void *VISITOR_DATA; IN: arbitrary data to pass to the visitor function.
@@ -1455,7 +1455,7 @@ herr_t H5DSiterate_scales(hid_t did,
if((ret_value=(visitor)(did,dim,scale_id,visitor_data))!=0)
{
/* break */
-
+
/* close the DS id */
if (H5Dclose(scale_id) < 0)
goto out;
@@ -1521,7 +1521,7 @@ out:
*-------------------------------------------------------------------------
*/
-herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
+herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
{
int has_labels;
hid_t sid = -1; /* space ID */
@@ -1573,7 +1573,7 @@ herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
*-------------------------------------------------------------------------
*/
- if (has_labels == 0)
+ if (has_labels == 0)
{
dims[0] = rank;
@@ -1626,7 +1626,7 @@ herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
*-------------------------------------------------------------------------
*/
- else
+ else
{
if ((aid = H5Aopen(did, DIMENSION_LABELS, H5P_DEFAULT)) < 0)
goto out;
@@ -1659,7 +1659,7 @@ herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
buf[idx] = NULL;
/* free all the ptr's from the H5Aread() */
- for (i = 0; i < (unsigned int) rank; i++)
+ for (i = 0; i < (unsigned int) rank; i++)
{
if (buf[i])
free((void *)buf[i]);
@@ -1680,13 +1680,13 @@ herr_t H5DSset_label(hid_t did, unsigned int idx, const char *label)
return SUCCEED;
/* error zone */
-out:
- if (buf)
+out:
+ if (buf)
{
if (buf[idx]) /* check if we errored during H5Awrite */
buf[idx] = NULL; /* don't free label */
/* free all the ptr's from the H5Aread() */
- for (i = 0; i < (unsigned int) rank; i++)
+ for (i = 0; i < (unsigned int) rank; i++)
{
if (buf[i])
free((void *)buf[i]);
@@ -1723,7 +1723,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
+ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
{
int has_labels;
hid_t sid = -1; /* space ID */
@@ -1772,12 +1772,12 @@ ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
return FAIL;
/* return 0 and NULL for label if no label found */
- if (has_labels == 0)
+ if (has_labels == 0)
{
if (label)
label[0] = 0;
return 0;
- }
+ }
/*-------------------------------------------------------------------------
* open the attribute and read label
@@ -1808,7 +1808,7 @@ ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
copy_len = MIN(size-1, nbytes);
/* copy all/some of the name */
- if (label)
+ if (label)
{
memcpy(label, buf[idx], copy_len);
@@ -1817,7 +1817,7 @@ ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
}
/* free all the ptr's from the H5Aread() */
- for (i = 0; i < rank; i++)
+ for (i = 0; i < rank; i++)
{
if (buf[i])
free(buf[i]);
@@ -1837,11 +1837,11 @@ ssize_t H5DSget_label(hid_t did, unsigned int idx, char *label, size_t size)
return (ssize_t) nbytes;
/* error zone */
-out:
- if (buf)
+out:
+ if (buf)
{
/* free all the ptr's from the H5Aread() */
- for (i = 0; i < rank; i++)
+ for (i = 0; i < rank; i++)
{
if (buf[i])
free(buf[i]);
@@ -2261,7 +2261,7 @@ herr_t H5DS_is_reserved(hid_t did)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Tclose(tid);
H5Aclose(aid);
diff --git a/hl/src/H5IM.c b/hl/src/H5IM.c
index 361a65b..11f4014 100644
--- a/hl/src/H5IM.c
+++ b/hl/src/H5IM.c
@@ -165,8 +165,8 @@ herr_t H5IMmake_image_24bit( hid_t loc_id,
*
*-------------------------------------------------------------------------
*/
-static herr_t find_palette(hid_t loc_id,
- const char *name,
+static herr_t find_palette(hid_t loc_id,
+ const char *name,
const H5A_info_t *ainfo,
void *op_data)
{
@@ -248,7 +248,7 @@ herr_t H5IMget_image_info( hid_t loc_id,
hid_t atid;
H5T_class_t aclass;
int has_pal;
- int has_attr;
+ int has_attr;
/*assume initially we have no palettes attached*/
*npals = 0;
diff --git a/hl/src/H5LT.c b/hl/src/H5LT.c
index d118942..22bb97f 100644
--- a/hl/src/H5LT.c
+++ b/hl/src/H5LT.c
@@ -1757,7 +1757,7 @@ out:
sprintf(tmp_str, "\n%*s <empty>", indt + 4, "");
strcat(str, tmp_str);
} /* end if */
-
+
/* Release resources */
if(name) {
for(i = 0; i < nmembs; i++)
diff --git a/hl/src/H5LTparse.c b/hl/src/H5LTparse.c
index 98dcbd5..41c4cec 100644
--- a/hl/src/H5LTparse.c
+++ b/hl/src/H5LTparse.c
@@ -17,7 +17,7 @@
* on jam. Do NOT modify it by hand.
*/
#ifndef lint
-static char const
+static char const
yyrcsid[] = "$FreeBSD: src/usr.bin/yacc/skeleton.c,v 1.28 2000/01/17 02:04:06 bde Exp $";
#endif
#include <stdlib.h>
@@ -91,7 +91,7 @@ struct arr_info {
};
/*stack for nested array type*/
struct arr_info arr_stack[STACK_SIZE];
-int asindex = -1; /*pointer to the top of array stack*/
+int asindex = -1; /*pointer to the top of array stack*/
hbool_t is_str_size = 0; /*flag to lexer for string size*/
hbool_t is_str_pad = 0; /*flag to lexer for string padding*/
@@ -99,7 +99,7 @@ H5T_pad_t str_pad; /*variable for string padding*/
H5T_cset_t str_cset; /*variable for string character set*/
hbool_t is_variable = 0; /*variable for variable-length string*/
size_t str_size; /*variable for string size*/
-
+
hid_t enum_id; /*type ID*/
hbool_t is_enum = 0; /*flag to lexer for enum type*/
hbool_t is_enum_memb = 0; /*flag to lexer for enum member*/
@@ -822,9 +822,9 @@ case 46:
break;
case 47:
#line 156 "H5LTparse.y"
-{ yyval.ival = cmpd_stack[csindex].id;
+{ yyval.ival = cmpd_stack[csindex].id;
cmpd_stack[csindex].id = 0;
- cmpd_stack[csindex].first_memb = 1;
+ cmpd_stack[csindex].first_memb = 1;
csindex--;
}
break;
@@ -834,7 +834,7 @@ case 50:
break;
case 51:
#line 167 "H5LTparse.y"
-{
+{
size_t origin_size, new_size;
hid_t dtype_id = cmpd_stack[csindex].id;
@@ -848,7 +848,7 @@ case 51:
cmpd_stack[csindex].first_memb = 0;
} else {
origin_size = H5Tget_size(dtype_id);
-
+
if(yyvsp[-1].ival == 0) {
new_size = origin_size + H5Tget_size(yyvsp[-6].ival);
H5Tset_size(dtype_id, new_size);
@@ -859,10 +859,10 @@ case 51:
H5Tinsert(dtype_id, yyvsp[-3].sval, yyvsp[-1].ival, yyvsp[-6].ival);
}
}
-
+
cmpd_stack[csindex].is_field = 0;
H5Tclose(yyvsp[-6].ival);
-
+
new_size = H5Tget_size(dtype_id);
}
break;
@@ -886,7 +886,7 @@ case 56:
break;
case 57:
#line 213 "H5LTparse.y"
-{
+{
yyval.ival = H5Tarray_create2(yyvsp[-1].ival, arr_stack[asindex].ndims, arr_stack[asindex].dims);
arr_stack[asindex].ndims = 0;
asindex--;
@@ -900,9 +900,9 @@ break;
case 61:
#line 224 "H5LTparse.y"
{ unsigned ndims = arr_stack[asindex].ndims;
- arr_stack[asindex].dims[ndims] = (hsize_t)yylval.ival;
+ arr_stack[asindex].dims[ndims] = (hsize_t)yylval.ival;
arr_stack[asindex].ndims++;
- arr_stack[asindex].is_dim = 0;
+ arr_stack[asindex].is_dim = 0;
}
break;
case 64:
@@ -915,10 +915,10 @@ case 65:
break;
case 66:
#line 241 "H5LTparse.y"
-{
+{
size_t size = (size_t)yylval.ival;
yyval.ival = H5Tcreate(H5T_OPAQUE, size);
- is_opq_size = 0;
+ is_opq_size = 0;
}
break;
case 67:
@@ -927,7 +927,7 @@ case 67:
break;
case 68:
#line 247 "H5LTparse.y"
-{
+{
H5Tset_tag(yyvsp[-6].ival, yylval.sval);
is_opq_tag = 0;
}
@@ -942,12 +942,12 @@ case 72:
break;
case 73:
#line 260 "H5LTparse.y"
-{
+{
if(yyvsp[-1].ival == H5T_VARIABLE_TOKEN)
is_variable = 1;
- else
+ else
str_size = yylval.ival;
- is_str_size = 0;
+ is_str_size = 0;
}
break;
case 74:
@@ -963,7 +963,7 @@ case 74:
break;
case 75:
#line 277 "H5LTparse.y"
-{
+{
if(yyvsp[-1].ival == H5T_CSET_ASCII_TOKEN)
str_cset = H5T_CSET_ASCII;
else if(yyvsp[-1].ival == H5T_CSET_UTF8_TOKEN)
@@ -981,7 +981,7 @@ case 76:
break;
case 77:
#line 291 "H5LTparse.y"
-{
+{
hid_t str_id = yyvsp[-1].ival;
/*set string size*/
@@ -990,12 +990,12 @@ case 77:
is_variable = 0;
} else
H5Tset_size(str_id, str_size);
-
+
/*set string padding and character set*/
H5Tset_strpad(str_id, str_pad);
H5Tset_cset(str_id, str_cset);
- yyval.ival = str_id;
+ yyval.ival = str_id;
}
break;
case 78:
@@ -1042,7 +1042,7 @@ case 91:
#line 330 "H5LTparse.y"
{
is_enum_memb = 1; /*indicate member of enum*/
- enum_memb_symbol = strdup(yylval.sval);
+ enum_memb_symbol = strdup(yylval.sval);
}
break;
case 92:
@@ -1057,32 +1057,32 @@ case 92:
hid_t native = H5Tget_native_type(super, H5T_DIR_ASCEND);
H5T_order_t super_order = H5Tget_order(super);
H5T_order_t native_order = H5Tget_order(native);
-
+
if(is_enum && is_enum_memb) { /*if it's an enum member*/
/*To handle machines of different endianness*/
if(H5Tequal(native, H5T_NATIVE_SCHAR) || H5Tequal(native, H5T_NATIVE_UCHAR)) {
if(super_order != native_order)
- H5Tconvert(native, super, 1, &char_val, NULL, H5P_DEFAULT);
+ H5Tconvert(native, super, 1, &char_val, NULL, H5P_DEFAULT);
H5Tenum_insert(enum_id, enum_memb_symbol, &char_val);
} else if(H5Tequal(native, H5T_NATIVE_SHORT) || H5Tequal(native, H5T_NATIVE_USHORT)) {
if(super_order != native_order)
- H5Tconvert(native, super, 1, &short_val, NULL, H5P_DEFAULT);
+ H5Tconvert(native, super, 1, &short_val, NULL, H5P_DEFAULT);
H5Tenum_insert(enum_id, enum_memb_symbol, &short_val);
} else if(H5Tequal(native, H5T_NATIVE_INT) || H5Tequal(native, H5T_NATIVE_UINT)) {
if(super_order != native_order)
- H5Tconvert(native, super, 1, &int_val, NULL, H5P_DEFAULT);
+ H5Tconvert(native, super, 1, &int_val, NULL, H5P_DEFAULT);
H5Tenum_insert(enum_id, enum_memb_symbol, &int_val);
} else if(H5Tequal(native, H5T_NATIVE_LONG) || H5Tequal(native, H5T_NATIVE_ULONG)) {
if(super_order != native_order)
- H5Tconvert(native, super, 1, &long_val, NULL, H5P_DEFAULT);
+ H5Tconvert(native, super, 1, &long_val, NULL, H5P_DEFAULT);
H5Tenum_insert(enum_id, enum_memb_symbol, &long_val);
} else if(H5Tequal(native, H5T_NATIVE_LLONG) || H5Tequal(native, H5T_NATIVE_ULLONG)) {
if(super_order != native_order)
- H5Tconvert(native, super, 1, &llong_val, NULL, H5P_DEFAULT);
+ H5Tconvert(native, super, 1, &llong_val, NULL, H5P_DEFAULT);
H5Tenum_insert(enum_id, enum_memb_symbol, &llong_val);
}
- is_enum_memb = 0;
+ is_enum_memb = 0;
if(enum_memb_symbol) free(enum_memb_symbol);
}
diff --git a/hl/src/H5PT.c b/hl/src/H5PT.c
index 3d16db5..ff4347a 100644
--- a/hl/src/H5PT.c
+++ b/hl/src/H5PT.c
@@ -215,8 +215,8 @@ out:
* Modifications:
*
* John Mainzer -- 4/23/08
- * Added error check on malloc of table, initialized fields
- * in table to keep lower level code from choking on bogus
+ * Added error check on malloc of table, initialized fields
+ * in table to keep lower level code from choking on bogus
* data in error cases.
*
*-------------------------------------------------------------------------
diff --git a/hl/src/H5TB.c b/hl/src/H5TB.c
index b9cb73c..6edc244 100644
--- a/hl/src/H5TB.c
+++ b/hl/src/H5TB.c
@@ -181,7 +181,7 @@ herr_t H5TBmake_table( const char *table_title,
/* attach the FIELD_ name attribute */
for ( i = 0; i < nfields; i++)
- {
+ {
/* get the member name */
member_name = H5Tget_member_name( mem_type_id,(unsigned) i );
@@ -339,7 +339,7 @@ herr_t H5TBappend_records( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(mem_type_id);
@@ -443,7 +443,7 @@ herr_t H5TBwrite_records( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(mem_type_id);
@@ -607,7 +607,7 @@ herr_t H5TBwrite_fields_name( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(preserve_id);
H5Dclose(did);
@@ -766,7 +766,7 @@ herr_t H5TBwrite_fields_index( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(preserve_id);
H5Dclose(did);
@@ -856,7 +856,7 @@ herr_t H5TBread_table( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(mem_type_id);
@@ -1091,7 +1091,7 @@ herr_t H5TBread_fields_name( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(mem_type_id);
@@ -1247,7 +1247,7 @@ herr_t H5TBread_fields_index( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(read_type_id);
@@ -1414,7 +1414,7 @@ out:
if (tmp_buf !=NULL )
free( tmp_buf );
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(tid);
@@ -1574,7 +1574,7 @@ herr_t H5TBinsert_record( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Sclose(sid);
@@ -1711,7 +1711,7 @@ herr_t H5TBadd_records_from( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did_1);
H5Sclose(sid_1);
@@ -2065,7 +2065,7 @@ herr_t H5TBcombine_tables( hid_t loc_id1,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did_1);
H5Sclose(sid_1);
@@ -2220,7 +2220,7 @@ herr_t H5TBinsert_field( hid_t loc_id,
if (inserted )
idx = i - 1;
- if (i == position )
+ if (i == position )
{
/* get the new member size */
new_member_size = H5Tget_size( field_type );
@@ -2502,7 +2502,7 @@ herr_t H5TBinsert_field( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did_1);
H5Sclose(sid_1);
@@ -2614,7 +2614,7 @@ herr_t H5TBdelete_field( hid_t loc_id,
/* check out the field */
for ( i = 0; i < nfields; i++)
- {
+ {
/* get the member name */
member_name = H5Tget_member_name( tid_1,(unsigned) i );
@@ -2673,7 +2673,7 @@ herr_t H5TBdelete_field( hid_t loc_id,
/* insert the old fields except the one to delete */
for ( i = 0; i < nfields; i++)
- {
+ {
/* get the member name */
member_name = H5Tget_member_name( tid_1, (unsigned) i );
@@ -2751,13 +2751,13 @@ herr_t H5TBdelete_field( hid_t loc_id,
* we have to read field by field of the old dataset and save it into the new one
*-------------------------------------------------------------------------
*/
- for ( i = 0; i < nfields; i++)
+ for ( i = 0; i < nfields; i++)
{
/* get the member name */
member_name = H5Tget_member_name(tid_1, (unsigned)i);
/* skip the field to delete */
- if (H5TB_find_field(member_name, field_name) > 0)
+ if (H5TB_find_field(member_name, field_name) > 0)
{
free(member_name);
continue;
@@ -2951,7 +2951,7 @@ herr_t H5TBdelete_field( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did_1);
H5Sclose(sid_1);
@@ -3101,7 +3101,7 @@ out:
*
* Comments:
*
-* Modifications:
+* Modifications:
* May 08, 2003
* In version 2.0 of Table, the number of records is stored as an
* attribute "NROWS"
@@ -3178,7 +3178,7 @@ herr_t H5TBget_table_info ( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Sclose(sid);
@@ -3284,7 +3284,7 @@ herr_t H5TBget_field_info( hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Tclose(tid);
@@ -3455,7 +3455,7 @@ hid_t H5TB_create_type(hid_t loc_id,
for ( i = 0; i < nfields; i++)
{
- if ((fnames[i] = (char*) malloc(sizeof(char)*HLTB_MAX_FIELD_LEN))==NULL)
+ if ((fnames[i] = (char*) malloc(sizeof(char)*HLTB_MAX_FIELD_LEN))==NULL)
{
free(fnames);
return -1;
@@ -3501,7 +3501,7 @@ hid_t H5TB_create_type(hid_t loc_id,
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Tclose(mtype_id);
H5Tclose(nmtype_id);
diff --git a/hl/test/gen_test_ds.c b/hl/test/gen_test_ds.c
index 573fe20..93bda2b 100644
--- a/hl/test/gen_test_ds.c
+++ b/hl/test/gen_test_ds.c
@@ -17,11 +17,11 @@
* Purpose: This program is run to generate an HDF5 data file with datasets
* that use dimension scales.
*
- * Compile and run this program to generate the "test_ds_xx.h5"
+ * Compile and run this program to generate the "test_ds_xx.h5"
* file, where xx is "le" on a little-endian machine and "be"
* on a big-endian machine.
* Move it to the test directory in the current branch.
- * The test: test_foreign_scaleattached(const char *fileforeign)
+ * The test: test_foreign_scaleattached(const char *fileforeign)
* in test_ds.c will read them.
*/
@@ -33,7 +33,7 @@
/* prototypes */
static hid_t open_test_file(const char *fileext);
-herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx);
+herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx);
herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx);
herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx);
herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx);
@@ -79,7 +79,7 @@ int main(int argc , char **argv)
int nerrors=0;
char filename[65];
-
+
if (argc < 2) {
printf("Usage: gen_test [le | be]\n");
return 1;
@@ -102,7 +102,7 @@ int main(int argc , char **argv)
nerrors += test_duplicatelong_attachscales(filename) < 0 ? 1 : 0;
nerrors += test_samelong_scalenames(filename) < 0 ? 1 : 0;
nerrors += test_foreign_scaleattached(filename) < 0 ? 1 : 0;
-
+
if(nerrors) goto error;
printf("Dimension scales file generation passed.\n");
@@ -120,7 +120,7 @@ static hid_t open_test_file(const char *fileext)
strcpy(filename, FILENAME);
strcat(filename, fileext);
strcat(filename, FILEEXT);
-
+
return H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
}
@@ -129,7 +129,7 @@ static hid_t open_test_file(const char *fileext)
*-------------------------------------------------------------------------
*/
-herr_t create_long_dataset(hid_t fid, const char *name, const char *dsidx)
+herr_t create_long_dataset(hid_t fid, const char *name, const char *dsidx)
{
int rank = 4;
int rankds = 1;
@@ -181,11 +181,11 @@ herr_t create_long_dataset(hid_t fid, const char *name, const char *dsidx)
return SUCCEED;
}
-herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
+herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
-
+
if((dsid = H5Dopen2(fid, name, H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, idx) == 0) {
if(H5DSattach_scale(did, dsid, idx) >= 0) {
@@ -205,7 +205,7 @@ herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int id
return ret_value;
}
-herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
+herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
@@ -225,11 +225,11 @@ herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int id
return ret_value;
}
-herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
+herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
-
+
if((dsid = H5Dopen2(fid, name, H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, idx) == 1) {
if(H5DSset_scale(dsid, scalename) >= 0) {
@@ -245,7 +245,7 @@ herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *sc
return ret_value;
}
-herr_t test_cmp_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
+herr_t test_cmp_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
@@ -282,12 +282,12 @@ static int test_long_attachscales(const char *filename)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al");
-
+
TESTING2("test_long_attachscales");
-
+
if((fid = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
goto out;
-
+
/* make a dataset */
if(create_long_dataset(fid, dsname, "al") < 0)
goto out;
@@ -297,22 +297,22 @@ static int test_long_attachscales(const char *filename)
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -320,18 +320,18 @@ static int test_long_attachscales(const char *filename)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -343,12 +343,12 @@ static int test_duplicatelong_attachscales(const char *filename)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al2");
-
+
TESTING2("test_duplicatelong_attachscales");
-
+
if((fid = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
goto out;
-
+
/* make a dataset 2 */
if(create_long_dataset(fid, dsname, "al2") < 0)
goto out;
@@ -358,22 +358,22 @@ static int test_duplicatelong_attachscales(const char *filename)
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -381,18 +381,18 @@ static int test_duplicatelong_attachscales(const char *filename)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -404,10 +404,10 @@ static int test_long_scalenames(const char *filename) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al");
-
+
if((fid = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
goto out;
-
+
TESTING2("set long scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -419,7 +419,7 @@ static int test_long_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_2_NAME);
@@ -429,7 +429,7 @@ static int test_long_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_3_NAME);
@@ -439,7 +439,7 @@ static int test_long_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_4_NAME);
@@ -449,7 +449,7 @@ static int test_long_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -457,18 +457,18 @@ static int test_long_scalenames(const char *filename) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -481,10 +481,10 @@ static int test_samelong_scalenames(const char *filename) {
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al2");
-
+
if((fid = open_test_file(filename)) < 0)
goto out;
-
+
TESTING2("set same long scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -496,7 +496,7 @@ static int test_samelong_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
strcpy(name, DS_2_NAME);
@@ -506,7 +506,7 @@ static int test_samelong_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
strcpy(name, DS_3_NAME);
@@ -516,7 +516,7 @@ static int test_samelong_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
strcpy(name, DS_4_NAME);
@@ -526,7 +526,7 @@ static int test_samelong_scalenames(const char *filename) {
if(test_cmp_scalename(fid, did, scalename, name, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -534,18 +534,18 @@ static int test_samelong_scalenames(const char *filename) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -555,7 +555,7 @@ static int test_foreign_scaleattached(const char *filename)
hid_t fid = -1;
hid_t did = -1;
hid_t dsid = -1;
-
+
TESTING2("test_foreign_scaleattached");
if((fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
@@ -565,7 +565,7 @@ static int test_foreign_scaleattached(const char *filename)
if((dsid = H5Dopen2(fid, "/ds_4_al", H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, 3) == 1) {
ret_value = SUCCEED;
- }
+ }
if(H5Dclose(dsid) < 0)
goto out;
}
@@ -574,22 +574,22 @@ static int test_foreign_scaleattached(const char *filename)
}
else
goto out;
-
+
if(ret_value == FAIL)
goto out;
-
+
PASSED();
-
+
H5Fclose(fid);
return 0;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
diff --git a/hl/test/test_ds.c b/hl/test/test_ds.c
index 0ec7203..ae4bf97 100644
--- a/hl/test/test_ds.c
+++ b/hl/test/test_ds.c
@@ -32,9 +32,9 @@ static int create_test_file(const char *fileext);
static int open_test_file(const char *fileext);
herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims);
herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims);
-herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims);
-herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int fulldims);
-herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims);
+herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims);
+herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int fulldims);
+herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims);
herr_t create_DS1_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf);
herr_t create_DS2_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf);
herr_t create_DS3_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf, char *s3_wbuf);
@@ -168,8 +168,8 @@ int main(void)
nerrors += test_samelong_scalenames("2") < 0 ? 1 : 0;
nerrors += test_foreign_scaleattached(FOREIGN_FILE1) < 0 ? 1 : 0;
nerrors += test_foreign_scaleattached(FOREIGN_FILE2) < 0 ? 1 : 0;
-
-/* the following tests have not been rewritten to match those above */
+
+/* the following tests have not been rewritten to match those above */
nerrors += test_simple() < 0 ?1:0;
nerrors += test_errors() < 0 ?1:0;
nerrors += test_errors2() < 0 ?1:0;
@@ -177,7 +177,7 @@ int main(void)
nerrors += test_iterators() < 0 ?1:0;
nerrors += test_types() < 0 ?1:0;
nerrors += test_data() < 0 ?1:0;
-
+
if(nerrors) goto error;
printf("All dimension scales tests passed.\n");
@@ -224,7 +224,7 @@ static hid_t open_test_file(const char *fileext)
strcpy(filename, FILENAME);
strcat(filename, fileext);
strcat(filename, FILEEXT);
-
+
return H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
}
@@ -232,7 +232,7 @@ static hid_t open_test_file(const char *fileext)
* create "data" dataset
*-------------------------------------------------------------------------
*/
-herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims)
+herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims)
{
int rank = 3;
int rankds = 1;
@@ -261,11 +261,11 @@ herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims)
/* make a DS dataset for the first dimension */
if(create_DS1_char_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the second dimension */
if(create_DS2_char_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, NULL, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the third dimension */
if(create_DS3_char_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, NULL, NULL, NULL) < 0)
return FAIL;
@@ -273,10 +273,10 @@ herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims)
else {
if(create_DS1_char_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, s11_wbuf) < 0)
return FAIL;
-
+
if(create_DS2_char_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, s21_wbuf, s22_wbuf) < 0)
return FAIL;
-
+
if(create_DS3_char_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, s31_wbuf, s32_wbuf, s33_wbuf) < 0)
return FAIL;
}
@@ -286,7 +286,7 @@ herr_t create_char_dataset(hid_t fid, const char *dsidx, int fulldims)
return SUCCEED;
}
-herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims)
+herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims)
{
int rank = 3;
int rankds = 1;
@@ -316,11 +316,11 @@ herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims)
/* make a DS dataset for the first dimension */
if(create_DS1_short_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the second dimension */
if(create_DS2_short_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, NULL, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the third dimension */
if(create_DS3_short_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, NULL, NULL, NULL) < 0)
return FAIL;
@@ -328,10 +328,10 @@ herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims)
else {
if(create_DS1_short_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, s11_wbuf) < 0)
return FAIL;
-
+
if(create_DS2_short_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, s21_wbuf, s22_wbuf) < 0)
return FAIL;
-
+
if(create_DS3_short_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, s31_wbuf, s32_wbuf, s33_wbuf) < 0)
return FAIL;
}
@@ -341,7 +341,7 @@ herr_t create_short_dataset(hid_t fid, const char *dsidx, int fulldims)
return SUCCEED;
}
-herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims)
+herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims)
{
int rank = RANK;
int rankds = 1;
@@ -365,7 +365,7 @@ herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims)
/* make a DS dataset for the first dimension */
if(create_DS1_int_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the second dimension */
if(create_DS2_int_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, NULL, NULL) < 0)
return FAIL;
@@ -373,7 +373,7 @@ herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims)
else {
if(create_DS1_int_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, s11_wbuf) < 0)
return FAIL;
-
+
if(create_DS2_int_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, s21_wbuf, s22_wbuf) < 0)
return FAIL;
}
@@ -383,7 +383,7 @@ herr_t create_int_dataset(hid_t fid, const char *dsidx, int fulldims)
return SUCCEED;
}
-herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int fulldims)
+herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int fulldims)
{
int rank = 4;
int rankds = 1;
@@ -420,15 +420,15 @@ herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int
/* make a DS dataset for the first dimension */
if(create_DS1_long_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the second dimension */
if(create_DS2_long_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, NULL, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the third dimension */
if(create_DS3_long_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, NULL, NULL, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the fourth dimension */
if(create_DS4_long_datasets(fid, dsidx, rankds, s4_dim, s4_wbuf, NULL, NULL, NULL, NULL) < 0)
return FAIL;
@@ -436,13 +436,13 @@ herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int
else {
if(create_DS1_long_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, s11_wbuf) < 0)
return FAIL;
-
+
if(create_DS2_long_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, s21_wbuf, s22_wbuf) < 0)
return FAIL;
-
+
if(create_DS3_long_datasets(fid, dsidx, rankds, s3_dim, s3_wbuf, s31_wbuf, s32_wbuf, s33_wbuf) < 0)
return FAIL;
-
+
if(create_DS4_long_datasets(fid, dsidx, rankds, s4_dim, s4_wbuf, s41_wbuf, s42_wbuf, s43_wbuf, s44_wbuf) < 0)
return FAIL;
}
@@ -452,7 +452,7 @@ herr_t create_long_dataset(hid_t fid, const char *dsname, const char *dsidx, int
return SUCCEED;
}
-herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims)
+herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims)
{
int rank = RANK;
int rankds = 1;
@@ -476,7 +476,7 @@ herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims)
/* make a DS dataset for the first dimension */
if(create_DS1_float_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, NULL) < 0)
return FAIL;
-
+
/* make a DS dataset for the second dimension */
if(create_DS2_float_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, NULL, NULL) < 0)
return FAIL;
@@ -484,7 +484,7 @@ herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims)
else {
if(create_DS1_float_datasets(fid, dsidx, rankds, s1_dim, s1_wbuf, s11_wbuf) < 0)
return FAIL;
-
+
if(create_DS2_float_datasets(fid, dsidx, rankds, s2_dim, s2_wbuf, s21_wbuf, s22_wbuf) < 0)
return FAIL;
}
@@ -498,7 +498,7 @@ herr_t create_float_dataset(hid_t fid, const char *dsidx, int fulldims)
* create 2 dimension scales datasets for first dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS1_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf)
+herr_t create_DS1_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf)
{
char name[32];
@@ -523,10 +523,10 @@ herr_t create_DS1_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 3 dimension scales datasets for second dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS2_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf)
+herr_t create_DS2_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf)
{
char name[32];
-
+
strcpy(name, DS_2_NAME);
strcat(name, dsidx);
/* make a DS dataset for the second dimension */
@@ -556,7 +556,7 @@ herr_t create_DS2_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 1 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS3_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf, char *s3_wbuf)
+herr_t create_DS3_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, char *s_wbuf, char *s1_wbuf, char *s2_wbuf, char *s3_wbuf)
{
char name[32];
@@ -597,7 +597,7 @@ herr_t create_DS3_char_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 2 dimension scales datasets for first dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS1_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf)
+herr_t create_DS1_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf)
{
char name[32];
@@ -622,10 +622,10 @@ herr_t create_DS1_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize
* create 3 dimension scales datasets for second dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS2_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf, short *s2_wbuf)
+herr_t create_DS2_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf, short *s2_wbuf)
{
char name[32];
-
+
strcpy(name, DS_2_NAME);
strcat(name, dsidx);
@@ -656,7 +656,7 @@ herr_t create_DS2_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize
* create 1 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS3_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf, short *s2_wbuf, short *s3_wbuf)
+herr_t create_DS3_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, short *s_wbuf, short *s1_wbuf, short *s2_wbuf, short *s3_wbuf)
{
char name[32];
@@ -698,7 +698,7 @@ herr_t create_DS3_short_datasets(hid_t fid, const char *dsidx, int rankds, hsize
* create 2 dimension scales datasets for first dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS1_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf)
+herr_t create_DS1_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf)
{
char name[32];
@@ -724,10 +724,10 @@ herr_t create_DS1_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t
* create 3 dimension scales datasets for second dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS2_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf, int *s2_wbuf)
+herr_t create_DS2_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf, int *s2_wbuf)
{
char name[32];
-
+
strcpy(name, DS_2_NAME);
strcat(name, dsidx);
@@ -758,7 +758,7 @@ herr_t create_DS2_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t
* create 1 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS3_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf, int *s2_wbuf, int *s3_wbuf)
+herr_t create_DS3_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, int *s_wbuf, int *s1_wbuf, int *s2_wbuf, int *s3_wbuf)
{
char name[32];
@@ -800,7 +800,7 @@ herr_t create_DS3_int_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t
* create 2 dimension scales datasets for first dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS1_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf)
+herr_t create_DS1_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf)
{
char name[32];
@@ -826,10 +826,10 @@ herr_t create_DS1_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 3 dimension scales datasets for second dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS2_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf)
+herr_t create_DS2_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf)
{
char name[32];
-
+
strcpy(name, DS_2_NAME);
strcat(name, dsidx);
@@ -860,7 +860,7 @@ herr_t create_DS2_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 3 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS3_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf, long *s3_wbuf)
+herr_t create_DS3_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf, long *s3_wbuf)
{
char name[32];
@@ -902,7 +902,7 @@ herr_t create_DS3_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 4 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS4_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf, long *s3_wbuf, long *s4_wbuf)
+herr_t create_DS4_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, long *s_wbuf, long *s1_wbuf, long *s2_wbuf, long *s3_wbuf, long *s4_wbuf)
{
char name[32];
@@ -952,7 +952,7 @@ herr_t create_DS4_long_datasets(hid_t fid, const char *dsidx, int rankds, hsize_
* create 2 dimension scales datasets for first dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS1_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf)
+herr_t create_DS1_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf)
{
char name[32];
@@ -978,10 +978,10 @@ herr_t create_DS1_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize
* create 3 dimension scales datasets for second dimension
*-------------------------------------------------------------------------
*/
-herr_t create_DS2_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf, float *s2_wbuf)
+herr_t create_DS2_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf, float *s2_wbuf)
{
char name[32];
-
+
strcpy(name, DS_2_NAME);
strcat(name, dsidx);
@@ -1012,7 +1012,7 @@ herr_t create_DS2_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize
* create 3 dimension scales datasets for third dimension of dataset
*-------------------------------------------------------------------------
*/
-herr_t create_DS3_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf, float *s2_wbuf, float *s3_wbuf)
+herr_t create_DS3_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize_t *s_dim, float *s_wbuf, float *s1_wbuf, float *s2_wbuf, float *s3_wbuf)
{
char name[32];
@@ -1050,11 +1050,11 @@ herr_t create_DS3_float_datasets(hid_t fid, const char *dsidx, int rankds, hsize
return SUCCEED;
}
-herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
+herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
-
+
if((dsid = H5Dopen2(fid, name, H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, idx) == 0) {
if(H5DSattach_scale(did, dsid, idx) >= 0) {
@@ -1074,7 +1074,7 @@ herr_t test_attach_scale(hid_t fid, hid_t did, const char *name, unsigned int id
return ret_value;
}
-herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
+herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
@@ -1094,11 +1094,11 @@ herr_t test_detach_scale(hid_t fid, hid_t did, const char *name, unsigned int id
return ret_value;
}
-herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
+herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
-
+
if((dsid = H5Dopen2(fid, name, H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, idx) == 1) {
if(H5DSset_scale(dsid, scalename) >= 0) {
@@ -1114,7 +1114,7 @@ herr_t test_set_scalename(hid_t fid, hid_t did, const char *name, const char *sc
return ret_value;
}
-herr_t test_cmp_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
+herr_t test_cmp_scalename(hid_t fid, hid_t did, const char *name, const char *scalename, unsigned int idx)
{
herr_t ret_value = FAIL;
hid_t dsid = -1;
@@ -1151,12 +1151,12 @@ static int test_char_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "ac");
-
+
TESTING2("test_char_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset */
if(create_char_dataset(fid, "ac", 0) < 0)
goto out;
@@ -1166,17 +1166,17 @@ static int test_char_attachscales(const char *fileext)
strcat(scalename, "ac");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "ac");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "ac");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1184,18 +1184,18 @@ static int test_char_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1207,12 +1207,12 @@ static int test_short_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "as");
-
+
TESTING2("test_short_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset */
if(create_short_dataset(fid, "as", 1) < 0)
goto out;
@@ -1222,47 +1222,47 @@ static int test_short_attachscales(const char *fileext)
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_31_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_32_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_33_NAME);
strcat(scalename, "as");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1270,18 +1270,18 @@ static int test_short_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1293,12 +1293,12 @@ static int test_int_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "a");
-
+
TESTING2("test_int_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset */
if(create_int_dataset(fid, "a", 1) < 0)
goto out;
@@ -1308,27 +1308,27 @@ static int test_int_attachscales(const char *fileext)
strcat(scalename, "a");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "a");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "a");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "a");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "a");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1336,18 +1336,18 @@ static int test_int_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1359,12 +1359,12 @@ static int test_long_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al");
-
+
TESTING2("test_long_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset */
if(create_long_dataset(fid, dsname, "al", 0) < 0)
goto out;
@@ -1374,22 +1374,22 @@ static int test_long_attachscales(const char *fileext)
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1397,18 +1397,18 @@ static int test_long_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1420,12 +1420,12 @@ static int test_duplicatelong_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al2");
-
+
TESTING2("test_duplicatelong_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset 2 */
if(create_long_dataset(fid, dsname, "al2", 0) < 0)
goto out;
@@ -1435,22 +1435,22 @@ static int test_duplicatelong_attachscales(const char *fileext)
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
if(test_attach_scale(fid, did, scalename, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1458,18 +1458,18 @@ static int test_duplicatelong_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1481,12 +1481,12 @@ static int test_float_attachscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "af");
-
+
TESTING2("test_float_attachscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
/* make a dataset */
if(create_float_dataset(fid, "af", 1) < 0)
goto out;
@@ -1496,27 +1496,27 @@ static int test_float_attachscales(const char *fileext)
strcat(scalename, "af");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "af");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "af");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "af");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "af");
if(test_attach_scale(fid, did, scalename, DIM1) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1524,18 +1524,18 @@ static int test_float_attachscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1548,25 +1548,25 @@ static int test_numberofscales(const char *fileext)
char scalename[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "a");
-
+
TESTING2("test_numberofscales");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
if((nscales = H5DSget_num_scales(did, 0)) < 0)
goto out;
-
+
if(nscales != 2)
goto out;
-
+
if((nscales = H5DSget_num_scales(did, 1)) < 0)
goto out;
-
+
if(nscales != 3)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1586,19 +1586,19 @@ static int test_numberofscales(const char *fileext)
strcat(scalename, "b");
if(test_attach_scale(fid, did, scalename, DIM0) < 0)
goto out;
-
+
if((nscales = H5DSget_num_scales(did, 0)) < 0)
goto out;
-
+
if(nscales != 1)
goto out;
-
+
if((nscales = H5DSget_num_scales(did, 1)) < 0)
goto out;
-
+
if(nscales != 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1606,18 +1606,18 @@ static int test_numberofscales(const char *fileext)
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1629,10 +1629,10 @@ static int test_char_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "ac");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set char scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -1644,7 +1644,7 @@ static int test_char_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "ac");
strcpy(name, SCALE_2_NAME);
@@ -1654,7 +1654,7 @@ static int test_char_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "ac");
strcpy(name, SCALE_3_NAME);
@@ -1664,7 +1664,7 @@ static int test_char_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1672,18 +1672,18 @@ static int test_char_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1695,10 +1695,10 @@ static int test_short_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "as");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set short scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -1710,7 +1710,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_11_NAME);
@@ -1720,7 +1720,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_2_NAME);
@@ -1730,7 +1730,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_21_NAME);
@@ -1740,7 +1740,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_22_NAME);
@@ -1750,7 +1750,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_3_NAME);
@@ -1760,7 +1760,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_31_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_31_NAME);
@@ -1770,7 +1770,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_32_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_32_NAME);
@@ -1780,7 +1780,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_33_NAME);
strcat(scalename, "as");
strcpy(name, SCALE_33_NAME);
@@ -1790,7 +1790,7 @@ static int test_short_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1798,18 +1798,18 @@ static int test_short_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1821,10 +1821,10 @@ static int test_int_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "a");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set int scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -1836,7 +1836,7 @@ static int test_int_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "a");
strcpy(name, SCALE_11_NAME);
@@ -1846,7 +1846,7 @@ static int test_int_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "a");
strcpy(name, SCALE_2_NAME);
@@ -1856,7 +1856,7 @@ static int test_int_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "a");
strcpy(name, SCALE_21_NAME);
@@ -1866,7 +1866,7 @@ static int test_int_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "a");
strcpy(name, SCALE_22_NAME);
@@ -1884,18 +1884,18 @@ static int test_int_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return 0;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1907,10 +1907,10 @@ static int test_long_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set long scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -1922,7 +1922,7 @@ static int test_long_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_2_NAME);
@@ -1932,7 +1932,7 @@ static int test_long_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_3_NAME);
@@ -1942,7 +1942,7 @@ static int test_long_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
strcpy(name, SCALE_4_NAME);
@@ -1952,7 +1952,7 @@ static int test_long_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -1960,18 +1960,18 @@ static int test_long_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -1983,10 +1983,10 @@ static int test_samelong_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "al2");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set same long scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -1998,7 +1998,7 @@ static int test_samelong_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "al");
strcpy(name, DS_2_NAME);
@@ -2008,7 +2008,7 @@ static int test_samelong_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_3_NAME);
strcat(scalename, "al");
strcpy(name, DS_3_NAME);
@@ -2018,7 +2018,7 @@ static int test_samelong_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM2) < 0)
goto out;
-
+
strcpy(scalename, DS_4_NAME);
strcat(scalename, "al");
strcpy(name, DS_4_NAME);
@@ -2028,7 +2028,7 @@ static int test_samelong_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM3) < 0)
goto out;
-
+
if(H5Dclose(did) < 0)
goto out;
}
@@ -2036,18 +2036,18 @@ static int test_samelong_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return SUCCEED;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -2059,10 +2059,10 @@ static int test_float_scalenames(const char *fileext) {
char name[32];
strcpy(dsname, DATASET_NAME);
strcat(dsname, "af");
-
+
if((fid = open_test_file(fileext)) < 0)
goto out;
-
+
TESTING2("set float scale/cmp scale name");
if((did = H5Dopen2(fid, dsname, H5P_DEFAULT)) >= 0) {
strcpy(scalename, DS_1_NAME);
@@ -2074,7 +2074,7 @@ static int test_float_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_11_NAME);
strcat(scalename, "af");
strcpy(name, SCALE_11_NAME);
@@ -2084,7 +2084,7 @@ static int test_float_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM0) < 0)
goto out;
-
+
strcpy(scalename, DS_2_NAME);
strcat(scalename, "af");
strcpy(name, SCALE_2_NAME);
@@ -2094,7 +2094,7 @@ static int test_float_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_21_NAME);
strcat(scalename, "af");
strcpy(name, SCALE_21_NAME);
@@ -2104,7 +2104,7 @@ static int test_float_scalenames(const char *fileext) {
if(test_cmp_scalename(fid, did, scalename, name, DIM1) < 0)
goto out;
-
+
strcpy(scalename, DS_22_NAME);
strcat(scalename, "af");
strcpy(name, SCALE_22_NAME);
@@ -2122,18 +2122,18 @@ static int test_float_scalenames(const char *fileext) {
goto out;
PASSED();
-
+
H5Fclose(fid);
return 0;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -2152,7 +2152,7 @@ static int test_foreign_scaleattached(const char *fileforeign)
strcat(filename,"/");
}
strcat(filename, fileforeign);
-
+
TESTING2("test_foreign_scaleattached");
if((fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
@@ -2162,7 +2162,7 @@ static int test_foreign_scaleattached(const char *fileforeign)
if((dsid = H5Dopen2(fid, "/ds_4_al", H5P_DEFAULT)) >= 0) {
if(H5DSis_attached(did, dsid, 3) == 1) {
ret_value = SUCCEED;
- }
+ }
if(H5Dclose(dsid) < 0)
goto out;
}
@@ -2171,23 +2171,23 @@ static int test_foreign_scaleattached(const char *fileforeign)
}
else
goto out;
-
+
if(ret_value == FAIL)
goto out;
-
+
PASSED();
-
+
H5Fclose(fid);
return 0;
-
+
out:
H5E_BEGIN_TRY {
H5Dclose(did);
H5Fclose(fid);
} H5E_END_TRY;
-
+
H5_FAILED();
-
+
return FAIL;
}
@@ -2226,7 +2226,7 @@ static int test_simple(void)
char *name_out=NULL;
char snames[3];
int i, j;
-
+
printf("Testing API functions\n");
/*-------------------------------------------------------------------------
@@ -2391,7 +2391,7 @@ static int test_simple(void)
if(H5Dclose(did) < 0)
goto out;
-
+
TESTING2("detach scales ");
if(H5LTmake_dataset_int(fid, "dset_c", rank, dims, buf) < 0)
goto out;
@@ -3029,7 +3029,7 @@ static int test_simple(void)
H5Fclose(fid);
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Dclose(dsid);
@@ -3167,7 +3167,7 @@ static herr_t read_scale(hid_t dset, unsigned dim, hid_t scale_id, void *visitor
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Sclose(sid);
H5Tclose(tid);
@@ -3257,7 +3257,7 @@ static herr_t match_dim_scale(hid_t did, unsigned dim, hid_t dsid, void *visitor
return ret;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Sclose(sid);
} H5E_END_TRY;
@@ -3268,7 +3268,7 @@ out:
/*-------------------------------------------------------------------------
* Function: op_continue
*
- * Purpose: example operator function used by H5DSiterate_scales that continues
+ * Purpose: example operator function used by H5DSiterate_scales that continues
* iteration and increments visitor_data (Note: int*)
*
* Return:
@@ -3301,7 +3301,7 @@ static herr_t op_continue(hid_t dset, unsigned dim, hid_t scale_id, void *visito
/*-------------------------------------------------------------------------
* Function: op_stop
*
- * Purpose: example operator function used by H5DSiterate_scales that stops
+ * Purpose: example operator function used by H5DSiterate_scales that stops
* iteration and increments visitor_data (Note: int*)
*
* Return:
@@ -3321,7 +3321,7 @@ static herr_t op_stop(hid_t dset, unsigned dim, hid_t scale_id, void *visitor_da
dset = dset;
dim = dim;
scale_id = scale_id;
-
+
if ( visitor_data != NULL )
{
(*(int *)visitor_data)++;
@@ -3696,7 +3696,7 @@ static int test_errors(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Sclose(sid);
H5Sclose(sidds);
@@ -3888,7 +3888,7 @@ static int test_iterators(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Gclose(gid);
H5Dclose(did);
@@ -4097,7 +4097,7 @@ static int test_rank(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Dclose(dsid);
@@ -4277,7 +4277,7 @@ static int test_types(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Dclose(dsid);
@@ -4357,7 +4357,7 @@ static int test_data(void)
goto out;
if(H5Pset_fill_value(dcpl, H5T_NATIVE_FLOAT, &fill) < 0)
goto out;
-
+
/* read ASCII bathymetry data and dimensions to create dataset */
if(read_data("dsdata.txt",2,dims,&vals) < 0)
goto out;
@@ -4436,7 +4436,7 @@ static int test_data(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Dclose(dsid);
@@ -4468,9 +4468,9 @@ out:
*-------------------------------------------------------------------------
*/
-static int read_data( const char* fname,
- int ndims,
- hsize_t *dims,
+static int read_data( const char* fname,
+ int ndims,
+ hsize_t *dims,
float **buf )
{
int i, n;
@@ -4545,7 +4545,7 @@ static int test_errors2(void)
int scale_idx; /* scale index */
int nscales; /* number of scales in DIM */
int count; /* visitor data */
-
+
printf("Testing parameter errors\n");
/*-------------------------------------------------------------------------
@@ -4610,7 +4610,7 @@ static int test_errors2(void)
if (H5Dclose(dsid) < 0)
goto out;
if (H5Dclose(did) < 0)
- goto out;
+ goto out;
PASSED();
@@ -4627,15 +4627,15 @@ static int test_errors2(void)
if (H5DSset_label(did,0,"label") < 0)
goto out;
if (H5DSget_label(did,2,lbuf,sizeof(lbuf)) == SUCCEED)
- goto out;
+ goto out;
if ((label_len=H5DSget_label(did,0,NULL,0)) < 0)
- goto out;
+ goto out;
if ( label_len != strlen("label") )
goto out;
if (H5DSget_label(did,0,lbuf,sizeof(lbuf)) < 0)
goto out;
if (H5Dclose(did) < 0)
- goto out;
+ goto out;
PASSED();
@@ -4672,10 +4672,10 @@ static int test_errors2(void)
if (H5DSiterate_scales(did,2,NULL,op_continue,NULL)== SUCCEED)
goto out;
/* invalid DS_IDX */
- scale_idx = 2;
+ scale_idx = 2;
if (H5DSiterate_scales(did,0,&scale_idx,op_continue,NULL)== SUCCEED)
goto out;
-
+
/* continue iteration */
scale_idx = 0;
count = 0;
@@ -4698,9 +4698,9 @@ static int test_errors2(void)
goto out;
}
-
+
if (H5Dclose(did) < 0)
- goto out;
+ goto out;
/*-------------------------------------------------------------------------
* close
@@ -4715,7 +4715,7 @@ static int test_errors2(void)
/* error zone */
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Dclose(dsid);
diff --git a/hl/test/test_lite.c b/hl/test/test_lite.c
index 9234344..2012e8f 100644
--- a/hl/test/test_lite.c
+++ b/hl/test/test_lite.c
@@ -1606,7 +1606,7 @@ out:
free(line);
if(fp)
fclose(fp);
-
+
H5_FAILED();
return -1;
}
diff --git a/hl/test/test_table.c b/hl/test/test_table.c
index 433d49f..3438f15 100644
--- a/hl/test/test_table.c
+++ b/hl/test/test_table.c
@@ -135,7 +135,7 @@ static hid_t h5file_open(const char *fname, unsigned flags)
strcat(data_file,fname);
/* open */
- if ((fid = H5Fopen(data_file,flags,H5P_DEFAULT))<0)
+ if ((fid = H5Fopen(data_file,flags,H5P_DEFAULT))<0)
{
fprintf(stderr,"Error: Cannot open file <%s>\n",data_file );
exit(1);
@@ -154,7 +154,7 @@ static int cmp_par(hsize_t i, hsize_t j, particle_t *rbuf, particle_t *wbuf )
rbuf[i].lati != wbuf[j].lati ||
rbuf[i].longi != wbuf[j].longi ||
rbuf[i].pressure != wbuf[j].pressure ||
- rbuf[i].temperature != wbuf[j].temperature )
+ rbuf[i].temperature != wbuf[j].temperature )
{
fprintf(stderr,"read and write buffers have differences\n");
fprintf(stderr,"%s %ld %f %f %d\n",
@@ -459,7 +459,7 @@ static int test_table(hid_t fid, int do_write)
* data= 0 1 2 3 4 5 6 7
*-------------------------------------------------------------------------
*/
- wstart=0;
+ wstart=0;
wrecords=8;
if (H5TBwrite_records(fid,"table2",wstart,wrecords,type_size_mem,field_offset,
field_size,wbuf)<0)
diff --git a/src/H5AC.c b/src/H5AC.c
index af28305..9502517 100644
--- a/src/H5AC.c
+++ b/src/H5AC.c
@@ -838,8 +838,8 @@ H5AC_expunge_entry(H5F_t *f,
H5AC_t * cache_ptr = f->shared->cache;
- /* For the expunge entry call, only the addr, and type id are really
- * necessary in the trace file. Write the return value to catch occult
+ /* For the expunge entry call, only the addr, and type id are really
+ * necessary in the trace file. Write the return value to catch occult
* errors.
*/
if ( ( cache_ptr != NULL ) &&
diff --git a/src/H5Aint.c b/src/H5Aint.c
index a89c1c9..2915502 100644
--- a/src/H5Aint.c
+++ b/src/H5Aint.c
@@ -1154,7 +1154,7 @@ H5A_dense_copy_file_cb(const H5A_t *attr_src, void *_udata)
HDassert(udata->file);
HDassert(udata->cpy_info);
- if ( NULL == (attr_dst=H5A_attr_copy_file(attr_src, udata->file,
+ if ( NULL == (attr_dst=H5A_attr_copy_file(attr_src, udata->file,
udata->recompute_size, udata->cpy_info, udata->dxpl_id)))
HGOTO_ERROR(H5E_ATTR, H5E_CANTCOPY, H5_ITER_ERROR, "can't copy attribute")
@@ -1190,7 +1190,7 @@ done:
*
*-------------------------------------------------------------------------
*/
-herr_t
+herr_t
H5A_dense_copy_file_all(H5F_t *file_src, H5O_ainfo_t *ainfo_src, H5F_t *file_dst,
const H5O_ainfo_t *ainfo_dst, hbool_t *recompute_size, H5O_copy_t *cpy_info, hid_t dxpl_id)
{
@@ -1275,7 +1275,7 @@ done:
*
*-------------------------------------------------------------------------
*/
-herr_t
+herr_t
H5A_dense_post_copy_file_all(const H5O_loc_t *src_oloc, const H5O_ainfo_t *ainfo_src,
H5O_loc_t *dst_oloc, H5O_ainfo_t *ainfo_dst, hid_t dxpl_id, H5O_copy_t *cpy_info)
{
diff --git a/src/H5Apkg.h b/src/H5Apkg.h
index de57e79..27f500e 100644
--- a/src/H5Apkg.h
+++ b/src/H5Apkg.h
@@ -283,7 +283,7 @@ H5_DLL H5A_t *H5A_attr_copy_file(const H5A_t *attr_src, H5F_t *file_dst, hbool_t
H5O_copy_t *cpy_info, hid_t dxpl_id);
H5_DLL herr_t H5A_attr_post_copy_file(const H5O_loc_t *src_oloc, const H5A_t *mesg_src,
H5O_loc_t *dst_oloc, const H5A_t *mesg_dst, hid_t dxpl_id, H5O_copy_t *cpy_info);
-H5_DLL herr_t H5A_dense_copy_file_all(H5F_t *file_src, H5O_ainfo_t *ainfo_src, H5F_t *file_dst,
+H5_DLL herr_t H5A_dense_copy_file_all(H5F_t *file_src, H5O_ainfo_t *ainfo_src, H5F_t *file_dst,
const H5O_ainfo_t *ainfo_dst, hbool_t *recompute_size, H5O_copy_t *cpy_info, hid_t dxpl_id);
H5_DLL herr_t H5A_dense_post_copy_file_all(const H5O_loc_t *src_oloc, const H5O_ainfo_t * ainfo_src,
H5O_loc_t *dst_oloc, H5O_ainfo_t *ainfo_dst, hid_t dxpl_id, H5O_copy_t *cpy_info);
diff --git a/src/H5B2.c b/src/H5B2.c
index 5ab9e8a..0d7d86d 100644
--- a/src/H5B2.c
+++ b/src/H5B2.c
@@ -174,7 +174,7 @@ H5B2_create(H5F_t *f, hid_t dxpl_id, const H5B2_create_t *cparam, void *ctx_udat
done:
if(hdr && H5AC_unprotect(f, dxpl_id, H5AC_BT2_HDR, hdr_addr, hdr, H5AC__NO_FLAGS_SET) < 0)
HDONE_ERROR(H5E_BTREE, H5E_CANTUNPROTECT, NULL, "unable to release v2 B-tree header")
- if(!ret_value && bt2)
+ if(!ret_value && bt2)
if(H5B2_close(bt2, dxpl_id) < 0)
HDONE_ERROR(H5E_BTREE, H5E_CANTCLOSEOBJ, NULL, "unable to close v2 B-tree")
@@ -239,7 +239,7 @@ H5B2_open(H5F_t *f, hid_t dxpl_id, haddr_t addr, void *ctx_udata)
done:
if(hdr && H5AC_unprotect(f, dxpl_id, H5AC_BT2_HDR, addr, hdr, H5AC__NO_FLAGS_SET) < 0)
HDONE_ERROR(H5E_BTREE, H5E_CANTUNPROTECT, NULL, "unable to release v2 B-tree header")
- if(!ret_value && bt2)
+ if(!ret_value && bt2)
if(H5B2_close(bt2, dxpl_id) < 0)
HDONE_ERROR(H5E_BTREE, H5E_CANTCLOSEOBJ, NULL, "unable to close v2 B-tree")
diff --git a/src/H5B2pkg.h b/src/H5B2pkg.h
index c336227..5817d22 100644
--- a/src/H5B2pkg.h
+++ b/src/H5B2pkg.h
@@ -275,14 +275,14 @@ H5_DLL H5B2_internal_t *H5B2_protect_internal(H5B2_hdr_t *hdr, hid_t dxpl_id,
/* Routines for allocating nodes */
H5_DLL herr_t H5B2_split_root(H5B2_hdr_t *hdr, hid_t dxpl_id);
-H5_DLL herr_t H5B2_create_leaf(H5B2_hdr_t *hdr, hid_t dxpl_id,
+H5_DLL herr_t H5B2_create_leaf(H5B2_hdr_t *hdr, hid_t dxpl_id,
H5B2_node_ptr_t *node_ptr);
/* Routines for inserting records */
-H5_DLL herr_t H5B2_insert_internal(H5B2_hdr_t *hdr, hid_t dxpl_id,
+H5_DLL herr_t H5B2_insert_internal(H5B2_hdr_t *hdr, hid_t dxpl_id,
unsigned depth, unsigned *parent_cache_info_flags_ptr,
H5B2_node_ptr_t *curr_node_ptr, void *udata);
-H5_DLL herr_t H5B2_insert_leaf(H5B2_hdr_t *hdr, hid_t dxpl_id,
+H5_DLL herr_t H5B2_insert_leaf(H5B2_hdr_t *hdr, hid_t dxpl_id,
H5B2_node_ptr_t *curr_node_ptr, void *udata);
/* Routines for iterating over nodes/records */
diff --git a/src/H5C.c b/src/H5C.c
index db9481c..0ae7ea4 100644
--- a/src/H5C.c
+++ b/src/H5C.c
@@ -566,7 +566,7 @@ if ( ( (entry_ptr) == NULL ) || \
if ( (cache_ptr)->dirty_index_size > \
(cache_ptr)->max_dirty_index_size ) \
(cache_ptr)->max_dirty_index_size = \
- (cache_ptr)->dirty_index_size;
+ (cache_ptr)->dirty_index_size;
#define H5C__UPDATE_STATS_FOR_DIRTY_PIN(cache_ptr, entry_ptr) \
(((cache_ptr)->dirty_pins)[(entry_ptr)->type->id])++;
@@ -964,7 +964,7 @@ if ( ( (cache_ptr) == NULL ) || \
( (entry_ptr) == NULL ) ) { \
HGOTO_ERROR(H5E_CACHE, H5E_SYSTEM, FAIL, \
"Pre HT entry size change SC failed") \
-}
+}
#define H5C__POST_HT_ENTRY_SIZE_CHANGE_SC(cache_ptr, old_size, new_size, \
entry_ptr) \
@@ -983,7 +983,7 @@ if ( ( (cache_ptr) == NULL ) || \
( (cache_ptr)->index_size != (new_size) ) ) ) { \
HGOTO_ERROR(H5E_CACHE, H5E_SYSTEM, FAIL, \
"Post HT entry size change SC failed") \
-}
+}
#define H5C__PRE_HT_UPDATE_FOR_ENTRY_CLEAN_SC(cache_ptr, entry_ptr) \
if ( \
@@ -3000,7 +3000,7 @@ done:
*
* JRM -- 11/5/08
* Added initialization for the new clean_index_size and
- * dirty_index_size fields of H5C_t.
+ * dirty_index_size fields of H5C_t.
*
*-------------------------------------------------------------------------
*/
@@ -4630,7 +4630,7 @@ H5C_get_trace_file_ptr(const H5C_t *cache_ptr, FILE **trace_file_ptr_ptr)
* Purpose: Get the trace_file_ptr field from the cache, via an entry.
*
* This field will either be NULL (which indicates that trace
- * file logging is turned off), or contain a pointer to the
+ * file logging is turned off), or contain a pointer to the
* open file to which trace file data is to be written.
*
* Return: Non-negative on success/Negative on failure
@@ -4740,26 +4740,26 @@ H5C_get_trace_file_ptr_from_entry(const H5C_cache_entry_t *entry_ptr,
* field.
*
* JRM -- 11/13/08
- * Moved test to see if we already have an entry with the
- * specified address in the cache. This was necessary as
+ * Moved test to see if we already have an entry with the
+ * specified address in the cache. This was necessary as
* we used to modify some fields in the entry to be inserted
* priort to this test, which got the cache confused if the
* insertion failed because the entry was already present.
*
* Also revised the function to call H5C_make_space_in_cache()
- * if the min_clean_size is not met at present, not just if
- * there is insufficient space in the cache for the new
+ * if the min_clean_size is not met at present, not just if
+ * there is insufficient space in the cache for the new
* entry.
*
* The purpose of this modification is to avoid "metadata
- * blizzards" in the write only case. In such instances,
+ * blizzards" in the write only case. In such instances,
* the cache was allowed to fill with dirty metadata. When
* we finally needed to evict an entry to make space, we had
* to flush out a whole cache full of metadata -- which has
- * interesting performance effects. We hope to avoid (or
- * perhaps more accurately hide) this effect by maintaining
+ * interesting performance effects. We hope to avoid (or
+ * perhaps more accurately hide) this effect by maintaining
* the min_clean_size, which should force us to start flushing
- * entries long before we actually have to evict something
+ * entries long before we actually have to evict something
* to make space.
*
*-------------------------------------------------------------------------
@@ -4911,17 +4911,17 @@ H5C_insert_entry(H5F_t * f,
}
- if ( ( cache_ptr->evictions_enabled )
+ if ( ( cache_ptr->evictions_enabled )
&&
( ( (cache_ptr->index_size + entry_ptr->size) >
- cache_ptr->max_cache_size
- )
+ cache_ptr->max_cache_size
+ )
||
(
( ( empty_space + cache_ptr->clean_index_size ) <
cache_ptr->min_clean_size )
- )
- )
+ )
+ )
) {
size_t space_needed;
@@ -5476,9 +5476,9 @@ done:
* 5/15/06
*
* JRM -- 11/5/08
- * Added call to H5C__UPDATE_INDEX_FOR_ENTRY_DIRTY() to
+ * Added call to H5C__UPDATE_INDEX_FOR_ENTRY_DIRTY() to
* update the new clean_index_size and dirty_index_size
- * fields of H5C_t in the case that the entry was clean
+ * fields of H5C_t in the case that the entry was clean
* prior to this call, and is pinned and not protected.
*
*-------------------------------------------------------------------------
@@ -5515,7 +5515,7 @@ H5C_mark_pinned_or_protected_entry_dirty(void *thing)
entry_ptr->is_dirty = TRUE;
if ( was_pinned_unprotected_and_clean ) {
-
+
H5C__UPDATE_INDEX_FOR_ENTRY_DIRTY(cache_ptr, entry_ptr);
}
@@ -5577,7 +5577,7 @@ done:
*
* JRM -- 11/5/08
* On review this function looks like no change is needed to
- * support the new clean_index_size and dirty_index_size
+ * support the new clean_index_size and dirty_index_size
* fields of H5C_t.
*
*-------------------------------------------------------------------------
@@ -5992,14 +5992,14 @@ done:
* enough space for and entry that has just been loaded.
*
* The purpose of this modification is to avoid "metadata
- * blizzards" in the write only case. In such instances,
+ * blizzards" in the write only case. In such instances,
* the cache was allowed to fill with dirty metadata. When
* we finally needed to evict an entry to make space, we had
* to flush out a whole cache full of metadata -- which has
- * interesting performance effects. We hope to avoid (or
- * perhaps more accurately hide) this effect by maintaining
+ * interesting performance effects. We hope to avoid (or
+ * perhaps more accurately hide) this effect by maintaining
* the min_clean_size, which should force us to start flushing
- * entries long before we actually have to evict something
+ * entries long before we actually have to evict something
* to make space.
*
*-------------------------------------------------------------------------
@@ -6113,17 +6113,17 @@ H5C_protect(H5F_t * f,
* regardless if the min_free_space requirement is not met.
*/
- if ( ( cache_ptr->evictions_enabled )
+ if ( ( cache_ptr->evictions_enabled )
&&
( ( (cache_ptr->index_size + entry_ptr->size) >
- cache_ptr->max_cache_size
- )
+ cache_ptr->max_cache_size
+ )
||
(
( ( empty_space + cache_ptr->clean_index_size ) <
cache_ptr->min_clean_size )
- )
- )
+ )
+ )
) {
size_t space_needed;
@@ -6131,7 +6131,7 @@ H5C_protect(H5F_t * f,
if ( empty_space <= entry_ptr->size ) {
cache_ptr->cache_full = TRUE;
-
+
}
if ( cache_ptr->check_write_permitted != NULL ) {
@@ -6945,12 +6945,12 @@ done:
* read_protects, and max_read_protects fields.
*
* JRM -- 11/13/08
- * Added code displaying the max_clean_index_size and
+ * Added code displaying the max_clean_index_size and
* max_dirty_index_size.
*
* MAM -- 01/06/09
* Added code displaying the calls_to_msic,
- * total_entries_skipped_in_msic, total_entries_scanned_in_msic,
+ * total_entries_skipped_in_msic, total_entries_scanned_in_msic,
* and max_entries_skipped_in_msic fields.
*
*-------------------------------------------------------------------------
@@ -7231,8 +7231,8 @@ H5C_stats(H5C_t * cache_ptr,
(long long)(cache_ptr->calls_to_msic));
if (cache_ptr->calls_to_msic > 0) {
- average_entries_skipped_per_calls_to_msic =
- (((double)(cache_ptr->total_entries_skipped_in_msic)) /
+ average_entries_skipped_per_calls_to_msic =
+ (((double)(cache_ptr->total_entries_skipped_in_msic)) /
((double)(cache_ptr->calls_to_msic)));
}
@@ -7242,8 +7242,8 @@ H5C_stats(H5C_t * cache_ptr,
(long)(cache_ptr->max_entries_skipped_in_msic));
if (cache_ptr->calls_to_msic > 0) {
- average_entries_scanned_per_calls_to_msic =
- (((double)(cache_ptr->total_entries_scanned_in_msic)) /
+ average_entries_scanned_per_calls_to_msic =
+ (((double)(cache_ptr->total_entries_scanned_in_msic)) /
((double)(cache_ptr->calls_to_msic)));
}
@@ -7258,7 +7258,7 @@ H5C_stats(H5C_t * cache_ptr,
HDfprintf(stdout, "%s MSIC: Scanned to satisfy min_clean = %lld\n",
cache_ptr->prefix,
- (long long)(cache_ptr->total_entries_scanned_in_msic -
+ (long long)(cache_ptr->total_entries_scanned_in_msic -
cache_ptr->entries_scanned_to_make_space));
#if H5C_COLLECT_CACHE_ENTRY_STATS
@@ -7693,14 +7693,14 @@ done:
* cache" concept, by adding the 'take_ownership' flag.
*
* JRM -- 11/5/08
- * Added code to update the clean_index_size and
- * dirty_index_size fields of H5C_t in cases where the
- * the entry was clean on protect, was marked dirty on
- * unprotect, and did not change its size. Do this via
+ * Added code to update the clean_index_size and
+ * dirty_index_size fields of H5C_t in cases where the
+ * the entry was clean on protect, was marked dirty on
+ * unprotect, and did not change its size. Do this via
* a call to H5C__UPDATE_INDEX_FOR_ENTRY_DIRTY().
*
* If the size changed, this case is already dealt with by
- * by the pre-existing call to
+ * by the pre-existing call to
* H5C__UPDATE_INDEX_FOR_SIZE_CHANGE().
*
*-------------------------------------------------------------------------
@@ -7938,7 +7938,7 @@ H5C_unprotect(H5F_t * f,
entry_ptr->size = new_size;
} else if ( ( was_clean ) && ( entry_ptr->is_dirty ) ) {
-
+
H5C__UPDATE_INDEX_FOR_ENTRY_DIRTY(cache_ptr, entry_ptr)
}
@@ -10317,8 +10317,8 @@ done:
* the "destroy_entry" variable.
*
* JRM -- 11/5/08
- * Added call to H5C__UPDATE_INDEX_FOR_ENTRY_CLEAN() to
- * maintain the new clean_index_size and clean_index_size
+ * Added call to H5C__UPDATE_INDEX_FOR_ENTRY_CLEAN() to
+ * maintain the new clean_index_size and clean_index_size
* fields of H5C_t.
*
*-------------------------------------------------------------------------
@@ -10621,7 +10621,7 @@ H5C_flush_single_entry(H5F_t * f,
if ( destroy ) {
#ifndef NDEBUG
- /* we are about to call the clear callback with the
+ /* we are about to call the clear callback with the
* destroy flag set -- this will result in *entry_ptr
* being freed. Set the magic field to bad magic
* so we can detect a freed cache entry if we see
@@ -10650,7 +10650,7 @@ H5C_flush_single_entry(H5F_t * f,
if ( destroy ) {
#ifndef NDEBUG
- /* we are about to call the flush callback with the
+ /* we are about to call the flush callback with the
* destroy flag set -- this will result in *entry_ptr
* being freed. Set the magic field to bad magic
* so we can detect a freed cache entry if we see
@@ -10766,11 +10766,11 @@ H5C_flush_single_entry(H5F_t * f,
HDassert( entry_ptr->size < H5C_MAX_ENTRY_SIZE );
- /* update the hash table for the size change
- * We pass TRUE as the was_clean parameter, as we
+ /* update the hash table for the size change
+ * We pass TRUE as the was_clean parameter, as we
* have already updated the clean and dirty index
* size fields for the fact that the entry has
- * been flushed. (See above call to
+ * been flushed. (See above call to
* H5C__UPDATE_INDEX_FOR_ENTRY_CLEAN()).
*/
H5C__UPDATE_INDEX_FOR_SIZE_CHANGE((cache_ptr), \
@@ -11056,21 +11056,21 @@ done:
* ever detect the condidtion.
*
* JRM -- 11/13/08
- * Modified function to always observe the min_clean_size
+ * Modified function to always observe the min_clean_size
* whether we are maintaining the clean and dirt LRU lists
* or not. To do this, we had to add the new clean_index_size
* and dirty_index_size fields to H5C_t, and supporting code
* as needed throughout the cache.
*
* The purpose of this modification is to avoid "metadata
- * blizzards" in the write only case. In such instances,
+ * blizzards" in the write only case. In such instances,
* the cache was allowed to fill with dirty metadata. When
* we finally needed to evict an entry to make space, we had
* to flush out a whole cache full of metadata -- which has
- * interesting performance effects. We hope to avoid (or
- * perhaps more accurately hide) this effect by maintaining
+ * interesting performance effects. We hope to avoid (or
+ * perhaps more accurately hide) this effect by maintaining
* the min_clean_size, which should force us to start flushing
- * entries long before we actually have to evict something
+ * entries long before we actually have to evict something
* to make space.
*
* MAM -- 01/06/09
@@ -11109,7 +11109,7 @@ H5C_make_space_in_cache(H5F_t * f,
HDassert( cache_ptr->magic == H5C__H5C_T_MAGIC );
HDassert( first_flush_ptr != NULL );
HDassert( ( *first_flush_ptr == TRUE ) || ( *first_flush_ptr == FALSE ) );
- HDassert( cache_ptr->index_size ==
+ HDassert( cache_ptr->index_size ==
(cache_ptr->clean_index_size + cache_ptr->dirty_index_size) );
if ( write_permitted ) {
@@ -11180,7 +11180,7 @@ H5C_make_space_in_cache(H5F_t * f,
H5C__NO_FLAGS_SET,
first_flush_ptr,
FALSE);
- } else if ( (cache_ptr->index_size + space_needed)
+ } else if ( (cache_ptr->index_size + space_needed)
>
cache_ptr->max_cache_size ) {
#if H5C_COLLECT_CACHE_STATS
@@ -11198,12 +11198,12 @@ H5C_make_space_in_cache(H5F_t * f,
TRUE);
} else {
- /* We have enough space so don't flush clean entry.
- * Set result to SUCCEED to avoid triggering the error
+ /* We have enough space so don't flush clean entry.
+ * Set result to SUCCEED to avoid triggering the error
* code below.
*/
#if H5C_COLLECT_CACHE_STATS
- clean_entries_skipped++;
+ clean_entries_skipped++;
#endif /* H5C_COLLECT_CACHE_STATS */
didnt_flush_entry = TRUE;
result = SUCCEED;
@@ -11282,9 +11282,9 @@ H5C_make_space_in_cache(H5F_t * f,
empty_space = cache_ptr->max_cache_size - cache_ptr->index_size;
}
-
- HDassert( cache_ptr->index_size ==
- (cache_ptr->clean_index_size +
+
+ HDassert( cache_ptr->index_size ==
+ (cache_ptr->clean_index_size +
cache_ptr->dirty_index_size) );
}
diff --git a/src/H5Cpkg.h b/src/H5Cpkg.h
index dc58002..181cafc 100644
--- a/src/H5Cpkg.h
+++ b/src/H5Cpkg.h
@@ -207,18 +207,18 @@
* the hash table. Note that the index_size field (above)
* is also the sum of the sizes of all entries in the cache.
* Thus we should have the invarient that clean_index_size +
- * dirty_index_size == index_size.
+ * dirty_index_size == index_size.
*
* WARNING:
*
- * 1) The clean_index_size field is not maintained by the
- * index macros, as the hash table doesn't care whether
+ * 1) The clean_index_size field is not maintained by the
+ * index macros, as the hash table doesn't care whether
* the entry is clean or dirty. Instead the field is
* maintained in the H5C__UPDATE_RP macros.
*
* 2) The value of the clean_index_size must not be mistaken
- * for the current clean size of the cache. Rather, the
- * clean size of the cache is the current value of
+ * for the current clean size of the cache. Rather, the
+ * clean size of the cache is the current value of
* clean_index_size plus the amount of empty space (if any)
* in the cache.
*
@@ -226,12 +226,12 @@
* the hash table. Note that the index_size field (above)
* is also the sum of the sizes of all entries in the cache.
* Thus we should have the invarient that clean_index_size +
- * dirty_index_size == index_size.
+ * dirty_index_size == index_size.
*
* WARNING:
*
- * 1) The dirty_index_size field is not maintained by the
- * index macros, as the hash table doesn't care whether
+ * 1) The dirty_index_size field is not maintained by the
+ * index macros, as the hash table doesn't care whether
* the entry is clean or dirty. Instead the field is
* maintained in the H5C__UPDATE_RP macros.
*
diff --git a/src/H5D.c b/src/H5D.c
index 54f7111..b149db5 100644
--- a/src/H5D.c
+++ b/src/H5D.c
@@ -667,7 +667,7 @@ done:
* to the default. The chunk cache properties in the returned list
* are considered to be “set”, and any use of this list will override
* the corresponding properties in the file’s file access property
- * list.
+ * list.
*
* All link access properties in the returned list will be set to the
* default values.
diff --git a/src/H5Dchunk.c b/src/H5Dchunk.c
index 6616ce7..07204a0 100644
--- a/src/H5Dchunk.c
+++ b/src/H5Dchunk.c
@@ -1787,8 +1787,8 @@ done:
*
* Modification:Raymond Lu
* 4 Feb 2009
- * One case that was considered cacheable was when the chunk
- * was bigger than the cache size but not allocated on disk.
+ * One case that was considered cacheable was when the chunk
+ * was bigger than the cache size but not allocated on disk.
* I moved it to uncacheable branch to bypass the cache to
* improve performance.
*-------------------------------------------------------------------------
@@ -3549,7 +3549,7 @@ H5D_chunk_prune_cb(const H5D_chunk_rec_t *chunk_rec, void *_udata)
HGOTO_ERROR(H5E_DATASET, H5E_WRITEERROR, H5_ITER_ERROR, "unable to write fill value")
done:
- /* It is currently impossible to fail after the stack node has been
+ /* It is currently impossible to fail after the stack node has been
* malloc'ed. No need to free it here on failure. */
FUNC_LEAVE_NOAPI(ret_value)
} /* end H5D_chunk_prune_cb() */
@@ -4818,9 +4818,9 @@ done:
* Function: H5D_nonexistent_readvv
*
* Purpose: When the chunk doesn't exist on disk and the chunk is bigger
- * than the cache size, performs fill value I/O operation on
- * memory buffer, advancing through two I/O vectors, until one
- * runs out.
+ * than the cache size, performs fill value I/O operation on
+ * memory buffer, advancing through two I/O vectors, until one
+ * runs out.
*
* Note: This algorithm is pretty inefficient about initializing and
* terminating the fill buffer info structure and it would be
@@ -4876,7 +4876,7 @@ H5D_nonexistent_readvv(const H5D_io_info_t *io_info,
HGOTO_ERROR(H5E_DATASET, H5E_CANTINIT, FAIL, "can't initialize fill buffer info")
fb_info_init = TRUE;
- /* Check for VL datatype & fill the buffer with VL datatype fill values */
+ /* Check for VL datatype & fill the buffer with VL datatype fill values */
if(fb_info.has_vlen_fill_type && H5D_fill_refill_vl(&fb_info, fb_info.elmts_per_buf, io_info->dxpl_id) < 0)
HGOTO_ERROR(H5E_DATASET, H5E_CANTCONVERT, FAIL, "can't refill fill value buffer")
diff --git a/src/H5Dint.c b/src/H5Dint.c
index 9f65642..3d5a5e7 100644
--- a/src/H5Dint.c
+++ b/src/H5Dint.c
@@ -2109,7 +2109,7 @@ H5D_set_extent(H5D_t *dset, const hsize_t *size, hid_t dxpl_id)
HGOTO_ERROR(H5E_DATASET, H5E_CANTINIT, FAIL, "dataset has compact storage")
if(H5D_CONTIGUOUS == dset->shared->layout.type && 0 == dset->shared->dcpl_cache.efl.nused)
HGOTO_ERROR(H5E_ARGS, H5E_BADRANGE, FAIL, "dataset has contiguous storage")
-
+
/* Check if the filters in the DCPL will need to encode, and if so, can they? */
if(H5D_check_filters(dset) < 0)
HGOTO_ERROR(H5E_DATASET, H5E_CANTINIT, FAIL, "can't apply filters")
@@ -2160,7 +2160,7 @@ H5D_set_extent(H5D_t *dset, const hsize_t *size, hid_t dxpl_id)
/*-------------------------------------------------------------------------
* Remove chunk information in the case of chunked datasets
* This removal takes place only in case we are shrinking the dateset
- * and if the chunks are written
+ * and if the chunks are written
*-------------------------------------------------------------------------
*/
if(shrink && H5D_CHUNKED == dset->shared->layout.type &&
@@ -2277,7 +2277,7 @@ H5D_flush_real(H5D_t *dataset, hid_t dxpl_id)
} /* end if */
/* Flush cached raw data for each kind of dataset layout */
- if(dataset->shared->layout.ops->flush &&
+ if(dataset->shared->layout.ops->flush &&
(dataset->shared->layout.ops->flush)(dataset, dxpl_id) < 0)
HGOTO_ERROR(H5E_DATASET, H5E_CANTFLUSH, FAIL, "unable to flush raw data")
diff --git a/src/H5Eterm.h b/src/H5Eterm.h
index dedc313..57be03d 100644
--- a/src/H5Eterm.h
+++ b/src/H5Eterm.h
@@ -21,193 +21,193 @@
#define _H5Eterm_H
/* Reset major error IDs */
-
-H5E_DATASET_g=
-H5E_FUNC_g=
-H5E_STORAGE_g=
-H5E_FILE_g=
-H5E_SOHM_g=
-H5E_SYM_g=
-H5E_VFL_g=
-H5E_INTERNAL_g=
-H5E_BTREE_g=
-H5E_REFERENCE_g=
-H5E_DATASPACE_g=
-H5E_RESOURCE_g=
-H5E_PLIST_g=
-H5E_LINK_g=
-H5E_DATATYPE_g=
-H5E_RS_g=
-H5E_HEAP_g=
-H5E_OHDR_g=
-H5E_ATOM_g=
-H5E_ATTR_g=
-H5E_NONE_MAJOR_g=
-H5E_IO_g=
-H5E_SLIST_g=
-H5E_EFL_g=
-H5E_TST_g=
-H5E_ARGS_g=
-H5E_ERROR_g=
-H5E_PLINE_g=
-H5E_FSPACE_g=
+
+H5E_DATASET_g=
+H5E_FUNC_g=
+H5E_STORAGE_g=
+H5E_FILE_g=
+H5E_SOHM_g=
+H5E_SYM_g=
+H5E_VFL_g=
+H5E_INTERNAL_g=
+H5E_BTREE_g=
+H5E_REFERENCE_g=
+H5E_DATASPACE_g=
+H5E_RESOURCE_g=
+H5E_PLIST_g=
+H5E_LINK_g=
+H5E_DATATYPE_g=
+H5E_RS_g=
+H5E_HEAP_g=
+H5E_OHDR_g=
+H5E_ATOM_g=
+H5E_ATTR_g=
+H5E_NONE_MAJOR_g=
+H5E_IO_g=
+H5E_SLIST_g=
+H5E_EFL_g=
+H5E_TST_g=
+H5E_ARGS_g=
+H5E_ERROR_g=
+H5E_PLINE_g=
+H5E_FSPACE_g=
H5E_CACHE_g= (-1);
/* Reset minor error IDs */
-/* Generic low-level file I/O errors */
-H5E_SEEKERROR_g=
-H5E_READERROR_g=
-H5E_WRITEERROR_g=
-H5E_CLOSEERROR_g=
-H5E_OVERFLOW_g=
+/* Generic low-level file I/O errors */
+H5E_SEEKERROR_g=
+H5E_READERROR_g=
+H5E_WRITEERROR_g=
+H5E_CLOSEERROR_g=
+H5E_OVERFLOW_g=
H5E_FCNTL_g=
-/* Resource errors */
-H5E_NOSPACE_g=
-H5E_CANTALLOC_g=
-H5E_CANTCOPY_g=
-H5E_CANTFREE_g=
-H5E_ALREADYEXISTS_g=
-H5E_CANTLOCK_g=
-H5E_CANTUNLOCK_g=
-H5E_CANTGC_g=
-H5E_CANTGETSIZE_g=
+/* Resource errors */
+H5E_NOSPACE_g=
+H5E_CANTALLOC_g=
+H5E_CANTCOPY_g=
+H5E_CANTFREE_g=
+H5E_ALREADYEXISTS_g=
+H5E_CANTLOCK_g=
+H5E_CANTUNLOCK_g=
+H5E_CANTGC_g=
+H5E_CANTGETSIZE_g=
H5E_OBJOPEN_g=
-/* Heap errors */
-H5E_CANTRESTORE_g=
-H5E_CANTCOMPUTE_g=
-H5E_CANTEXTEND_g=
-H5E_CANTATTACH_g=
-H5E_CANTUPDATE_g=
+/* Heap errors */
+H5E_CANTRESTORE_g=
+H5E_CANTCOMPUTE_g=
+H5E_CANTEXTEND_g=
+H5E_CANTATTACH_g=
+H5E_CANTUPDATE_g=
H5E_CANTOPERATE_g=
-/* Function entry/exit interface errors */
-H5E_CANTINIT_g=
-H5E_ALREADYINIT_g=
+/* Function entry/exit interface errors */
+H5E_CANTINIT_g=
+H5E_ALREADYINIT_g=
H5E_CANTRELEASE_g=
-/* Property list errors */
-H5E_CANTGET_g=
-H5E_CANTSET_g=
+/* Property list errors */
+H5E_CANTGET_g=
+H5E_CANTSET_g=
H5E_DUPCLASS_g=
-/* Free space errors */
-H5E_CANTMERGE_g=
-H5E_CANTREVIVE_g=
+/* Free space errors */
+H5E_CANTMERGE_g=
+H5E_CANTREVIVE_g=
H5E_CANTSHRINK_g=
-/* Object header related errors */
-H5E_LINKCOUNT_g=
-H5E_VERSION_g=
-H5E_ALIGNMENT_g=
-H5E_BADMESG_g=
-H5E_CANTDELETE_g=
-H5E_BADITER_g=
-H5E_CANTPACK_g=
+/* Object header related errors */
+H5E_LINKCOUNT_g=
+H5E_VERSION_g=
+H5E_ALIGNMENT_g=
+H5E_BADMESG_g=
+H5E_CANTDELETE_g=
+H5E_BADITER_g=
+H5E_CANTPACK_g=
H5E_CANTRESET_g=
-/* System level errors */
+/* System level errors */
H5E_SYSERRSTR_g=
-/* I/O pipeline errors */
-H5E_NOFILTER_g=
-H5E_CALLBACK_g=
-H5E_CANAPPLY_g=
-H5E_SETLOCAL_g=
-H5E_NOENCODER_g=
+/* I/O pipeline errors */
+H5E_NOFILTER_g=
+H5E_CALLBACK_g=
+H5E_CANAPPLY_g=
+H5E_SETLOCAL_g=
+H5E_NOENCODER_g=
H5E_CANTFILTER_g=
-/* Group related errors */
-H5E_CANTOPENOBJ_g=
-H5E_CANTCLOSEOBJ_g=
-H5E_COMPLEN_g=
+/* Group related errors */
+H5E_CANTOPENOBJ_g=
+H5E_CANTCLOSEOBJ_g=
+H5E_COMPLEN_g=
H5E_PATH_g=
-/* No error */
+/* No error */
H5E_NONE_MINOR_g=
-/* File accessability errors */
-H5E_FILEEXISTS_g=
-H5E_FILEOPEN_g=
-H5E_CANTCREATE_g=
-H5E_CANTOPENFILE_g=
-H5E_CANTCLOSEFILE_g=
-H5E_NOTHDF5_g=
-H5E_BADFILE_g=
-H5E_TRUNCATED_g=
+/* File accessability errors */
+H5E_FILEEXISTS_g=
+H5E_FILEOPEN_g=
+H5E_CANTCREATE_g=
+H5E_CANTOPENFILE_g=
+H5E_CANTCLOSEFILE_g=
+H5E_NOTHDF5_g=
+H5E_BADFILE_g=
+H5E_TRUNCATED_g=
H5E_MOUNT_g=
-/* Object atom related errors */
-H5E_BADATOM_g=
-H5E_BADGROUP_g=
-H5E_CANTREGISTER_g=
-H5E_CANTINC_g=
-H5E_CANTDEC_g=
+/* Object atom related errors */
+H5E_BADATOM_g=
+H5E_BADGROUP_g=
+H5E_CANTREGISTER_g=
+H5E_CANTINC_g=
+H5E_CANTDEC_g=
H5E_NOIDS_g=
-/* Cache related errors */
-H5E_CANTFLUSH_g=
-H5E_CANTSERIALIZE_g=
-H5E_CANTLOAD_g=
-H5E_PROTECT_g=
-H5E_NOTCACHED_g=
-H5E_SYSTEM_g=
-H5E_CANTINS_g=
-H5E_CANTRENAME_g=
-H5E_CANTPROTECT_g=
-H5E_CANTUNPROTECT_g=
-H5E_CANTPIN_g=
-H5E_CANTUNPIN_g=
-H5E_CANTMARKDIRTY_g=
-H5E_CANTDIRTY_g=
-H5E_CANTEXPUNGE_g=
+/* Cache related errors */
+H5E_CANTFLUSH_g=
+H5E_CANTSERIALIZE_g=
+H5E_CANTLOAD_g=
+H5E_PROTECT_g=
+H5E_NOTCACHED_g=
+H5E_SYSTEM_g=
+H5E_CANTINS_g=
+H5E_CANTRENAME_g=
+H5E_CANTPROTECT_g=
+H5E_CANTUNPROTECT_g=
+H5E_CANTPIN_g=
+H5E_CANTUNPIN_g=
+H5E_CANTMARKDIRTY_g=
+H5E_CANTDIRTY_g=
+H5E_CANTEXPUNGE_g=
H5E_CANTRESIZE_g=
-/* Link related errors */
-H5E_TRAVERSE_g=
-H5E_NLINKS_g=
-H5E_NOTREGISTERED_g=
-H5E_CANTMOVE_g=
+/* Link related errors */
+H5E_TRAVERSE_g=
+H5E_NLINKS_g=
+H5E_NOTREGISTERED_g=
+H5E_CANTMOVE_g=
H5E_CANTSORT_g=
-/* Parallel MPI errors */
-H5E_MPI_g=
-H5E_MPIERRSTR_g=
+/* Parallel MPI errors */
+H5E_MPI_g=
+H5E_MPIERRSTR_g=
H5E_CANTRECV_g=
-/* Dataspace errors */
-H5E_CANTCLIP_g=
-H5E_CANTCOUNT_g=
-H5E_CANTSELECT_g=
-H5E_CANTNEXT_g=
-H5E_BADSELECT_g=
+/* Dataspace errors */
+H5E_CANTCLIP_g=
+H5E_CANTCOUNT_g=
+H5E_CANTSELECT_g=
+H5E_CANTNEXT_g=
+H5E_BADSELECT_g=
H5E_CANTCOMPARE_g=
-/* Argument errors */
-H5E_UNINITIALIZED_g=
-H5E_UNSUPPORTED_g=
-H5E_BADTYPE_g=
-H5E_BADRANGE_g=
+/* Argument errors */
+H5E_UNINITIALIZED_g=
+H5E_UNSUPPORTED_g=
+H5E_BADTYPE_g=
+H5E_BADRANGE_g=
H5E_BADVALUE_g=
-/* B-tree related errors */
-H5E_NOTFOUND_g=
-H5E_EXISTS_g=
-H5E_CANTENCODE_g=
-H5E_CANTDECODE_g=
-H5E_CANTSPLIT_g=
-H5E_CANTREDISTRIBUTE_g=
-H5E_CANTSWAP_g=
-H5E_CANTINSERT_g=
-H5E_CANTLIST_g=
-H5E_CANTMODIFY_g=
+/* B-tree related errors */
+H5E_NOTFOUND_g=
+H5E_EXISTS_g=
+H5E_CANTENCODE_g=
+H5E_CANTDECODE_g=
+H5E_CANTSPLIT_g=
+H5E_CANTREDISTRIBUTE_g=
+H5E_CANTSWAP_g=
+H5E_CANTINSERT_g=
+H5E_CANTLIST_g=
+H5E_CANTMODIFY_g=
H5E_CANTREMOVE_g=
-/* Datatype conversion errors */
-H5E_CANTCONVERT_g=
+/* Datatype conversion errors */
+H5E_CANTCONVERT_g=
H5E_BADSIZE_g= (-1);
#endif /* H5Eterm_H */
diff --git a/src/H5F.c b/src/H5F.c
index b0d1009..63bf909 100644
--- a/src/H5F.c
+++ b/src/H5F.c
@@ -374,8 +374,8 @@ done:
* Modification:
* Raymond Lu
* 24 September 2008
- * Changed the return value to ssize_t to accommadate
- * potential large number of objects.
+ * Changed the return value to ssize_t to accommadate
+ * potential large number of objects.
*
*-------------------------------------------------------------------------
*/
@@ -415,8 +415,8 @@ done:
* Modification:
* Raymond Lu
* 24 September 2008
- * Changed the return value to size_t to accommadate
- * potential large number of objects.
+ * Changed the return value to size_t to accommadate
+ * potential large number of objects.
*
*-------------------------------------------------------------------------
*/
@@ -447,8 +447,8 @@ H5F_get_obj_count(const H5F_t *f, unsigned types, hbool_t app_ref)
* Modification:
* Raymond Lu
* 24 September 2008
- * Changed the return value to ssize_t and MAX_OBJTS to size_t to
- * accommadate potential large number of objects.
+ * Changed the return value to ssize_t and MAX_OBJTS to size_t to
+ * accommadate potential large number of objects.
*
*-------------------------------------------------------------------------
*/
@@ -466,7 +466,7 @@ H5Fget_obj_ids(hid_t file_id, unsigned types, size_t max_objs, hid_t *oid_list)
if(0 == (types & H5F_OBJ_ALL))
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "not an object type")
HDassert(oid_list);
-
+
/* H5F_get_objects doesn't fail */
ret_value = (ssize_t)H5F_get_obj_ids(f, types, max_objs, oid_list, TRUE);
@@ -489,7 +489,7 @@ done:
* Raymond Lu
* 24 September 2008
* Changed the return value and MAX_OBJTS to size_t to accommadate
- * potential large number of objects.
+ * potential large number of objects.
*
*-------------------------------------------------------------------------
*/
@@ -546,7 +546,7 @@ H5F_get_objects(const H5F_t *f, unsigned types, size_t max_index, hid_t *obj_id_
} /* end else */
/* Search through file IDs to count the number, and put their
- * IDs on the object list. H5I_search returns NULL if no object
+ * IDs on the object list. H5I_search returns NULL if no object
* is found, so don't return failure in this function. */
if(types & H5F_OBJ_FILE) {
olist.obj_type = H5I_FILE;
@@ -633,7 +633,7 @@ H5F_get_objects_cb(void *obj_ptr, hid_t obj_id, void *key)
(*olist->obj_id_count)++;
/* Check if we've filled up the array. Return TRUE only if
- * we have filled up the array. Otherwise return FALSE(RET_VALUE is
+ * we have filled up the array. Otherwise return FALSE(RET_VALUE is
* preset to FALSE) because H5I_search needs the return value of FALSE
* to continue searching. */
if(olist->max_index>0 && olist->list_index>=olist->max_index)
@@ -686,7 +686,7 @@ H5F_get_objects_cb(void *obj_ptr, hid_t obj_id, void *key)
(*olist->obj_id_count)++;
/* Check if we've filled up the array. Return TRUE only if
- * we have filled up the array. Otherwise return FALSE(RET_VALUE is
+ * we have filled up the array. Otherwise return FALSE(RET_VALUE is
* preset to FALSE) because H5I_search needs the return value of FALSE
* to continue searching. */
if(olist->max_index>0 && olist->list_index>=olist->max_index)
diff --git a/src/H5FDcore.c b/src/H5FDcore.c
index cab984b..edee0dc 100644
--- a/src/H5FDcore.c
+++ b/src/H5FDcore.c
@@ -1014,7 +1014,7 @@ if(file->eof < new_eof)
/* Update backing store, if using it */
if(file->fd >= 0 && file->backing_store) {
#ifdef H5_VMS
- /* Reset seek offset to the beginning of the file, so that the file isn't
+ /* Reset seek offset to the beginning of the file, so that the file isn't
* re-extended later. This may happen on Open VMS. */
if(-1 == HDlseek(file->fd, 0, SEEK_SET))
HSYS_GOTO_ERROR(H5E_IO, H5E_SEEKERROR, FAIL, "unable to seek to proper position")
diff --git a/src/H5FDfamily.c b/src/H5FDfamily.c
index 3c25426..bb89570 100644
--- a/src/H5FDfamily.c
+++ b/src/H5FDfamily.c
@@ -632,9 +632,9 @@ H5FD_family_sb_encode(H5FD_t *_file, char *name/*out*/, unsigned char *buf/*out*
name[8] = '\0';
/* Store member file size. Use the member file size from the property here.
- * This is to guarantee backward compatibility. If a file is created with
+ * This is to guarantee backward compatibility. If a file is created with
* v1.6 library and the driver info isn't saved in the superblock. We open
- * it with v1.8, the FILE->MEMB_SIZE will be the actual size of the first
+ * it with v1.8, the FILE->MEMB_SIZE will be the actual size of the first
* member file (see H5FD_family_open). So it isn't safe to use FILE->MEMB_SIZE.
* If the file is created with v1.8, the correctness of FILE->PMEM_SIZE is
* checked in H5FD_family_sb_decode. SLU - 2009/3/21
diff --git a/src/H5FDsec2.c b/src/H5FDsec2.c
index 4102d53..4b5c305 100644
--- a/src/H5FDsec2.c
+++ b/src/H5FDsec2.c
@@ -925,7 +925,7 @@ H5FD_sec2_truncate(H5FD_t *_file, hid_t UNUSED dxpl_id, hbool_t UNUSED closing)
HGOTO_ERROR(H5E_IO, H5E_SEEKERROR, FAIL, "unable to extend file properly")
#else /* _WIN32 */
#ifdef H5_VMS
- /* Reset seek offset to the beginning of the file, so that the file isn't
+ /* Reset seek offset to the beginning of the file, so that the file isn't
* re-extended later. This may happen on Open VMS. */
if(-1 == HDlseek(file->fd, (file_offset_t)0, SEEK_SET))
HSYS_GOTO_ERROR(H5E_IO, H5E_SEEKERROR, FAIL, "unable to seek to proper position")
diff --git a/src/H5Fsuper.c b/src/H5Fsuper.c
index fb017fb..4373fa3 100644
--- a/src/H5Fsuper.c
+++ b/src/H5Fsuper.c
@@ -240,7 +240,7 @@ done:
/*-------------------------------------------------------------------------
* Function: H5F_super_ext_close
- *
+ *
* Purpose: Close superblock extension
*
* Return: Success: non-negative on success
@@ -250,7 +250,7 @@ done:
*
*-------------------------------------------------------------------------
*/
-herr_t
+herr_t
H5F_super_ext_close(H5F_t *f, H5O_loc_t *ext_ptr)
{
herr_t ret_value = SUCCEED; /* Return value */
@@ -321,7 +321,7 @@ H5F_super_read(H5F_t *f, hid_t dxpl_id)
/* Look up the superblock */
if(NULL == (sblock = (H5F_super_t *)H5AC_protect(f, dxpl_id, H5AC_SUPERBLOCK, (haddr_t)0, NULL, &dirtied, rw)))
HGOTO_ERROR(H5E_CACHE, H5E_CANTPROTECT, FAIL, "unable to load superblock")
-
+
/* Mark the superblock dirty if it was modified during loading or VFD indicated to do so */
if((H5AC_WRITE == rw) && (dirtied || H5F_HAS_FEATURE(f, H5FD_FEAT_DIRTY_SBLK_LOAD)))
sblock_flags |= H5AC__DIRTIED_FLAG;
diff --git a/src/H5Fsuper_cache.c b/src/H5Fsuper_cache.c
index d0a028b..91ca76d 100644
--- a/src/H5Fsuper_cache.c
+++ b/src/H5Fsuper_cache.c
@@ -151,7 +151,7 @@ H5F_sblock_load(H5F_t *f, hid_t dxpl_id, haddr_t UNUSED addr, const void UNUSED
/* Allocate space for the superblock */
if(NULL == (sblock = H5FL_CALLOC(H5F_super_t)))
HGOTO_ERROR(H5E_RESOURCE, H5E_NOSPACE, NULL, "memory allocation failed")
-
+
/* Read fixed-size portion of the superblock */
p = sbuf;
H5_CHECK_OVERFLOW(fixed_size, size_t, haddr_t);
@@ -622,24 +622,24 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
HDmemcpy(p, H5F_SIGNATURE, (size_t)H5F_SIGNATURE_LEN);
p += H5F_SIGNATURE_LEN;
*p++ = (uint8_t)sblock->super_vers;
-
+
/* Check for older version of superblock format */
if(sblock->super_vers < HDF5_SUPERBLOCK_VERSION_2) {
*p++ = (uint8_t)HDF5_FREESPACE_VERSION; /* (hard-wired) */
*p++ = (uint8_t)HDF5_OBJECTDIR_VERSION; /* (hard-wired) */
*p++ = 0; /* reserved*/
-
+
*p++ = (uint8_t)HDF5_SHAREDHEADER_VERSION; /* (hard-wired) */
HDassert(H5F_SIZEOF_ADDR(f) <= 255);
*p++ = (uint8_t)H5F_SIZEOF_ADDR(f);
HDassert(H5F_SIZEOF_SIZE(f) <= 255);
*p++ = (uint8_t)H5F_SIZEOF_SIZE(f);
*p++ = 0; /* reserved */
-
+
UINT16ENCODE(p, sblock->sym_leaf_k);
UINT16ENCODE(p, sblock->btree_k[H5B_SNODE_ID]);
UINT32ENCODE(p, (uint32_t)sblock->status_flags);
-
+
/*
* Versions of the superblock >0 have the indexed storage B-tree
* internal 'K' value stored
@@ -649,37 +649,37 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
*p++ = 0; /*reserved */
*p++ = 0; /*reserved */
} /* end if */
-
+
H5F_addr_encode(f, &p, sblock->base_addr);
H5F_addr_encode(f, &p, sblock->ext_addr);
rel_eoa = H5FD_get_eoa(f->shared->lf, H5FD_MEM_SUPER);
H5F_addr_encode(f, &p, (rel_eoa + sblock->base_addr));
H5F_addr_encode(f, &p, sblock->driver_addr);
-
+
/* Encode the root group object entry, including the cached stab info */
if(H5G_ent_encode(f, &p, sblock->root_ent) < 0)
HGOTO_ERROR(H5E_FILE, H5E_CANTENCODE, FAIL, "can't encode root group symbol table entry")
-
+
/* Encode the driver information block. */
H5_ASSIGN_OVERFLOW(driver_size, H5FD_sb_size(f->shared->lf), hsize_t, size_t);
-
+
/* Checking whether driver block address is defined here is to handle backward
* compatibility. If the file was created with v1.6 library or earlier and no
* driver info block was written in the superblock, we don't write it either even
* though there's some driver info. Otherwise, the driver block extended will
* overwrite the (meta)data right after the superblock. This situation happens to
- * the family driver particularly. SLU - 2009/3/24
+ * the family driver particularly. SLU - 2009/3/24
*/
if(driver_size > 0 && H5F_addr_defined(sblock->driver_addr)) {
char driver_name[9]; /* Name of driver, for driver info block */
uint8_t *dbuf = p; /* Pointer to beginning of driver info */
-
+
/* Encode the driver information block */
*p++ = HDF5_DRIVERINFO_VERSION_0; /* Version */
*p++ = 0; /* reserved */
*p++ = 0; /* reserved */
*p++ = 0; /* reserved */
-
+
/* Driver info size, excluding header */
UINT32ENCODE(p, driver_size);
@@ -689,7 +689,7 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
/* Store driver name (set in 'H5FD_sb_encode' call above) */
HDmemcpy(p, driver_name, (size_t)8);
-
+
/* Advance buffer pointer past name & variable-sized portion of driver info */
/* (for later use in computing the superblock size) */
p += 8 + driver_size;
@@ -698,40 +698,40 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
else {
uint32_t chksum; /* Checksum temporary variable */
H5O_loc_t *root_oloc; /* Pointer to root group's object location */
-
+
/* Size of file addresses & offsets, and status flags */
HDassert(H5F_SIZEOF_ADDR(f) <= 255);
*p++ = (uint8_t)H5F_SIZEOF_ADDR(f);
HDassert(H5F_SIZEOF_SIZE(f) <= 255);
*p++ = (uint8_t)H5F_SIZEOF_SIZE(f);
*p++ = sblock->status_flags;
-
+
/* Base, superblock extension & end of file addresses */
H5F_addr_encode(f, &p, sblock->base_addr);
H5F_addr_encode(f, &p, sblock->ext_addr);
rel_eoa = H5FD_get_eoa(f->shared->lf, H5FD_MEM_SUPER);
H5F_addr_encode(f, &p, (rel_eoa + sblock->base_addr));
-
+
/* Retrieve information for root group */
if(NULL == (root_oloc = H5G_oloc(f->shared->root_grp)))
HGOTO_ERROR(H5E_FILE, H5E_CANTINIT, FAIL, "unable to retrieve root group information")
-
+
/* Encode address of root group's object header */
H5F_addr_encode(f, &p, root_oloc->addr);
-
+
/* Compute superblock checksum */
chksum = H5_checksum_metadata(buf, (H5F_SUPERBLOCK_SIZE(sblock->super_vers, f) - H5F_SIZEOF_CHKSUM), 0);
-
+
/* Superblock checksum */
UINT32ENCODE(p, chksum);
-
+
/* Sanity check */
HDassert((size_t)(p - buf) == H5F_SUPERBLOCK_SIZE(sblock->super_vers, f));
} /* end else */
-
+
/* Retrieve the total size of the superblock info */
H5_ASSIGN_OVERFLOW(superblock_size, (p - buf), int, size_t);
-
+
/* Double check we didn't overrun the block (unlikely) */
HDassert(superblock_size <= sizeof(buf));
@@ -739,7 +739,7 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
/* (always at relative address 0) */
if(H5FD_write(f->shared->lf, dxpl_id, H5FD_MEM_SUPER, (haddr_t)0, superblock_size, buf) < 0)
HGOTO_ERROR(H5E_IO, H5E_WRITEERROR, FAIL, "unable to write superblock")
-
+
/* Check for newer version of superblock format & superblock extension */
if(sblock->super_vers >= HDF5_SUPERBLOCK_VERSION_2 && H5F_addr_defined(sblock->ext_addr)) {
/* Check for ignoring the driver info for this file */
@@ -750,10 +750,10 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
H5O_drvinfo_t drvinfo; /* Driver info */
H5O_loc_t ext_loc; /* "Object location" for superblock extension */
uint8_t dbuf[H5F_MAX_DRVINFOBLOCK_SIZE]; /* Driver info block encoding buffer */
-
+
/* Sanity check */
HDassert(driver_size <= H5F_MAX_DRVINFOBLOCK_SIZE);
-
+
/* Encode driver-specific data */
if(H5FD_sb_encode(f->shared->lf, drvinfo.name, dbuf) < 0)
HGOTO_ERROR(H5E_FILE, H5E_CANTINIT, FAIL, "unable to encode driver information")
@@ -761,7 +761,7 @@ H5F_sblock_flush(H5F_t *f, hid_t dxpl_id, hbool_t destroy, haddr_t UNUSED addr,
/* Open the superblock extension's object header */
if(H5F_super_ext_open(f, sblock->ext_addr, &ext_loc) < 0)
HGOTO_ERROR(H5E_FILE, H5E_CANTOPENOBJ, FAIL, "unable to open file's superblock extension")
-
+
/* Write driver info information to the superblock extension */
drvinfo.len = driver_size;
drvinfo.buf = dbuf;
diff --git a/src/H5Gdense.c b/src/H5Gdense.c
index 9a8e764..0bb29d5 100644
--- a/src/H5Gdense.c
+++ b/src/H5Gdense.c
@@ -698,7 +698,7 @@ H5G_dense_lookup_by_idx(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
/* Determine the address of the index to use */
if(idx_type == H5_INDEX_NAME) {
- /* Since names are hashed, getting them in strictly increasing or
+ /* Since names are hashed, getting them in strictly increasing or
* decreasing order requires building a table and sorting it.
* If the order is native, use the B-tree for names.
*/
@@ -716,7 +716,7 @@ H5G_dense_lookup_by_idx(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
} /* end else */
/* If the order is native and there's no B-tree for indexing the links,
- * use the B-tree for names instead of building a table to speed up the
+ * use the B-tree for names instead of building a table to speed up the
* process.
*/
if(order == H5_ITER_NATIVE && !H5F_addr_defined(bt2_addr)) {
@@ -1004,7 +1004,7 @@ H5G_dense_iterate(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
/* Determine the address of the index to use */
if(idx_type == H5_INDEX_NAME) {
- /* Since names are hashed, getting them in strictly increasing or
+ /* Since names are hashed, getting them in strictly increasing or
* decreasing order requires building a table and sorting it. If
* the order is native, use the B-tree for names.
*/
@@ -1022,7 +1022,7 @@ H5G_dense_iterate(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
} /* end else */
/* If the order is native and there's no B-tree for indexing the links,
- * use the B-tree for names instead of building a table to speed up the
+ * use the B-tree for names instead of building a table to speed up the
* process.
*/
if(order == H5_ITER_NATIVE && !H5F_addr_defined(bt2_addr)) {
@@ -1209,7 +1209,7 @@ H5G_dense_get_name_by_idx(H5F_t *f, hid_t dxpl_id, H5O_linfo_t *linfo,
/* Determine the address of the index to use */
if(idx_type == H5_INDEX_NAME) {
- /* Since names are hashed, getting them in strictly increasing or
+ /* Since names are hashed, getting them in strictly increasing or
* decreasing order requires building a table and sorting it. If
* the order is native, use the B-tree for names.
*/
@@ -1227,7 +1227,7 @@ H5G_dense_get_name_by_idx(H5F_t *f, hid_t dxpl_id, H5O_linfo_t *linfo,
} /* end else */
/* If the order is native and there's no B-tree for indexing the links,
- * use the B-tree for names instead of building a table to speed up the
+ * use the B-tree for names instead of building a table to speed up the
* process.
*/
if(order == H5_ITER_NATIVE && !H5F_addr_defined(bt2_addr)) {
@@ -1647,7 +1647,7 @@ H5G_dense_remove_by_idx(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
/* Determine the address of the index to use */
if(idx_type == H5_INDEX_NAME) {
- /* Since names are hashed, getting them in strictly increasing or
+ /* Since names are hashed, getting them in strictly increasing or
* decreasing order requires building a table and sorting it. If
* the order is native, use the B-tree for names.
*/
@@ -1665,14 +1665,14 @@ H5G_dense_remove_by_idx(H5F_t *f, hid_t dxpl_id, const H5O_linfo_t *linfo,
} /* end else */
/* If the order is native and there's no B-tree for indexing the links,
- * use the B-tree for names instead of building a table to speed up the
+ * use the B-tree for names instead of building a table to speed up the
* process.
*/
if(order == H5_ITER_NATIVE && !H5F_addr_defined(bt2_addr)) {
bt2_addr = linfo->name_bt2_addr;
HDassert(H5F_addr_defined(bt2_addr));
} /* end if */
-
+
/* If there is an index defined for the field, use it */
if(H5F_addr_defined(bt2_addr)) {
H5G_bt2_ud_rmbi_t udata; /* User data for v2 B-tree record removal */
diff --git a/src/H5MF.c b/src/H5MF.c
index b59af88..94e3122 100644
--- a/src/H5MF.c
+++ b/src/H5MF.c
@@ -247,7 +247,7 @@ done:
/*-------------------------------------------------------------------------
* Function: H5MF_alloc_create
*
- * Purpose: Create free space manager of TYPE for the file by creating
+ * Purpose: Create free space manager of TYPE for the file by creating
* a free-space structure
*
* Return: Success: non-negative
@@ -639,7 +639,7 @@ HDfprintf(stderr, "%s: Trying to avoid starting up free space manager\n", FUNC);
* Note: this drops the space to free on the floor...
*
*/
- if(f->shared->fs_state[fs_type] == H5F_FS_STATE_DELETING ||
+ if(f->shared->fs_state[fs_type] == H5F_FS_STATE_DELETING ||
!H5F_HAVE_FREE_SPACE_MANAGER(f)) {
#ifdef H5MF_ALLOC_DEBUG_MORE
HDfprintf(stderr, "%s: dropping addr = %a, size = %Hu, on the floor!\n", FUNC, addr, size);
diff --git a/src/H5MFaggr.c b/src/H5MFaggr.c
index aa982da..dc3adf1 100644
--- a/src/H5MFaggr.c
+++ b/src/H5MFaggr.c
@@ -77,8 +77,8 @@
/*-------------------------------------------------------------------------
* Function: H5MF_aggr_vfd_alloc
*
- * Purpose: Allocate SIZE bytes of file memory via H5MF_aggr_alloc()
- * and return the relative address where that contiguous chunk
+ * Purpose: Allocate SIZE bytes of file memory via H5MF_aggr_alloc()
+ * and return the relative address where that contiguous chunk
* of file memory exists.
* The TYPE argument describes the purpose for which the storage
* is being requested.
@@ -722,6 +722,6 @@ H5MF_free_aggrs(H5F_t *f, hid_t dxpl_id)
if(H5MF_aggr_reset(f, dxpl_id, second_aggr) < 0)
HGOTO_ERROR(H5E_FILE, H5E_CANTFREE, FAIL, "can't reset 'small data' block")
done:
- FUNC_LEAVE_NOAPI(ret_value)
+ FUNC_LEAVE_NOAPI(ret_value)
} /* end H5MF_free_aggrs() */
diff --git a/src/H5MFsection.c b/src/H5MFsection.c
index d10b6b1..888ce62 100644
--- a/src/H5MFsection.c
+++ b/src/H5MFsection.c
@@ -480,7 +480,7 @@ H5MF_sect_simple_free(H5FS_section_info_t *_sect)
*/
static herr_t
H5MF_sect_simple_valid(const H5FS_section_class_t UNUSED *cls,
- const H5FS_section_info_t
+ const H5FS_section_info_t
#ifdef NDEBUG
UNUSED
#endif /* NDEBUG */
diff --git a/src/H5O.c b/src/H5O.c
index 3155378..a443724 100644
--- a/src/H5O.c
+++ b/src/H5O.c
@@ -1132,7 +1132,7 @@ H5O_create(H5F_t *f, hid_t dxpl_id, size_t size_hint, hid_t ocpl_id,
#if H5_SIZEOF_SIZE_T > H5_SIZEOF_INT32_T
if(size_hint > 4294967295)
oh->flags |= H5O_HDR_CHUNK0_8;
- else
+ else
#endif /* H5_SIZEOF_SIZE_T > H5_SIZEOF_INT32_T */
if(size_hint > 65535)
oh->flags |= H5O_HDR_CHUNK0_4;
diff --git a/src/H5Oainfo.c b/src/H5Oainfo.c
index 0984cd4..1d9caaa 100644
--- a/src/H5Oainfo.c
+++ b/src/H5Oainfo.c
@@ -396,13 +396,13 @@ H5O_ainfo_pre_copy_file(H5F_t UNUSED *file_src, const void UNUSED *native_src,
* Return: Success: Ptr to _DEST
* Failure: NULL
*
- * Programmer: Peter Cao
+ * Programmer: Peter Cao
* July 18, 2007
*
*-------------------------------------------------------------------------
*/
static void *
-H5O_ainfo_copy_file(H5F_t *file_src, void *mesg_src, H5F_t *file_dst,
+H5O_ainfo_copy_file(H5F_t *file_src, void *mesg_src, H5F_t *file_dst,
hbool_t *recompute_size, H5O_copy_t *cpy_info, void UNUSED *udata, hid_t dxpl_id)
{
H5O_ainfo_t *ainfo_src = (H5O_ainfo_t *)mesg_src;
@@ -475,7 +475,7 @@ H5O_ainfo_post_copy_file(const H5O_loc_t *src_oloc, const void *mesg_src,
HDassert(ainfo_src);
if(H5F_addr_defined(ainfo_src->fheap_addr)) {
- if ( H5A_dense_post_copy_file_all(src_oloc, ainfo_src, dst_oloc,
+ if ( H5A_dense_post_copy_file_all(src_oloc, ainfo_src, dst_oloc,
(H5O_ainfo_t *)mesg_dst, dxpl_id, cpy_info) < 0)
HGOTO_ERROR(H5E_ATTR, H5E_CANTCOPY, FAIL, "can't copy attribute")
}
diff --git a/src/H5Oalloc.c b/src/H5Oalloc.c
index 087c3d3..31e6de7 100644
--- a/src/H5Oalloc.c
+++ b/src/H5Oalloc.c
@@ -1183,7 +1183,7 @@ H5O_move_cont(H5F_t *f, H5O_t *oh, unsigned cont_u, hid_t dxpl_id)
/* Check arguments. */
HDassert(f);
HDassert(oh);
-
+
cont_msg = &oh->mesg[cont_u];
H5O_LOAD_NATIVE(f, dxpl_id, 0, oh, cont_msg, FAIL)
deleted_chunkno = ((H5O_cont_t *)(cont_msg->native))->chunkno;
diff --git a/src/H5Oattr.c b/src/H5Oattr.c
index 4d8b17a..c913952 100644
--- a/src/H5Oattr.c
+++ b/src/H5Oattr.c
@@ -662,8 +662,8 @@ H5O_attr_copy_file(H5F_t *file_src, const H5O_msg_class_t UNUSED *mesg_type,
HDassert(cpy_info);
HDassert(!cpy_info->copy_without_attr);
- /* Mark datatype as being on disk now. This step used to be done in a lower level
- * by H5O_dtype_decode. But it has been moved up. Not an ideal place, but no better
+ /* Mark datatype as being on disk now. This step used to be done in a lower level
+ * by H5O_dtype_decode. But it has been moved up. Not an ideal place, but no better
* place than here. */
if(H5T_set_loc(((H5A_t *)native_src)->shared->dt, file_src, H5T_LOC_DISK) < 0)
HGOTO_ERROR(H5E_ATTR, H5E_CANTINIT, NULL, "invalid datatype location")
diff --git a/src/H5Shyper.c b/src/H5Shyper.c
index bdcdc28..857df97 100644
--- a/src/H5Shyper.c
+++ b/src/H5Shyper.c
@@ -5509,14 +5509,14 @@ done:
if(head && down)
if(down->head != head)
down = NULL;
-
+
do {
if(down) {
head = down->head;
(void)H5FL_FREE(H5S_hyper_span_info_t, down);
} /* end if */
down = head->down;
-
+
while(head) {
last_span = head->next;
(void)H5FL_FREE(H5S_hyper_span_t, head);
diff --git a/src/H5T.c b/src/H5T.c
index 0a7eec4..790c5a8 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -1937,9 +1937,9 @@ done:
* Raymond Lu
* 4 December 2009
* Added a flag as a parameter to indicate whether the caller is
- * H5Tdetect_class. I also added the check for VL string type
+ * H5Tdetect_class. I also added the check for VL string type
* just like the public function. Because we want to tell users
- * VL string is a string type but we treat it as a VL type
+ * VL string is a string type but we treat it as a VL type
* internally, H5T_detect_class needs to know where the caller
* is from.
*-------------------------------------------------------------------------
@@ -1962,7 +1962,7 @@ H5T_detect_class(const H5T_t *dt, H5T_class_t cls, hbool_t from_api)
*/
if(from_api && H5T_IS_VL_STRING(dt->shared))
HGOTO_DONE(H5T_STRING == cls);
-
+
/* Check if this type is the correct type */
if(dt->shared->type==cls)
HGOTO_DONE(TRUE);
@@ -3852,7 +3852,7 @@ H5T_cmp(const H5T_t *dt1, const H5T_t *dt2, hbool_t superset)
/* Sanity check */
HDassert(dt1);
HDassert(dt2);
-
+
/* the easy case */
if(dt1 == dt2)
HGOTO_DONE(0);
diff --git a/src/H5Tnative.c b/src/H5Tnative.c
index 8d8920b..b22e3e5 100644
--- a/src/H5Tnative.c
+++ b/src/H5Tnative.c
@@ -38,7 +38,7 @@ static H5T_t *H5T_get_native_integer(size_t prec, H5T_sign_t sign, H5T_direction
size_t *struct_align, size_t *offset, size_t *comp_size);
static H5T_t *H5T_get_native_float(size_t size, H5T_direction_t direction,
size_t *struct_align, size_t *offset, size_t *comp_size);
-static H5T_t* H5T_get_native_bitfield(size_t prec, H5T_direction_t direction,
+static H5T_t* H5T_get_native_bitfield(size_t prec, H5T_direction_t direction,
size_t *struct_align, size_t *offset, size_t *comp_size);
static herr_t H5T_cmp_offset(size_t *comp_size, size_t *offset, size_t elem_size,
size_t nelems, size_t align, size_t *struct_align);
@@ -795,7 +795,7 @@ done:
*-------------------------------------------------------------------------
*/
static H5T_t*
-H5T_get_native_bitfield(size_t prec, H5T_direction_t direction, size_t *struct_align,
+H5T_get_native_bitfield(size_t prec, H5T_direction_t direction, size_t *struct_align,
size_t *offset, size_t *comp_size)
{
H5T_t *dt; /* Appropriate native datatype to copy */
diff --git a/src/H5Tvlen.c b/src/H5Tvlen.c
index 412012a..f09c42c 100644
--- a/src/H5Tvlen.c
+++ b/src/H5Tvlen.c
@@ -280,11 +280,11 @@ H5T_vlen_set_loc(const H5T_t *dt, H5F_t *f, H5T_loc_t loc)
/* Set file ID (since this VL is on disk) */
dt->shared->u.vlen.f = f;
break;
-
+
case H5T_LOC_BADLOC:
/* Allow undefined location. In H5Odtype.c, H5O_dtype_decode sets undefined
* location for VL type and leaves it for the caller to decide.
- */
+ */
break;
default:
diff --git a/src/H5system.c b/src/H5system.c
index 9d93d9c..5725218 100644
--- a/src/H5system.c
+++ b/src/H5system.c
@@ -592,7 +592,7 @@ HDremove_all(const char *fname)
* This implementation is taken from the Cygwin source distribution at
* src/winsup/mingw/mingwex/gettimeofday.c
*
- * The original source code was contributed by
+ * The original source code was contributed by
* Danny Smith <dannysmith@users.sourceforge.net>
* and released in the public domain.
*
@@ -606,7 +606,7 @@ HDremove_all(const char *fname)
/* Offset between 1/1/1601 and 1/1/1970 in 100 nanosec units */
#define _W32_FT_OFFSET (116444736000000000ULL)
-int
+int
HDgettimeofday(struct timeval *tv, void *tz)
{
union {
diff --git a/test/cache.c b/test/cache.c
index 6afe9e2..ad9f4ce 100644
--- a/test/cache.c
+++ b/test/cache.c
@@ -3007,7 +3007,7 @@ check_flush_cache(void)
if ( show_progress ) {
- HDfprintf(stdout, "%s: calling check_flush_cache__empty_cache().\n",
+ HDfprintf(stdout, "%s: calling check_flush_cache__empty_cache().\n",
fcn_name);
}
@@ -9259,7 +9259,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(1).\n",
+ HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(1).\n",
fcn_name, test_num, (int)pass);
}
@@ -9292,7 +9292,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(2).\n",
+ HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(2).\n",
fcn_name, test_num, (int)pass);
}
@@ -9320,7 +9320,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(3).\n",
+ HDfprintf(stdout, "%s:%d:%d: running sanity checks on entry(3).\n",
fcn_name, test_num, (int)pass);
}
@@ -9363,7 +9363,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Setting up the test.\n",
+ HDfprintf(stdout, "%s:%d:%d: Setting up the test.\n",
fcn_name, test_num, (int)pass);
}
@@ -9374,7 +9374,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout,
+ HDfprintf(stdout,
"%s:%d: Inserting entry(%d,%d) with flags 0x%x.\n",
fcn_name, test_num,
(int)(spec[i].entry_type),
@@ -9389,7 +9389,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout,
+ HDfprintf(stdout,
"%s:%d: Protecting entry(%d,%d).\n",
fcn_name, test_num,
(int)(spec[i].entry_type),
@@ -9400,7 +9400,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout,
+ HDfprintf(stdout,
"%s:%d: Unprotecting entry(%d,%d) with flags 0x%x ns = %d.\n",
fcn_name, test_num,
(int)(spec[i].entry_type),
@@ -9452,7 +9452,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Running the test.\n",
+ HDfprintf(stdout, "%s:%d:%d: Running the test.\n",
fcn_name, test_num, (int)pass);
}
@@ -9473,7 +9473,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Checking test results(1).\n",
+ HDfprintf(stdout, "%s:%d:%d: Checking test results(1).\n",
fcn_name, test_num, (int)pass);
}
@@ -9516,7 +9516,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Checking test results(2).\n",
+ HDfprintf(stdout, "%s:%d:%d: Checking test results(2).\n",
fcn_name, test_num, (int)pass);
}
@@ -9640,7 +9640,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Checking test results(3).\n",
+ HDfprintf(stdout, "%s:%d:%d: Checking test results(3).\n",
fcn_name, test_num, (int)pass);
}
@@ -9675,7 +9675,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(1).\n",
+ HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(1).\n",
fcn_name, test_num, (int)pass);
}
@@ -9718,7 +9718,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(2).\n",
+ HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(2).\n",
fcn_name, test_num, (int)pass);
}
@@ -9740,7 +9740,7 @@ check_flush_cache__flush_op_test(H5F_t * file_ptr,
if ( show_progress ) {
- HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(3).\n",
+ HDfprintf(stdout, "%s:%d:%d: Cleaning up after test(3).\n",
fcn_name, test_num, (int)pass);
}
@@ -9881,7 +9881,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
( cache_ptr->min_clean_size != (1 * 1024 * 1024 ) ) ) {
pass = FALSE;
- failure_mssg =
+ failure_mssg =
"unexpected cache config at start of flush op eviction test.";
} else {
@@ -9917,39 +9917,39 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
*/
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 0);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 0,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 0,
H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG,
(VARIABLE_ENTRY_SIZE / 2));
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 1);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 1,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 1,
H5C__NO_FLAGS_SET, (size_t)0);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 2);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 2,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 2,
H5C__NO_FLAGS_SET, (size_t)0);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 3);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 3,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 3,
H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG,
(VARIABLE_ENTRY_SIZE / 2));
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 4);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 4,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 4,
H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG,
(VARIABLE_ENTRY_SIZE / 2));
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 5);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 5,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 5,
H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG,
(VARIABLE_ENTRY_SIZE / 2));
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 6);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 6,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 6,
H5C__NO_FLAGS_SET, (size_t)0);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 7);
- unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 7,
+ unprotect_entry_with_size_change(file_ptr, VARIABLE_ENTRY_TYPE, 7,
H5C__NO_FLAGS_SET, (size_t)0);
if ( ( cache_ptr->index_len != 8 ) ||
@@ -10052,14 +10052,14 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 0; i < 31; i++ )
{
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
for ( i = 0; i < 1; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10127,7 +10127,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
num_large_entries = 2;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 1);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 1,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 1,
H5C__DIRTIED_FLAG, (size_t)0);
if ( ( cache_ptr->index_len != 40 ) ||
@@ -10193,7 +10193,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
num_large_entries = 3;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 2);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 2,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 2,
H5C__DIRTIED_FLAG, (size_t)0);
if ( ( cache_ptr->index_len != 40 ) ||
@@ -10266,11 +10266,11 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
num_large_entries = 5;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 3);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 3,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 3,
H5C__DIRTIED_FLAG, (size_t)0);
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 4);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 4,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, 4,
H5C__DIRTIED_FLAG, (size_t)0);
/* verify cache size */
@@ -10307,14 +10307,14 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 0; i < 31; i++ )
{
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
for ( i = 0; i < 5; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10374,7 +10374,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 5; i < 8; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10436,7 +10436,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 8; i < 9; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10502,7 +10502,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 9; i < 10; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10538,14 +10538,14 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 0; i < 31; i++ )
{
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
for ( i = 0; i < 10; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10649,7 +10649,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 10; i < 12; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10682,14 +10682,14 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 0; i < num_monster_entries; i++ )
{
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, MONSTER_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
for ( i = 0; i < num_large_entries; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -10776,7 +10776,7 @@ check_flush_cache__flush_op_eviction_test(H5F_t * file_ptr)
for ( i = 12; i < 14; i++ )
{
protect_entry(file_ptr, LARGE_ENTRY_TYPE, i);
- unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
+ unprotect_entry_with_size_change(file_ptr, LARGE_ENTRY_TYPE, i,
H5C__DIRTIED_FLAG, (size_t)0);
}
@@ -14929,7 +14929,7 @@ check_resize_entry(void)
if ( pass ) {
result = H5C_unprotect(file_ptr, H5P_DATASET_XFER_DEFAULT, H5P_DATASET_XFER_DEFAULT,
- &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
+ &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
H5C__SIZE_CHANGED_FLAG | H5C__DIRTIED_FLAG, (LARGE_ENTRY_SIZE / 2));
if ( result < 0 ) {
@@ -15000,7 +15000,7 @@ check_resize_entry(void)
if ( pass ) {
result = H5C_unprotect(file_ptr, H5P_DATASET_XFER_DEFAULT, H5P_DATASET_XFER_DEFAULT,
- &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
+ &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
(H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG), LARGE_ENTRY_SIZE);
if ( result < 0 ) {
@@ -15100,8 +15100,8 @@ check_resize_entry(void)
if ( pass ) {
- result = H5C_get_entry_status(file_ptr, entry_ptr->addr,
- &reported_entry_size, &in_cache,
+ result = H5C_get_entry_status(file_ptr, entry_ptr->addr,
+ &reported_entry_size, &in_cache,
&is_dirty, &is_protected, &is_pinned);
if ( result < 0 ) {
@@ -15192,7 +15192,7 @@ check_resize_entry(void)
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 0);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, FALSE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, FALSE,
H5C__UNPIN_ENTRY_FLAG | H5C__DELETED_FLAG);
if ( pass ) {
@@ -15335,7 +15335,7 @@ check_resize_entry(void)
if ( pass ) {
result = H5C_unprotect(file_ptr, H5P_DATASET_XFER_DEFAULT, H5P_DATASET_XFER_DEFAULT,
- &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
+ &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
H5C__SIZE_CHANGED_FLAG | H5C__DIRTIED_FLAG, (LARGE_ENTRY_SIZE / 2));
if ( result < 0 ) {
@@ -15408,7 +15408,7 @@ check_resize_entry(void)
if ( pass ) {
result = H5C_unprotect(file_ptr, H5P_DATASET_XFER_DEFAULT, H5P_DATASET_XFER_DEFAULT,
- &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
+ &(types[LARGE_ENTRY_TYPE]), entry_ptr->addr, (void *)entry_ptr,
(H5C__DIRTIED_FLAG | H5C__SIZE_CHANGED_FLAG), LARGE_ENTRY_SIZE);
if ( result < 0 ) {
@@ -15602,7 +15602,7 @@ check_resize_entry(void)
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 3);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 3, FALSE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 3, FALSE,
H5C__UNPIN_ENTRY_FLAG | H5C__DELETED_FLAG);
if ( pass ) {
@@ -15826,7 +15826,7 @@ check_evictions_enabled(void)
for ( i = 0; i < 16 ; i++ )
{
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, i);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, i,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, i,
FALSE, H5C__NO_FLAGS_SET);
}
@@ -15857,7 +15857,7 @@ check_evictions_enabled(void)
/* protect and unprotect another entry */
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, 16);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 16,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 16,
FALSE, H5C__NO_FLAGS_SET);
if ( show_progress ) /* 7 */
@@ -16022,7 +16022,7 @@ check_evictions_enabled(void)
/* protect and unprotect another entry */
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, 18);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 18,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 18,
FALSE, H5C__NO_FLAGS_SET);
if ( show_progress ) /* 15 */
@@ -16095,7 +16095,7 @@ check_evictions_enabled(void)
/* protect and unprotect an entry that is in the cache */
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, 19);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 19,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 19,
FALSE, H5C__NO_FLAGS_SET);
if ( show_progress ) /* 20 */
@@ -16124,7 +16124,7 @@ check_evictions_enabled(void)
/* protect and unprotect an entry that isn't in the cache */
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, 20);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 20,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 20,
FALSE, H5C__NO_FLAGS_SET);
if ( show_progress ) /* 22 */
@@ -16247,7 +16247,7 @@ check_evictions_enabled(void)
* the cache to grow.
*/
protect_entry(file_ptr, MONSTER_ENTRY_TYPE, 21);
- unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 21,
+ unprotect_entry(file_ptr, MONSTER_ENTRY_TYPE, 21,
FALSE, H5C__NO_FLAGS_SET);
@@ -21619,11 +21619,11 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
H5C__NO_FLAGS_SET);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
H5C__NO_FLAGS_SET);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12);
@@ -21792,7 +21792,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, 2 * 1024, TRUE);
@@ -21831,7 +21831,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, 10 * 1024, TRUE);
@@ -21852,7 +21852,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, 10 * 1024, TRUE);
@@ -21876,15 +21876,15 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
if ( ( pass ) &&
@@ -21944,7 +21944,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_pinned_entry(cache_ptr, VARIABLE_ENTRY_TYPE, 10, 2 * 1024);
@@ -21983,7 +21983,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_pinned_entry(cache_ptr, VARIABLE_ENTRY_TYPE, 11, 10 * 1024);
@@ -22004,7 +22004,7 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
H5C__PIN_ENTRY_FLAG);
resize_pinned_entry(cache_ptr, VARIABLE_ENTRY_TYPE, 12, 10 * 1024);
@@ -22028,15 +22028,15 @@ check_auto_cache_resize(void)
if ( pass ) {
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 10, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 11, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
protect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12);
- unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
+ unprotect_entry(file_ptr, VARIABLE_ENTRY_TYPE, 12, NO_CHANGE,
H5C__UNPIN_ENTRY_FLAG);
if ( ( pass ) &&
@@ -22157,7 +22157,7 @@ check_auto_cache_resize(void)
rpt_fcn_called = FALSE;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 0);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, NO_CHANGE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, NO_CHANGE,
H5C__NO_FLAGS_SET);
if ( ( pass ) &&
@@ -22184,7 +22184,7 @@ check_auto_cache_resize(void)
rpt_fcn_called = FALSE;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 1);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 1, NO_CHANGE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 1, NO_CHANGE,
H5C__NO_FLAGS_SET);
if ( ( pass ) &&
@@ -22210,10 +22210,10 @@ check_auto_cache_resize(void)
rpt_fcn_called = FALSE;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 2);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 2, NO_CHANGE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 2, NO_CHANGE,
H5C__NO_FLAGS_SET);
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 3);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 3, NO_CHANGE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 3, NO_CHANGE,
H5C__NO_FLAGS_SET);
if ( ( pass ) &&
@@ -22267,7 +22267,7 @@ check_auto_cache_resize(void)
rpt_fcn_called = FALSE;
protect_entry(file_ptr, LARGE_ENTRY_TYPE, 0);
- unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, NO_CHANGE,
+ unprotect_entry(file_ptr, LARGE_ENTRY_TYPE, 0, NO_CHANGE,
H5C__NO_FLAGS_SET);
if ( ( pass ) &&
@@ -28742,7 +28742,7 @@ check_auto_cache_resize_aux_fcns(void)
failure_mssg =
"H5C_get_cache_size reports unexpected cur_size 5.\n";
- }
+ }
}
if ( pass ) {
@@ -28792,13 +28792,13 @@ check_auto_cache_resize_aux_fcns(void)
*
* A 'metadata blizzard' in this context occurs when the cache
* gets completely filled with all dirty entries. Upon needing
- * to make space in the cache, the cache then has no clean
+ * to make space in the cache, the cache then has no clean
* entries ready to evict, and must clean every dirty entry
* in the cache first, due to the second chance replacement
* policy. (i.e. after cleaning an entry, it is bumped to the
* top of the LRU to make a second pass before eviction).
- * The massive amount of sequential writes to disk while
- * flushing the entire cache is what constitutes a 'metadata
+ * The massive amount of sequential writes to disk while
+ * flushing the entire cache is what constitutes a 'metadata
* blizzard'.
*
* Return: void
@@ -28821,11 +28821,11 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
H5F_t * file_ptr = NULL;
H5C_t * cache_ptr = NULL;
hbool_t show_progress = FALSE;
- int32_t checkpoint = 0;
+ int32_t checkpoint = 0;
int32_t entry_idx = 0;
int32_t i;
- /* Expected loaded status of entries depends on how they get into
+ /* Expected loaded status of entries depends on how they get into
* the cache. Insertions = not loaded, protect/unprotect = loaded.
*/
hbool_t loaded = (hbool_t)!(fill_via_insertion);
@@ -29001,19 +29001,19 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 0 */
- HDfprintf(stdout, "\n%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "\n%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
-
+
/* Set up the cache.
*
- * The max_cache_size should have room for 50 entries.
- * The min_clean_size is half of that, or 25 entries.
+ * The max_cache_size should have room for 50 entries.
+ * The min_clean_size is half of that, or 25 entries.
*/
file_ptr = setup_cache((size_t)(50 * entry_size), /* max_cache_size */
(size_t)(25 * entry_size)); /* min_clean_size */
-
+
if ( file_ptr == NULL) {
pass = FALSE;
@@ -29022,37 +29022,37 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
else
cache_ptr = file_ptr->shared->cache;
- }
+ }
if ( show_progress) /* 1 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
/* ========================================================================
* ========================================================================
* Phase 1:
- *
- * Inserting dirty entries into an empty cache, until the cache
+ *
+ * Inserting dirty entries into an empty cache, until the cache
* violates the min_clean_size requirement. The expected result is
* that none of the inserted entries during this phase will get
* flushed or evicted.
- *
+ *
* This verifies that while maintaining min_clean_size, we don't go
* overboard and flush entries that we don't need to flush.
- *
+ *
* ========================================================================
* ========================================================================
*/
if ( pass ) {
- /* Insert 26 entries (indexes 0 through 25) into the cache.
+ /* Insert 26 entries (indexes 0 through 25) into the cache.
*
- * Note that we are inserting 26 entries, and not 25, because the cache
- * will only try to adhere to the min_clean_size if it's currently
- * being violated. Thus, on insertion of the 26th entry, since the
- * min_clean_size will not be violated, it will accept the insertion
- * without having to make clean space.
+ * Note that we are inserting 26 entries, and not 25, because the cache
+ * will only try to adhere to the min_clean_size if it's currently
+ * being violated. Thus, on insertion of the 26th entry, since the
+ * min_clean_size will not be violated, it will accept the insertion
+ * without having to make clean space.
*/
for (entry_idx = 0; entry_idx < 26; entry_idx++) {
@@ -29076,8 +29076,8 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
H5C__NO_FLAGS_SET); /* unsigned int flags */
}
- /* Change expected values, and verify the status of the entries
- * after each insertion
+ /* Change expected values, and verify the status of the entries
+ * after each insertion
*/
expected[entry_idx].in_cache = TRUE;
expected[entry_idx].is_dirty = TRUE;
@@ -29091,30 +29091,30 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 2 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
/* ========================================================================
* ========================================================================
* Phase 2:
- *
+ *
* Inserting entries into a cache that violates the min_clean_size,
* until the cache is full. The expected result is that each insertion
- * will result in the flushing of a dirty entry in the cache.
+ * will result in the flushing of a dirty entry in the cache.
*
* This verifies that we maintain the min_clean_size. By doing so, we
* prevent building the situation in which a 'metadata blizzard' would
* occur (i.e., the cache being completely filled with dirty entries).
- *
+ *
* ========================================================================
* ========================================================================
*/
-
+
if ( pass ) {
/* Insert the 27th entry (index = 26) into the cache.
- *
- * This should cause the cache to flush its least recently used entry
+ *
+ * This should cause the cache to flush its least recently used entry
* before the insertion because it doesn't satisfy the min_clean_size
* constraint.
*/
@@ -29137,15 +29137,15 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
/* Verify the status of the entries.
- *
+ *
* Expected status is that there are 27 entries in the cache, and
* entry number 0 has been cleaned.
- *
+ *
* Changes from last entry verification:
* - entry w/ index 0 has now been flushed and is now clean.
* - entry w/ index 26 is now in the cache and dirty.
*/
-
+
/* entry w/ index 0 has now been flushed and is now clean. */
expected[0].flushed = TRUE;
expected[0].is_dirty = FALSE;
@@ -29163,7 +29163,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 3 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
@@ -29193,10 +29193,10 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
/* Verify the status of the entries.
- *
+ *
* Expected status is that there are 28 entries in the cache, and
* entry numbers 0 and 1 have been cleaned.
- *
+ *
* Changes from last entry verification:
* - entry w/ index 1 has now been flushed and is now clean.
* - entry w/ index 27 is now in the cache and dirty.
@@ -29219,7 +29219,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 4 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
@@ -29247,7 +29247,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
/* Expected staus is that after each insertion, the entry
- * inserted 26 insertions ago has been flushed, and the
+ * inserted 26 insertions ago has been flushed, and the
* entry currently getting inserted is now in the cache and
* dirty.
*/
@@ -29257,7 +29257,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
expected[entry_idx].in_cache = TRUE;
expected[entry_idx].is_dirty = TRUE;
expected[entry_idx].loaded = (unsigned char)loaded;
-
+
/* verify the status */
verify_entry_status(cache_ptr, /* H5C_t * cache_ptr */
entry_idx, /* int tag */
@@ -29274,23 +29274,23 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 5 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
/* ========================================================================
* ========================================================================
* Phase 3:
- *
- * Inserting entries into a cache that is completely full. Insertions
+ *
+ * Inserting entries into a cache that is completely full. Insertions
* of new entries will force evictions of old entries, but since the
- * min_clean_size has been maintained, doing so will not result in
+ * min_clean_size has been maintained, doing so will not result in
* the entire cache getting flushed in order to evict a single entry,
* as a clean entry will be available to flush reasonably close to
* the bottom of the LRU.
- *
+ *
* This verifies that with a maintained min_clean_size, a metadata
* blizzard does not occur on insertion.
- *
+ *
* ========================================================================
* ========================================================================
*/
@@ -29298,7 +29298,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
if ( pass ) {
/* Insert the 51st entry (index = 50) into the cache.
- *
+ *
* The cache is full prior to the insertion, so it will
* have to evict in order to make room for the new entry.
*/
@@ -29321,13 +29321,13 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
/* Verify the status of the entries.
- *
+ *
* Changes from last entry verification:
* - entry w/ index 0 has been evicted.
* - entries w/ indices 24,25 have now been flushed and are clean.
* - entry w/ index 50 is now in the cache and dirty.
*/
-
+
/* entry w/ index 0 has been evicted. */
expected[0].in_cache = FALSE;
expected[0].destroyed = TRUE;
@@ -29351,16 +29351,16 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 6 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
/* Insert 49 more entries (indices 51-99) into the cache.
- *
- * The cache will be flushing an entry on each insertion, and
- * evicting an entry on each insertion.
+ *
+ * The cache will be flushing an entry on each insertion, and
+ * evicting an entry on each insertion.
*
* After each insertion, verify the expected status of the
* entries in the cache.
@@ -29377,7 +29377,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
protect_entry(file_ptr, /* H5F_t * file_ptr */
entry_type, /* int32_t type */
entry_idx); /* int32-t idx */
-
+
unprotect_entry(file_ptr, /* H5F_t * file_ptr */
entry_type, /* int32_t type */
entry_idx, /* int32_t idx */
@@ -29394,21 +29394,21 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
expected[entry_idx - 50].in_cache = FALSE;
expected[entry_idx - 50].destroyed = TRUE;
- /* If the newly inserted entry is among the first 24
+ /* If the newly inserted entry is among the first 24
* insertions in this loop, then the insertion will
* have resulted in a flush of the entry inserted
* 25 insertions ago. */
if (entry_idx < 75) {
-
+
expected[entry_idx - 25].flushed = TRUE;
expected[entry_idx - 25].is_dirty = FALSE;
}
/* If the newly inserted entry is among the last
* 25 insertions in this loop, then the insertion will
* have resulted in a flush of the entry inserted 26
- * insertions ago. This switch is because there was two
+ * insertions ago. This switch is because there was two
* consecutive clean entries in the cache (due to 51/49
- * dirty/clean ratio when full), so instead of
+ * dirty/clean ratio when full), so instead of
* flush-then-evict, it switches to evict-then-flush. */
else {
@@ -29425,13 +29425,13 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 7 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
/* ========================================================================
* ========================================================================
* Phase 4:
- *
+ *
* Flushing the entire cache, and then inserting entries into a cache
* that is completely full, but all clean.
*
@@ -29439,18 +29439,18 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
* into an empty cache, we're inserting into a full cache that's all
* clean, thus an eviction occurs before each insertion.
*
- * When the cache finally hits the point of violating the
+ * When the cache finally hits the point of violating the
* min_clean_size, the bottom half of the LRU will be filled with
* clean entries and the top half will be filled with recently inserted
* dirty entries. We'll then verify that an insertion will only evict
* one entry and flush one entry, and no more.
- *
+ *
* ========================================================================
* ========================================================================
*/
if ( pass ) {
-
+
/* Flush the cache.
*
* We're doing this so we can repeat the above insertions, but
@@ -29462,12 +29462,12 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
FALSE, /* hbool_t destory_entries */
FALSE, /* hbool_t dump_stats */
FALSE); /* hbool_t dump_detailed_stats */
-
+
/* Verify that the cache is clean */
verify_clean();
/* Verify the status of the entries.
- *
+ *
* Changes from last entry verification:
* - entries w/ indices 74-99 have been flushed.
*/
@@ -29485,7 +29485,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 8 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
@@ -29536,7 +29536,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 9 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
@@ -29561,7 +29561,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
/* Verify the status of the entries.
- *
+ *
* Changes from last entry verification:
* - entry w/ index 76 is evicted.
* - entry w/ index 100 is cleaned.
@@ -29571,7 +29571,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
/* entry w/ index 76 has been evicted. */
expected[76].in_cache = FALSE;
expected[76].destroyed = TRUE;
-
+
/* entry w/ index 100 has now been flushed and is now clean. */
expected[100].flushed = TRUE;
expected[100].is_dirty = FALSE;
@@ -29589,7 +29589,7 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 10 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
@@ -29639,18 +29639,18 @@ check_metadata_blizzard_absence(hbool_t fill_via_insertion)
}
if ( show_progress) /* 11 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) {
-
+
/* We're done with testing. We can take down the cache. */
takedown_cache(file_ptr, FALSE, FALSE);
reset_entries();
}
if ( show_progress) /* 12 */
- HDfprintf(stdout, "%s: check point %d -- pass %d\n",
+ HDfprintf(stdout, "%s: check point %d -- pass %d\n",
fcn_name, checkpoint++, pass);
if ( pass ) { PASSED(); } else { H5_FAILED(); }
@@ -29734,8 +29734,8 @@ main(void)
nerrs += check_auto_cache_resize_epoch_markers();
nerrs += check_auto_cache_resize_input_errs();
nerrs += check_auto_cache_resize_aux_fcns();
- nerrs += check_metadata_blizzard_absence(TRUE);
- nerrs += check_metadata_blizzard_absence(FALSE);
+ nerrs += check_metadata_blizzard_absence(TRUE);
+ nerrs += check_metadata_blizzard_absence(FALSE);
return(nerrs > 0);
}
diff --git a/test/cache_common.c b/test/cache_common.c
index b9dcd66..eb40a0e 100644
--- a/test/cache_common.c
+++ b/test/cache_common.c
@@ -35,20 +35,20 @@ const char *FILENAME[] = {
NULL
};
-hid_t saved_fapl_id = H5P_DEFAULT; /* store the fapl id here between
- * cache setup and takedown. Note
+hid_t saved_fapl_id = H5P_DEFAULT; /* store the fapl id here between
+ * cache setup and takedown. Note
* that if saved_fapl_id == H5P_DEFAULT,
- * we assume that there is no fapl to
+ * we assume that there is no fapl to
* close.
*/
-hid_t saved_fid = -1; /* store the file id here between cache setup
+hid_t saved_fid = -1; /* store the file id here between cache setup
* and takedown.
*/
-H5C_t * saved_cache = NULL; /* store the pointer to the instance of
- * of H5C_t created by H5Fcreate()
- * here between test cache setup and
+H5C_t * saved_cache = NULL; /* store the pointer to the instance of
+ * of H5C_t created by H5Fcreate()
+ * here between test cache setup and
* shutdown.
*/
@@ -1500,7 +1500,7 @@ execute_flush_op(H5F_t * file_ptr,
/* change the size of some other entry */
- resize_entry(file_ptr, op_ptr->type, op_ptr->idx,
+ resize_entry(file_ptr, op_ptr->type, op_ptr->idx,
op_ptr->size, op_ptr->flag);
}
break;
@@ -1866,7 +1866,7 @@ resize_pinned_entry(H5C_t * cache_ptr,
entry_ptr->size = new_size;
- result = H5C_resize_pinned_entry((void *)entry_ptr,
+ result = H5C_resize_pinned_entry((void *)entry_ptr,
new_size);
if ( result != SUCCEED ) {
@@ -2321,13 +2321,13 @@ setup_cache(size_t max_cache_size,
< 0 ) {
core_file_driver_failed = TRUE;
-
+
if ( verbose ) {
HDfprintf(stdout, "%s: H5Fcreate() with CFD failed.\n", fcn_name);
}
} else {
-
+
saved_fapl_id = fapl_id;
}
}
@@ -2336,12 +2336,12 @@ setup_cache(size_t max_cache_size,
HDfprintf(stdout, "%s() - %0d -- pass = %d\n",
fcn_name, mile_stone++, (int)pass);
- /* if we either aren't using the core file driver, or a create
+ /* if we either aren't using the core file driver, or a create
* with the core file driver failed, try again with a regular file.
* If this fails, we are cooked.
*/
if ( ( pass ) && ( fid < 0 ) ) {
-
+
fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id);
saved_fid = fid;
@@ -2350,7 +2350,7 @@ setup_cache(size_t max_cache_size,
pass = FALSE;
failure_mssg = "H5Fcreate() failed.";
-
+
if ( verbose ) {
HDfprintf(stdout, "%s: H5Fcreate() failed.\n", fcn_name);
}
@@ -2371,7 +2371,7 @@ setup_cache(size_t max_cache_size,
pass = FALSE;
failure_mssg = "H5Fflush() failed.";
-
+
if ( verbose ) {
HDfprintf(stdout, "%s: H5Fflush() failed.\n", fcn_name);
}
@@ -2384,7 +2384,7 @@ setup_cache(size_t max_cache_size,
pass = FALSE;
failure_mssg = "Can't get file_ptr.";
-
+
if ( verbose ) {
HDfprintf(stdout, "%s: H5Fflush() failed.\n", fcn_name);
}
@@ -2414,15 +2414,15 @@ setup_cache(size_t max_cache_size,
* and we have modified many cache routines to use a file
* pointer to look up the target cache.
*
- * Thus we now make note of the address of the instance of
- * H5C_t created by the call to H5Fcreate(), set
+ * Thus we now make note of the address of the instance of
+ * H5C_t created by the call to H5Fcreate(), set
* file_ptr->shared->cache to NULL, call H5C_create()
* to allocate a new instance of H5C_t for test purposes,
- * and store than new instance's address in
+ * and store than new instance's address in
* file_ptr->shared->cache.
*
* On shut down, we call H5C_dest on our instance of H5C_t,
- * set file_ptr->shared->cache to point to the original
+ * set file_ptr->shared->cache to point to the original
* instance, and then close the file normally.
*/
@@ -2449,7 +2449,7 @@ setup_cache(size_t max_cache_size,
fcn_name, mile_stone++, (int)pass);
if ( pass ) {
-
+
if ( cache_ptr == NULL ) {
pass = FALSE;
@@ -2476,14 +2476,14 @@ setup_cache(size_t max_cache_size,
if ( pass ) { /* allocate space for test entries */
- actual_base_addr = H5MF_alloc(file_ptr, H5FD_MEM_DEFAULT, H5P_DEFAULT,
+ actual_base_addr = H5MF_alloc(file_ptr, H5FD_MEM_DEFAULT, H5P_DEFAULT,
(hsize_t)(ADDR_SPACE_SIZE + BASE_ADDR));
if ( actual_base_addr == HADDR_UNDEF ) {
pass = FALSE;
failure_mssg = "H5MF_alloc() failed.";
-
+
if ( verbose ) {
HDfprintf(stdout, "%s: H5MF_alloc() failed.\n", fcn_name);
}
@@ -2498,7 +2498,7 @@ setup_cache(size_t max_cache_size,
failure_mssg = "actual_base_addr > BASE_ADDR";
if ( verbose ) {
- HDfprintf(stdout, "%s: actual_base_addr > BASE_ADDR.\n",
+ HDfprintf(stdout, "%s: actual_base_addr > BASE_ADDR.\n",
fcn_name);
}
}
@@ -2555,7 +2555,7 @@ takedown_cache(H5F_t * file_ptr,
H5C_stats(cache_ptr, "test cache", dump_detailed_stats);
}
-
+
flush_cache(file_ptr, TRUE, FALSE, FALSE);
H5C_dest(file_ptr, H5P_DATASET_XFER_DEFAULT, H5P_DATASET_XFER_DEFAULT);
@@ -2581,7 +2581,7 @@ takedown_cache(H5F_t * file_ptr,
if ( NULL == file_ptr ) {
file_ptr = (H5F_t *)H5I_object_verify(saved_fid, H5I_FILE);
HDassert ( file_ptr );
- }
+ }
H5MF_xfree(file_ptr, H5FD_MEM_DEFAULT, H5P_DEFAULT, saved_actual_base_addr,
(hsize_t)(ADDR_SPACE_SIZE + BASE_ADDR));
@@ -2753,7 +2753,7 @@ flush_cache(H5F_t * file_ptr,
( cache_ptr->dirty_index_size != 0 ) ) ) {
if ( verbose ) {
- HDfprintf(stdout,
+ HDfprintf(stdout,
"%s: unexpected il/is/cis/dis = %lld/%lld/%lld/%lld.\n",
fcn_name,
(long long)(cache_ptr->index_len),
@@ -2762,7 +2762,7 @@ flush_cache(H5F_t * file_ptr,
(long long)(cache_ptr->dirty_index_size));
}
pass = FALSE;
- failure_mssg =
+ failure_mssg =
"non zero index len/sizes after H5C_flush_cache() with invalidate.";
}
@@ -3687,7 +3687,7 @@ unprotect_entry_with_size_change(H5F_t * file_ptr,
if ( result < 0 )
HDfprintf(stdout, "%s: H5C_unprotect() failed.\n", fcn_name);
- if ( entry_ptr->header.is_protected )
+ if ( entry_ptr->header.is_protected )
HDfprintf(stdout, "%s: entry still protected?!?.\n", fcn_name);
if ( entry_ptr->header.type != &(types[type]) )
@@ -4214,7 +4214,7 @@ row_major_scan_backward(H5F_t * file_ptr,
if ( pass ) {
cache_ptr = file_ptr->shared->cache;
-
+
HDassert( cache_ptr != NULL );
HDassert( lag >= 10 );
@@ -4989,7 +4989,7 @@ hl_col_major_scan_backward(H5F_t * file_ptr,
if ( pass ) {
cache_ptr = file_ptr->shared->cache;
-
+
HDassert( cache_ptr != NULL );
HDassert( lag > 5 );
HDassert( max_index >= 500 );
diff --git a/test/cache_common.h b/test/cache_common.h
index 0009ab3..eb24964 100644
--- a/test/cache_common.h
+++ b/test/cache_common.h
@@ -75,10 +75,10 @@
#define MAX_ENTRIES (10 * 1024)
-/* The choice of the BASE_ADDR below is arbitrary -- it just has to be
+/* The choice of the BASE_ADDR below is arbitrary -- it just has to be
* larger than the superblock.
*/
-#define BASE_ADDR (haddr_t)1024
+#define BASE_ADDR (haddr_t)1024
#define PICO_BASE_ADDR BASE_ADDR
#define NANO_BASE_ADDR (haddr_t)(PICO_BASE_ADDR + \
(PICO_ENTRY_SIZE * NUM_PICO_ENTRIES))
diff --git a/test/dsets.c b/test/dsets.c
index 2ec2a68..1b2aca4 100644
--- a/test/dsets.c
+++ b/test/dsets.c
@@ -183,7 +183,7 @@ const char *FILENAME[] = {
#define BYPASS_DIM 1000
#define BYPASS_CHUNK_DIM 500
#define BYPASS_FILL_VALUE 7
-
+
/* Declarations for test_idx_compatible() */
#define FIXED_IDX_FILE "fixed_idx.h5"
#define DSET "dset"
@@ -818,7 +818,7 @@ error:
HDfree(wbuf);
if(rbuf)
HDfree(rbuf);
-
+
H5E_BEGIN_TRY {
/* Close file */
H5Sclose(space);
@@ -1056,16 +1056,16 @@ test_tconv(hid_t file)
return 0;
error:
- if(out)
+ if(out)
HDfree(out);
- if(in)
+ if(in)
HDfree(in);
-
+
H5E_BEGIN_TRY {
H5Dclose(dataset);
H5Sclose(space);
} H5E_END_TRY;
-
+
return -1;
}
@@ -1735,7 +1735,7 @@ error:
*
* Modifications:
* Make copy of data file since the test writes to the file.
- * Larry Knox, October 14, 2009
+ * Larry Knox, October 14, 2009
*
*-------------------------------------------------------------------------
*/
@@ -1753,12 +1753,12 @@ test_filter_noencoder(const char *dset_name)
int test_ints[10] = { 12 };
int read_buf[10];
int i;
-
+
/* Make a local copy of the file since this test writes to the data file
- from svn. */
- if (h5_make_local_copy(NOENCODER_FILENAME, NOENCODER_COPY_FILENAME) < 0)
+ from svn. */
+ if (h5_make_local_copy(NOENCODER_FILENAME, NOENCODER_COPY_FILENAME) < 0)
goto error;
-
+
/* Open file */
file_id = H5Fopen(NOENCODER_COPY_FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
if(file_id < 0) goto error;
@@ -5566,9 +5566,9 @@ error:
/*-------------------------------------------------------------------------
* Function: test_copy_dcpl
*
- * Purpose: Verifies whether the copy of dataset creation property
+ * Purpose: Verifies whether the copy of dataset creation property
* list works. It tests the DCPL for chunked layout with
- * filter and for contiguous layout with external storage.
+ * filter and for contiguous layout with external storage.
* (Please see #1608 in Bugzilla)
*
* Return: Success: 0
@@ -5604,7 +5604,7 @@ test_copy_dcpl(hid_t file, hid_t fapl)
if(H5Pset_fletcher32(dcpl) < 0) TEST_ERROR
/* Create first dataset of chunking with filter */
- if((dsid1 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ if((dsid1 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
H5P_DEFAULT)) < 0) TEST_ERROR
/* Close dataset */
@@ -5629,7 +5629,7 @@ test_copy_dcpl(hid_t file, hid_t fapl)
if(H5Pset_external(dcpl, COPY_DCPL_EXTFILE_NAME, 0, 500*4096*sizeof(int)) < 0) TEST_ERROR
/* Create second dataset of contiguous layout with external storage */
- if((dsid2 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
+ if((dsid2 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
H5P_DEFAULT)) < 0) TEST_ERROR
/* Close dataset */
@@ -5646,7 +5646,7 @@ test_copy_dcpl(hid_t file, hid_t fapl)
if(H5Dclose (dsid2) < 0) TEST_ERROR
/* Create a second file and create 2 datasets with the copies of the DCPLs in the first
- * file. Test whether the copies of DCPLs work. */
+ * file. Test whether the copies of DCPLs work. */
h5_fixname(FILENAME[11], fapl, filename, sizeof filename);
if((new_file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
TEST_ERROR
@@ -5662,10 +5662,10 @@ test_copy_dcpl(hid_t file, hid_t fapl)
/* Close datasets */
if(H5Dclose (new_dsid1) < 0) TEST_ERROR
- if(H5Dclose (new_dsid2) < 0) TEST_ERROR
+ if(H5Dclose (new_dsid2) < 0) TEST_ERROR
/* Close the second file */
- if(H5Fclose (new_file) < 0) TEST_ERROR
+ if(H5Fclose (new_file) < 0) TEST_ERROR
/* Close dataset creation property lists */
if(H5Pclose(dcpl) < 0) TEST_ERROR
@@ -6911,7 +6911,7 @@ error:
*
* Purpose: When the chunk size is bigger than the cache size and the
* chunk isn't on disk, this test verifies that the library
- * bypasses the cache.
+ * bypasses the cache.
*
* Note: This test is not very conclusive - it doesn't actually check
* if the chunks bypass the cache... :-( -QAK
@@ -6937,7 +6937,7 @@ test_big_chunks_bypass_cache(hid_t fapl)
size_t rdcc_nelmts, rdcc_nbytes;
int fvalue = BYPASS_FILL_VALUE;
hsize_t count, stride, offset, block;
- static int wdata[BYPASS_CHUNK_DIM/2], rdata1[BYPASS_DIM],
+ static int wdata[BYPASS_CHUNK_DIM/2], rdata1[BYPASS_DIM],
rdata2[BYPASS_CHUNK_DIM/2];
int i, j;
@@ -6981,7 +6981,7 @@ test_big_chunks_bypass_cache(hid_t fapl)
count = 1;
stride = 1;
block = BYPASS_CHUNK_DIM / 2;
- if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &offset, &stride, &count, &block) < 0)
+ if(H5Sselect_hyperslab(sid, H5S_SELECT_SET, &offset, &stride, &count, &block) < 0)
FAIL_STACK_ERROR
/* Initialize data to write */
@@ -6997,9 +6997,9 @@ test_big_chunks_bypass_cache(hid_t fapl)
/* Reopen the dataset */
if((dsid = H5Dopen2(fid, BYPASS_DATASET1, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- /* Reads both 2 chunks. Reading the second chunk should bypass the cache because the
+ /* Reads both 2 chunks. Reading the second chunk should bypass the cache because the
* chunk is bigger than the cache size and it isn't allocated on disk. */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata1) < 0)
+ if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata1) < 0)
FAIL_STACK_ERROR
for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
@@ -7018,9 +7018,9 @@ test_big_chunks_bypass_cache(hid_t fapl)
/* Close the first dataset */
if(H5Dclose(dsid) < 0) FAIL_STACK_ERROR
-
+
/* Create a second dataset without fill value. This time, both write
- * and read should bypass the cache because the chunk is bigger than the
+ * and read should bypass the cache because the chunk is bigger than the
* cache size and it's not allocated on disk. */
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) FAIL_STACK_ERROR
@@ -7035,10 +7035,10 @@ test_big_chunks_bypass_cache(hid_t fapl)
/* Reopen the dataset */
if((dsid = H5Dopen2(fid, BYPASS_DATASET2, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
- /* Read back only the part that was written to the file. Reading the
+ /* Read back only the part that was written to the file. Reading the
* half chunk should bypass the cache because the chunk is bigger than
* the cache size. */
- if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, rdata2) < 0)
+ if(H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, sid, H5P_DEFAULT, rdata2) < 0)
for(i = 0; i < BYPASS_CHUNK_DIM / 2; i++)
if(rdata2[i] != i) {
@@ -7416,13 +7416,13 @@ error:
/*-------------------------------------------------------------------------
*
- * test_idx_compatible():
+ * test_idx_compatible():
* Verify that the 1.8 branch cannot read datasets that use
* Fixed Array indexing method.
*
*-------------------------------------------------------------------------
*/
-static herr_t
+static herr_t
test_idx_compatible(void)
{
hid_t fid = -1; /* File id */
@@ -7456,7 +7456,7 @@ test_idx_compatible(void)
TEST_ERROR
} H5E_END_TRY;
- if(H5Fclose(fid) < 0)
+ if(H5Fclose(fid) < 0)
FAIL_STACK_ERROR
PASSED();
@@ -7609,7 +7609,7 @@ main(void)
printf("All dataset tests passed.\n");
#ifdef H5_HAVE_FILTER_SZIP
if (GetTestCleanup())
- HDremove(NOENCODER_COPY_FILENAME);
+ HDremove(NOENCODER_COPY_FILENAME);
#endif /* H5_HAVE_FILTER_SZIP */
h5_cleanup(FILENAME, fapl);
diff --git a/test/dtypes.c b/test/dtypes.c
index 4549eaf..3751841 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -327,7 +327,7 @@ test_copy(void)
* Modifications:
* Raymond Lu
* 8 December 2009
- * I added a field of VL string in the compound type to test
+ * I added a field of VL string in the compound type to test
* H5Tdetect_class correctly detect it as string type.
*-------------------------------------------------------------------------
*/
@@ -523,7 +523,7 @@ test_compound_1(void)
TESTING("compound datatypes");
/* Create the empty type */
- if ((complex_id = H5Tcreate(H5T_COMPOUND, sizeof(complex_t))) < 0)
+ if ((complex_id = H5Tcreate(H5T_COMPOUND, sizeof(complex_t))) < 0)
goto error;
/* Attempt to add the new compound datatype as a field within itself */
@@ -626,7 +626,7 @@ test_compound_1(void)
FAIL_PUTS_ERROR("Operation not allowed for this type.");
} /* end if */
- if (H5Tclose (complex_id) < 0)
+ if (H5Tclose (complex_id) < 0)
goto error;
PASSED();
@@ -2430,7 +2430,7 @@ test_compound_14(void)
char c2;
char* str;
} cmpd_struct_1;
-
+
typedef struct cmpd_struct_2 {
char c1;
char c2;
@@ -2442,7 +2442,7 @@ test_compound_14(void)
} cmpd_struct_2;
cmpd_struct_1 wdata1 = {'A', 'B', "variable-length string"};
-
+
cmpd_struct_1 rdata1;
cmpd_struct_2 wdata2 = {'C', 'D', "another vlen!", 1, 2, -1, 9001};
cmpd_struct_2 rdata2;
@@ -4193,9 +4193,9 @@ test_conv_str_3(void)
ret_value = 0;
error:
- if(buf)
+ if(buf)
HDfree(buf);
- if(tag)
+ if(tag)
HDfree(tag);
reset_hdf5();
return ret_value; /* Number of errors */
@@ -5017,7 +5017,7 @@ test_encode(void)
printf("Can't copy a string type\n");
goto error;
} /* end if */
- if(H5Tset_size(tid3, H5T_VARIABLE) < 0) {
+ if(H5Tset_size(tid3, H5T_VARIABLE) < 0) {
H5_FAILED();
printf("Can't the string type to be variable-length\n");
goto error;
diff --git a/test/error_test.c b/test/error_test.c
index 89a81a3..21a3e58 100644
--- a/test/error_test.c
+++ b/test/error_test.c
@@ -586,7 +586,7 @@ main(void)
/* Delete an error from the top of error stack */
H5Epop(ERR_STACK, 1);
- /* Make sure we can use other class's major or minor errors. */
+ /* Make sure we can use other class's major or minor errors. */
H5Epush(ERR_STACK, __FILE__, FUNC_main, __LINE__, ERR_CLS2, ERR_MAJ_TEST, ERR_MIN_ERRSTACK,
"Error stack test failed");
diff --git a/test/external.c b/test/external.c
index 7b412c5..c2614d5 100644
--- a/test/external.c
+++ b/test/external.c
@@ -60,14 +60,14 @@ same_contents (const char *name1, const char *name2)
fd2 = HDopen(name2, O_RDONLY, 0666);
assert(fd1 >= 0 && fd2 >= 0);
- while(1) {
+ while(1) {
/* Asserts will catch negative return values */
n1 = HDread(fd1, buf1, sizeof(buf1));
n2 = HDread(fd2, buf2, sizeof(buf2));
assert(n1 >= 0 && (size_t)n1 <= sizeof(buf1));
assert(n2 >= 0 && (size_t)n2 <= sizeof(buf2));
assert(n1 == n2);
-
+
if(n1 == 0 && n2 == 0)
break;
if(HDmemcmp(buf1, buf2, (size_t)n1)) {
diff --git a/test/gen_idx.c b/test/gen_idx.c
index 6282574..0513e1b 100644
--- a/test/gen_idx.c
+++ b/test/gen_idx.c
@@ -27,7 +27,7 @@
const char *FILENAME[1] = {
"btree_idx_1_8.h5" /* file with datasets that use B-tree indexing method */
-};
+};
#define DSET "dset"
#define DSET_FILTER "dset_filter"
@@ -82,7 +82,7 @@ static void gen_idx_file(void)
/* Create a 1D dataset */
did = H5Dcreate2(fid, DSET, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
assert(did >= 0);
-
+
/* Write to the dataset */
status = H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
assert(status >= 0);
diff --git a/test/h5test.c b/test/h5test.c
index a5b50d3..b9f3221 100644
--- a/test/h5test.c
+++ b/test/h5test.c
@@ -72,7 +72,7 @@ MPI_Info h5_io_info_g=MPI_INFO_NULL;/* MPI INFO object for IO */
#endif
#define FILENAME_BUF_SIZE 1024
-#define READ_BUF_SIZE 4096
+#define READ_BUF_SIZE 4096
/*
* These are the letters that are appended to the file name when generating
@@ -872,10 +872,10 @@ h5_get_file_size(const char *filename, hid_t fapl)
driver == H5FD_MPIO || driver == H5FD_MPIPOSIX ||
#endif /* H5_HAVE_PARALLEL */
#ifdef H5_HAVE_WINDOWS
- driver == H5FD_WINDOWS ||
+ driver == H5FD_WINDOWS ||
#endif /* H5_HAVE_WINDOWS */
#ifdef H5_HAVE_DIRECT
- driver == H5FD_DIRECT ||
+ driver == H5FD_DIRECT ||
#endif /* H5_HAVE_DIRECT */
driver == H5FD_LOG) {
/* Get the file's statistics */
@@ -1096,9 +1096,9 @@ getenv_all(MPI_Comm comm, int root, const char* name)
*
* Purpose: Make copy of file. Some tests write to data files under that
* are under version control. Those tests should make a copy of
- * the versioned file and write to the copy. This function
+ * the versioned file and write to the copy. This function
* prepends srcdir to the name of the file to be copied and uses
- * the name of the copy as is.
+ * the name of the copy as is.
*
* Return: Success: 0
*
@@ -1129,7 +1129,7 @@ h5_make_local_copy(char *origfilename, char *local_copy_name)
/* Copy old file into temporary file */
if((fd_old = HDopen(filename, O_RDONLY, 0666)) < 0) return -1;
- if((fd_new = HDopen(local_copy_name, O_RDWR|O_CREAT|O_TRUNC, 0666))
+ if((fd_new = HDopen(local_copy_name, O_RDWR|O_CREAT|O_TRUNC, 0666))
< 0) return -1;
/* Copy data */
@@ -1139,7 +1139,7 @@ h5_make_local_copy(char *origfilename, char *local_copy_name)
/* Close files */
if(HDclose(fd_old) < 0) return -1;
if(HDclose(fd_new) < 0) return -1;
-
- return 0;
+
+ return 0;
}
diff --git a/test/h5test.h b/test/h5test.h
index 61e7d95..f984751 100644
--- a/test/h5test.h
+++ b/test/h5test.h
@@ -157,7 +157,7 @@ H5TEST_DLL void h5_reset(void);
H5TEST_DLL void h5_show_hostname(void);
H5TEST_DLL h5_stat_size_t h5_get_file_size(const char *filename, hid_t fapl);
H5TEST_DLL int print_func(const char *format, ...);
-H5TEST_DLL int h5_make_local_copy(char *origfilename, char *local_copy_name);
+H5TEST_DLL int h5_make_local_copy(char *origfilename, char *local_copy_name);
/* Routines for operating on the list of tests (for the "all in one" tests) */
H5TEST_DLL void TestUsage(void);
diff --git a/test/links.c b/test/links.c
index c2d9249..bdc6572 100644
--- a/test/links.c
+++ b/test/links.c
@@ -327,7 +327,7 @@ typedef struct {
* 14 Jan. 2009
*-------------------------------------------------------------------------
*/
-static void
+static void
fix_ext_filename(char *path_name, char *cwd, const char *file_name)
{
HDstrcpy(path_name, cwd);
diff --git a/test/mf.c b/test/mf.c
index 3c88501..cdc7de5 100644
--- a/test/mf.c
+++ b/test/mf.c
@@ -3669,7 +3669,7 @@ test_mf_align_eoa(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -4108,7 +4108,7 @@ test_mf_align_fs(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
if((file_size = h5_get_file_size(filename, new_fapl)) < 0)
@@ -4316,7 +4316,7 @@ test_mf_align_alloc1(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -4573,7 +4573,7 @@ test_mf_align_alloc2(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -4902,7 +4902,7 @@ test_mf_align_alloc3(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -5198,7 +5198,7 @@ test_mf_align_alloc4(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -5405,7 +5405,7 @@ test_mf_align_alloc5(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -5674,7 +5674,7 @@ test_mf_align_alloc6(const char *env_h5_drvr, hid_t fapl, hid_t new_fapl)
/* Skip test when using VFDs that have their own 'alloc' callback, which
* don't push mis-aligned space fragments on the file free space list
*/
- have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
+ have_alloc_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "stdio")
&& HDstrcmp(env_h5_drvr, "split") && HDstrcmp(env_h5_drvr, "multi"));
if(have_alloc_vfd) {
/* Set the filename to use for this test (dependent on fapl) */
@@ -5930,7 +5930,7 @@ main(void)
nerrors += test_mf_align_alloc6(env_h5_drvr, fapl, new_fapl);
} /* end if */
- if (H5Pclose(new_fapl) < 0)
+ if (H5Pclose(new_fapl) < 0)
FAIL_STACK_ERROR
h5_cleanup(FILENAME, fapl);
diff --git a/test/ntypes.c b/test/ntypes.c
index 6efabc6..781dfef 100644
--- a/test/ntypes.c
+++ b/test/ntypes.c
@@ -2401,7 +2401,7 @@ test_refer_dtype2(hid_t file)
PASSED();
return 0;
-error:
+error:
/* Free memory buffers */
if(dwbuf)
HDfree(dwbuf);
@@ -2546,7 +2546,7 @@ test_bitfield_dtype(hid_t file)
if((space = H5Screate_simple(1, &nelmts, NULL)) < 0) TEST_ERROR;
/* Create and write to dataset1 with a unsigned char buffer */
- if((dset1 = H5Dcreate2(file, DSET1_BITFIELD_NAME, type, space, H5P_DEFAULT, H5P_DEFAULT,
+ if((dset1 = H5Dcreate2(file, DSET1_BITFIELD_NAME, type, space, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0) TEST_ERROR;
for(i = 0; i < BITFIELD_ENUMB*sizeof(int); i++)
@@ -2556,7 +2556,7 @@ test_bitfield_dtype(hid_t file)
if(H5Dclose(dset1) < 0) TEST_ERROR;
/* Create and write to dataset2 with a unsigned int buffer */
- if((dset2 = H5Dcreate2(file, DSET2_BITFIELD_NAME, type, space, H5P_DEFAULT, H5P_DEFAULT,
+ if((dset2 = H5Dcreate2(file, DSET2_BITFIELD_NAME, type, space, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0) TEST_ERROR;
for(i = 0; i < BITFIELD_ENUMB; i++)
@@ -2587,7 +2587,7 @@ test_bitfield_dtype(hid_t file)
H5_FAILED();
printf(" Read different values than written.\n");
printf(" At index %d\n", i);
- TEST_ERROR;
+ TEST_ERROR;
}
p++;
}
@@ -2612,14 +2612,14 @@ test_bitfield_dtype(hid_t file)
H5_FAILED();
printf(" Read different values than written.\n");
printf(" At index %d\n", i);
- TEST_ERROR;
+ TEST_ERROR;
}
}
if(H5Tclose(dtype) < 0) TEST_ERROR;
if(H5Tclose(native_type) < 0) TEST_ERROR;
if(H5Dclose(dataset2) < 0) TEST_ERROR;
-
+
PASSED();
return 0;
diff --git a/test/objcopy.c b/test/objcopy.c
index 00cc5bf..05da5dd 100755
--- a/test/objcopy.c
+++ b/test/objcopy.c
@@ -7249,7 +7249,7 @@ static int
test_copy_dataset_contig_cmpd_vl(hid_t fcpl_src, hid_t fcpl_dst, hid_t fapl)
{
hid_t fid_src = -1, fid_dst = -1; /* File IDs */
- hid_t tid = -1; /* Datatype ID */
+ hid_t tid = -1; /* Datatype ID */
hid_t tid2 = -1; /* Datatype ID */
hid_t sid = -1; /* Dataspace ID */
hid_t did = -1; /* Dataset ID */
diff --git a/test/ohdr.c b/test/ohdr.c
index f59dace..c3b8f8b 100644
--- a/test/ohdr.c
+++ b/test/ohdr.c
@@ -48,7 +48,7 @@ const char *FILENAME[] = {
* Create an object header with several continuation chunks
* Remove a message in the last chunk
* The remaining message(s) in the last chunk should be moved forward into the continuation message
- * The process will repeat when the continuation message is big enough to hold all the
+ * The process will repeat when the continuation message is big enough to hold all the
* messages in the last chunk.
* Result: the number of chunks should be reduced
*/
@@ -57,7 +57,7 @@ test_cont(char *filename, hid_t fapl)
{
hid_t file=-1;
H5F_t *f = NULL;
- H5O_hdr_info_t hdr_info;
+ H5O_hdr_info_t hdr_info;
H5O_loc_t oh_locA, oh_locB;
time_t time_new;
const char *short_name = "T";
@@ -181,7 +181,7 @@ main(void)
/* Display info about testing */
if(b)
HDputs("Using new file format:");
- else
+ else
HDputs("Using default file format:");
/* Set the format to use for the file */
diff --git a/test/set_extent.c b/test/set_extent.c
index b4e61b4..c65e7d0 100644
--- a/test/set_extent.c
+++ b/test/set_extent.c
@@ -60,18 +60,18 @@ const char *FILENAME[] = {
static int do_ranks( hid_t fapl );
static int do_layouts( hid_t fapl );
-static int test_rank1( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank1( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl);
-static int test_rank2( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank2( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl);
-static int test_rank3( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank3( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl);
@@ -152,7 +152,7 @@ int main( void )
if(H5Pclose(fapl2) < 0) TEST_ERROR
h5_cleanup(FILENAME, fapl);
-
+
HDremove(EXT_FILE_NAME1);
HDremove(EXT_FILE_NAME2);
@@ -180,8 +180,8 @@ static int do_ranks( hid_t fapl )
hbool_t do_compress = 0;
hbool_t do_fillvalue = 0;
hbool_t set_istore_k = 0;
-
-
+
+
TESTING_2("with fill value, no compression");
do_fillvalue = 1;
@@ -189,28 +189,28 @@ static int do_ranks( hid_t fapl )
if (test_rank1( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_ALLOC, fapl ) < 0)
{
goto error;
- }
+ }
if (test_rank1( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_IFSET, fapl ) < 0)
{
goto error;
- }
+ }
if (test_rank2( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_ALLOC, fapl ) < 0)
{
goto error;
- }
+ }
if (test_rank2( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_IFSET, fapl ) < 0)
{
goto error;
- }
+ }
if (test_rank3( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_ALLOC, fapl ) < 0)
{
goto error;
- }
+ }
if (test_rank3( do_compress, do_fillvalue, set_istore_k, H5D_FILL_TIME_IFSET, fapl ) < 0)
{
goto error;
- }
-
+ }
+
PASSED();
@@ -232,11 +232,11 @@ static int do_ranks( hid_t fapl )
{
goto error;
}
-
-
+
+
PASSED();
-
+
TESTING_2("with fill value, with compression");
#ifdef H5_HAVE_FILTER_DEFLATE
@@ -268,8 +268,8 @@ static int do_ranks( hid_t fapl )
{
goto error;
}
-
-
+
+
PASSED();
#else
SKIPPED();
@@ -293,7 +293,7 @@ static int do_ranks( hid_t fapl )
{
goto error;
}
-
+
PASSED();
#else
SKIPPED();
@@ -308,14 +308,14 @@ static int do_ranks( hid_t fapl )
{
goto error;
}
-
+
PASSED();
-
-
+
+
return 0;
-
-
+
+
error:
return -1;
}
@@ -327,23 +327,23 @@ error:
*/
static int do_layouts( hid_t fapl )
{
-
+
TESTING_2("storage layout use");
-
+
if (test_layouts( H5D_COMPACT, fapl ) < 0)
{
goto error;
- }
-
+ }
+
if (test_layouts( H5D_CONTIGUOUS, fapl ) < 0)
{
goto error;
- }
-
+ }
+
PASSED();
-
+
return 0;
-
+
error:
return -1;
}
@@ -353,33 +353,33 @@ error:
*-------------------------------------------------------------------------
*/
-static int test_rank1( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank1( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl)
{
- hid_t fid=-1;
+ hid_t fid=-1;
hid_t did=-1;
hid_t sid=-1;
hid_t dcpl=-1;
hid_t fcpl;
- hsize_t dims_o[RANK1] = {DIM0}; /* original dimensions */
- hsize_t dims_s[RANK1] = {DIMS0}; /* shrinking dimensions */
- hsize_t dims_e[RANK1] = {DIME0}; /* extended dimensions */
- hsize_t dims_c[RANK1] = {2}; /* chunk dimensions */
- hsize_t dims_r[RANK1]; /* read dimensions */
+ hsize_t dims_o[RANK1] = {DIM0}; /* original dimensions */
+ hsize_t dims_s[RANK1] = {DIMS0}; /* shrinking dimensions */
+ hsize_t dims_e[RANK1] = {DIME0}; /* extended dimensions */
+ hsize_t dims_c[RANK1] = {2}; /* chunk dimensions */
+ hsize_t dims_r[RANK1]; /* read dimensions */
hsize_t maxdims[RANK1] = {H5S_UNLIMITED};
int buf_o[DIM0];
int buf_s[DIMS0];
int buf_e[DIME0];
int buf_r[DIM0];
int i;
- int fillvalue = 1;
- int comp_value;
+ int fillvalue = 1;
+ int comp_value;
char filename[NAME_BUF_SIZE];
-
+
if ( do_fill_value )
{
comp_value = fillvalue;
@@ -389,47 +389,47 @@ static int test_rank1( hbool_t do_compress,
comp_value = 0;
}
-
+
for( i = 0; i < DIM0; i++ )
{
-
+
buf_o[i] = 2;
}
/* create a file creation property list */
- if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
goto error;
}
-
+
if ( set_istore_k )
{
/* set non-default indexed storage B-tree internal 'K' value */
- if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
+ if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
{
goto error;
}
-
+
}
/* create a new file */
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
{
goto error;
}
/* close property list */
- if(H5Pclose(fcpl) < 0)
+ if(H5Pclose(fcpl) < 0)
{
goto error;
}
-
+
/* create the data space with unlimited dimensions. */
- if ((sid = H5Screate_simple(RANK1, dims_o, maxdims)) < 0)
+ if ((sid = H5Screate_simple(RANK1, dims_o, maxdims)) < 0)
{
goto error;
}
-
+
/* modify dataset creation properties, i.e. enable chunking. */
if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
{
@@ -446,176 +446,176 @@ static int test_rank1( hbool_t do_compress,
goto error;
}
- if(H5Pset_fill_time(dcpl, fill_time) < 0)
+ if(H5Pset_fill_time(dcpl, fill_time) < 0)
{
goto error;
}
}
else
{
-
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+
+ if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
{
goto error;
}
-
+
}
if (do_compress)
{
- if(H5Pset_deflate(dcpl, 9) < 0)
+ if(H5Pset_deflate(dcpl, 9) < 0)
{
goto error;
}
}
-
+
/*-------------------------------------------------------------------------
* create, write dataset
*-------------------------------------------------------------------------
*/
-
+
/* create a dataset */
- if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
-
+
/* write */
- if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
{
goto error;
}
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_o[0]; i++ )
{
-
+
printf("%d ", buf_o[i]);
-
+
}
printf("\n");
-#endif
+#endif
+
-
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* set new dimensions for the array; expand it
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_e) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK1; i++ )
{
- if (dims_r[i] != dims_e[i])
+ if (dims_r[i] != dims_e[i])
goto error;
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
goto error;
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
{
-
+
printf("%d ", buf_e[i]);
-
+
}
printf("\n");
-#endif
+#endif
+
+
+
-
-
-
/* compare the read array with the expanded array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
-
- if ( i >= DIM0 )
+
+ if ( i >= DIM0 )
{
- if(buf_e[i] != comp_value)
+ if(buf_e[i] != comp_value)
{
printf("buf_e[%d] = %d\n", i, buf_e[i]);
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_e[i] != buf_o[i])
+ if(buf_e[i] != buf_o[i])
goto error;
}
}
-
-
-
-
+
+
+
+
/*-------------------------------------------------------------------------
- * shrink
+ * shrink
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK1; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
}
@@ -624,8 +624,8 @@ static int test_rank1( hbool_t do_compress,
/* for this case we close and reopen file */
if ( set_istore_k )
{
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -634,76 +634,76 @@ static int test_rank1( hbool_t do_compress,
goto error;
}
- if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
+ if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
{
goto error;
}
-
- if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
+
+ if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
{
goto error;
}
-
-
-
+
+
+
}
-
-
+
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
{
goto error;
}
-
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
{
-
+
printf("%d ", buf_s[i]);
}
printf("\n");
-#endif
+#endif
+
+
-
-
/* compare the read array with the shrinked array */
for( i = 0; i < (int)dims_r[0]; i++ )
{
-
- if ( buf_s[i] != buf_o[i] )
+
+ if ( buf_s[i] != buf_o[i] )
{
printf("buf_s[%d] = %d\n", i, buf_s[i]);
printf("buf_o[%d] = %d\n", i, buf_o[i]);
goto error;
- }
+ }
}
-
-
+
+
/*-------------------------------------------------------------------------
* expand it back to original size
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array */
if (H5Dset_extent(did, dims_o) < 0)
{
goto error;
}
-
+
/* get the space */
- if ((sid = H5Dget_space(did)) < 0)
+ if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions. */
if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
@@ -714,53 +714,53 @@ static int test_rank1( hbool_t do_compress,
{
goto error;
}
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK1; i++ )
{
- if (dims_r[i] != dims_o[i])
+ if (dims_r[i] != dims_o[i])
goto error;
}
-
-
+
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
goto error;
-
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
{
-
+
printf("%d ", buf_r[i]);
-
+
}
printf("\n");
-#endif
+#endif
+
-
/* compare the read array with the original array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
-
- if (i >= DIMS0 )
+
+ if (i >= DIMS0 )
{
- if(buf_r[i] != comp_value)
+ if(buf_r[i] != comp_value)
{
printf("buf_r[%d] = %d\n", i, buf_r[i] );
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_r[i] != buf_o[i])
+ if(buf_r[i] != buf_o[i])
goto error;
}
}
-
+
/*-------------------------------------------------------------------------
* shrink to 0
@@ -769,75 +769,75 @@ static int test_rank1( hbool_t do_compress,
*/
dims_s[0] = 0;
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK1; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
- }
-
+ }
+
/*-------------------------------------------------------------------------
* close dataset
*-------------------------------------------------------------------------
*/
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
-
-
-
-
-
+
+
+
+
+
/*-------------------------------------------------------------------------
* test a dataset with non initialized chunks
*-------------------------------------------------------------------------
*/
-
-
- if ((sid = H5Screate_simple(RANK1, dims_o, maxdims)) < 0)
+
+
+ if ((sid = H5Screate_simple(RANK1, dims_o, maxdims)) < 0)
{
goto error;
}
- if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
/* set new dimensions for the array */
dims_o[ 0 ] = 0;
- if (H5Dset_extent( did , dims_o ) < 0)
+ if (H5Dset_extent( did , dims_o ) < 0)
{
goto error;
}
- if (H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -846,16 +846,16 @@ static int test_rank1( hbool_t do_compress,
goto error;
}
-
-
-
+
+
+
/*-------------------------------------------------------------------------
* close property list
*-------------------------------------------------------------------------
*/
-
-
- if (H5Pclose(dcpl) < 0)
+
+
+ if (H5Pclose(dcpl) < 0)
{
goto error;
}
@@ -867,12 +867,12 @@ static int test_rank1( hbool_t do_compress,
return 0;
-
-
-
+
+
+
error:
-
- H5E_BEGIN_TRY
+
+ H5E_BEGIN_TRY
{
H5Dclose( did );
H5Sclose( sid );
@@ -881,7 +881,7 @@ error:
H5Fclose( fid );
} H5E_END_TRY;
return -1;
-
+
}
/*-------------------------------------------------------------------------
@@ -889,33 +889,33 @@ error:
*-------------------------------------------------------------------------
*/
-static int test_rank2( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank2( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl)
{
- hid_t fid=-1;
+ hid_t fid=-1;
hid_t did=-1;
hid_t sid=-1;
hid_t dcpl=-1;
hid_t fcpl;
- hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
- hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
- hsize_t dims_e[RANK2] = {DIME0,DIME1}; /* extended dimensions */
- hsize_t dims_c[RANK2] = {2,2}; /* chunk dimensions */
- hsize_t dims_r[RANK2]; /* read dimensions */
+ hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
+ hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
+ hsize_t dims_e[RANK2] = {DIME0,DIME1}; /* extended dimensions */
+ hsize_t dims_c[RANK2] = {2,2}; /* chunk dimensions */
+ hsize_t dims_r[RANK2]; /* read dimensions */
hsize_t maxdims[RANK2] = {H5S_UNLIMITED,H5S_UNLIMITED};
int buf_o[DIM0][DIM1];
int buf_s[DIMS0][DIMS1];
int buf_e[DIME0][DIME1];
int buf_r[DIM0][DIM1];
int i, j;
- int fillvalue = 1;
- int comp_value;
+ int fillvalue = 1;
+ int comp_value;
char filename[NAME_BUF_SIZE];
-
+
if ( do_fill_value )
{
comp_value = fillvalue;
@@ -925,7 +925,7 @@ static int test_rank2( hbool_t do_compress,
comp_value = 0;
}
-
+
for( i = 0; i < DIM0; i++ )
{
for( j = 0; j < DIM1; j++ )
@@ -935,36 +935,36 @@ static int test_rank2( hbool_t do_compress,
}
/* create a file creation property list */
- if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
goto error;
}
-
+
if ( set_istore_k )
{
/* set non-default indexed storage B-tree internal 'K' value */
- if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
+ if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
{
goto error;
}
-
+
}
-
+
/* create a new file */
h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
{
goto error;
}
-
-
+
+
/* create the data space with unlimited dimensions. */
- if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
+ if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
{
goto error;
}
-
+
/* modify dataset creation properties, i.e. enable chunking. */
if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
{
@@ -981,33 +981,33 @@ static int test_rank2( hbool_t do_compress,
goto error;
}
- if(H5Pset_fill_time(dcpl, fill_time) < 0)
+ if(H5Pset_fill_time(dcpl, fill_time) < 0)
{
goto error;
}
}
else
{
-
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+
+ if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
{
goto error;
}
-
+
}
if (do_compress)
{
- if(H5Pset_deflate(dcpl, 9) < 0)
+ if(H5Pset_deflate(dcpl, 9) < 0)
{
goto error;
}
}
-
+
/*-------------------------------------------------------------------------
* Procedure 1
* a. Write an array AxB. These are the dimensions for creating the dataset
* b. Define a greater array CxD where C > A and D > B
- * c. Read data back
+ * c. Read data back
* d. Verify if new dimensions are C and D
* e. Verify if data from A to C and B to D is what it is to be expected
*
@@ -1020,20 +1020,20 @@ static int test_rank2( hbool_t do_compress,
*
*-------------------------------------------------------------------------
*/
-
+
/* create a dataset */
- if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
-
+
/* write */
- if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
{
goto error;
}
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG2)
printf("\n");
for (i = 0; i < (int)dims_o[0]; i++ )
@@ -1044,15 +1044,15 @@ static int test_rank2( hbool_t do_compress,
}
printf("\n");
}
-#endif
+#endif
+
-
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* set new dimensions for the array; expand it
* data is now, extended space was initialized with fill value or default value
@@ -1067,44 +1067,44 @@ static int test_rank2( hbool_t do_compress,
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_e) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_e[i])
+ if (dims_r[i] != dims_e[i])
goto error;
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
goto error;
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG2)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1115,41 +1115,41 @@ static int test_rank2( hbool_t do_compress,
}
printf("\n");
}
-#endif
+#endif
+
+
+
-
-
-
/* compare the read array with the expanded array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
for (j = 0; j < (int)dims_r[1]; j++ )
{
- if ( i >= DIM0 || j >= DIM1 )
+ if ( i >= DIM0 || j >= DIM1 )
{
- if(buf_e[i][j] != comp_value)
+ if(buf_e[i][j] != comp_value)
{
printf("buf_e[%d][%d] = %d\n", i, j, buf_e[i][j]);
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_e[i][j] != buf_o[i][j])
+ if(buf_e[i][j] != buf_o[i][j])
goto error;
}
}
}
-
-
-
-
+
+
+
+
/*-------------------------------------------------------------------------
*
* Procedure 2
* a. Define a smaller array ExF where E < A and F < B
- * b. Read data back
+ * b. Read data back
* c. Verify if new dimensions are E and F
* d. Verify if data up until E and F is what to be expected
*
@@ -1160,34 +1160,34 @@ static int test_rank2( hbool_t do_compress,
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
}
@@ -1196,8 +1196,8 @@ static int test_rank2( hbool_t do_compress,
/* for this case we close and reopen file */
if ( set_istore_k )
{
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -1206,32 +1206,32 @@ static int test_rank2( hbool_t do_compress,
goto error;
}
- if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
+ if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
{
goto error;
}
-
- if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
+
+ if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
{
goto error;
}
-
-
-
+
+
+
}
-
-
+
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
{
goto error;
}
-
+
#if defined (H5_SET_EXTENT_DEBUG2)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1242,26 +1242,26 @@ static int test_rank2( hbool_t do_compress,
}
printf("\n");
}
-#endif
+#endif
+
+
-
-
/* compare the read array with the shrinked array */
for( i = 0; i < (int)dims_r[0]; i++ )
{
for( j = 0; j < (int)dims_r[1]; j++ )
{
- if ( buf_s[i][j] != buf_o[i][j] )
+ if ( buf_s[i][j] != buf_o[i][j] )
{
printf("buf_s[%d][%d] = %d\n", i, j, buf_s[i][j]);
printf("buf_o[%d][%d] = %d\n", i, j, buf_o[i][j]);
goto error;
- }
+ }
}
}
-
-
+
+
/*-------------------------------------------------------------------------
* set new dimensions for the array; expand it back to original size
* data is now, extended space was initialized with fill value or default value
@@ -1273,19 +1273,19 @@ static int test_rank2( hbool_t do_compress,
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array */
if (H5Dset_extent(did, dims_o) < 0)
{
goto error;
}
-
+
/* get the space */
- if ((sid = H5Dget_space(did)) < 0)
+ if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions. */
if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
@@ -1296,24 +1296,24 @@ static int test_rank2( hbool_t do_compress,
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_o[i])
+ if (dims_r[i] != dims_o[i])
goto error;
}
-
-
+
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
goto error;
-
+
#if defined (H5_SET_EXTENT_DEBUG2)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1324,27 +1324,27 @@ static int test_rank2( hbool_t do_compress,
}
printf("\n");
}
-#endif
+#endif
+
-
/* compare the read array with the original array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
for (j = 0; j < (int)dims_r[1]; j++ )
{
- if (i >= DIMS0 || j >= DIMS1)
+ if (i >= DIMS0 || j >= DIMS1)
{
- if(buf_r[i][j] != comp_value)
+ if(buf_r[i][j] != comp_value)
{
printf("buf_r[%d][%d] = %d\n", i, j, buf_r[i][j]);
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_r[i][j] != buf_o[i][j])
+ if(buf_r[i][j] != buf_o[i][j])
goto error;
}
}
@@ -1358,74 +1358,74 @@ static int test_rank2( hbool_t do_compress,
dims_s[0] = 0;
dims_s[1] = 0;
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
- }
-
-
+ }
+
+
/*-------------------------------------------------------------------------
- * close dataset
+ * close dataset
*-------------------------------------------------------------------------
*/
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
-
-
+
+
/*-------------------------------------------------------------------------
* test a dataset with non initialized chunks
*-------------------------------------------------------------------------
*/
-
-
- if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
+
+
+ if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
{
goto error;
}
- if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
/* set new dimensions for the array */
dims_o[ 0 ] = 0;
dims_o[ 1 ] = 0;
- if (H5Dset_extent( did , dims_o ) < 0)
+ if (H5Dset_extent( did , dims_o ) < 0)
{
goto error;
}
- if (H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -1434,22 +1434,22 @@ static int test_rank2( hbool_t do_compress,
goto error;
}
-
-
-
+
+
+
/*-------------------------------------------------------------------------
* close property list
*-------------------------------------------------------------------------
*/
-
-
- if (H5Pclose(dcpl) < 0)
+
+
+ if (H5Pclose(dcpl) < 0)
{
goto error;
}
/* close file creation property list */
- if(H5Pclose(fcpl) < 0)
+ if(H5Pclose(fcpl) < 0)
{
goto error;
}
@@ -1461,12 +1461,12 @@ static int test_rank2( hbool_t do_compress,
return 0;
-
-
-
+
+
+
error:
-
- H5E_BEGIN_TRY
+
+ H5E_BEGIN_TRY
{
H5Dclose( did );
H5Sclose( sid );
@@ -1475,7 +1475,7 @@ error:
H5Fclose( fid );
} H5E_END_TRY;
return -1;
-
+
}
@@ -1486,33 +1486,33 @@ error:
*-------------------------------------------------------------------------
*/
-static int test_rank3( hbool_t do_compress,
- hbool_t do_fill_value,
+static int test_rank3( hbool_t do_compress,
+ hbool_t do_fill_value,
hbool_t set_istore_k,
H5D_fill_time_t fill_time,
hid_t fapl)
{
- hid_t fid=-1;
+ hid_t fid=-1;
hid_t did=-1;
hid_t sid=-1;
hid_t dcpl=-1;
hid_t fcpl;
- hsize_t dims_o[RANK3] = {DIM0,DIM1,DIM2}; /* original dimensions */
- hsize_t dims_s[RANK3] = {DIMS0,DIMS1,DIMS2}; /* shrinking dimensions */
- hsize_t dims_e[RANK3] = {DIME0,DIME1,DIME2}; /* extended dimensions */
- hsize_t dims_c[RANK3] = {2,2,2}; /* chunk dimensions */
- hsize_t dims_r[RANK3]; /* read dimensions */
+ hsize_t dims_o[RANK3] = {DIM0,DIM1,DIM2}; /* original dimensions */
+ hsize_t dims_s[RANK3] = {DIMS0,DIMS1,DIMS2}; /* shrinking dimensions */
+ hsize_t dims_e[RANK3] = {DIME0,DIME1,DIME2}; /* extended dimensions */
+ hsize_t dims_c[RANK3] = {2,2,2}; /* chunk dimensions */
+ hsize_t dims_r[RANK3]; /* read dimensions */
hsize_t maxdims[RANK3] = {H5S_UNLIMITED,H5S_UNLIMITED,H5S_UNLIMITED};
int buf_o[DIM0][DIM1][DIM2];
int buf_s[DIMS0][DIMS1][DIMS2];
int buf_e[DIME0][DIME1][DIME2];
int buf_r[DIM0][DIM1][DIM2];
int i, j, k;
- int fillvalue = 1;
- int comp_value;
+ int fillvalue = 1;
+ int comp_value;
char filename[NAME_BUF_SIZE];
-
+
if ( do_fill_value )
{
comp_value = fillvalue;
@@ -1522,7 +1522,7 @@ static int test_rank3( hbool_t do_compress,
comp_value = 0;
}
-
+
for( i = 0; i < DIM0; i++ )
{
for( j = 0; j < DIM1; j++ )
@@ -1535,39 +1535,39 @@ static int test_rank3( hbool_t do_compress,
}
/* create a file creation property list */
- if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
goto error;
}
-
+
if ( set_istore_k )
{
/* set non-default indexed storage B-tree internal 'K' value */
- if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
+ if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
{
goto error;
}
-
+
}
/* create a new file */
h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
{
goto error;
}
/* close property list */
- if(H5Pclose(fcpl) < 0)
+ if(H5Pclose(fcpl) < 0)
{
goto error;
}
-
+
/* create the data space with unlimited dimensions. */
- if ((sid = H5Screate_simple(RANK3, dims_o, maxdims)) < 0)
+ if ((sid = H5Screate_simple(RANK3, dims_o, maxdims)) < 0)
{
goto error;
}
-
+
/* modify dataset creation properties, i.e. enable chunking. */
if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
{
@@ -1584,46 +1584,46 @@ static int test_rank3( hbool_t do_compress,
goto error;
}
- if(H5Pset_fill_time(dcpl, fill_time) < 0)
+ if(H5Pset_fill_time(dcpl, fill_time) < 0)
{
goto error;
}
}
else
{
-
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
+
+ if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
{
goto error;
}
-
+
}
if (do_compress)
{
- if(H5Pset_deflate(dcpl, 9) < 0)
+ if(H5Pset_deflate(dcpl, 9) < 0)
{
goto error;
}
}
-
+
/*-------------------------------------------------------------------------
* create, write array
*-------------------------------------------------------------------------
*/
-
+
/* create a dataset */
- if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
-
+
/* write */
- if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
{
goto error;
}
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG3)
printf("\n");
for (i = 0; i < (int)dims_o[0]; i++ )
@@ -1637,61 +1637,61 @@ static int test_rank3( hbool_t do_compress,
printf("[%d] ", j);
}
printf("\n");
-
+
}
printf("\n");
-#endif
+#endif
+
-
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* set new dimensions for the array; expand it
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_e) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK3; i++ )
{
- if (dims_r[i] != dims_e[i])
+ if (dims_r[i] != dims_e[i])
goto error;
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
goto error;
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG3)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1705,14 +1705,14 @@ static int test_rank3( hbool_t do_compress,
printf("[%d] ", j);
}
printf("\n");
-
+
}
printf("\n");
-#endif
+#endif
+
+
+
-
-
-
/* compare the read array with the expanded array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
@@ -1720,59 +1720,59 @@ static int test_rank3( hbool_t do_compress,
{
for( k = 0; k < (int)dims_r[2]; k++ )
{
- if ( i >= DIM0 || j >= DIM1 || k >= DIM2 )
+ if ( i >= DIM0 || j >= DIM1 || k >= DIM2 )
{
- if(buf_e[i][j][k] != comp_value)
+ if(buf_e[i][j][k] != comp_value)
{
printf("buf_e[%d][%d][%d] = %d\n", i, j, k, buf_e[i][j][k] );
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_e[i][j][k] != buf_o[i][j][k] )
+ if(buf_e[i][j][k] != buf_o[i][j][k] )
goto error;
}
}
}
}
-
-
-
-
+
+
+
+
/*-------------------------------------------------------------------------
* shrink
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK3; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
}
@@ -1781,8 +1781,8 @@ static int test_rank3( hbool_t do_compress,
/* for this case we close and reopen file */
if ( set_istore_k )
{
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -1791,32 +1791,32 @@ static int test_rank3( hbool_t do_compress,
goto error;
}
- if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
+ if ((fid = H5Fopen( filename, H5F_ACC_RDWR, fapl ))<0)
{
goto error;
}
-
- if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
+
+ if ((did = H5Dopen2( fid , "dset1", H5P_DEFAULT ))<0)
{
goto error;
}
-
-
-
+
+
+
}
-
-
+
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
{
goto error;
}
-
+
#if defined (H5_SET_EXTENT_DEBUG3)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1830,14 +1830,14 @@ static int test_rank3( hbool_t do_compress,
printf("[%d] ", j);
}
printf("\n");
-
+
}
printf("\n");
-#endif
+#endif
+
+
-
-
/* compare the read array with the shrinked array */
for( i = 0; i < (int)dims_r[0]; i++ )
{
@@ -1845,34 +1845,34 @@ static int test_rank3( hbool_t do_compress,
{
for( k = 0; k < (int)dims_r[2]; k++ )
{
- if ( buf_s[i][j][k] != buf_o[i][j][k] )
+ if ( buf_s[i][j][k] != buf_o[i][j][k] )
{
printf("buf_s[%d][%d][%d] = %d\n", i, j, k, buf_s[i][j][k] );
printf("buf_o[%d][%d][%d] = %d\n", i, j, k, buf_o[i][j][k] );
goto error;
- }
+ }
}
}
}
-
-
+
+
/*-------------------------------------------------------------------------
* set new dimensions for the array; expand it back to original size
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array */
if (H5Dset_extent(did, dims_o) < 0)
{
goto error;
}
-
+
/* get the space */
- if ((sid = H5Dget_space(did)) < 0)
+ if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions. */
if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
@@ -1883,18 +1883,18 @@ static int test_rank3( hbool_t do_compress,
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK3; i++ )
{
- if (dims_r[i] != dims_o[i])
+ if (dims_r[i] != dims_o[i])
goto error;
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
goto error;
-
+
#if defined (H5_SET_EXTENT_DEBUG3)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -1903,19 +1903,19 @@ static int test_rank3( hbool_t do_compress,
{
for( k = 0; k < (int)dims_r[2]; k++ )
{
-
+
printf("%d ", buf_r[i][j][k]);
}
printf("[%d] ", j);
}
printf("\n");
-
+
}
printf("\n");
-#endif
+#endif
+
-
/* compare the read array with the original array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
@@ -1923,24 +1923,24 @@ static int test_rank3( hbool_t do_compress,
{
for( k = 0; k < (int)dims_r[2]; k++ )
{
- if (i >= DIMS0 || j >= DIMS1 || k >= DIMS2 )
+ if (i >= DIMS0 || j >= DIMS1 || k >= DIMS2 )
{
- if( buf_r[i][j][k] != comp_value )
+ if( buf_r[i][j][k] != comp_value )
{
printf("buf_r[%d][%d][%d] = %d\n", i, j, k, buf_r[i][j][k] );
printf("value = %d\n", comp_value);
goto error;
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_r[i][j][k] != buf_o[i][j][k])
+ if(buf_r[i][j][k] != buf_o[i][j][k])
goto error;
}
}
}
}
-
+
/*-------------------------------------------------------------------------
* shrink to 0
@@ -1951,61 +1951,61 @@ static int test_rank3( hbool_t do_compress,
dims_s[0] = 0;
dims_s[1] = 0;
dims_s[2] = 0;
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
{
goto error;
}
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK3; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
goto error;
- }
-
-
-
+ }
+
+
+
/*-------------------------------------------------------------------------
- * close dataset
+ * close dataset
*-------------------------------------------------------------------------
*/
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
-
-
+
+
/*-------------------------------------------------------------------------
* test a dataset with non initialized chunks
*-------------------------------------------------------------------------
*/
-
-
- if ((sid = H5Screate_simple(RANK3, dims_o, maxdims)) < 0)
+
+
+ if ((sid = H5Screate_simple(RANK3, dims_o, maxdims)) < 0)
{
goto error;
}
- if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
@@ -2013,14 +2013,14 @@ static int test_rank3( hbool_t do_compress,
dims_o[ 0 ] = 0;
dims_o[ 1 ] = 0;
dims_o[ 2 ] = 0;
- if (H5Dset_extent( did , dims_o ) < 0)
+ if (H5Dset_extent( did , dims_o ) < 0)
{
goto error;
}
- if (H5Dclose(did) < 0)
+ if (H5Dclose(did) < 0)
{
goto error;
}
@@ -2029,16 +2029,16 @@ static int test_rank3( hbool_t do_compress,
goto error;
}
-
-
-
+
+
+
/*-------------------------------------------------------------------------
* close property list
*-------------------------------------------------------------------------
*/
-
-
- if (H5Pclose(dcpl) < 0)
+
+
+ if (H5Pclose(dcpl) < 0)
{
goto error;
}
@@ -2050,12 +2050,12 @@ static int test_rank3( hbool_t do_compress,
return 0;
-
-
-
+
+
+
error:
-
- H5E_BEGIN_TRY
+
+ H5E_BEGIN_TRY
{
H5Dclose( did );
H5Sclose( sid );
@@ -2064,7 +2064,7 @@ error:
H5Fclose( fid );
} H5E_END_TRY;
return -1;
-
+
}
@@ -2075,32 +2075,32 @@ error:
static int test_external( hid_t fapl )
{
- hid_t fid=-1;
+ hid_t fid=-1;
hid_t did=-1;
hid_t sid=-1;
hid_t dcpl=-1;
- hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
- hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
- hsize_t dims_e[RANK2] = {DIME0,DIM1}; /* extended dimensions, dimension 1 is the original */
- hsize_t dims_r[RANK2]; /* read dimensions */
+ hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
+ hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
+ hsize_t dims_e[RANK2] = {DIME0,DIM1}; /* extended dimensions, dimension 1 is the original */
+ hsize_t dims_r[RANK2]; /* read dimensions */
hsize_t maxdims[RANK2] = {DIME0,DIM1}; /* only the first dimension can be extendible */
- int buf_o[DIM0][DIM1]; /* original buffer, for writing */
- int buf_s[DIMS0][DIMS1]; /* shrinked buffer, for reading */
- int buf_e[DIME0][DIM1]; /* extended buffer, for writing, dimension 1 is the original */
- int buf_ro[DIM0][DIM1]; /* original buffer for reading */
+ int buf_o[DIM0][DIM1]; /* original buffer, for writing */
+ int buf_s[DIMS0][DIMS1]; /* shrinked buffer, for reading */
+ int buf_e[DIME0][DIM1]; /* extended buffer, for writing, dimension 1 is the original */
+ int buf_ro[DIM0][DIM1]; /* original buffer for reading */
int i, j;
int comp_value = 0;
char filename[NAME_BUF_SIZE];
-
+
hsize_t size; /* number of bytes reserved in the file for the data */
- hsize_t max_size[2];
-
+ hsize_t max_size[2];
+
max_size[0] = dims_e[0];
max_size[1] = dims_e[1];
size = max_size[0] * max_size[1] * sizeof(int) / 2;
-
-
+
+
for( i = 0; i < DIM0; i++ )
{
for( j = 0; j < DIM1; j++ )
@@ -2110,32 +2110,32 @@ static int test_external( hid_t fapl )
}
TESTING_2("external file use");
-
+
/* create a new file */
h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR
-
+
/* modify dataset creation properties */
if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
FAIL_STACK_ERROR
-
+
if(H5Pset_external(dcpl, EXT_FILE_NAME1, (off_t)0, size) < 0)
FAIL_STACK_ERROR
if(H5Pset_external(dcpl, EXT_FILE_NAME2, (off_t)0, size) < 0)
FAIL_STACK_ERROR
-
+
{
-
+
char name[256]; /*external file name */
off_t file_offset; /*external file offset */
hsize_t file_size; /*sizeof external file segment */
-
+
if(H5Pget_external(dcpl, 0, sizeof(name), name, &file_offset,
&file_size) < 0)
FAIL_STACK_ERROR
-
+
}
@@ -2155,11 +2155,11 @@ static int test_external( hid_t fapl )
/* create the data space with unlimited dimensions. */
- if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
+ if ((sid = H5Screate_simple(RANK2, dims_o, maxdims)) < 0)
FAIL_STACK_ERROR
- if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR
- if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
FAIL_STACK_ERROR
if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR
@@ -2171,9 +2171,9 @@ static int test_external( hid_t fapl )
*/
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_ro) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_ro) < 0)
FAIL_STACK_ERROR
-
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_o[0]; i++ )
@@ -2184,10 +2184,10 @@ static int test_external( hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
-
/*-------------------------------------------------------------------------
* expand
*-------------------------------------------------------------------------
@@ -2197,13 +2197,13 @@ static int test_external( hid_t fapl )
* set new dimensions for the array; expand it
* data is now, extended space was initialized with default value
*
- * 2 2 2 2
- * 2 2 2 2
- * 2 2 2 2
- * 2 2 2 2
- * 0 0 0 0
- * 0 0 0 0
- * 0 0 0 0
+ * 2 2 2 2
+ * 2 2 2 2
+ * 2 2 2 2
+ * 2 2 2 2
+ * 0 0 0 0
+ * 0 0 0 0
+ * 0 0 0 0
*
*-------------------------------------------------------------------------
*/
@@ -2215,28 +2215,28 @@ static int test_external( hid_t fapl )
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
FAIL_STACK_ERROR
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
FAIL_STACK_ERROR
-
+
if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_e[i])
+ if (dims_r[i] != dims_e[i])
TEST_ERROR
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
FAIL_STACK_ERROR
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -2247,33 +2247,33 @@ static int test_external( hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
+
+
-
-
-
/* compare the read array with the expanded array */
for (i = 0; i < (int)dims_r[0]; i++ )
{
for (j = 0; j < (int)dims_r[1]; j++ )
{
- if ( i >= DIM0 || j >= DIM1 )
+ if ( i >= DIM0 || j >= DIM1 )
{
- if(buf_e[i][j] != comp_value)
+ if(buf_e[i][j] != comp_value)
{
printf("buf_e[%d][%d] = %d\n", i, j, buf_e[i][j]);
printf("value = %d\n", comp_value);
TEST_ERROR
- }
- }
- else
+ }
+ }
+ else
{
- if(buf_e[i][j] != buf_o[i][j])
+ if(buf_e[i][j] != buf_o[i][j])
TEST_ERROR
}
}
}
-
+
/*-------------------------------------------------------------------------
@@ -2286,41 +2286,41 @@ static int test_external( hid_t fapl )
*
*-------------------------------------------------------------------------
*/
-
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_s) < 0)
FAIL_STACK_ERROR
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
FAIL_STACK_ERROR
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
FAIL_STACK_ERROR
-
+
if (H5Sclose(sid) < 0)
FAIL_STACK_ERROR
-
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_s[i])
+ if (dims_r[i] != dims_s[i])
TEST_ERROR
}
-
-
+
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
FAIL_STACK_ERROR
-
+
#if defined (H5_SET_EXTENT_DEBUG)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -2331,22 +2331,22 @@ static int test_external( hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
+
-
-
/* compare the read array with the shrinked array */
for( i = 0; i < (int)dims_r[0]; i++ )
{
for( j = 0; j < (int)dims_r[1]; j++ )
{
- if ( buf_s[i][j] != buf_o[i][j] )
+ if ( buf_s[i][j] != buf_o[i][j] )
{
printf("buf_s[%d][%d] = %d\n", i, j, buf_s[i][j]);
printf("buf_o[%d][%d] = %d\n", i, j, buf_o[i][j]);
TEST_ERROR
- }
+ }
}
}
@@ -2361,16 +2361,16 @@ static int test_external( hid_t fapl )
dims_e[1] = DIME1;
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
-
-
+
+
/* set new dimensions for the array. */
if (H5Dset_extent(did , dims_e) == SUCCEED)
{
TEST_ERROR
}
-
+
} H5E_END_TRY;
@@ -2379,9 +2379,9 @@ static int test_external( hid_t fapl )
* close property list
*-------------------------------------------------------------------------
*/
-
-
- if (H5Pclose(dcpl) < 0)
+
+
+ if (H5Pclose(dcpl) < 0)
FAIL_STACK_ERROR
if (H5Dclose( did ) < 0)
@@ -2393,10 +2393,10 @@ static int test_external( hid_t fapl )
PASSED();
return 0;
-
+
error:
-
- H5E_BEGIN_TRY
+
+ H5E_BEGIN_TRY
{
H5Dclose( did );
H5Sclose( sid );
@@ -2414,19 +2414,19 @@ error:
static int test_layouts( H5D_layout_t layout, hid_t fapl )
{
- hid_t fid=-1;
+ hid_t fid=-1;
hid_t did=-1;
hid_t sid=-1;
hid_t dcpl=-1;
- hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
- hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
- hsize_t dims_e[RANK2] = {DIME0,DIME1}; /* extended dimensions */
- hsize_t dims_r[RANK2]; /* read dimensions */
+ hsize_t dims_o[RANK2] = {DIM0,DIM1}; /* original dimensions */
+ hsize_t dims_s[RANK2] = {DIMS0,DIMS1}; /* shrinking dimensions */
+ hsize_t dims_e[RANK2] = {DIME0,DIME1}; /* extended dimensions */
+ hsize_t dims_r[RANK2]; /* read dimensions */
int buf_o[DIM0][DIM1];
int buf_r[DIM0][DIM1];
- int i, j;
+ int i, j;
char filename[NAME_BUF_SIZE];
-
+
for( i = 0; i < DIM0; i++ )
{
for( j = 0; j < DIM1; j++ )
@@ -2435,44 +2435,44 @@ static int test_layouts( H5D_layout_t layout, hid_t fapl )
}
}
-
+
/* create a new file */
h5_fixname(FILENAME[4], fapl, filename, sizeof filename);
- if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
+ if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
{
goto error;
}
/* create the data space with unlimited dimensions. */
- if ((sid = H5Screate_simple(RANK2, dims_o, NULL)) < 0)
+ if ((sid = H5Screate_simple(RANK2, dims_o, NULL)) < 0)
{
goto error;
}
-
+
/* modify dataset creation properties */
if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
{
goto error;
}
-
+
if (H5Pset_layout (dcpl, layout) < 0)
{
goto error;
}
-
+
/* create a dataset */
- if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ if ((did = H5Dcreate2(fid , "dset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
{
goto error;
}
-
+
/* write */
- if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
{
goto error;
}
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG4)
printf("\n");
for (i = 0; i < (int)dims_o[0]; i++ )
@@ -2483,65 +2483,65 @@ static int test_layouts( H5D_layout_t layout, hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
-
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* negative test
- * try to extend dimension
+ * try to extend dimension
*-------------------------------------------------------------------------
*/
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
-
+
if (H5Dset_extent(did , dims_e) == SUCCEED)
{
goto error;
}
-
+
} H5E_END_TRY;
-
-
-
+
+
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
-
+
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_o[i])
+ if (dims_r[i] != dims_o[i])
goto error;
}
-
+
/* read */
- if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
goto error;
-
-
+
+
#if defined (H5_SET_EXTENT_DEBUG4)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -2552,63 +2552,63 @@ static int test_layouts( H5D_layout_t layout, hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
+
-
-
/*-------------------------------------------------------------------------
* negative test
- * try to shrink dimension
+ * try to shrink dimension
*-------------------------------------------------------------------------
*/
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
-
+
if (H5Dset_extent(did , dims_s) == SUCCEED)
{
goto error;
}
-
+
} H5E_END_TRY;
-
+
/* get the space */
if ((sid = H5Dget_space(did)) < 0)
{
goto error;
}
-
+
/* get dimensions */
- if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
{
goto error;
}
-
+
if (H5Sclose(sid) < 0)
{
goto error;
}
-
+
/* check dimensions */
for( i = 0; i < RANK2; i++ )
{
- if (dims_r[i] != dims_o[i])
+ if (dims_r[i] != dims_o[i])
goto error;
}
-
+
/*-------------------------------------------------------------------------
* read
*-------------------------------------------------------------------------
*/
-
+
/* read */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r ) < 0)
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r ) < 0)
{
goto error;
}
-
+
#if defined (H5_SET_EXTENT_DEBUG4)
printf("\n");
for (i = 0; i < (int)dims_r[0]; i++ )
@@ -2619,21 +2619,21 @@ static int test_layouts( H5D_layout_t layout, hid_t fapl )
}
printf("\n");
}
-#endif
+#endif
+
-
/*-------------------------------------------------------------------------
- * close
+ * close
*-------------------------------------------------------------------------
*/
-
- if (H5Dclose(did) < 0)
+
+ if (H5Dclose(did) < 0)
{
goto error;
}
-
- if (H5Pclose(dcpl) < 0)
+
+ if (H5Pclose(dcpl) < 0)
{
goto error;
}
@@ -2645,12 +2645,12 @@ static int test_layouts( H5D_layout_t layout, hid_t fapl )
return 0;
-
-
-
+
+
+
error:
-
- H5E_BEGIN_TRY
+
+ H5E_BEGIN_TRY
{
H5Dclose( did );
H5Sclose( sid );
@@ -2658,6 +2658,6 @@ error:
H5Fclose( fid );
} H5E_END_TRY;
return -1;
-
+
}
diff --git a/test/tattr.c b/test/tattr.c
index d84231e..a926cfd 100644
--- a/test/tattr.c
+++ b/test/tattr.c
@@ -10347,7 +10347,7 @@ test_attr(void)
test_attr_bug3(my_fcpl, my_fapl); /* Test "self referential" attributes */
test_attr_bug4(my_fcpl, my_fapl); /* Test attributes on named datatypes */
test_attr_bug5(my_fcpl, my_fapl); /* Test opening/closing attributes through different file handles */
- test_attr_bug6(my_fcpl, my_fapl); /* Test reading empty attribute */
+ test_attr_bug6(my_fcpl, my_fapl); /* Test reading empty attribute */
} /* end for */
} /* end if */
else {
@@ -10371,7 +10371,7 @@ test_attr(void)
test_attr_bug3(fcpl, my_fapl); /* Test "self referential" attributes */
test_attr_bug4(fcpl, my_fapl); /* Test attributes on named datatypes */
test_attr_bug5(fcpl, my_fapl); /* Test opening/closing attributes through different file handles */
- test_attr_bug6(fcpl, my_fapl); /* Test reading empty attribute */
+ test_attr_bug6(fcpl, my_fapl); /* Test reading empty attribute */
} /* end else */
} /* end for */
diff --git a/test/tconfig.c b/test/tconfig.c
index 189b7ba..7978727 100644
--- a/test/tconfig.c
+++ b/test/tconfig.c
@@ -65,7 +65,7 @@ void test_exit_definitions(void);
* 16 Dec 2009
* On Boeing's OpenVMS, the value of EXIT_FAILURE is 268435458.
* (The test is in test_exit_definitions.) Their document says
- * it's supposed to be 2. I commented it out for further
+ * it's supposed to be 2. I commented it out for further
* consideration.
*-------------------------------------------------------------------------
*/
diff --git a/test/tfile.c b/test/tfile.c
index 8103881..d080b4a 100644
--- a/test/tfile.c
+++ b/test/tfile.c
@@ -2066,8 +2066,8 @@ test_cached_stab_info(void)
/****************************************************************
**
** test_rw_noupdate(): low-level file test routine.
-** This test checks to ensure that opening and closing a file
-** with read/write permissions does not write anything to the
+** This test checks to ensure that opening and closing a file
+** with read/write permissions does not write anything to the
** file if the file does not change.
**
** Programmer: Mike McGreevy
diff --git a/test/tmisc.c b/test/tmisc.c
index d6c10b0..3a009c5 100644
--- a/test/tmisc.c
+++ b/test/tmisc.c
@@ -5144,7 +5144,7 @@ test_misc29(void)
CHECK(ret, -1, "h5_make_local_copy");
/* Open the copied file */
- fid = H5Fopen(MISC29_COPY_FILE, H5F_ACC_RDWR, H5P_DEFAULT);
+ fid = H5Fopen(MISC29_COPY_FILE, H5F_ACC_RDWR, H5P_DEFAULT);
CHECK(fid, FAIL, "H5Fopen");
/* Delete the last dataset */
diff --git a/test/tsohm.c b/test/tsohm.c
index b5b489b..28854e2 100644
--- a/test/tsohm.c
+++ b/test/tsohm.c
@@ -3793,7 +3793,7 @@ test_sohm_extend_dset(void)
* Function: test_sohm_external_dtype
*
* Purpose: When a datatype is a SOHM type in one file, test that the
- * second file using the same datatype actually save it in
+ * second file using the same datatype actually save it in
* the file, too.
*
* Programmer: Raymond Lu
@@ -3814,9 +3814,9 @@ test_sohm_external_dtype(void)
hid_t fcpl, file1, file2;
hid_t dataset1, dataset2;
hid_t s1_tid, dset1_tid, dset2_tid, space;
- hsize_t dims[2] = {NX, NY};
+ hsize_t dims[2] = {NX, NY};
H5T_class_t dtype_class;
- size_t dmsg_count;
+ size_t dmsg_count;
unsigned x, i;
herr_t ret;
@@ -3843,7 +3843,7 @@ test_sohm_external_dtype(void)
/* Create a data type for s1_t */
s1_tid = H5Tcreate(H5T_COMPOUND, sizeof(s1_t));
CHECK_I(s1_tid, "H5Tcreate");
-
+
ret = H5Tinsert(s1_tid, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT);
CHECK_I(ret, "H5Tinsert");
@@ -3860,7 +3860,7 @@ test_sohm_external_dtype(void)
VERIFY(dmsg_count, 0, "H5F_get_sohm_mesg_count_test");
/* Create data set */
- dataset1 = H5Dcreate2(file1, "dataset_1", s1_tid, space, H5P_DEFAULT, H5P_DEFAULT,
+ dataset1 = H5Dcreate2(file1, "dataset_1", s1_tid, space, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT);
CHECK_I(dataset1, "H5Dcreate2");
@@ -3880,7 +3880,7 @@ test_sohm_external_dtype(void)
s_ptr->a = i*3 + 1;
s_ptr->b = i*3 + 2;
}
-
+
/* Write the data to the dataset1 */
ret = H5Dwrite(dataset1, s1_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig);
CHECK_I(ret, "H5Dwrite");
@@ -3898,7 +3898,7 @@ test_sohm_external_dtype(void)
VERIFY(dmsg_count, 0, "H5F_get_sohm_mesg_count_test");
/* Create a data set using the datatype of the dataset in the first file. */
- dataset2 = H5Dcreate2(file2, "dataset_2", dset1_tid, space, H5P_DEFAULT, H5P_DEFAULT,
+ dataset2 = H5Dcreate2(file2, "dataset_2", dset1_tid, space, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT);
CHECK_I(dataset2, "H5Dcreate2");
@@ -3914,7 +3914,7 @@ test_sohm_external_dtype(void)
ret = H5Dclose(dataset2);
CHECK_I(ret, "H5Dclose");
- /* Close file 1 and the dataset's datatype in file 1. Verify that the datatype in
+ /* Close file 1 and the dataset's datatype in file 1. Verify that the datatype in
* file 2 is still accessible. */
ret = H5Tclose(dset1_tid);
CHECK_I(ret, "H5Tclose");
diff --git a/test/vfd.c b/test/vfd.c
index bd642be..12ce04e 100644
--- a/test/vfd.c
+++ b/test/vfd.c
@@ -873,7 +873,7 @@ test_family_compat(void)
error:
H5E_BEGIN_TRY {
H5Fclose(file);
- H5Pclose(fapl);
+ H5Pclose(fapl);
} H5E_END_TRY;
return -1;
diff --git a/testpar/t_cache.c b/testpar/t_cache.c
index e6509a3..723f6ab 100644
--- a/testpar/t_cache.c
+++ b/testpar/t_cache.c
@@ -129,10 +129,10 @@ long local_pins = 0;
* processes, and thus cannot be marked as dirty unless they
* happen to overlap some collective operation.
*
- * cleared: Boolean flag that is set to true whenever the entry is
+ * cleared: Boolean flag that is set to true whenever the entry is
* dirty, and is cleared via a call to clear_datum().
*
- * flushed: Boolean flag that is set to true whenever the entry is
+ * flushed: Boolean flag that is set to true whenever the entry is
* dirty, and is flushed via a call to flush_datum().
*
* index: Index of this instance of datum in the data_index[] array
@@ -1434,7 +1434,7 @@ serve_read_request(struct mssg_t * mssg_ptr)
HDfprintf(stdout,
"%d:%s: proc %d read invalid entry. idx/base_addr = %d/%a.\n",
world_mpi_rank, fcn_name,
- mssg_ptr->src,
+ mssg_ptr->src,
target_index,
data[target_index].base_addr);
}
@@ -1816,7 +1816,7 @@ destroy_datum(H5F_t UNUSED * f,
* value for communications with the server.
*
* JRM -- 2/4/09
- * Added code to set the flushed flag when a dirty entry
+ * Added code to set the flushed flag when a dirty entry
* is flushed.
*
*-------------------------------------------------------------------------
@@ -3673,11 +3673,11 @@ unlock_entry(H5C_t * cache_ptr,
HDassert( ((entry_ptr->header).type)->id == DATUM_ENTRY_TYPE );
- if ( ( (flags & H5AC__DIRTIED_FLAG) != 0 ) &&
+ if ( ( (flags & H5AC__DIRTIED_FLAG) != 0 ) &&
( (flags & H5C__DELETED_FLAG) == 0 ) &&
- ( ! ( ( ( world_mpi_rank == 0 ) && ( entry_ptr->flushed ) )
+ ( ! ( ( ( world_mpi_rank == 0 ) && ( entry_ptr->flushed ) )
||
- ( ( world_mpi_rank != 0 ) && ( entry_ptr->cleared ) )
+ ( ( world_mpi_rank != 0 ) && ( entry_ptr->cleared ) )
)
)
) {
@@ -5128,8 +5128,8 @@ smoke_check_5(void)
if ( world_mpi_rank == world_server_mpi_rank ) {
/* 1 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
if ( ! server_main() ) {
@@ -5143,16 +5143,16 @@ smoke_check_5(void)
}
/* 2 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
}
else /* run the clients */
{
/* 1 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
if ( ! setup_cache_for_test(&fid, &file_ptr, &cache_ptr) ) {
@@ -5167,8 +5167,8 @@ smoke_check_5(void)
}
/* 2 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
for ( i = 0; i < (virt_num_data_entries / 2); i++ )
@@ -5177,8 +5177,8 @@ smoke_check_5(void)
}
/* 3 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
/* flush the file so we can lock known clean entries. */
@@ -5191,8 +5191,8 @@ smoke_check_5(void)
}
/* 4 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
for ( i = 0; i < (virt_num_data_entries / 4); i++ )
@@ -5219,8 +5219,8 @@ smoke_check_5(void)
}
/* 5 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
for ( i = (virt_num_data_entries / 2) - 1;
@@ -5255,8 +5255,8 @@ smoke_check_5(void)
}
/* 6 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
if ( fid >= 0 ) {
@@ -5272,8 +5272,8 @@ smoke_check_5(void)
}
/* 7 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
/* verify that all instance of datum are back where the started
@@ -5287,8 +5287,8 @@ smoke_check_5(void)
}
/* 8 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
/* compose the done message */
@@ -5316,8 +5316,8 @@ smoke_check_5(void)
}
/* 9 */
- if ( verbose ) {
- HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
+ if ( verbose ) {
+ HDfprintf(stderr, "%d: cp = %d\n", world_mpi_rank, cp++);
}
}
diff --git a/testpar/t_chunk_alloc.c b/testpar/t_chunk_alloc.c
index 4c581f6..bb13d4e 100644
--- a/testpar/t_chunk_alloc.c
+++ b/testpar/t_chunk_alloc.c
@@ -473,7 +473,7 @@ test_chunk_alloc(void)
hid_t file_id, dataset;
file_id = dataset = -1;
-
+
/* Initialize MPI */
MPI_Comm_size(MPI_COMM_WORLD,&mpi_size);
MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank);
diff --git a/tools/h5diff/h5diff_common.c b/tools/h5diff/h5diff_common.c
index 3403935..c0bad1c 100644
--- a/tools/h5diff/h5diff_common.c
+++ b/tools/h5diff/h5diff_common.c
@@ -110,7 +110,7 @@ void parse_command_line(int argc,
h5diff_exit(EXIT_FAILURE);
}
options->delta = atof( opt_arg );
-
+
/* -d 0 is the same as default */
if (options->delta == 0)
options->d=0;
@@ -223,8 +223,8 @@ void parse_command_line(int argc,
printf("--------------------------------\n");
printf("Use -c for a list of objects.\n");
}
-
-
+
+
}
}
@@ -373,7 +373,7 @@ void usage(void)
printf(" DBL_EPSILON = 2.22045E-16 for double\n");
printf(" -d, -p, and --use-system-epsilon options are used for comparing floating point values.\n");
- printf(" By default, strict equality is used. Use -p or -d to set specific tolerance.\n");
+ printf(" By default, strict equality is used. Use -p or -d to set specific tolerance.\n");
printf("\n");
printf(" Modes of output:\n");
diff --git a/tools/h5diff/h5diffgentest.c b/tools/h5diff/h5diffgentest.c
index cae79b6..e4f9691 100644
--- a/tools/h5diff/h5diffgentest.c
+++ b/tools/h5diff/h5diffgentest.c
@@ -334,7 +334,7 @@ int test_basic(const char *fname1, const char *fname2, const char *fname3)
}
/*------------------------------------------------------------------------
- * INFINITY values
+ * INFINITY values
*------------------------------------------------------------------------
*/
{
@@ -2385,7 +2385,7 @@ void write_dset_in(hid_t loc_id,
n = 0;
for(i = 0; i < 3; i++)
{
- for(j = 0; j < 2; j++)
+ for(j = 0; j < 2; j++)
{
buf52[i][j].p = malloc((i + 1) * sizeof(int));
buf52[i][j].len = i + 1;
@@ -2431,7 +2431,7 @@ void write_dset_in(hid_t loc_id,
*/
- if (make_diffs)
+ if (make_diffs)
{
memset(buf72, 0, sizeof buf72);
memset(buf82, 0, sizeof buf82);
@@ -2501,13 +2501,13 @@ void write_dset_in(hid_t loc_id,
n=1;
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
- if (make_diffs)
+ if (make_diffs)
buf23[i][j][k]=0;
else buf23[i][j][k]=n++;
}
@@ -2534,13 +2534,13 @@ void write_dset_in(hid_t loc_id,
*/
n=1;
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
- if (make_diffs)
+ if (make_diffs)
{
buf33[i][j][k].a=0;
buf33[i][j][k].b=0;
@@ -2598,7 +2598,7 @@ void write_dset_in(hid_t loc_id,
{
for(j = 0; j < 3; j++)
{
- for(k = 0; k < 2; k++)
+ for(k = 0; k < 2; k++)
{
buf53[i][j][k].p = malloc((i + 1) * sizeof(int));
buf53[i][j][k].len = i + 1;
diff --git a/tools/h5dump/h5dump.c b/tools/h5dump/h5dump.c
index 66b5a71..ba753e1 100644
--- a/tools/h5dump/h5dump.c
+++ b/tools/h5dump/h5dump.c
@@ -717,7 +717,7 @@ usage(const char *prog)
/*-------------------------------------------------------------------------
* Function: table_list_add
*
- * Purpose: Add a new set of tables
+ * Purpose: Add a new set of tables
*
* Return: index of added table on success, -1 on failure
*
@@ -1191,17 +1191,17 @@ print_datatype(hid_t type,unsigned in_group)
case H5T_REFERENCE:
printf("H5T_REFERENCE");
- /* The BNF document states that the type of reference should be
- * displayed after "H5T_REFERENCE". Therefore add the missing
- * reference type if the region command line option is used. This
+ /* The BNF document states that the type of reference should be
+ * displayed after "H5T_REFERENCE". Therefore add the missing
+ * reference type if the region command line option is used. This
* reference type will not be displayed if the region option is not used. */
if(display_region) {
if (H5Tequal(type, H5T_STD_REF_DSETREG)==TRUE) {
printf(" { H5T_STD_REF_DSETREG }");
- }
+ }
else {
printf(" { H5T_STD_REF_OBJECT }");
- }
+ }
}
break;
@@ -2500,14 +2500,14 @@ dump_data(hid_t obj_id, int obj_data, struct subset_t *sset, int display_index)
status = h5tools_dump_dset(stdout, outputformat, obj_id, -1, sset, depth);
H5Tclose(f_type);
- }
+ }
else {
/* need to call h5tools_dump_mem for the attribute data */
space = H5Aget_space(obj_id);
space_type = H5Sget_simple_extent_type(space);
if(space_type == H5S_NULL || space_type == H5S_NO_CLASS) {
status = SUCCEED;
- }
+ }
else {
char string_prefix[64];
h5tool_format_t string_dataformat;
@@ -3263,7 +3263,7 @@ set_binary_form(const char *form)
int bform=-1;
if (strcmp(form,"NATIVE")==0 ||
- strcmp(form,"MEMORY")==0)
+ strcmp(form,"MEMORY")==0)
{/* native form */
bform = 0;
}
@@ -4369,7 +4369,7 @@ main(int argc, const char *argv[])
d_status = EXIT_FAILURE;
goto done;
}
-
+
/* Initialize object tables */
if(table_list_add(fid, oi.fileno) < 0) {
error_msg(progname, "internal error (file %s:line %d)\n", __FILE__, __LINE__);
diff --git a/tools/h5import/h5import.c b/tools/h5import/h5import.c
index e9e7dac..24428cb 100755
--- a/tools/h5import/h5import.c
+++ b/tools/h5import/h5import.c
@@ -766,7 +766,7 @@ readFloatData(FILE **strm, struct Input *in)
/* same as TEXTFP */
case 2: /*TEXTFPE */
-
+
for (i = 0; i < len; i++, fp32++)
{
if (fscanf(*strm, "%f", fp32) != 1)
@@ -775,7 +775,7 @@ readFloatData(FILE **strm, struct Input *in)
return (-1);
}
}
-
+
fp32 = (H5DT_FLOAT32 *) in->data;
break;
@@ -815,7 +815,7 @@ readFloatData(FILE **strm, struct Input *in)
/* same as TEXTFP */
case 2: /*TEXTFPE */
-
+
for (i = 0; i < len; i++, fp64++)
{
if (fscanf(*strm, "%lf", fp64) != 1)
@@ -824,7 +824,7 @@ readFloatData(FILE **strm, struct Input *in)
return (-1);
}
}
-
+
fp64 = (H5DT_FLOAT64 *) in->data;
break;
@@ -1437,7 +1437,7 @@ processConfigurationFile(char *infile, struct Input *in, FILE **strm)
if (in->configOptionVector[COMPRESS] == 0)
in->compressionType = 0;
-
+
break;
case 12: /* EXTERNAL-STORAGE */
@@ -1587,16 +1587,16 @@ static int
parsePathInfo(struct path_info *path, char *temp)
{
const char delimiter[] = "/";
- char *token;
+ char *token;
int i=0;
const char *err1 = "Path string larger than MAX_PATH_NAME_LENGTH.\n";
token = HDstrtok (temp, delimiter);
- if (HDstrlen(token) >= MAX_PATH_NAME_LENGTH)
+ if (HDstrlen(token) >= MAX_PATH_NAME_LENGTH)
{
(void) fprintf(stderr, err1);
return (-1);
- }
+ }
HDstrcpy(path->group[i++],token);
@@ -1609,7 +1609,7 @@ parsePathInfo(struct path_info *path, char *temp)
{
(void) fprintf(stderr, err1);
return (-1);
- }
+ }
HDstrcpy(path->group[i++],token);
}
path->count = i;
@@ -1621,7 +1621,7 @@ parseDimensions(struct Input *in, char *strm)
{
const char delimiter[] = ",";
char temp[255];
- char *token;
+ char *token;
int i=0;
const char *err1 = "Unable to allocate dynamic memory.\n";
diff --git a/tools/h5import/h5import.h b/tools/h5import/h5import.h
index cbc6bf2..9e4f6e8 100755
--- a/tools/h5import/h5import.h
+++ b/tools/h5import/h5import.h
@@ -38,7 +38,7 @@
#define ERR 20 /* invalid token */
#define MAX_GROUPS_IN_PATH 20
-#define MAX_PATH_NAME_LENGTH 255
+#define MAX_PATH_NAME_LENGTH 255
#define NUM_KEYS 14
#define MIN_NUM_DIMENSION 1
#define MAX_NUM_DIMENSION 32
diff --git a/tools/h5jam/h5jamgentest.c b/tools/h5jam/h5jamgentest.c
index 96d113e..ec79215 100644
--- a/tools/h5jam/h5jamgentest.c
+++ b/tools/h5jam/h5jamgentest.c
@@ -345,7 +345,7 @@ create_textfile(const char *name, size_t size)
HDwrite(fd, buf, size);
- free(buf);
+ free(buf);
HDclose(fd);
}
diff --git a/tools/h5ls/h5ls.c b/tools/h5ls/h5ls.c
index 9bc0448..c969670 100644
--- a/tools/h5ls/h5ls.c
+++ b/tools/h5ls/h5ls.c
@@ -1544,7 +1544,7 @@ dataset_list2(hid_t dset, const char UNUSED *name)
printf(" %-10s ", "Storage:");
switch (tclass)
{
-
+
case H5T_VLEN:
printf("information not available");
break;
@@ -1555,20 +1555,20 @@ dataset_list2(hid_t dset, const char UNUSED *name)
printf("information not available");
}
break;
-
+
default:
printf("%lu logical byte%s, %lu allocated byte%s",
(unsigned long)total, 1==total?"":"s",
(unsigned long)used, 1==used?"":"s");
- if (used>0)
+ if (used>0)
{
utilization = (total*100.0)/used;
printf(", %1.2f%% utilization", utilization);
}
-
+
}
-
-
+
+
putchar('\n');
/* Print information about external strorage */
@@ -1937,7 +1937,7 @@ list_lnk(const char *name, const H5L_info_t *linfo, void *_iter)
hbool_t orig_grp_literal = grp_literal_g;
HDfputc(' ', stdout);
-
+
/* Check if we have already seen this elink */
if(elink_trav_visited(iter->elink_list, filename, path)) {
HDfputs("{Already Visited}\n", stdout);
@@ -2028,7 +2028,7 @@ visit_obj(hid_t file, const char *oname, iter_t *iter)
} /* end if */
/* Delay specifying the name start point so the original object name is
- * displayed if it is a link or non-group object */
+ * displayed if it is a link or non-group object */
iter->name_start = iter->base_len;
/* Specified name is a group. List the complete contents of the group. */
@@ -2420,7 +2420,7 @@ main(int argc, const char *argv[])
}
*x = '\0';
/* Delay specifying the name start point so the original object name
- * is displayed if it is a link or non-group object */
+ * is displayed if it is a link or non-group object */
iter.name_start = 1;
}
if(!oname || !*oname) {
diff --git a/tools/h5repack/h5repack.c b/tools/h5repack/h5repack.c
index 6b10e2c..ab0ca66 100644
--- a/tools/h5repack/h5repack.c
+++ b/tools/h5repack/h5repack.c
@@ -268,7 +268,7 @@ static int check_options(pack_opt_t *options)
if (options->verbose && have_request(options) /* only print if requested */)
{
printf("Objects to modify layout are...\n");
- if (options->all_layout==1)
+ if (options->all_layout==1)
{
switch (options->layout_g)
{
@@ -290,7 +290,7 @@ static int check_options(pack_opt_t *options)
return -1;
}
printf(" Apply %s layout to all\n", slayout);
- if (H5D_CHUNKED==options->layout_g)
+ if (H5D_CHUNKED==options->layout_g)
{
printf("with dimension [");
for ( j = 0; j < options->chunk_g.rank; j++)
@@ -396,24 +396,24 @@ static int check_options(pack_opt_t *options)
*-------------------------------------------------------------------------
*/
- if (options->grp_compact < 0)
+ if (options->grp_compact < 0)
{
error_msg(progname, "invalid maximum number of links to store as header messages\n");
return -1;
}
- if (options->grp_indexed < 0)
+ if (options->grp_indexed < 0)
{
error_msg(progname, "invalid minimum number of links to store in the indexed format\n");
return -1;
}
- if (options->grp_indexed > options->grp_compact)
+ if (options->grp_indexed > options->grp_compact)
{
error_msg(progname, "minimum indexed size is greater than the maximum compact size\n");
return -1;
}
- for (i=0; i<8; i++)
+ for (i=0; i<8; i++)
{
- if (options->msg_size[i]<0)
+ if (options->msg_size[i]<0)
{
error_msg(progname, "invalid shared message size\n");
return -1;
@@ -513,14 +513,14 @@ static int check_objects(const char* fname,
if(options->verbose)
printf("Opening file <%s>. Searching for objects to modify...\n", fname);
- for(i = 0; i < options->op_tbl->nelems; i++)
+ for(i = 0; i < options->op_tbl->nelems; i++)
{
char* name=options->op_tbl->objs[i].path;
if(options->verbose)
printf(" <%s>",name);
/* the input object names are present in the file and are valid */
- if(h5trav_getindext(name, travt) < 0)
+ if(h5trav_getindext(name, travt) < 0)
{
error_msg(progname, "%s Could not find <%s> in file <%s>. Exiting...\n",
(options->verbose?"\n":""),name,fname);
@@ -530,7 +530,7 @@ static int check_objects(const char* fname,
printf("...Found\n");
/* check for extra filter conditions */
- switch(options->op_tbl->objs[i].filter->filtn)
+ switch(options->op_tbl->objs[i].filter->filtn)
{
/* chunk size must be smaller than pixels per block */
case H5Z_FILTER_SZIP:
diff --git a/tools/h5repack/h5repack.h b/tools/h5repack/h5repack.h
index cb3d75a..653958f 100644
--- a/tools/h5repack/h5repack.h
+++ b/tools/h5repack/h5repack.h
@@ -102,11 +102,11 @@ typedef struct {
H5D_layout_t layout_g; /*global layout information for the ALL case */
int verbose; /*verbose mode */
hsize_t min_comp; /*minimum size to compress, in bytes */
- int use_native; /*use a native type in write */
+ int use_native; /*use a native type in write */
int latest; /*pack file with the latest file format */
int grp_compact; /* Set the maximum number of links to store as header messages in the group */
int grp_indexed; /* Set the minimum number of links to store in the indexed format */
- int msg_size[8]; /* Minimum size of shared messages: dataspace,
+ int msg_size[8]; /* Minimum size of shared messages: dataspace,
datatype, fill value, filter pipleline, attribute */
const char *ublock_filename; /* user block file name */
hsize_t ublock_size; /* user block size */
@@ -159,7 +159,7 @@ int copy_objects (const char* fnamein,
int do_copy_refobjs(hid_t fidin,
hid_t fidout,
trav_table_t *travt,
- pack_opt_t *options);
+ pack_opt_t *options);
/*-------------------------------------------------------------------------
* filters and verify module
diff --git a/tools/h5repack/h5repack_copy.c b/tools/h5repack/h5repack_copy.c
index 0fb8fc8..d4b47fd 100644
--- a/tools/h5repack/h5repack_copy.c
+++ b/tools/h5repack/h5repack_copy.c
@@ -55,7 +55,7 @@ static hid_t copy_named_datatype(hid_t type_in, hid_t fidout, named_dt_t **named
trav_table_t *travt, pack_opt_t *options);
static int named_datatype_free(named_dt_t **named_dt_head_p, int ignore_err);
static int copy_user_block(const char *infile, const char *outfile, hsize_t size);
-#if defined (H5REPACK_DEBUG_USER_BLOCK)
+#if defined (H5REPACK_DEBUG_USER_BLOCK)
static void print_user_block(const char *filename, hid_t fid);
#endif
@@ -98,7 +98,7 @@ int copy_objects(const char* fnamein,
* open input file
*-------------------------------------------------------------------------
*/
- if((fidin = h5tools_fopen(fnamein, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
+ if((fidin = h5tools_fopen(fnamein, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
{
error_msg(progname, "<%s>: %s\n", fnamein, H5FOPENERROR );
goto out;
@@ -108,61 +108,61 @@ int copy_objects(const char* fnamein,
{
hid_t fcpl_in; /* file creation property list ID for input file */
- if((fcpl_in = H5Fget_create_plist(fidin)) < 0)
+ if((fcpl_in = H5Fget_create_plist(fidin)) < 0)
{
error_msg(progname, "failed to retrieve file creation property list\n");
goto out;
- }
+ }
- if(H5Pget_userblock(fcpl_in, &ub_size) < 0)
+ if(H5Pget_userblock(fcpl_in, &ub_size) < 0)
{
error_msg(progname, "failed to retrieve userblock size\n");
goto out;
- }
+ }
- if(H5Pclose(fcpl_in) < 0)
+ if(H5Pclose(fcpl_in) < 0)
{
error_msg(progname, "failed to close property list\n");
goto out;
- }
- }
+ }
+ }
/* Check if we need to create a non-default file creation property list */
- if(options->latest || ub_size > 0)
+ if(options->latest || ub_size > 0)
{
/* Create file creation property list */
- if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
error_msg(progname, "fail to create a file creation property list\n");
goto out;
- }
+ }
if(ub_size > 0)
{
- if(H5Pset_userblock(fcpl, ub_size) < 0)
+ if(H5Pset_userblock(fcpl, ub_size) < 0)
{
error_msg(progname, "failed to set non-default userblock size\n");
goto out;
- }
+ }
}
- if(options->latest)
+ if(options->latest)
{
unsigned i = 0, nindex = 0, mesg_type_flags[5], min_mesg_sizes[5];
/* Adjust group creation parameters for root group */
/* (So that it is created in "dense storage" form) */
- if(H5Pset_link_phase_change(fcpl, (unsigned)options->grp_compact, (unsigned)options->grp_indexed) < 0)
+ if(H5Pset_link_phase_change(fcpl, (unsigned)options->grp_compact, (unsigned)options->grp_indexed) < 0)
{
error_msg(progname, "fail to adjust group creation parameters for root group\n");
goto out;
- }
+ }
- for(i = 0; i < 5; i++)
+ for(i = 0; i < 5; i++)
{
- if(options->msg_size[i] > 0)
+ if(options->msg_size[i] > 0)
{
- switch(i)
+ switch(i)
{
case 0:
mesg_type_flags[nindex] = H5O_SHMESG_SDSPACE_FLAG;
@@ -192,16 +192,16 @@ int copy_objects(const char* fnamein,
} /* end if */
} /* end for */
- if(nindex > 0)
+ if(nindex > 0)
{
- if(H5Pset_shared_mesg_nindexes(fcpl, nindex) < 0)
+ if(H5Pset_shared_mesg_nindexes(fcpl, nindex) < 0)
{
error_msg(progname, "fail to set the number of shared object header message indexes\n");
goto out;
- }
+ }
/* msg_size[0]=dataspace, 1=datatype, 2=file value, 3=filter pipleline, 4=attribute */
- for(i = 0; i < (nindex - 1); i++)
+ for(i = 0; i < (nindex - 1); i++)
{
if(H5Pset_shared_mesg_index(fcpl, i, mesg_type_flags[i], min_mesg_sizes[i]) < 0) {
error_msg(progname, "fail to configure the specified shared object header message index\n");
@@ -211,13 +211,13 @@ int copy_objects(const char* fnamein,
} /* if (nindex>0) */
/* Create file access property list */
- if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ if((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
{
error_msg(progname, "Could not create file access property list\n");
goto out;
} /* end if */
- if(H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
+ if(H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0)
{
error_msg(progname, "Could not set property for using latest version of the format\n");
goto out;
@@ -228,7 +228,7 @@ int copy_objects(const char* fnamein,
-#if defined (H5REPACK_DEBUG_USER_BLOCK)
+#if defined (H5REPACK_DEBUG_USER_BLOCK)
print_user_block(fnamein,fidin);
#endif
@@ -244,11 +244,11 @@ int copy_objects(const char* fnamein,
if(fcpl != H5P_DEFAULT)
{
/* set user block size */
- if(H5Pset_userblock(fcpl, options->ublock_size) < 0)
+ if(H5Pset_userblock(fcpl, options->ublock_size) < 0)
{
error_msg(progname, "failed to set userblock size\n");
goto out;
- }
+ }
}
@@ -256,18 +256,18 @@ int copy_objects(const char* fnamein,
{
/* create a file creation property list */
- if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
+ if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
error_msg(progname, "fail to create a file creation property list\n");
goto out;
- }
+ }
/* set user block size */
- if(H5Pset_userblock(fcpl, options->ublock_size) < 0)
+ if(H5Pset_userblock(fcpl, options->ublock_size) < 0)
{
error_msg(progname, "failed to set userblock size\n");
goto out;
- }
+ }
}
@@ -300,11 +300,11 @@ int copy_objects(const char* fnamein,
{
/* create a file access property list */
- if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
+ if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0)
{
error_msg(progname, "Could not create file access property list\n");
goto out;
- }
+ }
if (H5Pset_alignment(fapl, options->threshold, options->alignment) < 0)
{
@@ -312,7 +312,7 @@ int copy_objects(const char* fnamein,
goto out;
}
- }
+ }
}
@@ -327,11 +327,11 @@ int copy_objects(const char* fnamein,
printf("Making file <%s>...\n",fnameout);
- if((fidout = H5Fcreate(fnameout,H5F_ACC_TRUNC, fcpl, fapl)) < 0)
+ if((fidout = H5Fcreate(fnameout,H5F_ACC_TRUNC, fcpl, fapl)) < 0)
{
error_msg(progname, "<%s>: Could not create file\n", fnameout );
goto out;
- }
+ }
/*-------------------------------------------------------------------------
@@ -339,7 +339,7 @@ int copy_objects(const char* fnamein,
*-------------------------------------------------------------------------
*/
if ( options->ublock_size > 0 )
- {
+ {
if ( copy_user_block( options->ublock_filename, fnameout, options->ublock_size) < 0 )
{
error_msg(progname, "Could not copy user block. Exiting...\n");
@@ -364,7 +364,7 @@ int copy_objects(const char* fnamein,
* do the copy
*-------------------------------------------------------------------------
*/
- if(do_copy_objects(fidin, fidout, travt, options) < 0)
+ if(do_copy_objects(fidin, fidout, travt, options) < 0)
{
error_msg(progname, "<%s>: Could not copy data to: %s\n", fnamein, fnameout);
goto out;
@@ -375,11 +375,11 @@ int copy_objects(const char* fnamein,
* and create hard links
*-------------------------------------------------------------------------
*/
- if ( do_copy_refobjs(fidin, fidout, travt, options) < 0 )
+ if ( do_copy_refobjs(fidin, fidout, travt, options) < 0 )
{
printf("h5repack: <%s>: Could not copy data to: %s\n", fnamein, fnameout);
goto out;
- }
+ }
/*-------------------------------------------------------------------------
* close
@@ -422,7 +422,7 @@ int copy_objects(const char* fnamein,
*/
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(fapl);
H5Pclose(fcpl);
@@ -446,7 +446,7 @@ out:
*
* Date: October, 23, 2003
*
-* Modifications:
+* Modifications:
*
* July 2004: Introduced the extra EC or NN option for SZIP
*
@@ -458,47 +458,47 @@ out:
* October 2006: Read by hyperslabs for big datasets.
*
* A threshold of H5TOOLS_MALLOCSIZE (128 MB) is the limit upon which I/O hyperslab is done
-* i.e., if the memory needed to read a dataset is greater than this limit,
-* then hyperslab I/O is done instead of one operation I/O
+* i.e., if the memory needed to read a dataset is greater than this limit,
+* then hyperslab I/O is done instead of one operation I/O
* For each dataset, the memory needed is calculated according to
*
* memory needed = number of elements * size of each element
*
-* if the memory needed is lower than H5TOOLS_MALLOCSIZE, then the following operations
+* if the memory needed is lower than H5TOOLS_MALLOCSIZE, then the following operations
* are done
*
* H5Dread( input_dataset1 )
* H5Dread( input_dataset2 )
*
-* with all elements in the datasets selected. If the memory needed is greater than
+* with all elements in the datasets selected. If the memory needed is greater than
* H5TOOLS_MALLOCSIZE, then the following operations are done instead:
*
-* a strip mine is defined for each dimension k (a strip mine is defined as a
+* a strip mine is defined for each dimension k (a strip mine is defined as a
* hyperslab whose size is memory manageable) according to the formula
*
* (1) strip_mine_size[k ] = MIN(dimension[k ], H5TOOLS_BUFSIZE / size of memory type)
*
-* where H5TOOLS_BUFSIZE is a constant currently defined as 1MB. This formula assures
-* that for small datasets (small relative to the H5TOOLS_BUFSIZE constant), the strip
-* mine size k is simply defined as its dimension k, but for larger datasets the
+* where H5TOOLS_BUFSIZE is a constant currently defined as 1MB. This formula assures
+* that for small datasets (small relative to the H5TOOLS_BUFSIZE constant), the strip
+* mine size k is simply defined as its dimension k, but for larger datasets the
* hyperslab size is still memory manageable.
-* a cycle is done until the number of elements in the dataset is reached. In each
-* iteration, two parameters are defined for the function H5Sselect_hyperslab,
+* a cycle is done until the number of elements in the dataset is reached. In each
+* iteration, two parameters are defined for the function H5Sselect_hyperslab,
* the start and size of each hyperslab, according to
*
* (2) hyperslab_size [k] = MIN(dimension[k] - hyperslab_offset[k], strip_mine_size [k])
*
-* where hyperslab_offset [k] is initially set to zero, and later incremented in
-* hyperslab_size[k] offsets. The reason for the operation
+* where hyperslab_offset [k] is initially set to zero, and later incremented in
+* hyperslab_size[k] offsets. The reason for the operation
*
* dimension[k] - hyperslab_offset[k]
*
-* in (2) is that, when using the strip mine size, it assures that the "remaining" part
+* in (2) is that, when using the strip mine size, it assures that the "remaining" part
* of the dataset that does not fill an entire strip mine is processed.
*
-* November 2006: Use H5Ocopy in the copy of objects. The logic for using
-* H5Ocopy or not is if a change of filters or layout is requested by the user
-* then use read/write else use H5Ocopy.
+* November 2006: Use H5Ocopy in the copy of objects. The logic for using
+* H5Ocopy or not is if a change of filters or layout is requested by the user
+* then use read/write else use H5Ocopy.
*
* May, 1, 2008: Add a printing of the compression ratio of old size / new size
*
@@ -547,18 +547,18 @@ int do_copy_objects(hid_t fidin,
*-------------------------------------------------------------------------
*/
- if (options->verbose)
+ if (options->verbose)
{
printf("-----------------------------------------\n");
printf(" Type Filter (Compression) Name\n");
printf("-----------------------------------------\n");
}
- for ( i = 0; i < travt->nobjs; i++)
+ for ( i = 0; i < travt->nobjs; i++)
{
buf = NULL;
- switch ( travt->objs[i].type )
+ switch ( travt->objs[i].type )
{
case H5TRAV_TYPE_UNKNOWN:
@@ -600,7 +600,7 @@ int do_copy_objects(hid_t fidin,
* and copy its attributes using that ID
*-------------------------------------------------------------------------
*/
- if(HDstrcmp(travt->objs[i].name, "/") == 0)
+ if(HDstrcmp(travt->objs[i].name, "/") == 0)
{
if ((grp_out = H5Gopen2(fidout, "/", H5P_DEFAULT)) < 0)
goto error;
@@ -609,7 +609,7 @@ int do_copy_objects(hid_t fidin,
else
{
- if (options->grp_compact>0 || options->grp_indexed>0)
+ if (options->grp_compact>0 || options->grp_indexed>0)
{
if(H5Pset_link_phase_change(gcpl_out, (unsigned)options->grp_compact, (unsigned)options->grp_indexed) < 0)
goto error;
@@ -655,7 +655,7 @@ int do_copy_objects(hid_t fidin,
/* check if filters were requested for individual objects */
for( u = 0; u < options->op_tbl->nelems; u++)
{
- int k;
+ int k;
for( k = 0; k < options->op_tbl->objs[u].nfilters; k++)
{
@@ -696,11 +696,11 @@ int do_copy_objects(hid_t fidin,
* otherwise we do a copy using H5Ocopy
*-------------------------------------------------------------------------
*/
- if ( options->op_tbl->nelems ||
- options->all_filter == 1 ||
- options->all_layout == 1 ||
+ if ( options->op_tbl->nelems ||
+ options->all_filter == 1 ||
+ options->all_layout == 1 ||
is_ref ||
- is_named)
+ is_named)
{
int j;
@@ -765,7 +765,7 @@ int do_copy_objects(hid_t fidin,
apply_s=0;
/* apply the filter */
- if (apply_s)
+ if (apply_s)
{
if (apply_filters(travt->objs[i].name,
rank,
@@ -787,7 +787,7 @@ int do_copy_objects(hid_t fidin,
dset_out = H5Dcreate2(fidout, travt->objs[i].name, wtype_id, f_space_id, H5P_DEFAULT, dcpl_out, H5P_DEFAULT);
} H5E_END_TRY;
- if(dset_out == FAIL)
+ if(dset_out == FAIL)
{
if(options->verbose)
printf(" warning: could not create dataset <%s>. Applying original settings\n",
@@ -814,7 +814,7 @@ int do_copy_objects(hid_t fidin,
goto error;
if (H5Dwrite(dset_out,wtype_id,H5S_ALL,H5S_ALL,H5P_DEFAULT,buf) < 0)
goto error;
- }
+ }
else /* possibly not enough memory, read/write by hyperslabs */
{
@@ -835,7 +835,7 @@ int do_copy_objects(hid_t fidin,
hsize_t hs_size[H5S_MAX_RANK]; /*size this pass */
hsize_t hs_nelmts; /*elements in request */
hsize_t zero[8]; /*vector of zeros */
- int k;
+ int k;
/* check if we have VL data in the dataset's datatype */
if (H5Tdetect_class(wtype_id, H5T_VLEN) == TRUE)
@@ -847,7 +847,7 @@ int do_copy_objects(hid_t fidin,
*/
sm_nbytes = p_type_nbytes;
- for (k = rank; k > 0; --k)
+ for (k = rank; k > 0; --k)
{
hsize_t size = H5TOOLS_BUFSIZE / sm_nbytes;
if ( size == 0) /* datum size > H5TOOLS_BUFSIZE */
@@ -865,12 +865,12 @@ int do_copy_objects(hid_t fidin,
memset(hs_offset, 0, sizeof hs_offset);
memset(zero, 0, sizeof zero);
- for (elmtno = 0; elmtno < p_nelmts; elmtno += hs_nelmts)
+ for (elmtno = 0; elmtno < p_nelmts; elmtno += hs_nelmts)
{
/* calculate the hyperslab size */
- if (rank > 0)
+ if (rank > 0)
{
- for (k = 0, hs_nelmts = 1; k < rank; k++)
+ for (k = 0, hs_nelmts = 1; k < rank; k++)
{
hs_size[k] = MIN(dims[k] - hs_offset[k], sm_size[k]);
hs_nelmts *= hs_size[k];
@@ -880,8 +880,8 @@ int do_copy_objects(hid_t fidin,
goto error;
if (H5Sselect_hyperslab(sm_space, H5S_SELECT_SET, zero, NULL, &hs_nelmts, NULL) < 0)
goto error;
- }
- else
+ }
+ else
{
H5Sselect_all(f_space_id);
H5Sselect_all(sm_space);
@@ -889,9 +889,9 @@ int do_copy_objects(hid_t fidin,
} /* rank */
/* read/write */
- if (H5Dread(dset_in, wtype_id, sm_space, f_space_id, H5P_DEFAULT, sm_buf) < 0)
+ if (H5Dread(dset_in, wtype_id, sm_space, f_space_id, H5P_DEFAULT, sm_buf) < 0)
goto error;
- if (H5Dwrite(dset_out, wtype_id, sm_space, f_space_id, H5P_DEFAULT, sm_buf) < 0)
+ if (H5Dwrite(dset_out, wtype_id, sm_space, f_space_id, H5P_DEFAULT, sm_buf) < 0)
goto error;
/* reclaim any VL memory, if necessary */
@@ -899,7 +899,7 @@ int do_copy_objects(hid_t fidin,
H5Dvlen_reclaim(wtype_id, sm_space, H5P_DEFAULT, sm_buf);
/* calculate the next hyperslab offset */
- for (k = rank, carry = 1; k > 0 && carry; --k)
+ for (k = rank, carry = 1; k > 0 && carry; --k)
{
hs_offset[k - 1] += hs_size[k - 1];
if (hs_offset[k - 1] == dims[k - 1])
@@ -923,7 +923,7 @@ int do_copy_objects(hid_t fidin,
* amount of compression used
*-------------------------------------------------------------------------
*/
- if (options->verbose)
+ if (options->verbose)
{
double ratio=0;
@@ -942,7 +942,7 @@ int do_copy_objects(hid_t fidin,
else
print_dataset_info(dcpl_id,travt->objs[i].name,ratio,0);
- /* print a message that the filter was not applied
+ /* print a message that the filter was not applied
(in case there was a filter)
*/
if ( has_filter && apply_s == 0 )
@@ -993,16 +993,16 @@ int do_copy_objects(hid_t fidin,
* we do not have request for filter/chunking use H5Ocopy instead
*-------------------------------------------------------------------------
*/
- else
+ else
{
hid_t pid;
/* create property to pass copy options */
- if ( (pid = H5Pcreate(H5P_OBJECT_COPY)) < 0)
+ if ( (pid = H5Pcreate(H5P_OBJECT_COPY)) < 0)
goto error;
/* set options for object copy */
- if(H5Pset_copy_object(pid, H5O_COPY_WITHOUT_ATTR_FLAG) < 0)
+ if(H5Pset_copy_object(pid, H5O_COPY_WITHOUT_ATTR_FLAG) < 0)
goto error;
/*-------------------------------------------------------------------------
@@ -1015,7 +1015,7 @@ int do_copy_objects(hid_t fidin,
fidout, /* Destination file or group identifier */
travt->objs[i].name, /* Name of the destination object */
pid, /* Properties which apply to the copy */
- H5P_DEFAULT) < 0) /* Properties which apply to the new hard link */
+ H5P_DEFAULT) < 0) /* Properties which apply to the new hard link */
goto error;
/* close property */
@@ -1276,7 +1276,7 @@ int copy_attr(hid_t loc_in,
{
;
}
- else
+ else
{
/*-------------------------------------------------------------------------
* read to memory
@@ -1582,13 +1582,13 @@ error:
/*-------------------------------------------------------------------------
-* Function: copy_user_block
+* Function: copy_user_block
*
* Purpose: copy user block from one file to another
*
* Return: 0, ok, -1 no
*
-* Programmer: Peter Cao
+* Programmer: Peter Cao
*
* Date: October, 25, 2007
*
@@ -1662,26 +1662,26 @@ done:
if(outfid > 0)
HDclose(outfid);
- return status;
+ return status;
}
/*-------------------------------------------------------------------------
-* Function: print_user_block
+* Function: print_user_block
*
* Purpose: print user block
*
* Return: 0, ok, -1 no
*
-* Programmer: Pedro Vicente
+* Programmer: Pedro Vicente
*
* Date: August, 20, 2008
*
*-------------------------------------------------------------------------
*/
-#if defined (H5REPACK_DEBUG_USER_BLOCK)
-static
+#if defined (H5REPACK_DEBUG_USER_BLOCK)
+static
void print_user_block(const char *filename, hid_t fid)
{
int fh; /* file handle */
@@ -1690,27 +1690,27 @@ void print_user_block(const char *filename, hid_t fid)
hid_t fcpl; /* file creation property list ID for HDF5 file */
int i;
- /* get user block size */
- if(( fcpl = H5Fget_create_plist(fid)) < 0)
+ /* get user block size */
+ if(( fcpl = H5Fget_create_plist(fid)) < 0)
{
error_msg(progname, "failed to retrieve file creation property list\n");
goto done;
- }
+ }
- if(H5Pget_userblock(fcpl, &ub_size) < 0)
+ if(H5Pget_userblock(fcpl, &ub_size) < 0)
{
error_msg(progname, "failed to retrieve userblock size\n");
goto done;
- }
+ }
- if(H5Pclose(fcpl) < 0)
+ if(H5Pclose(fcpl) < 0)
{
error_msg(progname, "failed to close property list\n");
goto done;
- }
+ }
/* open file */
- if((fh = HDopen(filename, O_RDONLY, 0)) < 0)
+ if((fh = HDopen(filename, O_RDONLY, 0)) < 0)
{
goto done;
}
@@ -1718,7 +1718,7 @@ void print_user_block(const char *filename, hid_t fid)
size = ub_size;
/* read file */
- while(size > 0)
+ while(size > 0)
{
ssize_t nread; /* # of bytes read */
char rbuf[USERBLOCK_XFER_SIZE]; /* buffer for reading */
@@ -1729,7 +1729,7 @@ void print_user_block(const char *filename, hid_t fid)
else
nread = HDread(fh, rbuf, (size_t)size);
- for(i = 0; i < nread; i++)
+ for(i = 0; i < nread; i++)
{
printf("%c ", rbuf[i]);
@@ -1737,22 +1737,22 @@ void print_user_block(const char *filename, hid_t fid)
}
printf("\n");
- if(nread < 0)
+ if(nread < 0)
{
goto done;
- }
+ }
/* update size of userblock left to transfer */
size -= nread;
- }
+ }
done:
if(fh > 0)
HDclose(fh);
- return;
+ return;
}
#endif
diff --git a/tools/h5repack/h5repack_filters.c b/tools/h5repack/h5repack_filters.c
index 92b263b..8075a77 100644
--- a/tools/h5repack/h5repack_filters.c
+++ b/tools/h5repack/h5repack_filters.c
@@ -300,7 +300,7 @@ int apply_filters(const char* name, /* object name from traverse list */
*/
if (obj.layout==-1)
{
-
+
/* stripmine info */
hsize_t sm_size[H5S_MAX_RANK]; /*stripmine size */
hsize_t sm_nbytes; /*bytes per stripmine */
@@ -312,10 +312,10 @@ int apply_filters(const char* name, /* object name from traverse list */
* a hyperslab whose size is manageable.
*/
-
-
+
+
sm_nbytes = msize;
- for ( i = rank; i > 0; --i)
+ for ( i = rank; i > 0; --i)
{
hsize_t size = H5TOOLS_BUFSIZE / sm_nbytes;
if ( size == 0) /* datum size > H5TOOLS_BUFSIZE */
@@ -445,18 +445,18 @@ int apply_filters(const char* name, /* object name from traverse list */
if (H5Pset_layout(dcpl_id, obj.layout)<0)
return -1;
- if (H5D_CHUNKED == obj.layout)
- {
+ if (H5D_CHUNKED == obj.layout)
+ {
if(H5Pset_chunk(dcpl_id, obj.chunk.rank, obj.chunk.chunk_lengths)<0)
return -1;
}
- else if (H5D_COMPACT == obj.layout)
+ else if (H5D_COMPACT == obj.layout)
{
if (H5Pset_alloc_time(dcpl_id, H5D_ALLOC_TIME_EARLY)<0)
return -1;
}
/* remove filters for the H5D_CONTIGUOUS case */
- else if (H5D_CONTIGUOUS == obj.layout)
+ else if (H5D_CONTIGUOUS == obj.layout)
{
if (H5Premove_filter(dcpl_id,H5Z_FILTER_ALL)<0)
return -1;
diff --git a/tools/h5repack/h5repack_main.c b/tools/h5repack/h5repack_main.c
index d873a4b..659e4b8 100644
--- a/tools/h5repack/h5repack_main.c
+++ b/tools/h5repack/h5repack_main.c
@@ -101,33 +101,33 @@ static struct long_options l_opts[] = {
*/
int main(int argc, const char **argv)
{
-
+
pack_opt_t options; /*the global options */
int ret=-1;
-
+
/* initialize options */
- h5repack_init (&options,0);
-
+ h5repack_init (&options,0);
+
parse_command_line(argc, argv, &options);
-
+
/* get file names if they were not yet got */
if ( has_i_o == 0 )
{
-
+
if ( argv[ opt_ind ] != NULL && argv[ opt_ind + 1 ] != NULL )
{
infile = argv[ opt_ind ];
outfile = argv[ opt_ind + 1 ];
-
+
if ( strcmp( infile, outfile ) == 0 )
{
error_msg(progname, "file names cannot be the same\n");
usage(progname);
exit(EXIT_FAILURE);
-
+
}
}
-
+
else
{
error_msg(progname, "file names missing\n");
@@ -135,14 +135,14 @@ int main(int argc, const char **argv)
exit(EXIT_FAILURE);
}
}
-
-
+
+
/* pack it */
ret=h5repack(infile,outfile,&options);
-
+
/* free tables */
h5repack_end(&options);
-
+
if (ret==-1)
return 1;
else
@@ -279,7 +279,7 @@ static void usage(const char *prog)
*-------------------------------------------------------------------------
*/
-static
+static
void parse_command_line(int argc, const char **argv, pack_opt_t* options)
{
diff --git a/tools/h5repack/h5repack_parse.c b/tools/h5repack/h5repack_parse.c
index 15dc812..2d8f040 100644
--- a/tools/h5repack/h5repack_parse.c
+++ b/tools/h5repack/h5repack_parse.c
@@ -449,7 +449,7 @@ obj_list_t* parse_filter(const char *str,
default:
break;
-
+
};
return obj_list;
diff --git a/tools/h5repack/h5repack_refs.c b/tools/h5repack/h5repack_refs.c
index cd725cd..fddcf0e 100644
--- a/tools/h5repack/h5repack_refs.c
+++ b/tools/h5repack/h5repack_refs.c
@@ -74,7 +74,7 @@ int do_copy_refobjs(hid_t fidin,
*-------------------------------------------------------------------------
*/
for(i = 0; i < travt->nobjs; i++) {
- switch(travt->objs[i].type)
+ switch(travt->objs[i].type)
{
/*-------------------------------------------------------------------------
* H5TRAV_TYPE_GROUP
@@ -194,8 +194,8 @@ int do_copy_refobjs(hid_t fidin,
goto error;
if(options->verbose)
{
-
-
+
+
printf(FORMAT_OBJ,"dset",travt->objs[i].name );
printf("object <%s> object reference created to <%s>\n",
travt->objs[i].name,
@@ -278,9 +278,9 @@ int do_copy_refobjs(hid_t fidin,
goto error;
if(options->verbose)
{
-
-
-
+
+
+
printf(FORMAT_OBJ,"dset",travt->objs[i].name );
printf("object <%s> region reference created to <%s>\n",
travt->objs[i].name,
@@ -441,7 +441,7 @@ static int copy_refs_attr(hid_t loc_in,
if(H5Oget_info(loc_in, &oinfo) < 0)
goto error;
- for(u = 0; u < (unsigned)oinfo.num_attrs; u++)
+ for(u = 0; u < (unsigned)oinfo.num_attrs; u++)
{
/*-------------------------------------------------------------------------
* open
@@ -488,7 +488,7 @@ static int copy_refs_attr(hid_t loc_in,
* we cannot just copy the buffers, but instead we recreate the reference
*-------------------------------------------------------------------------
*/
- if(H5Tequal(mtype_id, H5T_STD_REF_OBJ))
+ if(H5Tequal(mtype_id, H5T_STD_REF_OBJ))
{
hid_t refobj_id;
hobj_ref_t *refbuf = NULL;
@@ -501,10 +501,10 @@ static int copy_refs_attr(hid_t loc_in,
*-------------------------------------------------------------------------
*/
- if (nelmts)
+ if (nelmts)
{
buf = (hobj_ref_t *)HDmalloc((unsigned)(nelmts * msize));
- if(buf == NULL)
+ if(buf == NULL)
{
printf("cannot read into memory\n");
goto error;
@@ -513,15 +513,15 @@ static int copy_refs_attr(hid_t loc_in,
goto error;
refbuf = (hobj_ref_t *)HDcalloc((unsigned)nelmts, msize);
- if(refbuf == NULL)
+ if(refbuf == NULL)
{
printf( "cannot allocate memory\n" );
goto error;
} /* end if */
- for(k = 0; k < nelmts; k++)
+ for(k = 0; k < nelmts; k++)
{
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
if((refobj_id = H5Rdereference(attr_id, H5R_OBJECT, &buf[k])) < 0)
goto error;
@@ -530,7 +530,7 @@ static int copy_refs_attr(hid_t loc_in,
/* get the name. a valid name could only occur in the
* second traversal of the file
*/
- if((refname = MapIdToName(refobj_id, travt)) != NULL)
+ if((refname = MapIdToName(refobj_id, travt)) != NULL)
{
/* create the reference */
if(H5Rcreate(&refbuf[k], fidout, refname, H5R_OBJECT, -1) < 0)
@@ -565,7 +565,7 @@ static int copy_refs_attr(hid_t loc_in,
* dataset region references
*-------------------------------------------------------------------------
*/
- else if(H5Tequal(mtype_id, H5T_STD_REF_DSETREG))
+ else if(H5Tequal(mtype_id, H5T_STD_REF_DSETREG))
{
hid_t refobj_id;
hdset_reg_ref_t *refbuf = NULL; /* input buffer for region references */
@@ -577,10 +577,10 @@ static int copy_refs_attr(hid_t loc_in,
* read input to memory
*-------------------------------------------------------------------------
*/
- if(nelmts)
+ if(nelmts)
{
buf = (hdset_reg_ref_t *)HDmalloc((unsigned)(nelmts * msize));
- if(buf == NULL)
+ if(buf == NULL)
{
printf( "cannot read into memory\n" );
goto error;
@@ -593,15 +593,15 @@ static int copy_refs_attr(hid_t loc_in,
*-------------------------------------------------------------------------
*/
refbuf = (hdset_reg_ref_t *)HDcalloc(sizeof(hdset_reg_ref_t), (size_t)nelmts); /*init to zero */
- if(refbuf == NULL)
+ if(refbuf == NULL)
{
printf( "cannot allocate memory\n" );
goto error;
} /* end if */
- for(k = 0; k < nelmts; k++)
+ for(k = 0; k < nelmts; k++)
{
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
if((refobj_id = H5Rdereference(attr_id, H5R_DATASET_REGION, &buf[k])) < 0)
continue;
@@ -610,7 +610,7 @@ static int copy_refs_attr(hid_t loc_in,
/* get the name. a valid name could only occur in the
* second traversal of the file
*/
- if((refname = MapIdToName(refobj_id, travt)) != NULL)
+ if((refname = MapIdToName(refobj_id, travt)) != NULL)
{
hid_t region_id; /* region id of the referenced dataset */
@@ -692,9 +692,9 @@ static const char* MapIdToName(hid_t refobj_id,
unsigned int i;
/* linear search */
- for(i = 0; i < travt->nobjs; i++)
+ for(i = 0; i < travt->nobjs; i++)
{
- if(travt->objs[i].type == H5O_TYPE_DATASET)
+ if(travt->objs[i].type == H5O_TYPE_DATASET)
{
H5O_info_t ref_oinfo; /* Stat for the refobj id */
diff --git a/tools/h5repack/h5repack_verify.c b/tools/h5repack/h5repack_verify.c
index 83985c9..e64e85a 100644
--- a/tools/h5repack/h5repack_verify.c
+++ b/tools/h5repack/h5repack_verify.c
@@ -332,7 +332,7 @@ int h5repack_cmp_pl(const char *fname1,
trav_table_init(&trav);
if(h5trav_gettable(fid1, trav) < 0)
goto error;
-
+
/*-------------------------------------------------------------------------
* traverse the suppplied object list
*-------------------------------------------------------------------------
@@ -472,7 +472,7 @@ error:
*-------------------------------------------------------------------------
*/
-static
+static
int verify_filters(hid_t pid, hid_t tid, int nfilters, filter_info_t *filter)
{
int nfilters_dcpl; /* number of filters in DCPL*/
diff --git a/tools/h5repack/h5repacktst.c b/tools/h5repack/h5repacktst.c
index 0a885c7..cc49f34 100644
--- a/tools/h5repack/h5repacktst.c
+++ b/tools/h5repack/h5repacktst.c
@@ -1560,10 +1560,10 @@ error:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_testfiles(void)
{
- hid_t fid;
+ hid_t fid;
/*-------------------------------------------------------------------------
* create a file for general copy test
@@ -1770,7 +1770,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_all_objects(hid_t loc_id)
{
hid_t did=-1;
@@ -1778,7 +1778,7 @@ int make_all_objects(hid_t loc_id)
hid_t tid=-1;
hid_t rid=-1;
hid_t sid=-1;
- hid_t gcplid=-1;
+ hid_t gcplid=-1;
hsize_t dims[1]={2};
/* compound datatype */
typedef struct s_t
@@ -1795,7 +1795,7 @@ int make_all_objects(hid_t loc_id)
goto out;
if ((did = H5Dcreate2(loc_id, "dset_referenced", H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
goto out;
-
+
/*-------------------------------------------------------------------------
* H5G_GROUP
@@ -1804,7 +1804,7 @@ int make_all_objects(hid_t loc_id)
if ((gid = H5Gcreate2(loc_id, "g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
goto out;
if (H5Gclose(gid) < 0)
- goto out;
+ goto out;
/* create a group "g2" with H5P_CRT_ORDER_TRACKED set */
if ((gcplid = H5Pcreate(H5P_GROUP_CREATE)) < 0)
@@ -1872,7 +1872,7 @@ int make_all_objects(hid_t loc_id)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Gclose(gid);
@@ -1892,7 +1892,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_attributes(hid_t loc_id)
{
hid_t did=-1;
@@ -1908,7 +1908,7 @@ int make_attributes(hid_t loc_id)
if ((sid = H5Screate_simple(1, dims, NULL)) < 0)
goto out;
if ((did = H5Dcreate2(loc_id, "dset", H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- goto out;
+ goto out;
/*-------------------------------------------------------------------------
* H5G_GROUP
@@ -1940,11 +1940,11 @@ int make_attributes(hid_t loc_id)
goto out;
if (H5Sclose(sid) < 0)
goto out;
-
+
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Dclose(did);
H5Gclose(gid);
@@ -1962,7 +1962,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_hlinks(hid_t loc_id)
{
hid_t g1id=-1;
@@ -2010,11 +2010,11 @@ int make_hlinks(hid_t loc_id)
goto out;
if (H5Gclose(g3id) < 0)
goto out;
-
+
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Gclose(g1id);
H5Gclose(g2id);
@@ -2033,7 +2033,7 @@ out:
*-------------------------------------------------------------------------
*/
#ifdef H5_HAVE_FILTER_SZIP
-static
+static
int make_szip(hid_t loc_id)
{
hid_t dcpl; /* dataset creation property list */
@@ -2068,19 +2068,19 @@ int make_szip(hid_t loc_id)
*-------------------------------------------------------------------------
*/
/* Make sure encoding is enabled */
- if (h5tools_can_encode(H5Z_FILTER_SZIP) == 1)
+ if (h5tools_can_encode(H5Z_FILTER_SZIP) == 1)
{
szip_can_encode = 1;
}
- if (szip_can_encode)
+ if (szip_can_encode)
{
/* set szip data */
if(H5Pset_szip (dcpl,szip_options_mask,szip_pixels_per_block) < 0)
goto out;
if (make_dset(loc_id,"dset_szip",sid,dcpl,buf) < 0)
goto out;
- }
- else
+ }
+ else
{
/* WARNING? SZIP is decoder only, can't generate test files */
}
@@ -2110,7 +2110,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_deflate(hid_t loc_id)
{
hid_t dcpl; /* dataset creation property list */
@@ -2187,7 +2187,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_shuffle(hid_t loc_id)
{
hid_t dcpl; /* dataset creation property list */
@@ -2253,7 +2253,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_fletcher32(hid_t loc_id)
{
hid_t dcpl; /* dataset creation property list */
@@ -2323,7 +2323,7 @@ out:
*
*-------------------------------------------------------------------------
*/
-static
+static
int make_nbit(hid_t loc_id)
{
hid_t dcpl; /* dataset creation property list */
@@ -2564,11 +2564,11 @@ int make_all_filters(hid_t loc_id)
#endif
#if defined (H5_HAVE_FILTER_SZIP)
- if (h5tools_can_encode(H5Z_FILTER_SZIP) == 1)
+ if (h5tools_can_encode(H5Z_FILTER_SZIP) == 1)
{
szip_can_encode = 1;
}
- if (szip_can_encode)
+ if (szip_can_encode)
{
/* set szip data */
if(H5Pset_szip (dcpl,szip_options_mask,szip_pixels_per_block) < 0)
@@ -2601,7 +2601,7 @@ int make_all_filters(hid_t loc_id)
/* Make sure encoding is enabled */
#if defined (H5_HAVE_FILTER_SZIP)
- if (szip_can_encode)
+ if (szip_can_encode)
{
/* remove the filters from the dcpl */
if (H5Premove_filter(dcpl,H5Z_FILTER_ALL) < 0)
@@ -2611,7 +2611,7 @@ int make_all_filters(hid_t loc_id)
goto out;
if (make_dset(loc_id,"dset_szip",sid,dcpl,buf) < 0)
goto out;
- } else
+ } else
{
/* WARNING? SZIP is decoder only, can't generate test dataset */
}
@@ -2675,7 +2675,7 @@ int make_all_filters(hid_t loc_id)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(dcpl);
H5Sclose(sid);
@@ -2720,7 +2720,7 @@ int make_early(void)
if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0)
goto out;
- for(i = 0; i < iter; i++)
+ for(i = 0; i < iter; i++)
{
if ((fid = H5Fopen(FNAME5, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
goto out;
@@ -2749,7 +2749,7 @@ int make_early(void)
if ((fid = H5Fcreate(FNAME6, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
return -1;
- for(i = 0; i < iter; i++)
+ for(i = 0; i < iter; i++)
{
if ((tid = H5Tcopy(H5T_NATIVE_DOUBLE)) < 0)
goto out;
@@ -2770,7 +2770,7 @@ int make_early(void)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Tclose(tid);
H5Pclose(dcpl);
@@ -2879,7 +2879,7 @@ int make_layout(hid_t loc_id)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(dcpl);
H5Sclose(sid);
@@ -3065,7 +3065,7 @@ int make_external(hid_t loc_id)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(dcpl);
H5Sclose(sid);
@@ -3619,9 +3619,9 @@ int write_dset_in(hid_t loc_id,
if ((tid = H5Tcopy(H5T_STD_B8LE)) < 0)
goto out;
if (write_dset(loc_id,2,dims2,"bitfield2D",tid,buf22) < 0)
- goto out;
+ goto out;
if (H5Tclose(tid) < 0)
- goto out;
+ goto out;
/*-------------------------------------------------------------------------
* H5T_OPAQUE
@@ -3630,7 +3630,7 @@ int write_dset_in(hid_t loc_id,
if ((tid = H5Tcreate(H5T_OPAQUE, (size_t)1)) < 0)
goto out;
if (H5Tset_tag(tid, "1-byte opaque type") < 0)
- goto out;
+ goto out;
if (write_dset(loc_id,2,dims2,"opaque2D",tid,buf22) < 0)
goto out;
if (H5Tclose(tid) < 0)
@@ -3695,7 +3695,7 @@ int write_dset_in(hid_t loc_id,
n = 0;
for(i = 0; i < 3; i++)
{
- for(j = 0; j < 2; j++)
+ for(j = 0; j < 2; j++)
{
int l;
@@ -3916,7 +3916,7 @@ int write_dset_in(hid_t loc_id,
{
for(j = 0; j < 3; j++)
{
- for(k = 0; k < 2; k++)
+ for(k = 0; k < 2; k++)
{
int l;
@@ -3944,7 +3944,7 @@ int write_dset_in(hid_t loc_id,
if (H5Dvlen_reclaim(tid, sid, H5P_DEFAULT, buf53) < 0)
goto out;
-
+
if (H5Dclose(did) < 0)
goto out;
if (H5Tclose(tid) < 0)
@@ -4006,7 +4006,7 @@ int write_dset_in(hid_t loc_id,
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Pclose(pid);
H5Sclose(sid);
@@ -4016,7 +4016,7 @@ out:
return -1;
}
-
+
/*-------------------------------------------------------------------------
* Function: make_dset_reg_ref
@@ -4111,7 +4111,7 @@ out:
if(dwbuf)
free(dwbuf);
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Sclose(sid1);
H5Sclose(sid2);
@@ -4476,7 +4476,7 @@ int write_attr_in(hid_t loc_id,
if(make_diffs)
{
- for(i = 0; i < 2; i++)
+ for(i = 0; i < 2; i++)
{
buf7[i]=0;
buf8[i]=0;
@@ -4651,9 +4651,9 @@ int write_attr_in(hid_t loc_id,
/* Create references to dataset */
if (dset_name)
{
- for (i = 0; i < 3; i++)
+ for (i = 0; i < 3; i++)
{
- for (j = 0; j < 2; j++)
+ for (j = 0; j < 2; j++)
{
if (H5Rcreate(&buf42[i][j],fid,dset_name,H5R_OBJECT,-1) < 0)
goto out;
@@ -4706,9 +4706,9 @@ int write_attr_in(hid_t loc_id,
/* Allocate and initialize VL dataset to write */
n=0;
- for (i = 0; i < 3; i++)
+ for (i = 0; i < 3; i++)
{
- for (j = 0; j < 2; j++)
+ for (j = 0; j < 2; j++)
{
int l;
buf52[i][j].p = malloc((i + 1) * sizeof(int));
@@ -4803,7 +4803,7 @@ int write_attr_in(hid_t loc_id,
*-------------------------------------------------------------------------
*/
- if(make_diffs)
+ if(make_diffs)
{
HDmemset(buf72, 0, sizeof buf72);
HDmemset(buf82, 0, sizeof buf82);
@@ -4924,11 +4924,11 @@ int write_attr_in(hid_t loc_id,
*/
n=1;
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
if (make_diffs) buf23[i][j][k]=0;
else buf23[i][j][k]=n++;
@@ -4993,18 +4993,18 @@ int write_attr_in(hid_t loc_id,
*/
n=1;
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
- if (make_diffs)
+ if (make_diffs)
{
buf33[i][j][k].a=0;
buf33[i][j][k].b=0;
}
- else
+ else
{
buf33[i][j][k].a=n++;
buf33[i][j][k].b=n++;
@@ -5085,9 +5085,9 @@ int write_attr_in(hid_t loc_id,
/* Create references to dataset */
if (dset_name)
{
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
for (k = 0; k < 2; k++)
if (H5Rcreate(&buf43[i][j][k],fid,dset_name,H5R_OBJECT,-1) < 0)
@@ -5103,17 +5103,17 @@ int write_attr_in(hid_t loc_id,
*-------------------------------------------------------------------------
*/
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
- if (make_diffs)
+ if (make_diffs)
{
- buf453[i][j][k]=RED;
+ buf453[i][j][k]=RED;
}
- else
+ else
{
buf453[i][j][k]=GREEN;
}
@@ -5170,11 +5170,11 @@ int write_attr_in(hid_t loc_id,
/* Allocate and initialize VL dataset to write */
n=0;
- for (i = 0; i < 4; i++)
+ for (i = 0; i < 4; i++)
{
- for (j = 0; j < 3; j++)
+ for (j = 0; j < 3; j++)
{
- for (k = 0; k < 2; k++)
+ for (k = 0; k < 2; k++)
{
int l;
buf53[i][j][k].p = malloc((i + 1) * sizeof(int));
@@ -5184,7 +5184,7 @@ int write_attr_in(hid_t loc_id,
{
((int *)buf53[i][j][k].p)[l] = 0;
}
- else
+ else
((int *)buf53[i][j][k].p)[l] = n++;
}
}
@@ -5229,9 +5229,9 @@ int write_attr_in(hid_t loc_id,
*-------------------------------------------------------------------------
*/
n=1;
- for (i = 0; i < 24; i++)
+ for (i = 0; i < 24; i++)
{
- for (j = 0; j < (int)dimarray[0]; j++)
+ for (j = 0; j < (int)dimarray[0]; j++)
{
if (make_diffs) buf63[i][j]=0;
else buf63[i][j]=n++;
@@ -5269,12 +5269,12 @@ int write_attr_in(hid_t loc_id,
{
for(k = 0; k < 2; k++)
{
- if(make_diffs)
+ if(make_diffs)
{
buf73[i][j][k] = 0;
buf83[i][j][k] = 0;
}
- else
+ else
{
buf73[i][j][k] = n++;
buf83[i][j][k] = f++;
@@ -5307,7 +5307,7 @@ int write_attr_in(hid_t loc_id,
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Aclose(aid);
H5Sclose(sid);
@@ -5563,7 +5563,7 @@ int make_named_dtype(hid_t loc_id)
return 0;
out:
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
H5Tclose(tid);
H5Aclose(aid);
diff --git a/tools/h5stat/h5stat.c b/tools/h5stat/h5stat.c
index 2e6acc2..24bfce0 100644
--- a/tools/h5stat/h5stat.c
+++ b/tools/h5stat/h5stat.c
@@ -1208,7 +1208,7 @@ main(int argc, const char *argv[])
u = 0;
while(hand[u].obj) {
- if (h5trav_visit(fid, hand[u].obj, TRUE, TRUE, obj_stats, lnk_stats, &iter) < 0)
+ if (h5trav_visit(fid, hand[u].obj, TRUE, TRUE, obj_stats, lnk_stats, &iter) < 0)
warn_msg(progname, "Unable to traverse object \"%s\"\n", hand[u].obj);
else
print_statistics(hand[u].obj, &iter);
diff --git a/tools/lib/h5diff.c b/tools/lib/h5diff.c
index 89823e5..998e96a 100644
--- a/tools/lib/h5diff.c
+++ b/tools/lib/h5diff.c
@@ -214,7 +214,7 @@ hsize_t h5diff(const char *fname1,
{
/* open file 1 */
- if((file1_id = h5tools_fopen(fname1, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
+ if((file1_id = h5tools_fopen(fname1, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
{
parallel_print("h5diff: <%s>: unable to open file\n", fname1);
@@ -230,8 +230,8 @@ hsize_t h5diff(const char *fname1,
/* open file 2 */
-
- if((file2_id = h5tools_fopen(fname2, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
+
+ if((file2_id = h5tools_fopen(fname2, H5F_ACC_RDONLY, H5P_DEFAULT, NULL, NULL, (size_t)0)) < 0)
{
parallel_print("h5diff: <%s>: unable to open file\n", fname2);
@@ -461,14 +461,14 @@ hsize_t diff_match(hid_t file1_id,
* 2) the graph must match, i.e same names (absolute path)
* 3) objects with the same name must be of the same type
*-------------------------------------------------------------------------
- */
-
+ */
+
/* number of different objects */
if ( info1->nused != info2->nused )
{
options->contents = 0;
}
-
+
/* objects in one file and not the other */
for( i = 0; i < table->nobjs; i++)
{
@@ -479,7 +479,7 @@ hsize_t diff_match(hid_t file1_id,
}
/* objects with the same name but different HDF5 types */
- for( i = 0; i < table->nobjs; i++)
+ for( i = 0; i < table->nobjs; i++)
{
if ( table->objs[i].flags[0] && table->objs[i].flags[1] )
{
@@ -936,7 +936,7 @@ hsize_t diff(hid_t file1_id,
if (!options->not_cmp && nfound)
{
do_print_objname("dataset", path1, path2);
- print_found(nfound);
+ print_found(nfound);
}
}
break;
diff --git a/tools/lib/h5diff_array.c b/tools/lib/h5diff_array.c
index aa03148..e9c9fcf 100644
--- a/tools/lib/h5diff_array.c
+++ b/tools/lib/h5diff_array.c
@@ -74,7 +74,7 @@
#define ULLI_FORMAT_P_NOTCOMP "%-15"H5_PRINTF_LL_WIDTH"u %-15"H5_PRINTF_LL_WIDTH"u %-15"H5_PRINTF_LL_WIDTH"d not comparable\n"
-/* if system EPSILON is defined, use the system EPSILON; otherwise, use
+/* if system EPSILON is defined, use the system EPSILON; otherwise, use
constants that are close to most EPSILON values */
#ifndef FLT_EPSILON
@@ -167,7 +167,7 @@ static void h5diff_print_char(char ch);
#if H5_SIZEOF_LONG_DOUBLE !=0
typedef enum dtype_t
{
- FLT_FLOAT,
+ FLT_FLOAT,
FLT_DOUBLE,
FLT_LDOUBLE
} dtype_t;
@@ -175,7 +175,7 @@ typedef enum dtype_t
typedef enum dtype_t
{
- FLT_FLOAT,
+ FLT_FLOAT,
FLT_DOUBLE
} dtype_t;
#endif
@@ -227,7 +227,7 @@ hsize_t diff_array( void *_mem1,
if ( rank > 0 )
{
-
+
acc[rank-1]=1;
for(j=(rank-2); j>=0; j--)
{
@@ -275,7 +275,7 @@ hsize_t diff_array( void *_mem1,
*/
case H5T_FLOAT:
-
+
if (H5Tequal(m_type, H5T_NATIVE_FLOAT))
nfound=diff_float(mem1,mem2,nelmts,hyper_start,rank,dims,acc,pos,options,name1,name2,&ph);
else if (H5Tequal(m_type, H5T_NATIVE_DOUBLE))
@@ -283,7 +283,7 @@ hsize_t diff_array( void *_mem1,
#if H5_SIZEOF_LONG_DOUBLE !=0
else if (H5Tequal(m_type, H5T_NATIVE_LDOUBLE))
nfound=diff_ldouble(mem1,mem2,nelmts,hyper_start,rank,dims,acc,pos,options,name1,name2,&ph);
-#endif
+#endif
break;
case H5T_INTEGER:
@@ -1862,7 +1862,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -1925,7 +1925,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -1991,7 +1991,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -2074,7 +2074,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -2139,7 +2139,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -2205,7 +2205,7 @@ hsize_t diff_datum(void *_mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -2889,7 +2889,7 @@ hsize_t diff_float(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -2961,7 +2961,7 @@ hsize_t diff_float(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3036,7 +3036,7 @@ hsize_t diff_float(unsigned char *mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3163,7 +3163,7 @@ hsize_t diff_double(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3235,7 +3235,7 @@ hsize_t diff_double(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3310,7 +3310,7 @@ hsize_t diff_double(unsigned char *mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3446,7 +3446,7 @@ hsize_t diff_ldouble(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3518,7 +3518,7 @@ hsize_t diff_ldouble(unsigned char *mem1,
}
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -3593,7 +3593,7 @@ hsize_t diff_ldouble(unsigned char *mem1,
nfound++;
}
- }
+ }
/* one is NaN, assume difference */
else if ( isnan1==1 || isnan2==1)
{
@@ -5511,14 +5511,14 @@ hbool_t equal_double(double value, double expected, diff_opt_t *options)
{
if ( options->do_nans )
{
-
+
/*-------------------------------------------------------------------------
* detect NaNs
*-------------------------------------------------------------------------
*/
int isnan1 = my_isnan(FLT_DOUBLE,&value);
int isnan2 = my_isnan(FLT_DOUBLE,&expected);
-
+
/*-------------------------------------------------------------------------
* we consider NaN == NaN to be true
*-------------------------------------------------------------------------
@@ -5527,7 +5527,7 @@ hbool_t equal_double(double value, double expected, diff_opt_t *options)
{
return TRUE;
}
-
+
/*-------------------------------------------------------------------------
* one is a NaN, do not compare but assume difference
*-------------------------------------------------------------------------
@@ -5535,7 +5535,7 @@ hbool_t equal_double(double value, double expected, diff_opt_t *options)
if ( (isnan1 && !isnan2) || ( !isnan1 && isnan2 ) )
{
return FALSE;
- }
+ }
}
if (value == expected)
@@ -5564,14 +5564,14 @@ hbool_t equal_ldouble(long double value, long double expected, diff_opt_t *optio
{
if ( options->do_nans )
{
-
+
/*-------------------------------------------------------------------------
* detect NaNs
*-------------------------------------------------------------------------
*/
int isnan1 = my_isnan(FLT_LDOUBLE,&value);
int isnan2 = my_isnan(FLT_LDOUBLE,&expected);
-
+
/*-------------------------------------------------------------------------
* we consider NaN == NaN to be true
*-------------------------------------------------------------------------
@@ -5580,7 +5580,7 @@ hbool_t equal_ldouble(long double value, long double expected, diff_opt_t *optio
{
return TRUE;
}
-
+
/*-------------------------------------------------------------------------
* one is a NaN, do not compare but assume difference
*-------------------------------------------------------------------------
@@ -5588,7 +5588,7 @@ hbool_t equal_ldouble(long double value, long double expected, diff_opt_t *optio
if ( (isnan1 && !isnan2) || ( !isnan1 && isnan2 ) )
{
return FALSE;
- }
+ }
}
if (value == expected)
@@ -5603,7 +5603,7 @@ hbool_t equal_ldouble(long double value, long double expected, diff_opt_t *optio
}
#endif /* #if H5_SIZEOF_LONG_DOUBLE !=0 */
-
+
/*-------------------------------------------------------------------------
* Function: equal_float
@@ -5621,14 +5621,14 @@ hbool_t equal_float(float value, float expected, diff_opt_t *options)
{
if ( options->do_nans )
{
-
+
/*-------------------------------------------------------------------------
* detect NaNs
*-------------------------------------------------------------------------
*/
int isnan1 = my_isnan(FLT_FLOAT,&value);
int isnan2 = my_isnan(FLT_FLOAT,&expected);
-
+
/*-------------------------------------------------------------------------
* we consider NaN == NaN to be true
*-------------------------------------------------------------------------
@@ -5637,7 +5637,7 @@ hbool_t equal_float(float value, float expected, diff_opt_t *options)
{
return TRUE;
}
-
+
/*-------------------------------------------------------------------------
* one is a NaN, do not compare but assume difference
*-------------------------------------------------------------------------
@@ -5645,7 +5645,7 @@ hbool_t equal_float(float value, float expected, diff_opt_t *options)
if ( (isnan1 && !isnan2) || ( !isnan1 && isnan2 ) )
{
return FALSE;
- }
+ }
}
if (value == expected)
@@ -5946,13 +5946,13 @@ void print_char_pos( int *ph, /* print header */
parallel_print("[ " );
if ( rank > 0 )
{
-
+
for ( i = 0; i < rank; i++)
{
parallel_print(HSIZE_T_FORMAT, (unsigned long long)pos[i]);
parallel_print(" ");
}
-
+
}
else
{
@@ -5970,8 +5970,8 @@ void print_char_pos( int *ph, /* print header */
*/
static void h5diff_print_char(char ch)
{
-
- switch (ch)
+
+ switch (ch)
{
case '"':
parallel_print("\\\"");
@@ -5999,7 +5999,7 @@ static void h5diff_print_char(char ch)
parallel_print( "%c", ch);
else
parallel_print( "\\%03o", ch);
-
+
break;
}
}
diff --git a/tools/lib/h5diff_dset.c b/tools/lib/h5diff_dset.c
index 2cc84ca..8e25b6d 100644
--- a/tools/lib/h5diff_dset.c
+++ b/tools/lib/h5diff_dset.c
@@ -44,36 +44,36 @@ hsize_t diff_dataset( hid_t file1_id,
hid_t dcpl1 = -1;
hid_t dcpl2 = -1;
hsize_t nfound = 0;
-
+
/*-------------------------------------------------------------------------
* open the handles
*-------------------------------------------------------------------------
*/
/* disable error reporting */
- H5E_BEGIN_TRY
+ H5E_BEGIN_TRY
{
/* Open the datasets */
- if((did1 = H5Dopen2(file1_id, obj1_name, H5P_DEFAULT)) < 0)
+ if((did1 = H5Dopen2(file1_id, obj1_name, H5P_DEFAULT)) < 0)
{
parallel_print("Cannot open dataset <%s>\n", obj1_name);
goto error;
}
- if((did2 = H5Dopen2(file2_id, obj2_name, H5P_DEFAULT)) < 0)
+ if((did2 = H5Dopen2(file2_id, obj2_name, H5P_DEFAULT)) < 0)
{
parallel_print("Cannot open dataset <%s>\n", obj2_name);
goto error;
}
/* enable error reporting */
} H5E_END_TRY;
-
-
+
+
if((dcpl1 = H5Dget_create_plist(did1)) < 0)
goto error;
if((dcpl2 = H5Dget_create_plist(did2)) < 0)
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* check if the dataset creation property list has filters that
* are not registered in the current configuration
@@ -103,9 +103,9 @@ hsize_t diff_dataset( hid_t file1_id,
/* enable error reporting */
} H5E_END_TRY;
-
+
return nfound;
-
+
error:
options->err_stat=1;
/* disable error reporting */
@@ -116,7 +116,7 @@ error:
H5Dclose(did2);
/* enable error reporting */
} H5E_END_TRY;
-
+
return nfound;
}
@@ -214,56 +214,56 @@ hsize_t diff_datasetid( hid_t did1,
void *sm_buf2=NULL;
size_t need; /* bytes needed for malloc */
int i;
-
+
/* Get the dataspace handle */
if ( (sid1 = H5Dget_space(did1)) < 0 )
goto error;
-
+
/* Get rank */
if ( (rank1 = H5Sget_simple_extent_ndims(sid1)) < 0 )
goto error;
-
+
/* Get the dataspace handle */
if ( (sid2 = H5Dget_space(did2)) < 0 )
goto error;
-
+
/* Get rank */
if ( (rank2 = H5Sget_simple_extent_ndims(sid2)) < 0 )
goto error;
-
+
/* Get dimensions */
if ( H5Sget_simple_extent_dims(sid1,dims1,maxdim1) < 0 )
goto error;
-
+
/* Get dimensions */
if ( H5Sget_simple_extent_dims(sid2,dims2,maxdim2) < 0 )
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* get the file data type
*-------------------------------------------------------------------------
*/
-
+
/* Get the data type */
if ( (f_tid1 = H5Dget_type(did1)) < 0 )
goto error;
-
+
/* Get the data type */
if ( (f_tid2 = H5Dget_type(did2)) < 0 )
{
goto error;
}
-
+
/*-------------------------------------------------------------------------
* check for empty datasets
*-------------------------------------------------------------------------
*/
-
+
storage_size1=H5Dget_storage_size(did1);
storage_size2=H5Dget_storage_size(did2);
-
+
if (storage_size1==0 || storage_size2==0)
{
if ( (options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
@@ -271,12 +271,12 @@ hsize_t diff_datasetid( hid_t did1,
can_compare=0;
options->not_cmp=1;
}
-
+
/*-------------------------------------------------------------------------
* check for comparable TYPE and SPACE
*-------------------------------------------------------------------------
*/
-
+
if (diff_can_type(f_tid1,
f_tid2,
rank1,
@@ -292,46 +292,46 @@ hsize_t diff_datasetid( hid_t did1,
{
can_compare=0;
}
-
+
/*-------------------------------------------------------------------------
* memory type and sizes
*-------------------------------------------------------------------------
*/
if ((m_tid1=h5tools_get_native_type(f_tid1)) < 0)
goto error;
-
+
if ((m_tid2=h5tools_get_native_type(f_tid2)) < 0)
goto error;
-
+
m_size1 = H5Tget_size( m_tid1 );
m_size2 = H5Tget_size( m_tid2 );
-
+
/*-------------------------------------------------------------------------
* check for different signed/unsigned types
*-------------------------------------------------------------------------
*/
-
+
sign1=H5Tget_sign(m_tid1);
sign2=H5Tget_sign(m_tid2);
if ( sign1 != sign2 )
{
- if ((options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
+ if ((options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
{
parallel_print("Not comparable: <%s> has sign %s ", obj1_name, get_sign(sign1));
parallel_print("and <%s> has sign %s\n", obj2_name, get_sign(sign2));
}
-
+
can_compare=0;
options->not_cmp=1;
}
-
+
/*-------------------------------------------------------------------------
* only attempt to compare if possible
*-------------------------------------------------------------------------
*/
if (can_compare ) /* it is possible to compare */
{
-
+
/*-------------------------------------------------------------------------
* get number of elements
*-------------------------------------------------------------------------
@@ -341,43 +341,43 @@ hsize_t diff_datasetid( hid_t did1,
{
nelmts1 *= dims1[i];
}
-
+
nelmts2 = 1;
for (i = 0; i < rank2; i++)
{
nelmts2 *= dims2[i];
}
-
+
assert(nelmts1==nelmts2);
-
+
/*-------------------------------------------------------------------------
* "upgrade" the smaller memory size
*-------------------------------------------------------------------------
*/
-
+
if ( m_size1 != m_size2 )
{
if ( m_size1 < m_size2 )
{
H5Tclose(m_tid1);
-
+
if ((m_tid1=h5tools_get_native_type(f_tid2)) < 0)
goto error;
-
+
m_size1 = H5Tget_size( m_tid1 );
}
else
{
H5Tclose(m_tid2);
-
+
if ((m_tid2=h5tools_get_native_type(f_tid1)) < 0)
goto error;
-
+
m_size2 = H5Tget_size( m_tid2 );
}
}
assert(m_size1==m_size2);
-
+
/* print names */
if (obj1_name) {
name1=diff_basename(obj1_name);
@@ -385,27 +385,27 @@ hsize_t diff_datasetid( hid_t did1,
if (obj2_name) {
name2=diff_basename(obj2_name);
}
-
-
+
+
/*-------------------------------------------------------------------------
* read/compare
*-------------------------------------------------------------------------
*/
-
+
need = (size_t)(nelmts1*m_size1); /* bytes needed */
if ( need < H5TOOLS_MALLOCSIZE)
{
buf1 = HDmalloc(need);
buf2 = HDmalloc(need);
}
-
+
if ( buf1!=NULL && buf2!=NULL)
{
if ( H5Dread(did1,m_tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,buf1) < 0 )
goto error;
if ( H5Dread(did2,m_tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,buf2) < 0 )
goto error;
-
+
/* array diff */
nfound = diff_array(buf1,
buf2,
@@ -420,39 +420,39 @@ hsize_t diff_datasetid( hid_t did1,
did1,
did2);
}
-
+
else /* possibly not enough memory, read/compare by hyperslabs */
-
+
{
size_t p_type_nbytes = m_size1; /*size of memory type */
hsize_t p_nelmts = nelmts1; /*total selected elmts */
hsize_t elmtno; /*counter */
int carry; /*counter carry value */
unsigned int vl_data = 0; /*contains VL datatypes */
-
+
/* stripmine info */
hsize_t sm_size[H5S_MAX_RANK]; /*stripmine size */
hsize_t sm_nbytes; /*bytes per stripmine */
hsize_t sm_nelmts; /*elements per stripmine*/
hid_t sm_space; /*stripmine data space */
-
+
/* hyperslab info */
hsize_t hs_offset[H5S_MAX_RANK]; /*starting offset */
hsize_t hs_size[H5S_MAX_RANK]; /*size this pass */
hsize_t hs_nelmts; /*elements in request */
hsize_t zero[8]; /*vector of zeros */
-
+
/* check if we have VL data in the dataset's datatype */
if (H5Tdetect_class(m_tid1, H5T_VLEN) == TRUE)
vl_data = TRUE;
-
+
/*
* determine the strip mine size and allocate a buffer. The strip mine is
* a hyperslab whose size is manageable.
*/
sm_nbytes = p_type_nbytes;
-
- for (i = rank1; i > 0; --i)
+
+ for (i = rank1; i > 0; --i)
{
hsize_t size = H5TOOLS_BUFSIZE / sm_nbytes;
if ( size == 0) /* datum size > H5TOOLS_BUFSIZE */
@@ -461,7 +461,7 @@ hsize_t diff_datasetid( hid_t did1,
sm_nbytes *= sm_size[i - 1];
assert(sm_nbytes > 0);
}
-
+
/* malloc return code should be verified.
* If fail, need to handle the error.
* This else branch should be recoded as a separate function.
@@ -473,14 +473,14 @@ hsize_t diff_datasetid( hid_t did1,
assert(sm_buf1);
sm_buf2 = malloc((size_t)sm_nbytes);
assert(sm_buf2);
-
+
sm_nelmts = sm_nbytes / p_type_nbytes;
sm_space = H5Screate_simple(1, &sm_nelmts, NULL);
-
+
/* the stripmine loop */
memset(hs_offset, 0, sizeof hs_offset);
memset(zero, 0, sizeof zero);
-
+
for (elmtno = 0; elmtno < p_nelmts; elmtno += hs_nelmts)
{
/* calculate the hyperslab size */
@@ -505,12 +505,12 @@ hsize_t diff_datasetid( hid_t did1,
H5Sselect_all(sm_space);
hs_nelmts = 1;
} /* rank */
-
+
if ( H5Dread(did1,m_tid1,sm_space,sid1,H5P_DEFAULT,sm_buf1) < 0 )
goto error;
if ( H5Dread(did2,m_tid2,sm_space,sid2,H5P_DEFAULT,sm_buf2) < 0 )
goto error;
-
+
/* get array differences. in the case of hyperslab read, increment the number of differences
found in each hyperslab and pass the position at the beggining for printing */
nfound += diff_array(sm_buf1,
@@ -525,14 +525,14 @@ hsize_t diff_datasetid( hid_t did1,
m_tid1,
did1,
did2);
-
+
/* reclaim any VL memory, if necessary */
if(vl_data)
{
H5Dvlen_reclaim(m_tid1, sm_space, H5P_DEFAULT, sm_buf1);
H5Dvlen_reclaim(m_tid1, sm_space, H5P_DEFAULT, sm_buf2);
}
-
+
/* calculate the next hyperslab offset */
for (i = rank1, carry = 1; i > 0 && carry; --i)
{
@@ -543,27 +543,27 @@ hsize_t diff_datasetid( hid_t did1,
carry = 0;
} /* i */
} /* elmtno */
-
+
H5Sclose(sm_space);
} /* hyperslab read */
}/*can_compare*/
-
+
/*-------------------------------------------------------------------------
* compare attributes
* the if condition refers to cases when the dataset is a referenced object
*-------------------------------------------------------------------------
*/
-
+
if (obj1_name)
{
nfound += diff_attr(did1,did2,obj1_name,obj2_name,options);
}
-
+
/*-------------------------------------------------------------------------
* close
*-------------------------------------------------------------------------
*/
-
+
/* free */
if (buf1!=NULL)
{
@@ -585,7 +585,7 @@ hsize_t diff_datasetid( hid_t did1,
free(sm_buf2);
sm_buf2=NULL;
}
-
+
H5E_BEGIN_TRY {
H5Sclose(sid1);
H5Sclose(sid2);
@@ -594,12 +594,12 @@ hsize_t diff_datasetid( hid_t did1,
H5Tclose(m_tid1);
H5Tclose(m_tid2);
} H5E_END_TRY;
-
+
return nfound;
-
+
error:
options->err_stat=1;
-
+
/* free */
if (buf1!=NULL)
{
@@ -621,7 +621,7 @@ error:
free(sm_buf2);
sm_buf2=NULL;
}
-
+
/* disable error reporting */
H5E_BEGIN_TRY {
H5Sclose(sid1);
@@ -632,7 +632,7 @@ error:
H5Tclose(m_tid2);
/* enable error reporting */
} H5E_END_TRY;
-
+
return nfound;
}
@@ -666,64 +666,64 @@ int diff_can_type( hid_t f_tid1, /* file data type */
diff_opt_t *options,
int is_compound)
{
-
-
+
+
H5T_class_t tclass1;
H5T_class_t tclass2;
int maxdim_diff=0; /* maximum dimensions are different */
int dim_diff=0; /* current dimensions are different */
int i;
int can_compare = 1; /* return value */
-
+
/*-------------------------------------------------------------------------
* check for the same class
*-------------------------------------------------------------------------
*/
-
+
if ((tclass1=H5Tget_class(f_tid1)) < 0)
return -1;
-
+
if ((tclass2=H5Tget_class(f_tid2)) < 0)
return -1;
-
+
if ( tclass1 != tclass2 )
{
if ( (options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
{
-
+
if ( is_compound )
{
-
+
parallel_print("Not comparable: <%s> has a class %s and <%s> has a class %s\n",
obj1_name, get_class(tclass1),
obj2_name, get_class(tclass2) );
-
+
}
-
+
else
-
+
{
-
+
parallel_print("Not comparable: <%s> is of class %s and <%s> is of class %s\n",
obj1_name, get_class(tclass1),
obj2_name, get_class(tclass2) );
-
+
}
}
-
+
can_compare = 0;
options->not_cmp = 1;
return can_compare;
}
-
+
/*-------------------------------------------------------------------------
* check for non supported classes
*-------------------------------------------------------------------------
*/
-
+
assert(tclass1==tclass2);
switch (tclass1)
{
@@ -737,11 +737,11 @@ int diff_can_type( hid_t f_tid1, /* file data type */
case H5T_ENUM:
case H5T_VLEN:
case H5T_REFERENCE:
-
+
break;
-
+
default: /*H5T_TIME */
-
+
if ( (options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
{
@@ -752,18 +752,18 @@ int diff_can_type( hid_t f_tid1, /* file data type */
options->not_cmp = 1;
return can_compare;
}
-
+
/*-------------------------------------------------------------------------
* check for equal file datatype; warning only
*-------------------------------------------------------------------------
*/
-
+
if ( (H5Tequal(f_tid1, f_tid2)==0) &&
(options->m_verbose) && obj1_name && obj2_name)
{
-
+
H5T_class_t cl = H5Tget_class(f_tid1);
-
+
parallel_print("Warning: different storage datatype\n");
if ( cl == H5T_INTEGER || cl == H5T_FLOAT )
@@ -777,14 +777,14 @@ int diff_can_type( hid_t f_tid1, /* file data type */
}
-
+
}
-
+
/*-------------------------------------------------------------------------
* check for the same rank
*-------------------------------------------------------------------------
*/
-
+
if ( rank1 != rank2 )
{
@@ -807,12 +807,12 @@ int diff_can_type( hid_t f_tid1, /* file data type */
options->not_cmp = 1;
return can_compare;
}
-
+
/*-------------------------------------------------------------------------
* check for different dimensions
*-------------------------------------------------------------------------
*/
-
+
assert(rank1==rank2);
for ( i=0; i<rank1; i++)
{
@@ -824,19 +824,19 @@ int diff_can_type( hid_t f_tid1, /* file data type */
if ( dims1[i] != dims2[i] )
dim_diff=1;
}
-
+
/*-------------------------------------------------------------------------
* current dimensions
*-------------------------------------------------------------------------
*/
-
+
if (dim_diff==1)
{
if ( (options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
{
parallel_print("Not comparable: <%s> has rank %d, dimensions ", obj1_name, rank1);
print_dimensions(rank1,dims1);
- if (maxdim1 && maxdim2)
+ if (maxdim1 && maxdim2)
{
parallel_print(", max dimensions ");
print_dimensions(rank1,maxdim1);
@@ -848,7 +848,7 @@ int diff_can_type( hid_t f_tid1, /* file data type */
parallel_print("\n");
}
}
-
+
can_compare = 0;
options->not_cmp = 1;
@@ -857,7 +857,7 @@ int diff_can_type( hid_t f_tid1, /* file data type */
}
-
+
/*-------------------------------------------------------------------------
* maximum dimensions; just give a warning
*-------------------------------------------------------------------------
@@ -878,7 +878,7 @@ int diff_can_type( hid_t f_tid1, /* file data type */
if ( tclass1 == H5T_COMPOUND )
{
-
+
int nmembs1;
int nmembs2;
int j;
@@ -890,7 +890,7 @@ int diff_can_type( hid_t f_tid1, /* file data type */
if ( nmembs1 != nmembs2 )
{
-
+
if ( (options->m_verbose||options->m_list_not_cmp) && obj1_name && obj2_name)
{
parallel_print("Not comparable: <%s> has %d members ", obj1_name, nmembs1);
@@ -902,7 +902,7 @@ int diff_can_type( hid_t f_tid1, /* file data type */
options->not_cmp = 1;
return can_compare;
}
-
+
for (j = 0; j < nmembs1; j++)
{
memb_type1 = H5Tget_member_type(f_tid1, (unsigned)j);
@@ -927,22 +927,22 @@ int diff_can_type( hid_t f_tid1, /* file data type */
H5Tclose(memb_type2);
return can_compare;
}
-
+
H5Tclose(memb_type1);
H5Tclose(memb_type2);
-
+
}
-
-
-
-
-
+
+
+
+
+
}
-
-
-
+
+
+
return can_compare;
}
@@ -966,12 +966,12 @@ void print_sizes( const char *obj1,
{
size_t f_size1, f_size2; /* size of type in file */
size_t m_size1, m_size2; /* size of type in memory */
-
+
f_size1 = H5Tget_size( f_tid1 );
f_size2 = H5Tget_size( f_tid2 );
m_size1 = H5Tget_size( m_tid1 );
m_size2 = H5Tget_size( m_tid2 );
-
+
parallel_print("\n");
parallel_print("------------------\n");
parallel_print("sizeof(char) %u\n", sizeof(char) );
@@ -983,18 +983,18 @@ void print_sizes( const char *obj1,
print_type(f_tid1);
parallel_print("\n");
parallel_print("size on file %u\n", f_size1 );
-
+
parallel_print("type on memory ");
print_type(m_tid1);
parallel_print("\n");
parallel_print("size on memory %u\n", m_size1 );
-
+
parallel_print("<%s> ------------------\n", obj2);
parallel_print("type on file ");
print_type(f_tid2);
parallel_print("\n");
parallel_print("size on file %u\n", f_size2 );
-
+
parallel_print("type on memory ");
print_type(m_tid2);
parallel_print("\n");
diff --git a/tools/lib/h5diff_util.c b/tools/lib/h5diff_util.c
index 2fb789d..30c01f9 100644
--- a/tools/lib/h5diff_util.c
+++ b/tools/lib/h5diff_util.c
@@ -107,14 +107,14 @@ print_dimensions (int rank, hsize_t *dims)
if ( rank > 0 )
{
-
+
parallel_print("[" );
for ( i = 0; i < rank-1; i++)
{
parallel_print(HSIZE_T_FORMAT, dims[i]);
parallel_print("x");
}
-
+
parallel_print(HSIZE_T_FORMAT, dims[rank-1]);
parallel_print("]" );
}
diff --git a/tools/lib/h5tools.c b/tools/lib/h5tools.c
index f510a5b..e80c505 100644
--- a/tools/lib/h5tools.c
+++ b/tools/lib/h5tools.c
@@ -43,7 +43,7 @@ int bin_output; /* binary output */
int bin_form; /* binary form */
int region_output; /* region output */
-static h5tool_format_t h5tools_dataformat = {
+static h5tool_format_t h5tools_dataformat = {
0, /*raw */
"", /*fmt_raw */
@@ -112,7 +112,7 @@ NULL, /*fmt_ullong */
1 /*escape non printable characters */
};
-static const h5tools_dump_header_t h5tools_standardformat = {
+static const h5tools_dump_header_t h5tools_standardformat = {
"standardformat", /*name */
"HDF5", /*fileebgin */
"", /*fileend */
@@ -217,8 +217,8 @@ hbool_t h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
hsize_t elmt_counter);
int h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
- FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
- h5tools_str_t *buffer/*string into which to render */, size_t ncols,
+ FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
+ h5tools_str_t *buffer/*string into which to render */, size_t ncols,
int ndims, hid_t type_id, hssize_t nblocks, hsize_t *ptdata);
hbool_t h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
@@ -230,8 +230,8 @@ hbool_t h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
hsize_t elmt_counter);
int h5tools_print_region_data_points(hid_t region_space, hid_t region_id,
- FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
- h5tools_str_t *buffer, size_t ncols,
+ FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
+ h5tools_str_t *buffer, size_t ncols,
int ndims, hid_t type_id, hssize_t npoints, hsize_t *ptdata);
hbool_t h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
@@ -299,13 +299,13 @@ void
h5tools_init(void)
{
char lib_str[256];
-
+
if (!h5tools_init_g) {
/* register the error class */
sprintf(lib_str, "%d.%d.%d",H5_VERS_MAJOR, H5_VERS_MINOR, H5_VERS_RELEASE);
-
+
H5TOOLS_INIT_ERROR()
-
+
if (!rawdatastream)
rawdatastream = stdout;
@@ -346,7 +346,7 @@ h5tools_close(void)
term_ref_path_table();
H5TOOLS_CLOSE_ERROR()
-
+
/* Shut down the library */
H5close();
@@ -445,7 +445,7 @@ h5tools_get_fapl(hid_t fapl, const char *driver, unsigned *drivernum)
if(drivernum)
*drivernum = MPIO_IDX;
} /* end if */
- }
+ }
else if (!strcmp(driver, drivernames[MPIPOSIX_IDX])) {
/* MPI-I/O Driver */
/* check if MPI has been initialized. */
@@ -727,9 +727,9 @@ h5tools_simple_prefix(FILE *stream, const h5tool_format_t *info,
* None
*-------------------------------------------------------------------------
*/
-static void
+static void
h5tools_region_simple_prefix(FILE *stream, const h5tool_format_t *info,
- h5tools_context_t *ctx, hsize_t elmtno, hsize_t *ptdata, int secnum)
+ h5tools_context_t *ctx, hsize_t elmtno, hsize_t *ptdata, int secnum)
{
h5tools_str_t prefix;
h5tools_str_t str; /*temporary for indentation */
@@ -841,7 +841,7 @@ h5tools_region_simple_prefix(FILE *stream, const h5tool_format_t *info,
* new field sm_pos in h5tools_context_t, the current stripmine element position
*-------------------------------------------------------------------------
*/
-void
+void
h5tools_dump_simple_data(FILE *stream, const h5tool_format_t *info, hid_t container,
h5tools_context_t *ctx/*in,out*/, unsigned flags,
hsize_t nelmts, hid_t type, void *_mem)
@@ -928,13 +928,13 @@ h5tools_dump_simple_data(FILE *stream, const h5tool_format_t *info, hid_t contai
if(H5Sclose(region_space) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Sclose failed");
} /* end if (region_space >= 0) */
- else
+ else
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Rget_region failed");
if(H5Dclose(region_id) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Dclose failed");
} /* if (region_id >= 0) */
- else
+ else
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Rdereference failed");
ctx->need_prefix = TRUE;
@@ -966,17 +966,17 @@ h5tools_dump_simple_data(FILE *stream, const h5tool_format_t *info, hid_t contai
* Purpose: Render an element to output STREAM.
* Description:
* Prints the string buffer to the output STREAM. The string is
- * printed according to the format described in INFO. The CTX struct
- * contains context information shared between calls to this function.
- *
+ * printed according to the format described in INFO. The CTX struct
+ * contains context information shared between calls to this function.
+ *
* Return:
* False if a dimension end is reached, otherwise true
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* h5tools_str_t *buffer
* hsize_t *curr_pos
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* hsize_t curr_pos is the total data element position
@@ -985,10 +985,10 @@ h5tools_dump_simple_data(FILE *stream, const h5tool_format_t *info, hid_t contai
* hsize_t elmt_count is the data element loop counter
*-------------------------------------------------------------------------
*/
-hbool_t
+hbool_t
h5tools_render_element(FILE *stream, const h5tool_format_t *info,
h5tools_context_t *ctx, h5tools_str_t *buffer, hsize_t *curr_pos,
- size_t ncols, hsize_t local_elmt_counter, hsize_t elmt_counter)
+ size_t ncols, hsize_t local_elmt_counter, hsize_t elmt_counter)
{
hbool_t dimension_break = TRUE;
char *s;
@@ -1002,9 +1002,9 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* If the element would split on multiple lines if printed at our
* current location...
*/
- if (info->line_multi_new == 1 &&
- (ctx->cur_column + h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if (info->line_multi_new == 1 &&
+ (ctx->cur_column + h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols) {
if (ctx->prev_multiline) {
/*
@@ -1013,8 +1013,8 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
*/
ctx->need_prefix = TRUE;
}
- else if ((ctx->prev_prefix_len + h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ else if ((ctx->prev_prefix_len + h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) <= ncols) {
/*
* ...but *could* fit on one line otherwise, then we
@@ -1045,11 +1045,11 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* is too long to fit on a line then start this element at the
* beginning of the line.
*/
- if (info->line_multi_new == 1 &&
- ctx->prev_multiline &&
- (ctx->cur_column +
- h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if (info->line_multi_new == 1 &&
+ ctx->prev_multiline &&
+ (ctx->cur_column +
+ h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols)
ctx->need_prefix = TRUE;
@@ -1066,8 +1066,8 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* one-at a time.
*/
multiline = 0;
- for (secnum = 0, multiline = 0;
- (section = strtok(secnum ? NULL : s, OPTIONAL_LINE_BREAK));
+ for (secnum = 0, multiline = 0;
+ (section = strtok(secnum ? NULL : s, OPTIONAL_LINE_BREAK));
secnum++) {
/*
* If the current section plus possible suffix and end-of-line
@@ -1079,10 +1079,10 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* Added the info->skip_first because the dumper does not want
* this check to happen for the first line
*/
- if ((!info->skip_first || local_elmt_counter) &&
- (ctx->cur_column +
- strlen(section) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if ((!info->skip_first || local_elmt_counter) &&
+ (ctx->cur_column +
+ strlen(section) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols)
ctx->need_prefix = 1;
@@ -1122,17 +1122,17 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* Purpose: Render a region element to output STREAM.
* Description:
* Prints the string buffer to the output STREAM. The string is
- * printed according to the format described in INFO. The CTX struct
- * contains context information shared between calls to this function.
- *
+ * printed according to the format described in INFO. The CTX struct
+ * contains context information shared between calls to this function.
+ *
* Return:
* False if a dimension end is reached, otherwise true
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* h5tools_str_t *buffer
* hsize_t *curr_pos
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* hsize_t curr_pos is the total data element position
@@ -1142,10 +1142,10 @@ h5tools_render_element(FILE *stream, const h5tool_format_t *info,
* hsize_t elmt_count is the data element loop counter
*-------------------------------------------------------------------------
*/
-hbool_t
+hbool_t
h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
h5tools_context_t *ctx, h5tools_str_t *buffer, hsize_t *curr_pos,
- size_t ncols, hsize_t *ptdata, hsize_t local_elmt_counter, hsize_t elmt_counter)
+ size_t ncols, hsize_t *ptdata, hsize_t local_elmt_counter, hsize_t elmt_counter)
{
hbool_t dimension_break = TRUE;
char *s;
@@ -1159,9 +1159,9 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
* If the element would split on multiple lines if printed at our
* current location...
*/
- if (info->line_multi_new == 1 &&
- (ctx->cur_column + h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if (info->line_multi_new == 1 &&
+ (ctx->cur_column + h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols) {
if (ctx->prev_multiline) {
/*
@@ -1170,8 +1170,8 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
*/
ctx->need_prefix = TRUE;
}
- else if ((ctx->prev_prefix_len + h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ else if ((ctx->prev_prefix_len + h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) <= ncols) {
/*
* ...but *could* fit on one line otherwise, then we
@@ -1202,11 +1202,11 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
* is too long to fit on a line then start this element at the
* beginning of the line.
*/
- if (info->line_multi_new == 1 &&
- ctx->prev_multiline &&
- (ctx->cur_column +
- h5tools_ncols(s) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if (info->line_multi_new == 1 &&
+ ctx->prev_multiline &&
+ (ctx->cur_column +
+ h5tools_ncols(s) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols)
ctx->need_prefix = TRUE;
@@ -1235,10 +1235,10 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
* Added the info->skip_first because the dumper does not want
* this check to happen for the first line
*/
- if ((!info->skip_first || local_elmt_counter) &&
- (ctx->cur_column +
- strlen(section) +
- strlen(OPT(info->elmt_suf2, " ")) +
+ if ((!info->skip_first || local_elmt_counter) &&
+ (ctx->cur_column +
+ strlen(section) +
+ strlen(OPT(info->elmt_suf2, " ")) +
strlen(OPT(info->line_suf, ""))) > ncols)
ctx->need_prefix = 1;
@@ -1276,13 +1276,13 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
* Audience: Public
* Chapter: H5Tools Library
* Purpose: Print the data values from a dataset referenced by region blocks.
- *
+ *
* Description:
* This is a special case subfunction to print the data in a region reference of type blocks.
- *
+ *
* Return:
* The function returns FAIL if there was an error, otherwise SUCEED
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* size_t ncols
@@ -1290,10 +1290,10 @@ h5tools_render_region_element(FILE *stream, const h5tool_format_t *info,
* hssize_t nblocks is the number of blocks in the region
*-------------------------------------------------------------------------
*/
-int
+int
h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
- FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
- h5tools_str_t *buffer/*string into which to render */, size_t ncols,
+ FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
+ h5tools_str_t *buffer/*string into which to render */, size_t ncols,
int ndims, hid_t type_id, hssize_t nblocks, hsize_t *ptdata) {
HERR_INIT(int, SUCCEED)
hbool_t dimension_break = TRUE;
@@ -1364,12 +1364,12 @@ h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
ctx.indent_level++;
if(H5Sget_simple_extent_dims(mem_space, total_size, NULL) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Sget_simple_extent_dims failed");
-
+
/* assume entire data space to be printed */
for (jndx = 0; jndx < (size_t) ctx.ndims; jndx++)
ctx.p_min_idx[jndx] = start[jndx];
init_acc_pos(&ctx, total_size);
-
+
/* print the data */
region_flags = START_OF_DATA;
if (blkndx == nblocks - 1)
@@ -1390,7 +1390,7 @@ h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
h5tools_str_reset(buffer);
h5tools_str_append(buffer, "%s", jndx ? OPTIONAL_LINE_BREAK "" : "");
- h5tools_str_sprint(buffer, info, region_id, type_id,
+ h5tools_str_sprint(buffer, info, region_id, type_id,
((char*)region_buf + jndx * type_size), &ctx);
if (jndx + 1 < numelem || (region_flags & END_OF_DATA) == 0)
@@ -1399,7 +1399,7 @@ h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
dimension_break = h5tools_render_region_element(stream, info, &ctx, buffer, &curr_pos,
ncols, ptdata, jndx, elmtno);
/* Render the region data element end */
-
+
if(FALSE == dimension_break)
elmtno = 0;
} /* end for (jndx = 0; jndx < numelem; jndx++, region_elmtno++, ctx.cur_elmt++) */
@@ -1412,12 +1412,12 @@ h5tools_print_region_data_blocks(hid_t region_space, hid_t region_id,
HDfree(count);
HDfree(region_buf);
HDfree(dims1);
-
+
if(H5Sclose(mem_space) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Sclose failed");
if(H5Sclose(sid1) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Sclose failed");
-
+
CATCH
return ret_value;
}
@@ -1426,17 +1426,17 @@ CATCH
* Audience: Public
* Chapter: H5Tools Library
* Purpose: Print some values from a dataset referenced by region blocks.
- *
+ *
* Description:
* This is a special case subfunction to dump a region reference using blocks.
- *
+ *
* Return:
* The function returns False if the last dimension has been reached, otherwise True
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* hsize_t *curr_pos
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* hsize_t curr_pos is the total data element position
@@ -1445,7 +1445,7 @@ CATCH
* hsize_t elmt_count is the data element loop counter
*-------------------------------------------------------------------------
*/
-hbool_t
+hbool_t
h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
FILE *stream, const h5tool_format_t *info,
h5tools_context_t *ctx/*in,out*/,
@@ -1469,7 +1469,7 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
/* Print block information */
if((ndims = H5Sget_simple_extent_ndims(region_space)) < 0)
H5E_THROW(dimension_break, H5E_tools_min_id_g, "H5Sget_simple_extent_ndims failed");
-
+
/* Render the region { element begin */
h5tools_str_reset(buffer);
@@ -1483,7 +1483,7 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
ctx->indent_level++;
ctx->need_prefix = TRUE;
h5tools_str_append(buffer, "REGION_TYPE BLOCK ");
-
+
alloc_size = nblocks * ndims * 2 * sizeof(ptdata[0]);
assert(alloc_size == (hsize_t) ((size_t) alloc_size)); /*check for overflow*/
if((ptdata = (hsize_t*) malloc((size_t) alloc_size)) == NULL)
@@ -1580,10 +1580,10 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
done:
free(ptdata);
-
+
if(H5Tclose(type_id) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Tclose failed");
-
+
if(H5Tclose(dtype) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Tclose failed");
@@ -1594,7 +1594,7 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
h5tools_str_append(buffer, "%s %s ",
h5tools_dump_header_format->dataend,
h5tools_dump_header_format->datablockend);
- dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
+ dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
ncols, region_elmt_counter, elmt_counter);
/* Render the dataend element end */
@@ -1604,7 +1604,7 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
/* Render the region } element begin */
h5tools_str_reset(buffer);
h5tools_str_append(buffer, "}");
- dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
+ dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
ncols, region_elmt_counter, elmt_counter);
/* Render the region } element end */
@@ -1618,13 +1618,13 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
* Audience: Public
* Chapter: H5Tools Library
* Purpose: Print the data values from a dataset referenced by region points.
- *
+ *
* Description:
* This is a special case subfunction to print the data in a region reference of type points.
- *
+ *
* Return:
* The function returns FAIL on error, otherwise SUCCEED
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* size_t ncols
@@ -1632,10 +1632,10 @@ h5tools_dump_region_data_blocks(hid_t region_space, hid_t region_id,
* hssize_t npoints is the number of points in the region
*-------------------------------------------------------------------------
*/
-int
+int
h5tools_print_region_data_points(hid_t region_space, hid_t region_id,
- FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
- h5tools_str_t *buffer, size_t ncols,
+ FILE *stream, const h5tool_format_t *info, h5tools_context_t ctx,
+ h5tools_str_t *buffer, size_t ncols,
int ndims, hid_t type_id, hssize_t npoints, hsize_t *ptdata) {
HERR_INIT(int, SUCCEED)
hbool_t dimension_break = TRUE;
@@ -1688,7 +1688,7 @@ h5tools_print_region_data_points(hid_t region_space, hid_t region_id,
if (ctx.ndims > 0) {
ctx.size_last_dim = (int) (ctx.p_max_idx[ctx.ndims - 1]);
- }
+ }
else
ctx.size_last_dim = 0;
@@ -1702,17 +1702,17 @@ h5tools_print_region_data_points(hid_t region_space, hid_t region_id,
curr_pos = 0; /* points requires constant 0 */
ctx.sm_pos = jndx * ndims;
-
+
h5tools_region_simple_prefix(stream, info, &ctx, curr_pos, ptdata, 0);
- h5tools_str_sprint(buffer, info, region_id, type_id,
+ h5tools_str_sprint(buffer, info, region_id, type_id,
((char*)region_buf + jndx * type_size), &ctx);
if (jndx + 1 < npoints || (region_flags & END_OF_DATA) == 0)
h5tools_str_append(buffer, "%s", OPT(info->elmt_suf1, ","));
- dimension_break =
- h5tools_render_region_element(stream, info, &ctx, buffer, &curr_pos,
+ dimension_break =
+ h5tools_render_region_element(stream, info, &ctx, buffer, &curr_pos,
ncols, ptdata, 0, elmtno);
/* Render the point element end */
@@ -1724,7 +1724,7 @@ h5tools_print_region_data_points(hid_t region_space, hid_t region_id,
done:
HDfree(region_buf);
HDfree(dims1);
-
+
if(H5Sclose(mem_space) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Sclose failed");
CATCH
@@ -1735,17 +1735,17 @@ CATCH
* Audience: Public
* Chapter: H5Tools Library
* Purpose: Print some values from a dataset referenced by region points.
- *
+ *
* Description:
* This is a special case subfunction to dump a region reference using points.
- *
+ *
* Return:
* The function returns False if the last dimension has been reached, otherwise True
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* hsize_t *curr_pos
- *
+ *
* Parameters Description:
* h5tools_str_t *buffer is the string into which to render
* hsize_t curr_pos is the total data element position
@@ -1754,9 +1754,9 @@ CATCH
* hsize_t elmt_count is the data element loop counter
*-------------------------------------------------------------------------
*/
-hbool_t
+hbool_t
h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
- FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
+ FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
h5tools_str_t *buffer, hsize_t *curr_pos, size_t ncols, hsize_t region_elmt_counter,
hsize_t elmt_counter) {
HERR_INIT(hbool_t, TRUE)
@@ -1819,7 +1819,7 @@ h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
if((dtype = H5Dget_type(region_id)) < 0)
HGOTO_ERROR(dimension_break, H5E_tools_min_id_g, "H5Dget_type failed");
-
+
if((type_id = H5Tget_native_type(dtype, H5T_DIR_DEFAULT)) < 0)
HGOTO_ERROR(dimension_break, H5E_tools_min_id_g, "H5Tget_native_type failed");
@@ -1896,7 +1896,7 @@ h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
h5tools_str_append(buffer, "%s %s ",
h5tools_dump_header_format->dataend,
h5tools_dump_header_format->datablockend);
- dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
+ dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
ncols, region_elmt_counter, elmt_counter);
/* Render the dataend element end*/
@@ -1906,7 +1906,7 @@ h5tools_dump_region_data_points(hid_t region_space, hid_t region_id,
/* Render the region } element begin */
h5tools_str_reset(buffer);
h5tools_str_append(buffer, "}");
- dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
+ dimension_break = h5tools_render_element(stream, info, ctx, buffer, curr_pos,
ncols, region_elmt_counter, elmt_counter);
/* Render the region } element end */
@@ -1948,7 +1948,7 @@ CATCH
*-------------------------------------------------------------------------
*/
static herr_t
-h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
+h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
hid_t dset, hid_t p_type, struct subset_t *sset,
hid_t f_space, hsize_t hyperslab_count,
hsize_t *temp_start,/* start inside offset count loop */
@@ -1987,7 +1987,7 @@ h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_c
for (; hyperslab_count > 0; temp_start[row_dim] += temp_stride[row_dim], hyperslab_count--) {
/* jump rows if size of block exceeded
cases where block > 1 only and stride > block */
- if (size_row_block > 1
+ if (size_row_block > 1
&& row_counter == size_row_block
&& sset->stride[row_dim] > sset->block[row_dim]) {
@@ -2001,7 +2001,7 @@ h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_c
/* calculate the potential number of elements we're going to print */
if(H5Sselect_hyperslab(f_space, H5S_SELECT_SET, temp_start, temp_stride, temp_count, temp_block) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Sselect_hyperslab failed");
-
+
if((sm_nelmts = H5Sget_select_npoints(f_space)) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Sget_select_npoints failed");
@@ -2012,7 +2012,7 @@ h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_c
*/
if((sm_nbytes = p_type_nbytes = H5Tget_size(p_type)) == 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Tget_size failed");
-
+
if (ctx->ndims > 0)
for (i = ctx->ndims; i > 0; --i) {
hsize_t size = H5TOOLS_BUFSIZE / sm_nbytes;
@@ -2022,35 +2022,35 @@ h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_c
sm_nbytes *= sm_size[i - 1];
assert(sm_nbytes > 0);
}
-
+
assert(sm_nbytes == (hsize_t) ((size_t) sm_nbytes)); /*check for overflow*/
if((sm_buf = HDmalloc((size_t) sm_nelmts * p_type_nbytes)) == NULL)
H5E_THROW(FAIL, H5E_tools_min_id_g, "Could not allocate buffer for strip-mine");
-
+
if((sm_space = H5Screate_simple(1, &sm_nelmts, NULL)) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Screate_simple failed");
-
+
if(H5Sselect_hyperslab(sm_space, H5S_SELECT_SET, &zero, NULL, &sm_nelmts, NULL) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Sselect_hyperslab failed");
-
+
/* read the data */
if(H5Dread(dset, p_type, sm_space, f_space, H5P_DEFAULT, sm_buf) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Dread failed");
-
+
/* print the data */
flags = START_OF_DATA;
-
+
if (hyperslab_count == 1)
flags |= END_OF_DATA;
-
+
for (i = 0; i < ctx->ndims; i++)
ctx->p_max_idx[i] = ctx->p_min_idx[i] + MIN(total_size[i], sm_size[i]);
-
+
/* print array indices. get the lower bound of the hyperslab and calulate
the element position at the start of hyperslab */
if(H5Sget_select_bounds(f_space, low, high) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Sget_select_bounds failed");
-
+
elmtno = 0;
for (i = 0; i < (size_t) ctx->ndims - 1; i++) {
hsize_t offset = 1; /* accumulation of the previous dimensions */
@@ -2059,11 +2059,11 @@ h5tools_print_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_c
elmtno += low[i] * offset;
}
elmtno += low[ctx->ndims - 1];
-
+
/* initialize the current stripmine position; this is necessary to print the array
indices */
ctx->sm_pos = elmtno;
-
+
h5tools_dump_simple_data(stream, info, dset, ctx, flags, sm_nelmts, p_type, sm_buf);
if(H5Sclose(sm_space) < 0)
@@ -2121,7 +2121,7 @@ CATCH
*-------------------------------------------------------------------------
*/
static herr_t
-h5tools_display_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
+h5tools_display_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools_context_t *ctx,
hid_t dset, hid_t p_type, struct subset_t *sset,
hid_t f_space, hsize_t *total_size)
{
@@ -2192,11 +2192,11 @@ h5tools_display_simple_subset(FILE *stream, const h5tool_format_t *info, h5tools
else {
count = 1;
}
-
+
h5tools_print_simple_subset(stream, info, ctx, dset, p_type, sset,
- f_space, count, temp_start, temp_count,
+ f_space, count, temp_start, temp_count,
temp_block, temp_stride, total_size, row_dim);
-
+
if (ctx->ndims > 2) {
/* dimension for start */
current_outer_dim = (ctx->ndims - 2) - 1;
@@ -2337,9 +2337,9 @@ CATCH
* returns FAIL.
*-------------------------------------------------------------------------
*/
-static int
+static int
h5tools_dump_simple_dset(FILE *stream, const h5tool_format_t *info,
- hid_t dset, hid_t p_type, int indentlevel)
+ hid_t dset, hid_t p_type, int indentlevel)
{
hid_t f_space; /* file data space */
hsize_t elmtno; /* counter */
@@ -2612,9 +2612,9 @@ h5tools_dump_simple_mem(FILE *stream, const h5tool_format_t *info, hid_t obj_id,
*
*-------------------------------------------------------------------------
*/
-int
+int
h5tools_dump_dset(FILE *stream, const h5tool_format_t *info, hid_t dset,
- hid_t _p_type, struct subset_t *sset, int indentlevel)
+ hid_t _p_type, struct subset_t *sset, int indentlevel)
{
hid_t f_space;
hid_t p_type = _p_type;
@@ -2728,9 +2728,9 @@ CATCH
*
*-------------------------------------------------------------------------
*/
-int
-h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
- h5tools_context_t *ctx, hid_t type)
+int
+h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
+ h5tools_context_t *ctx, hid_t type)
{
HERR_INIT(int, SUCCEED)
char *mname;
@@ -3082,7 +3082,7 @@ h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
case H5T_COMPOUND:
if((nmembers = H5Tget_nmembers(type)) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Tget_nmembers failed");
-
+
h5tools_str_append(buffer, "H5T_COMPOUND %s\n", h5tools_dump_header_format->structblockbegin);
for (i = 0; i < nmembers; i++) {
@@ -3090,12 +3090,12 @@ h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
if((mtype = H5Tget_member_type(type, i))>=0) {
if (H5Tget_class(mtype) == H5T_COMPOUND)
ctx->indent_level++;
-
+
h5tools_print_datatype(buffer, info, ctx, mtype);
-
+
if (H5Tget_class(mtype) == H5T_COMPOUND)
ctx->indent_level--;
-
+
h5tools_str_append(buffer, " \"%s\";\n", mname);
if(H5Tclose(mtype) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Tclose failed");
@@ -3130,10 +3130,10 @@ h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
h5tools_print_datatype(buffer, info, ctx, super);
if(H5Tclose(super) < 0)
HERROR(H5E_tools_g, H5E_tools_min_id_g, "H5Tclose failed");
-
+
h5tools_str_append(buffer, ";\n");
h5tools_print_enum(buffer, type);
-
+
ctx->indent_level--;
h5tools_str_append(buffer, "%s", h5tools_dump_header_format->enumblockend);
@@ -3162,7 +3162,7 @@ h5tools_print_datatype(h5tools_str_t *buffer, const h5tool_format_t *info,
/* Print array dimensions */
for (i = 0; i < ndims; i++)
h5tools_str_append(buffer, "[%d]", (int) dims[i]);
-
+
h5tools_str_append(buffer, " ");
}
else
@@ -3207,8 +3207,8 @@ CATCH
*
*-------------------------------------------------------------------------
*/
-int
-h5tools_print_dataspace(h5tools_str_t *buffer, hid_t space)
+int
+h5tools_print_dataspace(h5tools_str_t *buffer, hid_t space)
{
HERR_INIT(int, SUCCEED)
hsize_t size[H5TOOLS_DUMP_MAX_RANK];
@@ -3283,8 +3283,8 @@ CATCH
* h5tools_context_t *ctx
*
*-----------------------------------------------------------------------*/
-int
-h5tools_print_enum(h5tools_str_t *buffer, hid_t type)
+int
+h5tools_print_enum(h5tools_str_t *buffer, hid_t type)
{
HERR_INIT(int, SUCCEED)
char **name = NULL; /*member names */
@@ -3294,7 +3294,7 @@ h5tools_print_enum(h5tools_str_t *buffer, hid_t type)
int nchars; /*number of output characters */
hid_t super = -1; /*enum base integer type */
hid_t native = -1; /*native integer datatype */
- H5T_sign_t sign_type; /*sign of value type */
+ H5T_sign_t sign_type; /*sign of value type */
size_t type_size; /*value type size */
size_t dst_size; /*destination value type size */
int snmembs;
@@ -3304,10 +3304,10 @@ h5tools_print_enum(h5tools_str_t *buffer, hid_t type)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Tget_nmembers failed");
nmembs = (unsigned)snmembs;
assert(nmembs > 0);
-
+
if((super = H5Tget_super(type)) < 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Tget_super failed");
-
+
if((type_size = H5Tget_size(type)) <= 0)
H5E_THROW(FAIL, H5E_tools_min_id_g, "H5Tget_size(type) failed");
@@ -3411,13 +3411,13 @@ CATCH
* atomic datatype or committed/transient datatype.
*
* Return: void
- *
+ *
* In/Out: h5tools_context_t *ctx
*-------------------------------------------------------------------------
*/
-void
+void
h5tools_dump_datatype(FILE *stream, const h5tool_format_t *info,
- h5tools_context_t *ctx, hid_t type)
+ h5tools_context_t *ctx, hid_t type)
{
size_t ncols = 80; /* available output width */
h5tools_str_t buffer; /* string into which to render */
@@ -3471,8 +3471,8 @@ h5tools_dump_datatype(FILE *stream, const h5tool_format_t *info,
* Return: void
*-------------------------------------------------------------------------
*/
-void
-init_acc_pos(h5tools_context_t *ctx, hsize_t *dims)
+void
+init_acc_pos(h5tools_context_t *ctx, hsize_t *dims)
{
int i;
@@ -3526,7 +3526,7 @@ CATCH
* Failure: FAIL
*-------------------------------------------------------------------------
*/
-static int
+static int
render_bin_output(FILE *stream, hid_t tid, void *_mem)
{
HERR_INIT(int, SUCCEED)
@@ -3881,8 +3881,8 @@ CATCH
* Return: TRUE if all bytes are zero; FALSE otherwise
*-------------------------------------------------------------------------
*/
-static
-hbool_t h5tools_is_zero(const void *_mem, size_t size)
+static
+hbool_t h5tools_is_zero(const void *_mem, size_t size)
{
const unsigned char *mem = (const unsigned char *) _mem;
diff --git a/tools/lib/h5tools.h b/tools/lib/h5tools.h
index 2b1e4bf..7d207ba 100644
--- a/tools/lib/h5tools.h
+++ b/tools/lib/h5tools.h
@@ -53,9 +53,9 @@
#define H5TOOLS_DUMP_MAX_RANK H5S_MAX_RANK
-/*
- * Strings for output - these were duplicated from the h5dump.h
- * file in order to support region reference data display
+/*
+ * Strings for output - these were duplicated from the h5dump.h
+ * file in order to support region reference data display
*/
#define ATTRIBUTE "ATTRIBUTE"
#define BLOCK "BLOCK"
@@ -105,9 +105,9 @@
#define BEGIN "{"
#define END "}"
-/*
- * dump structure for output - this was duplicated from the h5dump.h
- * file in order to support region reference data display
+/*
+ * dump structure for output - this was duplicated from the h5dump.h
+ * file in order to support region reference data display
*/
typedef struct h5tools_dump_header_t {
const char *name;
@@ -515,7 +515,7 @@ struct subset_t {
hsize_t *block;
};
-/* The following include, h5tools_str.h, must be after the
+/* The following include, h5tools_str.h, must be after the
* above stucts are defined. There is a dependency in the following
* include that hasn't been identified yet. */
@@ -554,11 +554,11 @@ extern int h5tools_canreadf(const char* name,
extern int h5tools_can_encode(H5Z_filter_t filtn);
void init_acc_pos(h5tools_context_t *ctx, hsize_t *dims);
-/*
+/*
* new functions needed to display region reference data
*/
void h5tools_dump_datatype(FILE *stream, const h5tool_format_t *info,
- h5tools_context_t *ctx/*in,out*/, hid_t type);
+ h5tools_context_t *ctx/*in,out*/, hid_t type);
int h5tools_print_dataspace(h5tools_str_t *buffer/*in,out*/, hid_t space);
int h5tools_print_datatype(h5tools_str_t *buffer/*in,out*/,
const h5tool_format_t *info, h5tools_context_t *ctx/*in,out*/,
diff --git a/tools/lib/h5tools_error.h b/tools/lib/h5tools_error.h
index dc5f87b..a7c0d3c 100644
--- a/tools/lib/h5tools_error.h
+++ b/tools/lib/h5tools_error.h
@@ -87,7 +87,7 @@ extern hid_t H5E_tools_min_id_g;
}
/*
- * H5E_THROW macro, used to facilitate error reporting within a function body.
+ * H5E_THROW macro, used to facilitate error reporting within a function body.
* The arguments are the minor error number, and an error string.
* The return value is assigned to a variable `ret_value' and control branches
* to the `catch_except' label, if we're not already past it.
@@ -109,8 +109,8 @@ extern hid_t H5E_tools_min_id_g;
}
/*
- * HGOTO_DONE macro, used to facilitate normal return within a function body.
- * The argument is the return value which is assigned to the `ret_value'
+ * HGOTO_DONE macro, used to facilitate normal return within a function body.
+ * The argument is the return value which is assigned to the `ret_value'
* variable. Control branches to the `done' label.
*/
#define HGOTO_DONE(ret_val) {ret_value = ret_val; goto done;}
diff --git a/tools/lib/h5tools_str.c b/tools/lib/h5tools_str.c
index 3567975..55596cd 100644
--- a/tools/lib/h5tools_str.c
+++ b/tools/lib/h5tools_str.c
@@ -350,8 +350,8 @@ h5tools_str_prefix(h5tools_str_t *str/*in,out*/, const h5tool_format_t *info,
*
* Return: Success: Pointer to the prefix.
* Failure: NULL
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* h5tools_str_t *str
*-------------------------------------------------------------------------
@@ -359,7 +359,7 @@ h5tools_str_prefix(h5tools_str_t *str/*in,out*/, const h5tool_format_t *info,
char *
h5tools_str_region_prefix(h5tools_str_t *str, const h5tool_format_t *info,
hsize_t elmtno, hsize_t *ptdata, unsigned ndims, hsize_t min_idx[], hsize_t max_idx[],
- h5tools_context_t *ctx)
+ h5tools_context_t *ctx)
{
hsize_t p_prod[H5S_MAX_RANK];
size_t i = 0;
@@ -406,15 +406,15 @@ h5tools_str_region_prefix(h5tools_str_t *str, const h5tool_format_t *info,
* the information to the specified string.
*
* Return: none
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* h5tools_str_t *str
*-------------------------------------------------------------------------
*/
-void
+void
h5tools_str_dump_region_blocks(h5tools_str_t *str, hid_t region,
- const h5tool_format_t *info, h5tools_context_t *ctx)
+ const h5tool_format_t *info, h5tools_context_t *ctx)
{
hssize_t nblocks;
hsize_t alloc_size;
@@ -422,7 +422,7 @@ h5tools_str_dump_region_blocks(h5tools_str_t *str, hid_t region,
int ndims = H5Sget_simple_extent_ndims(region);
/*
- * This function fails if the region does not have blocks.
+ * This function fails if the region does not have blocks.
*/
H5E_BEGIN_TRY {
nblocks = H5Sget_select_hyper_nblocks(region);
@@ -467,15 +467,15 @@ h5tools_str_dump_region_blocks(h5tools_str_t *str, hid_t region,
* the information to the specified string.
*
* Return: none
- *
- * In/Out:
+ *
+ * In/Out:
* h5tools_context_t *ctx
* h5tools_str_t *str
*-------------------------------------------------------------------------
*/
-void
+void
h5tools_str_dump_region_points(h5tools_str_t *str, hid_t region,
- const h5tool_format_t *info, h5tools_context_t *ctx)
+ const h5tool_format_t *info, h5tools_context_t *ctx)
{
hssize_t npoints;
hsize_t alloc_size;
@@ -699,7 +699,7 @@ h5tools_str_sprint(h5tools_str_t *str, const h5tool_format_t *info, hid_t contai
h5tools_str_append(str, "%Lf", templdouble);
#endif
}
- else if (info->ascii && (H5Tequal(type, H5T_NATIVE_SCHAR) ||
+ else if (info->ascii && (H5Tequal(type, H5T_NATIVE_SCHAR) ||
H5Tequal(type, H5T_NATIVE_UCHAR))) {
h5tools_print_char(str, info, (char) (*ucp_vp));
}
@@ -788,13 +788,13 @@ h5tools_str_sprint(h5tools_str_t *str, const h5tool_format_t *info, hid_t contai
else if (H5Tequal(type, H5T_NATIVE_UINT)) {
HDmemcpy(&tempuint, vp, sizeof(unsigned int));
h5tools_str_append(str, OPT(info->fmt_uint, "%u"), tempuint);
- }
+ }
else if (H5Tequal(type, H5T_NATIVE_SCHAR)) {
h5tools_str_append(str, OPT(info->fmt_schar, "%d"), *cp_vp);
- }
+ }
else if (H5Tequal(type, H5T_NATIVE_UCHAR)) {
h5tools_str_append(str, OPT(info->fmt_uchar, "%u"), *ucp_vp);
- }
+ }
else if (H5Tequal(type, H5T_NATIVE_SHORT)) {
short tempshort;
@@ -1110,9 +1110,9 @@ h5tools_str_sprint(h5tools_str_t *str, const h5tool_format_t *info, hid_t contai
* Return: Nothing
*-------------------------------------------------------------------------
*/
-void
+void
h5tools_str_sprint_region(h5tools_str_t *str, const h5tool_format_t *info,
- hid_t container, void *vp, h5tools_context_t *ctx)
+ hid_t container, void *vp, h5tools_context_t *ctx)
{
hid_t obj, region;
char ref_name[1024];
diff --git a/tools/lib/h5tools_str.h b/tools/lib/h5tools_str.h
index 61b7905..98dd065 100644
--- a/tools/lib/h5tools_str.h
+++ b/tools/lib/h5tools_str.h
@@ -35,7 +35,7 @@ extern char *h5tools_str_fmt(h5tools_str_t *str, size_t start, const char *fm
extern char *h5tools_str_prefix(h5tools_str_t *str, const h5tool_format_t *info,
hsize_t elmtno, unsigned ndims, hsize_t min_idx[],
hsize_t max_idx[], h5tools_context_t *ctx);
-/*
+/*
* new functions needed to display region reference data
*/
extern char *h5tools_str_region_prefix(h5tools_str_t *str, const h5tool_format_t *info,
diff --git a/tools/lib/h5tools_utils.c b/tools/lib/h5tools_utils.c
index 46b425b..82e9ab9 100644
--- a/tools/lib/h5tools_utils.c
+++ b/tools/lib/h5tools_utils.c
@@ -232,8 +232,8 @@ get_option(int argc, const char **argv, const char *opts, const struct long_opti
}
sp = 1;
- }
-
+ }
+
/* wildcard argument */
else if (*cp == '*')
{
@@ -249,16 +249,16 @@ get_option(int argc, const char **argv, const char *opts, const struct long_opti
opt_arg = NULL;
}
}
-
- else
+
+ else
{
/* set up to look at next char in token, next time */
if (argv[opt_ind][++sp] == '\0') {
/* no more in current token, so setup next token */
opt_ind++;
sp = 1;
-
-
+
+
}
opt_arg = NULL;
diff --git a/tools/lib/h5trav.c b/tools/lib/h5trav.c
index 69b4512..287af29 100644
--- a/tools/lib/h5trav.c
+++ b/tools/lib/h5trav.c
@@ -150,7 +150,7 @@ traverse_cb(hid_t loc_id, const char *path, const H5L_info_t *linfo,
if(udata->is_absolute) {
size_t base_len = HDstrlen(udata->base_grp_name);
size_t add_slash = base_len ? ((udata->base_grp_name)[base_len-1] != '/') : 1;
-
+
if(NULL == (new_name = HDmalloc(base_len + add_slash + HDstrlen(path) + 1)))
return(H5_ITER_ERROR);
HDstrcpy(new_name, udata->base_grp_name);
diff --git a/windows/src/H5pubconf.h b/windows/src/H5pubconf.h
index a8295dc..9132b4b 100755
--- a/windows/src/H5pubconf.h
+++ b/windows/src/H5pubconf.h
@@ -19,7 +19,7 @@
/*
* End of Windows Specific Definitions
*/
-
+
/* Define if your system generates wrong code for log2 routine. */
/* #undef H5_BAD_LOG2_CODE_GENERATED */