PROGRAM FILESETSIZE

     USE HDF5 ! This module contains all necessary modules 
        
     IMPLICIT NONE

     CHARACTER(LEN=9), PARAMETER :: filename = "filesf.h5" ! File name
     INTEGER(HID_T) :: file_id                              ! File identifier
     INTEGER(HID_T) :: fcpl
 
     INTEGER     ::   error  ! Error flag
     
!    Initialize FORTRAN interface.
!
     CALL h5open_f (error)

     CALL h5pcreate_f (H5P_FILE_CREATE_F, fcpl, error)
     CALL h5pset_sizes_f (fcpl, 8, 8, error)

     ! Create a new file using default properties.
     !
     CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error, fcpl)

     ! Terminate access to the file.
     !
     CALL h5pclose_f (fcpl, error)

     CALL h5fclose_f(file_id, error)

!    Close FORTRAN interface.
!
     CALL h5close_f(error)

     END PROGRAM FILESETSIZE