22     doublecomplex z__1, z__2, z__3, z__4;  in zhpmv_()  local
257 		    z__2.r = temp1.r * ap[i__5].r - temp1.i * ap[i__5].i,   in zhpmv_()
258 			    z__2.i = temp1.r * ap[i__5].i + temp1.i * ap[i__5]  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_()
264 		    z__2.r = z__3.r * x[i__3].r - z__3.i * x[i__3].i, z__2.i =  in zhpmv_()
266 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
276 		z__2.r = y[i__3].r + z__3.r, z__2.i = y[i__3].i + z__3.i;  in zhpmv_()
279 		z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i;  in zhpmv_()
301 		    z__2.r = temp1.r * ap[i__5].r - temp1.i * ap[i__5].i,   in zhpmv_()
302 			    z__2.i = temp1.r * ap[i__5].i + temp1.i * ap[i__5]  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_()
308 		    z__2.r = z__3.r * x[i__3].r - z__3.i * x[i__3].i, z__2.i =  in zhpmv_()
310 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
321 		z__2.r = y[i__3].r + z__3.r, z__2.i = y[i__3].i + z__3.i;  in zhpmv_()
324 		z__1.r = z__2.r + z__4.r, z__1.i = z__2.i + z__4.i;  in zhpmv_()
348 		z__2.r = d__1 * temp1.r, z__2.i = d__1 * temp1.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_()
357 		    z__2.r = temp1.r * ap[i__5].r - temp1.i * ap[i__5].i,   in zhpmv_()
358 			    z__2.i = temp1.r * ap[i__5].i + temp1.i * ap[i__5]  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_()
364 		    z__2.r = z__3.r * x[i__3].r - z__3.i * x[i__3].i, z__2.i =  in zhpmv_()
366 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
373 		z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.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_()
394 		z__2.r = d__1 * temp1.r, z__2.i = d__1 * temp1.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_()
406 		    z__2.r = temp1.r * ap[i__5].r - temp1.i * ap[i__5].i,   in zhpmv_()
407 			    z__2.i = temp1.r * ap[i__5].i + temp1.i * ap[i__5]  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_()
413 		    z__2.r = z__3.r * x[i__3].r - z__3.i * x[i__3].i, z__2.i =  in zhpmv_()
415 		    z__1.r = temp2.r + z__2.r, z__1.i = temp2.i + z__2.i;  in zhpmv_()
421 		z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.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_()