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