Lines Matching refs:INCX
21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
24 * INTEGER INCX, N
77 *> (1+(N-2)*abs(INCX))
82 *> \param[in] INCX
84 *> INCX is INTEGER
85 *> The increment between elements of X. INCX > 0.
107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
115 INTEGER INCX, N
149 XNORM = SNRM2( N-1, X, INCX )
170 CALL SSCAL( N-1, RSAFMN, X, INCX )
178 XNORM = SNRM2( N-1, X, INCX )
182 CALL SSCAL( N-1, ONE / ( ALPHA-BETA ), X, INCX )
