subroutine ReadArray_HDF5_real_r4_serial(fileId,arrayName,hfArray)
implicit none
integer(HID_T),intent(in) :: fileId
character(*),intent(in) :: arrayName
real(prec),dimension(:,:,:,:),intent(inout) :: hfArray
! Local
integer(HID_T) :: dsetId
integer(HID_T) :: dims(1:4)
integer :: error
dims = shape(hfArray)
call h5dopen_f(fileId,arrayName,dsetId,error)
call h5dread_f(dsetId,h5kind_to_type(prec,H5_REAL_KIND),hfArray,dims,error)
call h5dclose_f(dsetId,error)
endsubroutine ReadArray_HDF5_real_r4_serial