Lines Matching refs:WI1
411 $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR,
432 $ WI1( * ), WI2( * ), WI3( * ), WORK( * ),
799 CALL SHSEQR( 'S', 'V', N, ILO, IHI, T1, LDA, WR1, WI1, UZ,
835 TEMP1 = MAX( TEMP1, ABS( WR1( J ) )+ABS( WI1( J ) ),
838 $ ABS( WI1( J )-WI2( J ) ) )
856 IF( WI1( J ).EQ.ZERO ) THEN
890 $ WI1, WORK, DUMMA( 1 ) )
912 IF( SELECT( J ) .AND. WI1( J ).EQ.ZERO ) THEN
920 ELSE IF( SELECT( J ) .AND. WI1( J ).NE.ZERO ) THEN
952 $ WR1, WI1, WORK, DUMMA( 3 ) )
974 IF( SELECT( J ) .AND. WI1( J ).EQ.ZERO ) THEN
982 ELSE IF( SELECT( J ) .AND. WI1( J ).NE.ZERO ) THEN