40 lines
825 B
Fortran
40 lines
825 B
Fortran
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
|