22     doublecomplex z__1, z__2, z__3, z__4;  in zhpmv_()  local
203 		    z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in zhpmv_()
204 			    z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  in zhpmv_()
206 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
225 		    z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in zhpmv_()
226 			    z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  in zhpmv_()
228 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
247 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
249 		temp1.r = z__1.r, temp1.i = z__1.i;  in zhpmv_()
260 		    z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhpmv_()
261 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
266 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
267 		    temp2.r = z__1.r, temp2.i = z__1.i;  in zhpmv_()
279 		z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i;  in zhpmv_()
280 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
290 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
292 		temp1.r = z__1.r, temp1.i = z__1.i;  in zhpmv_()
304 		    z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhpmv_()
305 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
310 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
311 		    temp2.r = z__1.r, temp2.i = z__1.i;  in zhpmv_()
324 		z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i;  in zhpmv_()
325 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
340 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
342 		temp1.r = z__1.r, temp1.i = z__1.i;  in zhpmv_()
349 		z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;  in zhpmv_()
350 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
360 		    z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhpmv_()
361 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
366 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
367 		    temp2.r = z__1.r, temp2.i = z__1.i;  in zhpmv_()
375 		z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;  in zhpmv_()
376 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
386 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
388 		temp1.r = z__1.r, temp1.i = z__1.i;  in zhpmv_()
395 		z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;  in zhpmv_()
396 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
409 		    z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;  in zhpmv_()
410 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
415 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
416 		    temp2.r = z__1.r, temp2.i = z__1.i;  in zhpmv_()
423 		z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;  in zhpmv_()
424 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()