solid_set_ReadHDF5 Subroutine

    impure subroutine solid_set_ReadHDF5(this,iter,time)
      use leapUtils, only: stringtool_obj
      !> Reads all solids from disk using HDF5.
      implicit none
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      integer,          intent(out)   :: iter                                  !! Iteration at write
      real(wp),         intent(out)   :: time                                  !! Time at write
      ! Work variables
      integer :: n
      type(stringtool_obj) :: stringtool
      character(len=:),       &
            allocatable    :: filename
      type(hdf5_obj)       :: hdf5

      do n=1,this%count
        call this%p(n)%ReadHDF5(iter,time)

        ! Initialize HDF5
        call hdf5%Initialize(this%parallel)

        filename = 'HDF5/'//stringtool%RemoveExtension(this%p(n)%read_file)

        ! Open file
        call hdf5%Open(filename,'R')

        ! Read attributes
        call hdf5%ReadAttributes("/","Motion",this%p(n)%motion)
        call hdf5%ReadAttributes("/","X_c",   this%p(n)%xc    )
        call hdf5%ReadAttributes("/","V_c",   this%p(n)%vc    )
        call hdf5%ReadAttributes("/","A_c",   this%p(n)%ac    )
        call hdf5%ReadAttributes("/","Freq",  this%p(n)%fr    )
        call hdf5%Close()

        call hdf5%Finalize()
      end do

      return
    end subroutine solid_set_ReadHDF5