20     integer i__1, i__2, i__3, i__4, i__5;  in zhpmv_()  local
202 		    i__3 = i__;  in zhpmv_()
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_()
224 		    i__3 = iy;  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_()
254 		    i__3 = i__;  in zhpmv_()
261 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
263 		    i__3 = 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_()
265 			     z__3.r * x[i__3].i + z__3.i * x[i__3].r;  in zhpmv_()
272 		i__3 = j;  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_()
298 		    i__3 = iy;  in zhpmv_()
305 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
307 		    i__3 = ix;  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_()
309 			     z__3.r * x[i__3].i + z__3.i * x[i__3].r;  in zhpmv_()
317 		i__3 = jy;  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_()
345 		i__3 = j;  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_()
354 		    i__3 = i__;  in zhpmv_()
361 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
363 		    i__3 = 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_()
365 			     z__3.r * x[i__3].i + z__3.i * x[i__3].r;  in zhpmv_()
372 		i__3 = j;  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_()
391 		i__3 = jy;  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_()
403 		    i__3 = iy;  in zhpmv_()
410 		    y[i__3].r = z__1.r, y[i__3].i = z__1.i;  in zhpmv_()
412 		    i__3 = ix;  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_()
414 			     z__3.r * x[i__3].i + z__3.i * x[i__3].r;  in zhpmv_()
420 		i__3 = jy;  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_()