diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-12-10 22:30:38 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-12-10 22:30:38 (GMT) |
commit | 17fd0e9ce4e56ad786ccf04907fcddabddab936a (patch) | |
tree | d0e3e388788b47fa862878e48077dbf32cfe69c8 /fortran/examples/groupexample.f90 | |
parent | f89d08019182504f3b6170ef42fa2dcd6a91bfa9 (diff) | |
download | hdf5-17fd0e9ce4e56ad786ccf04907fcddabddab936a.zip hdf5-17fd0e9ce4e56ad786ccf04907fcddabddab936a.tar.gz hdf5-17fd0e9ce4e56ad786ccf04907fcddabddab936a.tar.bz2 |
[svn-r23088] Changed Fortran examples to reflect changes in documentation via Barbara;
mainly program name changes. Two new examples added: h5_extend.f90 h5_subset.f90 and
example fileexample.f90 was removed.
Tested: jam (gnu compilers)
Diffstat (limited to 'fortran/examples/groupexample.f90')
-rw-r--r-- | fortran/examples/groupexample.f90 | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/fortran/examples/groupexample.f90 b/fortran/examples/groupexample.f90 deleted file mode 100644 index 91ebc50..0000000 --- a/fortran/examples/groupexample.f90 +++ /dev/null @@ -1,64 +0,0 @@ -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -! Copyright by The HDF Group. * -! Copyright by the Board of Trustees of the University of Illinois. * -! All rights reserved. * -! * -! This file is part of HDF5. The full HDF5 copyright notice, including * -! terms governing use, modification, and redistribution, is contained in * -! the files COPYING and Copyright.html. COPYING can be found at the root * -! of the source code distribution tree; Copyright.html can be found at the * -! root level of an installed copy of the electronic HDF5 document set and * -! is linked from the top-level documents page. It can also be found at * -! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have * -! access to either file, you may request a copy from help@hdfgroup.org. * -! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * -! -! -! 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 |