Fortraneries/BloubWorld/essai.f90

program essai

  use bloubspace
  use mathstuff
  implicit none

  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()           ! in module 'mathstuff'
  somme = 0.0
  do foo=1, nbre
    quux = rand()
    somme = somme + quux
    bar = mod(irand(), 7)
    print *, foo, quux, somme/foo, bar
  enddo
end subroutine test_random
! --------------------------------------------------------------

end program