19 lines
320 B
Fortran
19 lines
320 B
Fortran
program essai
|
|
|
|
use mathstuff
|
|
implicit none
|
|
|
|
integer :: foo
|
|
real :: quux
|
|
double precision :: somme
|
|
|
|
call init_random_seed()
|
|
somme = 0.0
|
|
|
|
do foo=1, 200000
|
|
quux = rand()
|
|
somme = somme + quux
|
|
print *, foo, quux, somme/foo
|
|
enddo
|
|
|
|
end program |