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