runif_sm function

Sample from the uniform distribution on the Stiefel manifold.