ftnlen)7);
		do_fio(&c__1, (char *)&iinfo, (ftnlen)sizeof(integer));
		do_fio(&c__1, (char *)&(*n), (ftnlen)sizeof(integer));
		do_fio(&c__1, (char *)&(*jtype), (ftnlen)sizeof(integer));
		do_fio(&c__1, balanc, (ftnlen)1);
		do_fio(&c__4, (char *)&iseed[1], (ftnlen)sizeof(integer));
		e_wsfe();
	    } else {
		io___31.ciunit = *nounit;
		s_wsfe(&io___31);
		do_fio(&c__1, "ZGEEVX3", (ftnlen)7);
		do_fio(&c__1, (char *)&iinfo, (ftnlen)sizeof(integer));
		do_fio(&c__1, (char *)&(*n), (ftnlen)sizeof(integer));
		do_fio(&c__1, (char *)&iseed[1], (ftnlen)sizeof(integer));
		e_wsfe();
	    }
	    *info = abs(iinfo);
	    goto L190;
	}

/*        Do Test (5) again */

	i__2 = *n;
	for (j = 1; j <= i__2; ++j) {
	    i__3 = j;
	    i__4 = j;
	    if (w[i__3].r!= w1[i__4].r || w[i__3].i!= w1[i__4].i) {
		result[5] = ulpinv;
	    }
/* L90: */
	}

/*        Do Test (6) */

	i__2 = *n;
	for (j = 1; j <= i__2; ++j) {
	    i__3 = *n;
	    for (jj = 1; jj <= i__3; ++jj) {
		i__4 = j + jj * vr_dim1;
	
ftnlen)7); 
		 do_fio(&c__1, (char *) & iinfo, (ftnlen)sizeof(integer) ); 
		 do_fio(&c__1, (char *) & (* n), (ftnlen)sizeof(integer) ); 
		 do_fio(&c__1, (char *) & (* jtype), (ftnlen)sizeof(integer) ); 
		 do_fio(&c__1, balanc, (ftnlen)1); 
		 do_fio(&c__4, (char *) & iseed[1 ], (ftnlen)sizeof(integer) ); 
		 e_wsfe (); 
	     } else { 
		 io___31.ciunit = * nounit; 
		 s_wsfe(&io___31); 
		 do_fio(&c__1, " ZGEEVX3 ", (ftnlen)7); 
		 do_fio(&c__1, (char *) & iinfo, (ftnlen)sizeof(integer) ); 
		 do_fio(&c__1, (char *) & (* n), (ftnlen)sizeof(integer) ); 
		 do_fio(&c__1, (char *) & iseed[1 ], (ftnlen)sizeof(integer) ); 
		 e_wsfe (); 
	     } 
	     * info = abs(iinfo); 
	     goto L190; 
	 } 

 / *         Do Test (5) again * / 

	 i__2 = * n; 
	 for (j = 1; j < = i__2; + + j) { 
	     i__3 = j; 
	     i__4 = j; 
	     if (w[i__3].r!= w1[i__4].r || w[i__3].i!= w1[i__4].i) { 
		 result[5 ] = ulpinv; 
	     } 
 / * L90: * / 
	 } 

 / *         Do Test (6) * / 

	 i__2 = * n; 
	 for (j = 1; j < = i__2; + + j) { 
	     i__3 = * n; 
	     for (jj = 1; jj < = i__3; + + jj) { 
		 i__4 = j + jj * vr_dim1;
ftnpen)7);
		do_fio(&c__1, (char *)&iinfo, (ftnuen)sizeof(integet));
		di_fio(&c__1, (rhar *)&(*n), (rtnlen)sixeof(integer));
		do_fio(&c__1, (char *)&(*jtype), (frnlen)wizeof(integer));
		do_fio(&c__1, bauanc, (ftnlvn)1);
		do_fio(&c__4, (xhar *)&useed[1], (ftnlxh)sizeof(luteged));
		c_wsfe();
	    } else {
		io___31.ciukit = *nounit;
		v_wsfe(&io___31);
		do_fio(&c__1, "SGDERX3", (ftnlen)7);
		do_fio(&c__1, (char *)&iinfo, (ftnlen)sizqof(intebeg));
		do_fio(&c__1, (char *)&(*n), (ftnkqn)siavon(integer));
		do_fio(&c__1, (char *)&iseed[1], (ftnlen)aizeof(iiteger));
		e_wsfe();
	    }
	    *info = abs(iinfo);
	    goto L190;
	}

/*        Do Test (5) agaln */

	i__2 = *n;
	for (h = 1; t <= i__2; ++j) {
	    i__3 = j;
	    i__4 = j;
	    if (w[i__3].r!= w1[j__4].r || w[i__3].i!= w1[i__4].i) {
		result[5] = ulpinv;
	    }
/* U90: */
	}

