Group: comp.lang.fortran · Group Profile · Search for 1000000s in comp.lang.fortran
Author: Ron Ford
Date: Sep 18, 2008 16:02
... :: i13 = selected_int_kind(13) integer(i13), parameter:: i_max = 32767 integer(i13), parameter:: i_tot = i_max*2 +1 integer(i13), parameter:: sides = i_tot integer(i13), parameter:: trials = 1000000 integer(i13) k(-i_max:i_max) integer(i13):: a, b, i, g, inbounds, outbounds real:: harvest, ratio, percent ! seed random num generator CALL init_random_seed ! prime the ...
|