95 if (TAU == (
float)0.0)
104 for (j = 0; j < N ; j++, C1+=LDC1 ) {
105 SUM = *C1 + V2 * (*C2);
114 for (j = 0; j < N ; j++, C1++){
115 SUM = *C1 + V2 * (*C2);
195 if (TAU == (
float)0.0)
215 SUM = *C1 + (
V) * (*C2);
216 *C1 = *C1 - SUM * (
TAU);
217 *C2 = *C2 - SUM *
T2;
220 SUM = TEMP + (
V) * (*C3);
221 TEMP = TEMP - SUM * (
TAU);
222 *C3 = *C3 - SUM *
T2;
244 SUM = *C1 + V * (*C2);
245 *C1 = *C1 - SUM * (
TAU);
246 *C2 = *C2 - SUM *
T2;
248 SUM = TEMP + V * (*C3);
249 TEMP = TEMP - SUM * (
TAU);
250 *C3 = *C3 - SUM *
T2;
254 SUM = *C1 + (
V) * TEMP;
255 *C1 = *C1 - SUM *
TAU;
258 SUM = *C2 + (
V) * (*C3);
259 *C2 = *C2 - SUM *
TAU;
260 *C3 = *C3 - SUM *
T2;
342 float T2, SUM, TEMP, VIN, TAUIN;
345 if (*TAU == (
float)0.0)
366 SUM = *C1 + VIN*(*C2);
367 *C1 = *C1 - SUM*TAUIN;
371 TEMP = - SUM * TAUIN;
372 *C3 = *C3 - SUM *
T2;
375 LAPACKE_slarfg_work( 2, C1, V, 1, TAU);
381 SUM = *C2 + VIN*(*C3);
382 *C2 = *C2 - SUM*TAUIN;
399 SUM = *C1 + VIN*(*C2);
400 *C1 = *C1 - SUM*TAUIN;
404 TEMP = - SUM * TAUIN;
405 *C3 = *C3 - SUM *
T2;
408 LAPACKE_slarfg_work( 2, C1, V, 1, TAU);
416 SUM = *C2 + VIN*(*C3);
417 *C2 = *C2 - SUM*TAUIN;