h5hut_obj_Init Subroutine

    impure subroutine h5hut_obj_Init(this,filename,access_flag,parallel)
      !> Initializes structure.
      implicit none
      class(h5hut_obj),  intent(inout) :: this                                 !! A H5hut object
      character(len=*),   intent(in)    :: filename                            !! File to read/write
      character(len=*),   intent(in)    :: access_flag                         !! File access mode
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with

      ! Point to the master objects
      this%parallel => parallel

      ! Set the file name
      this%filename=filename

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

      ! Open file
      call this%hdf5%Open(this%filename,access_flag)

      return
    end subroutine h5hut_obj_Init