ReadArray_HDF5_real_r5_serial Subroutine

  subroutine ReadArray_HDF5_real_r5_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:5)
    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_r5_serial