20     integer i__1, i__2, i__3, i__4, i__5;  in zhpmv_()  local
194 		    i__2 = i__;  in zhpmv_()
195 		    y[i__2].r = 0., y[i__2].i = 0.;  in zhpmv_()
201 		    i__2 = i__;  in zhpmv_()
206 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
215 		    i__2 = iy;  in zhpmv_()
216 		    y[i__2].r = 0., y[i__2].i = 0.;  in zhpmv_()
223 		    i__2 = iy;  in zhpmv_()
228 		    y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
246 		i__2 = j;  in zhpmv_()
247 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
248 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in zhpmv_()
252 		i__2 = j - 1;  in zhpmv_()
253 		for (i__ = 1; i__ <= i__2; ++i__) {  in zhpmv_()
271 		i__2 = j;  in zhpmv_()
280 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
289 		i__2 = jx;  in zhpmv_()
290 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
291 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in zhpmv_()
296 		i__2 = kk + j - 2;  in zhpmv_()
297 		for (k = kk; k <= i__2; ++k) {  in zhpmv_()
316 		i__2 = jy;  in zhpmv_()
325 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
339 		i__2 = j;  in zhpmv_()
340 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
341 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in zhpmv_()
344 		i__2 = j;  in zhpmv_()
350 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
352 		i__2 = *n;  in zhpmv_()
353 		for (i__ = j + 1; i__ <= i__2; ++i__) {  in zhpmv_()
371 		i__2 = j;  in zhpmv_()
376 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
385 		i__2 = jx;  in zhpmv_()
386 		z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =  in zhpmv_()
387 			 alpha->r * x[i__2].i + alpha->i * x[i__2].r;  in zhpmv_()
390 		i__2 = jy;  in zhpmv_()
396 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()
399 		i__2 = kk + *n - j;  in zhpmv_()
400 		for (k = kk + 1; k <= i__2; ++k) {  in zhpmv_()
419 		i__2 = jy;  in zhpmv_()
424 		y[i__2].r = z__1.r, y[i__2].i = z__1.i;  in zhpmv_()