first bloubspace run done

BloubWorld/povstuff.f90

@@ -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
+