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