23     real r__1, r__2, r__3, r__4, r__5, r__6;  in ctgevc_()  local
370 	r__3 = anorm, r__4 = rwork[j] + ((r__1 = a[i__2].r, dabs(r__1)) + (  in ctgevc_()
372 	anorm = dmax(r__3,r__4);  in ctgevc_()
375 	r__3 = bnorm, r__4 = rwork[*n + j] + ((r__1 = b[i__2].r, dabs(r__1))   in ctgevc_()
377 	bnorm = dmax(r__3,r__4);  in ctgevc_()
428 		r__4 = ((r__2 = a[i__2].r, dabs(r__2)) + (r__3 = r_imag(&a[je   in ctgevc_()
430 			 b[i__3].r, dabs(r__1)) * bscale, r__4 = max(r__4,  in ctgevc_()
432 		temp = 1.f / dmax(r__4,safmin);  in ctgevc_()
448 			) + (r__4 = r_imag(&bcoeff), dabs(r__4)) < small;  in ctgevc_()
456 		    r__3 = scale, r__4 = small / ((r__1 = salpha.r, dabs(r__1)  in ctgevc_()
459 		    scale = dmax(r__3,r__4);  in ctgevc_()
467 		    r__3 = scale, r__4 = 1.f / (safmin * dmax(r__5,r__6));  in ctgevc_()
468 		    scale = dmin(r__3,r__4);  in ctgevc_()
581 				r__3)) + (r__4 = r_imag(&d__), dabs(r__4)))) {  in ctgevc_()
604 		    r__3 = xmax, r__4 = (r__1 = work[i__3].r, dabs(r__1)) + (  in ctgevc_()
606 		    xmax = dmax(r__3,r__4);  in ctgevc_()
631 		    r__3 = xmax, r__4 = (r__1 = work[i__3].r, dabs(r__1)) + (  in ctgevc_()
634 		    xmax = dmax(r__3,r__4);  in ctgevc_()
709 		r__4 = ((r__2 = a[i__1].r, dabs(r__2)) + (r__3 = r_imag(&a[je   in ctgevc_()
711 			 b[i__2].r, dabs(r__1)) * bscale, r__4 = max(r__4,  in ctgevc_()
713 		temp = 1.f / dmax(r__4,safmin);  in ctgevc_()
729 			) + (r__4 = r_imag(&bcoeff), dabs(r__4)) < small;  in ctgevc_()
737 		    r__3 = scale, r__4 = small / ((r__1 = salpha.r, dabs(r__1)  in ctgevc_()
740 		    scale = dmax(r__3,r__4);  in ctgevc_()
748 		    r__3 = scale, r__4 = 1.f / (safmin * dmax(r__5,r__6));  in ctgevc_()
749 		    scale = dmin(r__3,r__4);  in ctgevc_()
827 				r__3 = d__.r, dabs(r__3)) + (r__4 = r_imag(&  in ctgevc_()
828 				d__), dabs(r__4)))) {  in ctgevc_()
926 		    r__3 = xmax, r__4 = (r__1 = work[i__2].r, dabs(r__1)) + (  in ctgevc_()
929 		    xmax = dmax(r__3,r__4);  in ctgevc_()