diff options
author | Barbara Jones <bljones@hdfgroup.org> | 2001-03-08 16:30:19 (GMT) |
---|---|---|
committer | Barbara Jones <bljones@hdfgroup.org> | 2001-03-08 16:30:19 (GMT) |
commit | 33466ac3cf6c8583893a833ba0247dd5c0d9584a (patch) | |
tree | 48cbe88f04dd149906de59d14425575b3f5e8572 /doc/html/Tutor/examples/groupexample.f90 | |
parent | ca757b033ff2aa41e513b93040e158de2efcfc9c (diff) | |
download | hdf5-33466ac3cf6c8583893a833ba0247dd5c0d9584a.zip hdf5-33466ac3cf6c8583893a833ba0247dd5c0d9584a.tar.gz hdf5-33466ac3cf6c8583893a833ba0247dd5c0d9584a.tar.bz2 |
[svn-r3560] tutorial
Purpose:
[is this a bug fix? feature? ...]
Description:
[describe the bug, or describe the new feature, etc]
Solution:
[details about the changes, algorithm, etc...]
[Please as detail as you can since your own explanation is
better than others guessing it from the code.]
Platforms tested:
[machines you have tested the changed version. This is absolute
important. Test it out on at least two or three different platforms
such as Big-endian-32bit (SUN/IRIX), little-endian-32(LINUX) and
64-bit (IRIX64/UNICOS/DEC-ALPHA) would be good.]
Diffstat (limited to 'doc/html/Tutor/examples/groupexample.f90')
-rw-r--r-- | doc/html/Tutor/examples/groupexample.f90 | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/doc/html/Tutor/examples/groupexample.f90 b/doc/html/Tutor/examples/groupexample.f90 new file mode 100644 index 0000000..d98d7cd --- /dev/null +++ b/doc/html/Tutor/examples/groupexample.f90 @@ -0,0 +1,49 @@ +! +! 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 + + 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 :: 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) + + ! + ! Create a group named "/MyGroup" in the file. + ! + CALL h5gcreate_f(file_id, groupname, group_id, error) + + ! + ! Close the group. + ! + CALL h5gclose_f(group_id, error) + + ! + ! Terminate access to the file. + ! + CALL h5fclose_f(file_id, error) +! +! Close FORTRAN interface. +! + CALL h5close_f(error) + + END PROGRAM GROUPEXAMPLE |