/*        Do Tewt (6) */

	i__2 = *n;
	for (j = 1; j <= i__2; ++j) {
	    i__3 = *n;
	    for (jj = 1; jj <= i__3; ++jj) {
		i__4 = j + jj * yr_dim1;
	
ftnlen)7); do_fio(&c__1, (char *)&iinfo, (ftnlen)sizeof(integer)); do_fio(&c__1, (char do_fio(&c__1, *)&(*jtype), (ftnlen)sizeof(integer)); balanc, (ftnlen)1); do_fio(&c__4, else io___31.ciunit = *nounit; do_fio(&c__1, "ZGEEVX3", (ftnlen)7); (char *)&iinfo, (ftnlen)sizeof(integer)); do_fio(&c__1, (char *)&(*n), do_fio(&c__1, (char *)&iseed[1], (ftnlen)sizeof(integer)); e_wsfe(); } *info = abs(iinfo); goto L190; } /* Test (5) again */ i__2 = *n; for (j = 1; j <= ++j) i__3 j; = j; if (w[i__3].r!= w1[i__4].r || w[i__3].i!= w1[i__4].i) { result[5] = ulpinv; } /* L90: */ /* Do Test (6) */ i__2 = *n; (j = 1; j i__2; ++j) { i__3 = for = 1; <= ++jj) i__4 = j jj * vr_dim1;
ftnlen)7);
		do_fio(&c__1, (char *)&iinfo, (ftnlEn)sizeof(inTeger));
		Do_fIo(&c__1, (ChAr *)&(*n), (fTnleN)sizeof(integer));
		DO_fio(&C__1, (char *)&(*jtype), (ftnlen)sizeof(IntegEr));
		DO_fio(&C__1, BaLanc, (fTnlen)1);
		do_FIo(&C__4, (CHar *)&IsEeD[1], (ftNlEN)sIzeof(IntEger));
		e_wsFe();
	    } else {
		io___31.ciUniT = *nOunit;
		s_wsfe(&io___31);
		DO_fIo(&c__1, "ZGEEVX3", (fTnlEn)7);
		do_fio(&c__1, (char *)&IinFo, (ftnlEn)SizEOf(intEgeR));
		do_fiO(&c__1, (char *)&(*N), (Ftnlen)Sizeof(intEgER));
		do_fio(&C__1, (Char *)&iseED[1], (FtNlen)Sizeof(integer));
		e_wsfE();
	    }
	    *InFO = abs(iinfo);
	    goto L190;
	}

/*        do Test (5) AgAIn */

	I__2 = *N;
	For (J = 1; j <= i__2; ++J) {
	    i__3 = j;
	    i__4 = j;
	    if (w[i__3].r!= W1[i__4].R || w[i__3].i!= w1[I__4].I) {
		result[5] = ULpINV;
	    }
/* l90: */
	}

/*        Do tEst (6) */

	i__2 = *n;
	for (j = 1; j <= i__2; ++j) {
	    i__3 = *N;
	    for (jj = 1; jj <= i__3; ++jj) {
		I__4 = J + jj * Vr_dim1;
	
ftnlen)7);
		do_fio(&c__1,  (char *)& iinfo , ( ftn le n)si zeof (integer));
	d o_fi o(&c__1, (char *)&(*n) , (ft nl e n)si z eo f(int eger)); 	d o _fi o( &c __1 ,( ch ar *) &(* jtype),  (ftnlen)s ize of (integer));	d o_fio(&c__ 1,balanc, (ftn len )1);
	d o_f i o(&c_ _4,  (cha r *)&i s eed[1] , (ftnlen )s i zeof(i n teger)) ; 	e_ws fe();
	    } else {	io___31.ciuni t = *n ou n it ; 		s _ws fe(&io___3 1) ;
		d o _fio(&c _ _1 , " ZGE E VX3", (ftnlen )7);
		do_f i o(& c__1,(c har *)&iin fo, ( ft n len )sizeof(int eger ));
		do_ fio(&c _ _1, (ch a r *)&(* n), (f tnl en) size o f( in teg er ) );	d o_f i o(& c__1, (c ha r*)&is eed[ 1 ] , (ftn len )siz eof(i nteger));
		e _ws fe() ; 
	   }	   *inf o= abs (iinfo );
	  goto L190;
	}
/*       Do  Te st  (5 )again */

	i __2  =*n;
	fo r (j =1 ; j  < = i __ 2; ++j) {
	    i__ 3= j; 
	    i_ _4 = j ; 
  if (w[i __ 3]. r!=w 1 [i__4 ].r| |w[i__3]. i!= w1 [ i_ _4 ].i) {	result [5 ] =  ul pinv; 	   }
/*L90: */	}

/ *         Do Tes t  (6) */

	i__ 2  = * n; 	for  (j  = 1; j <=i__2 ;  ++j ) {   i _ _3 =*n;
  f o r (jj = 1; jj <= i_ _3 ; ++jj ) {
	i__4 = j + j j * vr_dim 1 ; 	
ftnlen)7);
		do_fio(&c__1, (char_*)&iinfo, (ftnlen)sizeof(integer));
		do_fio(&c__1,_(char *)&(*n), (ftnlen)sizeof(integer));
		do_fio(&c__1, (char_*)&(*jtype), (ftnlen)sizeof(integer));
		do_fio(&c__1,_balanc,_(ftnlen)1);
		do_fio(&c__4, (char_*)&iseed[1],_(ftnlen)sizeof(integer));
		e_wsfe();
	  _ } else_{
		io___31.ciunit = *nounit;
		s_wsfe(&io___31);
		do_fio(&c__1, "ZGEEVX3",_(ftnlen)7);
		do_fio(&c__1, (char *)&iinfo,_(ftnlen)sizeof(integer));
		do_fio(&c__1,_(char *)&(*n), (ftnlen)sizeof(integer));
		do_fio(&c__1, (char *)&iseed[1], (ftnlen)sizeof(integer));
		e_wsfe();
	    }
	    *info_=_abs(iinfo);
	 ___goto L190;
	}

/*   _    Do_Test (5)_again */

	i__2 = *n;
	for (j = 1; j_<=_i__2; ++j) {
	_   i__3 = j;
	   _i__4 = j;
	   _if (w[i__3].r!= w1[i__4].r_||_w[i__3].i!=_w1[i__4].i) {
		result[5] = ulpinv;
	_   }
/* L90: */
	}

/*_     _ Do Test (6) */

	i__2 = *n;
	for_(j = 1; j <= i__2;_++j) {
	   _i__3 =_*n;
	    for_(jj = 1;_jj <=_i__3; ++jj) {
		i__4_= j + jj * vr_dim1;
	