[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.]
This commit is contained in:
34
doc/html/Tutor/examples/fileexample.f90
Normal file
34
doc/html/Tutor/examples/fileexample.f90
Normal file
@@ -0,0 +1,34 @@
|
||||
!
|
||||
! The following example demonstrates how to create and close an HDF5 file.
|
||||
! It creates a file called 'file.h5', and then closes the file.
|
||||
!
|
||||
|
||||
PROGRAM FILEEXAMPLE
|
||||
|
||||
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)
|
||||
|
||||
!
|
||||
! Terminate access to the file.
|
||||
!
|
||||
CALL h5fclose_f(file_id, error)
|
||||
!
|
||||
! Close FORTRAN interface.
|
||||
!
|
||||
CALL h5close_f(error)
|
||||
END PROGRAM FILEEXAMPLE
|
||||
Reference in New Issue
Block a user