first bloubspace run done

This commit is contained in:
tth
2022-02-06 23:45:08 +01:00
parent 91f7a07990
commit c0c031f21a
12 changed files with 432 additions and 0 deletions

27
BloubWorld/povstuff.f90 Normal file
View File

@@ -0,0 +1,27 @@
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