int randsafe(double *ranp);