Function sscal

src/tests/correctness/blas-lapack.c:601–604

}

void sscal( int n, float alpha, float *x, int incx)
{
    sscal_(&n, &alpha, x, &incx);
}

void dscal( int n, double alpha, double *x, int incx)
{