22 lines
460 B
Fortran
22 lines
460 B
Fortran
|
program essai
|
||
|
|
|
||
|
|
use mathstuff2
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer :: foo, bar
|
||
|
|
real :: quux
|
||
|
|
double precision :: somme
|
||
|
|
|
||
|
|
write(0, *) "----------------- essai -------------------"
|
||
|
|
|
||
|
|
call init_random_seed() ! in module 'mathstuff'
|
||
|
|
somme = 0.0
|
||
|
|
do foo=1, 500
|
||
|
|
quux = rand() + rand()
|
||
|
|
somme = somme + quux
|
||
|
|
bar = mod(irand(), 7)
|
||
|
|
print *, foo, quux, somme/foo, bar
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end program
|