module povstuff

  implicit none

  ! ----------------------------------------------------------------
  type t_boundb

    real    :: BBminX, BBmaxX, BBminY, BBmaxY, BBminZ, BBmaxZ
    integer :: id

  end type

  contains               ! -----------------------------------------

  subroutine show_bbox( bbox )

    type (t_boundb), intent(in)     :: bbox

    print *, bbox%bbminx, bbox%bbminy, bbox%bbminz
    print *, bbox%bbmaxx, bbox%bbmaxy, bbox%bbmaxz

  end subroutine

  ! ----------------------------------------------------------------

end module