rsphere function

Generation of deviates uniformly located on a spherical surface