This is intended to simulate the distribution of cosmic ray coming throw atmosphere
compile: make
run: ./raggi 8 Files 1
note: you need openMP to run in multi proccessors machines.
This generates many rays randomly through all directions, then the function:
real function Prob(esse)
real:: esse
real, parameter:: a = 1.2 !Factor to try
Prob = 1 - e**(-a*esse)
end function
simulates the decadence caused by atmosphere.
For further details see LICENSE.