adding a lot of grabage

BloubWorld/essai.f90

@@ -1,19 +1,39 @@
 program essai
 
+  use bloubspace
   use mathstuff
   implicit none
 
-  integer                     :: foo
+  type(t_boundingbox)    :: bbox
+
+  call load_boundingbox("WS/boundinboxes.dat", bbox, "cube    ")
+
+  print *, bbox
+
+
+  ! call test_random(20)
+
+
+  STOP ': BECAUSE JOB IS DONE'
+
+! --------------------------------------------------------------
+         contains
+
+subroutine test_random(nbre)
+  integer, intent(in)         :: nbre
+  integer                     :: foo, bar
   real                        :: quux
   double precision            :: somme
 
-  call init_random_seed()
+  call init_random_seed()           ! in module 'mathstuff'
   somme = 0.0
-
-  do foo=1, 5
+  do foo=1, nbre
     quux = rand()
     somme = somme + quux
-    print *, foo, quux, somme/foo
+    bar = mod(irand(), 7)
+    print *, foo, quux, somme/foo, bar
   enddo
+end subroutine test_random
+! --------------------------------------------------------------
 
-end program
+end program