tcl.git - Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.

Tcl is a high-level, general-purpose, interpreted, dynamic programming language. It was designed with the goal of being very simple but powerful.

summary refs log tree commit diff stats

path: root/doc/cd.n

	Commit message (Expand)	Author	Age	Files	Lines
*	Documentation clarification from David Welton.	dkf	2004-04-22	1	-1/+4

*	New or changed "SEE ALSO" section.	poenitz	2000-09-07	1	-1/+4

*	Replaced SCCS strings, fixed binary filescore_8_0_3	stanton	1998-09-14	1	-1/+1

*	Initial revision	rjohnson	1998-03-26	1	-0/+28

ed 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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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

- ! 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. *

@@ -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. *

@@ -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

! 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. *

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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

- ! 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. *

@@ -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. *

@@ -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

@@ -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. *

@@ -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. *

@@ -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. *

@@ -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

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

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

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. *

@@ -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. *

@@ -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