/* This software was developed by Bruce Hendrickson and Robert Leland   *
 * at Sandia National Laboratories under US Department of Energy        *
 * contract DE-AC04-76DP00789 and is copyrighted by Sandia Corporation. */

/* Fill double vector with random numbers over a range. */
void      vecran(vec, beg, end)
double   *vec;
int       beg, end;
{
    int       i;
    double   *pntr;
    double    normalize();
    double    drandom();

    pntr = vec + beg;
    for (i = end - beg + 1; i; i--) {
	(*pntr++) = drandom();
    }
    normalize(vec, beg, end);
}

/* Fill float vector with random numbers over a range. */
void      vecran_float(vec, beg, end)
float    *vec;
int       beg, end;
{
    int       i;
    float    *pntr;
    double    normalize_float();
    double    drandom();

    pntr = vec + beg;
    for (i = end - beg + 1; i; i--) {
	(*pntr++) = drandom();
    }
    normalize_float(vec, beg, end);
}