28 lines
563 B
Fortran
28 lines
563 B
Fortran
|
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
|
||
|
|
|