Lines Matching refs:incx
16 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx,
143 /* ( 1 + ( n - 1 )*abs( INCX ) ). */
148 /* INCX - INTEGER. */
149 /* On entry, INCX specifies the increment for the elements of */
150 /* X. INCX must not be zero. */
203 } else if (*incx == 0) {
220 /* will be ( N - 1 )*INCX too small for descending loops. */
222 if (*incx <= 0) {
223 kx = 1 - (*n - 1) * *incx;
224 } else if (*incx != 1) {
237 if (*incx == 1) {
269 ix += *incx;
276 jx += *incx;
278 kx += *incx;
284 if (*incx == 1) {
303 kx += (*n - 1) * *incx;
315 ix -= *incx;
322 jx -= *incx;
324 kx -= *incx;
336 if (*incx == 1) {
354 kx += (*n - 1) * *incx;
358 kx -= *incx;
369 ix -= *incx;
373 jx -= *incx;
378 if (*incx == 1) {
401 kx += *incx;
412 ix += *incx;
416 jx += *incx;
