2022-02-17 10:51:56 +01:00
|
|
|
program essai
|
|
|
|
|
|
|
|
|
|
use mathstuff
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
integer :: foo
|
|
|
|
|
real :: quux
|
2022-02-17 14:10:15 +01:00
|
|
|
double precision :: somme
|
2022-02-17 10:51:56 +01:00
|
|
|
|
|
|
|
|
call init_random_seed()
|
2022-02-17 14:10:15 +01:00
|
|
|
somme = 0.0
|
2022-02-17 10:51:56 +01:00
|
|
|
|
|
|
|
|
do foo=1, 200000
|
|
|
|
|
quux = rand()
|
2022-02-17 14:10:15 +01:00
|
|
|
somme = somme + quux
|
|
|
|
|
print *, foo, quux, somme/foo
|
2022-02-17 10:51:56 +01:00
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
end program
|
