h5hut_obj_Read3D Subroutine

private impure subroutine h5hut_obj_Read3D(this, name, array, lo, hi)

Reads Eulerian/3D data from a h5hut file.

Type Bound

h5hut_obj

Arguments

Type IntentOptional Attributes Name
class(h5hut_obj), intent(inout) :: this

A H5hut object

character(len=*), intent(in) :: name

Variable name

class(*), intent(out) :: array(:,:,:)

3-D data array

integer, intent(in) :: lo(3)

Low bounds

integer, intent(in) :: hi(3)

High bounds


Source Code

    impure subroutine h5hut_obj_Read3D(this,name,array,lo,hi)
      !> Reads Eulerian/3D data from a h5hut file.
      implicit none
      class(h5hut_obj), intent(inout) :: this                                  !! A H5hut object
      class(*),         intent(out):: array(:,:,:)                             !! 3-D data array
      character(len=*), intent(in) :: name                                     !! Variable name
      integer,          intent(in) :: lo(3)                                    !! Low bounds
      integer,          intent(in) :: hi(3)                                    !! High bounds
      ! Work variables
      character(len=:), allocatable :: gname

      gname = trim(adjustl(this%step_name))//'Block/'//trim(adjustl(name))

      call this%hdf5%Read(gname,'0', array, lo,hi)

      return
    end subroutine h5hut_obj_Read3D