subroutine WriteArray_HDF5_int32_r2_serial(fileId,arrayName,hfArray)
implicit none
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: arrayName
integer(int32),dimension(:,:),intent(in) :: hfArray
! Local
integer(HID_T) :: dsetId
integer(HID_T) :: memspace
integer(HSIZE_T) :: dims(1:2)
integer :: error
dims = shape(hfArray)
call h5screate_simple_f(2,dims,memspace,error)
call h5dcreate_f(fileId,trim(arrayName),H5T_STD_I32LE,memspace, &
dsetId,error)
call h5dwrite_f(dsetId,H5T_STD_I32LE, &
hfArray,dims,error)
call h5dclose_f(dSetId,error)
call h5sclose_f(memspace,error)
endsubroutine WriteArray_HDF5_int32_r2_serial