2022-05-23 21:23:21 +11:00
|
|
|
program essai
|
|
|
|
|
|
2022-10-29 06:53:57 +11:00
|
|
|
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
|
2022-05-23 21:23:21 +11:00
|
|
|
|
|
|
|
|
end program
|
