Return a sample from a uniform distribution in the range \(x\in[-1,1]\).
function randomUniform() result(o)
!! Return a sample from a uniform distribution
!! in the range \(x\in[-1,1]\).
real(wp)::o
call random_number(o)
o = o*2.0_wp-1.0_wp
end function randomUniform