program main

USE HDF5 ! This module contains all necessary modules for HDF5

IMPLICIT NONE

integer :: error
integer(HID_T) :: file_id       ! File identifier

integer(HSIZE_T), dimension(1) :: idims_atr=1     ! Atribute dimensions
integer(HSIZE_T) :: idims(2)        ! Dataset dimensions

integer(HID_T) :: dset_id     ! Dataset identifier
integer(HID_T) :: gr_id       ! Grup identifier
integer(HID_T) :: atr_id      ! Atribute identifier
integer(HID_T) :: space_id      ! Atribute identifier
integer(HID_T) :: type_id      ! Atribute identifier

integer(HSIZE_T), dimension(1) :: adims = (/1/)       ! Dataset dimensions
integer, parameter :: rank=2
integer(SIZE_T) :: hdfsize

integer(kind=4), dimension(3,2) :: kvar2

data kvar2 /130, 340, 2, 260, 370, 129/

idims(1)=3
idims(2)=2

     !
     ! Initialize FORTRAN interface.
     !
     CALL h5open_f(error) 

     !
     ! Create a HDF5 file
     !
     call h5fcreate_f("test.h5", H5F_ACC_TRUNC_F , file_id, error)

     !
     ! Create a new group
     !
     call h5gopen_f(file_id, "/", gr_id, error)

     !
     ! Create a DataSpace for DataSet
     !
     CALL h5screate_simple_f(rank,idims, space_id, error)

     !
     ! Create datatype for the DataSet
     !
     CALL h5tcopy_f(H5T_NATIVE_INTEGER, type_id, error)

     hdfsize=2
     call h5tset_size_f(type_id, hdfsize, error)


     !
     ! Create the dataset.
     !
     call h5dcreate_f(file_id,"/"//"data_set_name", type_id, space_id, dset_id, error)

     !
     ! Write the dataset.
     !
!     CALL h5dwrite_f(dset_id, type_id, kvar2, idims, error)
     CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, kvar2, idims, error)

     !
     ! Close the dataset.
     !
     CALL h5dclose_f(dset_id, error)

     !
     ! Close the group
     !
     CALL h5gclose_f(gr_id, error)
     
     !
     ! Close the file.
     !
     CALL h5fclose_f(file_id, error)
     
     !
     ! Close FORTRAN interface.
     !
     CALL h5close_f(error)

end