sscal.c

来自「InsightToolkit-1.4.0(有大量的优化算法程序)」· C语言 代码 · 共 40 行

#include "f2c.h"
#include "netlib.h"

/* Subroutine */ void sscal_(n, sa, sx, incx)
const integer *n;
const real *sa;
real *sx;
const integer *incx;
{
    /* Local variables */
    static integer i, m, nincx;

/*     scales a vector by a constant.                                   */
/*     uses unrolled loops for increment equal to 1.                    */
/*     jack dongarra, linpack, 3/11/78.                                 */
/*     modified 3/93 to return if incx .le. 0.                          */
/*     modified 12/3/93, array(1) declarations changed to array(*)      */

    if (*n <= 0 || *incx <= 0) {
        return;
    }
/*        code for increment equal to 1 */
    if (*incx == 1) {
        m = *n % 5;
        for (i = 0; i < m; ++i) {
            sx[i] *= *sa;
        }
        for (i = m; i < *n; i += 5) {
            sx[i] *= *sa; sx[i+1] *= *sa; sx[i+2] *= *sa; sx[i+3] *= *sa; sx[i+4] *= *sa;
        }
    }
/*        code for increment not equal to 1 */
    else {
        nincx = *n * *incx;
        for (i = 0; i < nincx; i += *incx) {
            sx[i] *= *sa;
        }
    }
} /* sscal_ */