Lines Matching refs:r
208 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && in zhbmv_()
231 if (beta->r != 1. || beta->i != 0.) { in zhbmv_()
233 if (beta->r == 0. && beta->i == 0.) { in zhbmv_()
237 y[i__2].r = 0., y[i__2].i = 0.; in zhbmv_()
245 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhbmv_()
246 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhbmv_()
247 .r; in zhbmv_()
248 y[i__2].r = z__1.r, y[i__2].i = z__1.i; in zhbmv_()
254 if (beta->r == 0. && beta->i == 0.) { in zhbmv_()
258 y[i__2].r = 0., y[i__2].i = 0.; in zhbmv_()
267 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhbmv_()
268 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhbmv_()
269 .r; in zhbmv_()
270 y[i__2].r = z__1.r, y[i__2].i = z__1.i; in zhbmv_()
277 if (alpha->r == 0. && alpha->i == 0.) { in zhbmv_()
289 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i = in zhbmv_()
290 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in zhbmv_()
291 temp1.r = z__1.r, temp1.i = z__1.i; in zhbmv_()
292 temp2.r = 0., temp2.i = 0.; in zhbmv_()
301 z__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in zhbmv_()
302 z__2.i = temp1.r * a[i__5].i + temp1.i * a[i__5] in zhbmv_()
303 .r; in zhbmv_()
304 z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i; in zhbmv_()
305 y[i__2].r = z__1.r, y[i__2].i = z__1.i; in zhbmv_()
308 z__2.r = z__3.r * x[i__2].r - z__3.i * x[i__2].i, z__2.i = in zhbmv_()
309 z__3.r * x[i__2].i + z__3.i * x[i__2].r; in zhbmv_()
310 z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i; in zhbmv_()
311 temp2.r = z__1.r, temp2.i = z__1.i; in zhbmv_()
317 d__1 = a[i__3].r; in zhbmv_()
318 z__3.r = d__1 * temp1.r, z__3.i = d__1 * temp1.i; in zhbmv_()
319 z__2.r = y[i__2].r + z__3.r, z__2.i = y[i__2].i + z__3.i; in zhbmv_()
320 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i = in zhbmv_()
321 alpha->r * temp2.i + alpha->i * temp2.r; in zhbmv_()
322 z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i; in zhbmv_()
323 y[i__4].r = z__1.r, y[i__4].i = z__1.i; in zhbmv_()
332 z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, z__1.i = in zhbmv_()
333 alpha->r * x[i__4].i + alpha->i * x[i__4].r; in zhbmv_()
334 temp1.r = z__1.r, temp1.i = z__1.i; in zhbmv_()
335 temp2.r = 0., temp2.i = 0.; in zhbmv_()
346 z__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in zhbmv_()
347 z__2.i = temp1.r * a[i__5].i + temp1.i * a[i__5] in zhbmv_()
348 .r; in zhbmv_()
349 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i; in zhbmv_()
350 y[i__4].r = z__1.r, y[i__4].i = z__1.i; in zhbmv_()
353 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i = in zhbmv_()
354 z__3.r * x[i__4].i + z__3.i * x[i__4].r; in zhbmv_()
355 z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i; in zhbmv_()
356 temp2.r = z__1.r, temp2.i = z__1.i; in zhbmv_()
364 d__1 = a[i__2].r; in zhbmv_()
365 z__3.r = d__1 * temp1.r, z__3.i = d__1 * temp1.i; in zhbmv_()
366 z__2.r = y[i__4].r + z__3.r, z__2.i = y[i__4].i + z__3.i; in zhbmv_()
367 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i = in zhbmv_()
368 alpha->r * temp2.i + alpha->i * temp2.r; in zhbmv_()
369 z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i; in zhbmv_()
370 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhbmv_()
388 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i = in zhbmv_()
389 alpha->r * x[i__3].i + alpha->i * x[i__3].r; in zhbmv_()
390 temp1.r = z__1.r, temp1.i = z__1.i; in zhbmv_()
391 temp2.r = 0., temp2.i = 0.; in zhbmv_()
395 d__1 = a[i__2].r; in zhbmv_()
396 z__2.r = d__1 * temp1.r, z__2.i = d__1 * temp1.i; in zhbmv_()
397 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i; in zhbmv_()
398 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhbmv_()
407 z__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in zhbmv_()
408 z__2.i = temp1.r * a[i__5].i + temp1.i * a[i__5] in zhbmv_()
409 .r; in zhbmv_()
410 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i; in zhbmv_()
411 y[i__4].r = z__1.r, y[i__4].i = z__1.i; in zhbmv_()
414 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i = in zhbmv_()
415 z__3.r * x[i__4].i + z__3.i * x[i__4].r; in zhbmv_()
416 z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i; in zhbmv_()
417 temp2.r = z__1.r, temp2.i = z__1.i; in zhbmv_()
422 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i = in zhbmv_()
423 alpha->r * temp2.i + alpha->i * temp2.r; in zhbmv_()
424 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i; in zhbmv_()
425 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhbmv_()
434 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i = in zhbmv_()
435 alpha->r * x[i__3].i + alpha->i * x[i__3].r; in zhbmv_()
436 temp1.r = z__1.r, temp1.i = z__1.i; in zhbmv_()
437 temp2.r = 0., temp2.i = 0.; in zhbmv_()
441 d__1 = a[i__2].r; in zhbmv_()
442 z__2.r = d__1 * temp1.r, z__2.i = d__1 * temp1.i; in zhbmv_()
443 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i; in zhbmv_()
444 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhbmv_()
457 z__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in zhbmv_()
458 z__2.i = temp1.r * a[i__5].i + temp1.i * a[i__5] in zhbmv_()
459 .r; in zhbmv_()
460 z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i; in zhbmv_()
461 y[i__4].r = z__1.r, y[i__4].i = z__1.i; in zhbmv_()
464 z__2.r = z__3.r * x[i__4].r - z__3.i * x[i__4].i, z__2.i = in zhbmv_()
465 z__3.r * x[i__4].i + z__3.i * x[i__4].r; in zhbmv_()
466 z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i; in zhbmv_()
467 temp2.r = z__1.r, temp2.i = z__1.i; in zhbmv_()
472 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i = in zhbmv_()
473 alpha->r * temp2.i + alpha->i * temp2.r; in zhbmv_()
474 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i; in zhbmv_()
475 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhbmv_()