20     integer i__1, i__2, i__3, i__4, i__5;  in chpmv_()  local
202 		    i__3 = i__;  in chpmv_()
203 		    q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in chpmv_()
204 			    q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  in chpmv_()
224 		    i__3 = iy;  in chpmv_()
225 		    q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,   in chpmv_()
226 			    q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]  in chpmv_()
254 		    i__3 = i__;  in chpmv_()
261 		    y[i__3].r = q__1.r, y[i__3].i = q__1.i;  in chpmv_()
263 		    i__3 = i__;  in chpmv_()
264 		    q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =  in chpmv_()
265 			     q__3.r * x[i__3].i + q__3.i * x[i__3].r;  in chpmv_()
272 		i__3 = j;  in chpmv_()
276 		q__2.r = y[i__3].r + q__3.r, q__2.i = y[i__3].i + q__3.i;  in chpmv_()
298 		    i__3 = iy;  in chpmv_()
305 		    y[i__3].r = q__1.r, y[i__3].i = q__1.i;  in chpmv_()
307 		    i__3 = ix;  in chpmv_()
308 		    q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =  in chpmv_()
309 			     q__3.r * x[i__3].i + q__3.i * x[i__3].r;  in chpmv_()
317 		i__3 = jy;  in chpmv_()
321 		q__2.r = y[i__3].r + q__3.r, q__2.i = y[i__3].i + q__3.i;  in chpmv_()
345 		i__3 = j;  in chpmv_()
349 		q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;  in chpmv_()
354 		    i__3 = i__;  in chpmv_()
361 		    y[i__3].r = q__1.r, y[i__3].i = q__1.i;  in chpmv_()
363 		    i__3 = i__;  in chpmv_()
364 		    q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =  in chpmv_()
365 			     q__3.r * x[i__3].i + q__3.i * x[i__3].r;  in chpmv_()
372 		i__3 = j;  in chpmv_()
375 		q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;  in chpmv_()
391 		i__3 = jy;  in chpmv_()
395 		q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;  in chpmv_()
403 		    i__3 = iy;  in chpmv_()
410 		    y[i__3].r = q__1.r, y[i__3].i = q__1.i;  in chpmv_()
412 		    i__3 = ix;  in chpmv_()
413 		    q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =  in chpmv_()
414 			     q__3.r * x[i__3].i + q__3.i * x[i__3].r;  in chpmv_()
420 		i__3 = jy;  in chpmv_()
423 		q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;  in chpmv_()