SUBROUTINE ZERRGG( PATH, NUNIT ) * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2006 * * .. Scalar Arguments .. CHARACTER*3 PATH INTEGER NUNIT * .. * * Purpose * ======= * * ZERRGG tests the error exits for ZGGES, ZGGESX, ZGGEV, ZGGEVX, * ZGGGLM, ZGGHRD, ZGGLSE, ZGGQRF, ZGGRQF, ZGGSVD, ZGGSVP, ZHGEQZ, * ZTGEVC, ZTGEXC, ZTGSEN, ZTGSJA, ZTGSNA, and ZTGSYL. * * Arguments * ========= * * PATH (input) CHARACTER*3 * The LAPACK path name for the routines to be tested. * * NUNIT (input) INTEGER * The unit number for output. * * ===================================================================== * * .. Parameters .. INTEGER NMAX, LW PARAMETER ( NMAX = 3, LW = 6*NMAX ) DOUBLE PRECISION ONE, ZERO PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. CHARACTER*2 C2 INTEGER DUMMYK, DUMMYL, I, IFST, ILST, INFO, J, M, $ NCYCLE, NT, SDIM DOUBLE PRECISION ANRM, BNRM, DIF, SCALE, TOLA, TOLB * .. * .. Local Arrays .. LOGICAL BW( NMAX ), SEL( NMAX ) INTEGER IW( LW ) DOUBLE PRECISION LS( NMAX ), R1( NMAX ), R2( NMAX ), $ RCE( NMAX ), RCV( NMAX ), RS( NMAX ), RW( LW ) COMPLEX*16 A( NMAX, NMAX ), ALPHA( NMAX ), $ B( NMAX, NMAX ), BETA( NMAX ), Q( NMAX, NMAX ), $ TAU( NMAX ), U( NMAX, NMAX ), V( NMAX, NMAX ), $ W( LW ), Z( NMAX, NMAX ) * .. * .. External Functions .. LOGICAL LSAMEN, ZLCTES, ZLCTSX EXTERNAL LSAMEN, ZLCTES, ZLCTSX * .. * .. External Subroutines .. EXTERNAL CHKXER, ZGGES, ZGGESX, ZGGEV, ZGGEVX, ZGGGLM, $ ZGGHRD, ZGGLSE, ZGGQRF, ZGGRQF, ZGGSVD, ZGGSVP, $ ZHGEQZ, ZTGEVC, ZTGEXC, ZTGSEN, ZTGSJA, ZTGSNA, $ ZTGSYL * .. * .. Scalars in Common .. LOGICAL LERR, OK CHARACTER*32 SRNAMT INTEGER INFOT, NOUT * .. * .. Common blocks .. COMMON / INFOC / INFOT, NOUT, OK, LERR COMMON / SRNAMC / SRNAMT * .. * .. Executable Statements .. * NOUT = NUNIT WRITE( NOUT, FMT = * ) C2 = PATH( 2: 3 ) * * Set the variables to innocuous values. * DO 20 J = 1, NMAX SEL( J ) = .TRUE. DO 10 I = 1, NMAX A( I, J ) = ZERO B( I, J ) = ZERO 10 CONTINUE 20 CONTINUE DO 30 I = 1, NMAX A( I, I ) = ONE B( I, I ) = ONE 30 CONTINUE OK = .TRUE. TOLA = 1.0D0 TOLB = 1.0D0 IFST = 1 ILST = 1 NT = 0 * * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN * * ZGGHRD * SRNAMT = 'ZGGHRD' INFOT = 1 CALL ZGGHRD( '/', 'N', 0, 1, 0, A, 1, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGHRD( 'N', '/', 0, 1, 0, A, 1, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGHRD( 'N', 'N', -1, 0, 0, A, 1, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZGGHRD( 'N', 'N', 0, 0, 0, A, 1, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGHRD( 'N', 'N', 0, 1, 1, A, 1, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGHRD( 'N', 'N', 2, 1, 1, A, 1, B, 2, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZGGHRD( 'N', 'N', 2, 1, 1, A, 2, B, 1, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZGGHRD( 'V', 'N', 2, 1, 1, A, 2, B, 2, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZGGHRD( 'N', 'V', 2, 1, 1, A, 2, B, 2, Q, 1, Z, 1, INFO ) CALL CHKXER( 'ZGGHRD', INFOT, NOUT, LERR, OK ) NT = NT + 9 * * ZHGEQZ * SRNAMT = 'ZHGEQZ' INFOT = 1 CALL ZHGEQZ( '/', 'N', 'N', 0, 1, 0, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZHGEQZ( 'E', '/', 'N', 0, 1, 0, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZHGEQZ( 'E', 'N', '/', 0, 1, 0, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZHGEQZ( 'E', 'N', 'N', -1, 0, 0, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZHGEQZ( 'E', 'N', 'N', 0, 0, 0, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZHGEQZ( 'E', 'N', 'N', 0, 1, 1, A, 1, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZHGEQZ( 'E', 'N', 'N', 2, 1, 1, A, 1, B, 2, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZHGEQZ( 'E', 'N', 'N', 2, 1, 1, A, 2, B, 1, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 14 CALL ZHGEQZ( 'E', 'V', 'N', 2, 1, 1, A, 2, B, 2, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZHGEQZ( 'E', 'N', 'V', 2, 1, 1, A, 2, B, 2, ALPHA, BETA, $ Q, 1, Z, 1, W, 1, RW, INFO ) CALL CHKXER( 'ZHGEQZ', INFOT, NOUT, LERR, OK ) NT = NT + 10 * * ZTGEVC * SRNAMT = 'ZTGEVC' INFOT = 1 CALL ZTGEVC( '/', 'A', SEL, 0, A, 1, B, 1, Q, 1, Z, 1, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZTGEVC( 'R', '/', SEL, 0, A, 1, B, 1, Q, 1, Z, 1, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZTGEVC( 'R', 'A', SEL, -1, A, 1, B, 1, Q, 1, Z, 1, 0, M, $ W, RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZTGEVC( 'R', 'A', SEL, 2, A, 1, B, 2, Q, 1, Z, 2, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZTGEVC( 'R', 'A', SEL, 2, A, 2, B, 1, Q, 1, Z, 2, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZTGEVC( 'L', 'A', SEL, 2, A, 2, B, 2, Q, 1, Z, 1, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZTGEVC( 'R', 'A', SEL, 2, A, 2, B, 2, Q, 1, Z, 1, 0, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZTGEVC( 'R', 'A', SEL, 2, A, 2, B, 2, Q, 1, Z, 2, 1, M, W, $ RW, INFO ) CALL CHKXER( 'ZTGEVC', INFOT, NOUT, LERR, OK ) NT = NT + 8 * * Test error exits for the GSV path. * ELSE IF( LSAMEN( 3, PATH, 'GSV' ) ) THEN * * ZGGSVD * SRNAMT = 'ZGGSVD' INFOT = 1 CALL ZGGSVD( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGSVD( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGSVD( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZGGSVD( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGSVD( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZGGSVD( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZGGSVD( 'N', 'N', 'N', 2, 1, 1, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZGGSVD( 'N', 'N', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZGGSVD( 'U', 'N', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, $ 2, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL ZGGSVD( 'N', 'V', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, $ 2, R1, R2, U, 2, V, 1, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZGGSVD( 'N', 'N', 'Q', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, $ 2, R1, R2, U, 2, V, 2, Q, 1, W, RW, IW, INFO ) CALL CHKXER( 'ZGGSVD', INFOT, NOUT, LERR, OK ) NT = NT + 11 * * ZGGSVP * SRNAMT = 'ZGGSVP' INFOT = 1 CALL ZGGSVP( '/', 'N', 'N', 0, 0, 0, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGSVP( 'N', '/', 'N', 0, 0, 0, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGSVP( 'N', 'N', '/', 0, 0, 0, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZGGSVP( 'N', 'N', 'N', -1, 0, 0, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGSVP( 'N', 'N', 'N', 0, -1, 0, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZGGSVP( 'N', 'N', 'N', 0, 0, -1, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZGGSVP( 'N', 'N', 'N', 2, 1, 1, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZGGSVP( 'N', 'N', 'N', 1, 2, 1, A, 1, B, 1, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZGGSVP( 'U', 'N', 'N', 2, 2, 2, A, 2, B, 2, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL ZGGSVP( 'N', 'V', 'N', 2, 2, 2, A, 2, B, 2, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 2, V, 1, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZGGSVP( 'N', 'N', 'Q', 2, 2, 2, A, 2, B, 2, TOLA, TOLB, $ DUMMYK, DUMMYL, U, 2, V, 2, Q, 1, IW, RW, TAU, W, $ INFO ) CALL CHKXER( 'ZGGSVP', INFOT, NOUT, LERR, OK ) NT = NT + 11 * * ZTGSJA * SRNAMT = 'ZTGSJA' INFOT = 1 CALL ZTGSJA( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZTGSJA( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZTGSJA( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZTGSJA( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZTGSJA( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZTGSJA( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZTGSJA( 'N', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 0, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZTGSJA( 'N', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 0, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL ZTGSJA( 'U', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 0, V, 1, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZTGSJA( 'N', 'V', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 0, Q, 1, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL ZTGSJA( 'N', 'N', 'Q', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 0, W, $ NCYCLE, INFO ) CALL CHKXER( 'ZTGSJA', INFOT, NOUT, LERR, OK ) NT = NT + 11 * * Test error exits for the GLM path. * ELSE IF( LSAMEN( 3, PATH, 'GLM' ) ) THEN * * ZGGGLM * SRNAMT = 'ZGGGLM' INFOT = 1 CALL ZGGGLM( -1, 0, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGGLM( 0, -1, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGGLM( 0, 1, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGGLM( 0, 0, -1, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGGLM( 1, 0, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGGLM( 0, 0, 0, A, 0, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGGLM( 0, 0, 0, A, 1, B, 0, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZGGGLM( 1, 1, 1, A, 1, B, 1, TAU, ALPHA, BETA, W, 1, $ INFO ) CALL CHKXER( 'ZGGGLM', INFOT, NOUT, LERR, OK ) NT = NT + 8 * * Test error exits for the LSE path. * ELSE IF( LSAMEN( 3, PATH, 'LSE' ) ) THEN * * ZGGLSE * SRNAMT = 'ZGGLSE' INFOT = 1 CALL ZGGLSE( -1, 0, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGLSE( 0, -1, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGLSE( 0, 0, -1, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGLSE( 0, 0, 1, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGLSE( 0, 1, 0, A, 1, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGLSE( 0, 0, 0, A, 0, B, 1, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGLSE( 0, 0, 0, A, 1, B, 0, TAU, ALPHA, BETA, W, LW, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZGGLSE( 1, 1, 1, A, 1, B, 1, TAU, ALPHA, BETA, W, 1, $ INFO ) CALL CHKXER( 'ZGGLSE', INFOT, NOUT, LERR, OK ) NT = NT + 8 * * Test error exits for the GQR path. * ELSE IF( LSAMEN( 3, PATH, 'GQR' ) ) THEN * * ZGGQRF * SRNAMT = 'ZGGQRF' INFOT = 1 CALL ZGGQRF( -1, 0, 0, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGQRF( 0, -1, 0, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGQRF( 0, 0, -1, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGQRF( 0, 0, 0, A, 0, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZGGQRF( 0, 0, 0, A, 1, ALPHA, B, 0, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZGGQRF( 1, 1, 2, A, 1, ALPHA, B, 1, BETA, W, 1, INFO ) CALL CHKXER( 'ZGGQRF', INFOT, NOUT, LERR, OK ) NT = NT + 6 * * ZGGRQF * SRNAMT = 'ZGGRQF' INFOT = 1 CALL ZGGRQF( -1, 0, 0, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGRQF( 0, -1, 0, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGRQF( 0, 0, -1, A, 1, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGRQF( 0, 0, 0, A, 0, ALPHA, B, 1, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZGGRQF( 0, 0, 0, A, 1, ALPHA, B, 0, BETA, W, LW, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZGGRQF( 1, 1, 2, A, 1, ALPHA, B, 1, BETA, W, 1, INFO ) CALL CHKXER( 'ZGGRQF', INFOT, NOUT, LERR, OK ) NT = NT + 6 * * Test error exits for the ZGS, ZGV, ZGX, and ZXV paths. * ELSE IF( LSAMEN( 3, PATH, 'ZGS' ) .OR. $ LSAMEN( 3, PATH, 'ZGV' ) .OR. $ LSAMEN( 3, PATH, 'ZGX' ) .OR. LSAMEN( 3, PATH, 'ZXV' ) ) $ THEN * * ZGGES * SRNAMT = 'ZGGES ' INFOT = 1 CALL ZGGES( '/', 'N', 'S', ZLCTES, 1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGES( 'N', '/', 'S', ZLCTES, 1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGES( 'N', 'V', '/', ZLCTES, 1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGES( 'N', 'V', 'S', ZLCTES, -1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGES( 'N', 'V', 'S', ZLCTES, 1, A, 0, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZGGES( 'N', 'V', 'S', ZLCTES, 1, A, 1, B, 0, SDIM, ALPHA, $ BETA, Q, 1, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 14 CALL ZGGES( 'N', 'V', 'S', ZLCTES, 1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 0, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 14 CALL ZGGES( 'V', 'V', 'S', ZLCTES, 2, A, 2, B, 2, SDIM, ALPHA, $ BETA, Q, 1, U, 2, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZGGES( 'N', 'V', 'S', ZLCTES, 1, A, 1, B, 1, SDIM, ALPHA, $ BETA, Q, 1, U, 0, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZGGES( 'V', 'V', 'S', ZLCTES, 2, A, 2, B, 2, SDIM, ALPHA, $ BETA, Q, 2, U, 1, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL ZGGES( 'V', 'V', 'S', ZLCTES, 2, A, 2, B, 2, SDIM, ALPHA, $ BETA, Q, 2, U, 2, W, 1, RW, BW, INFO ) CALL CHKXER( 'ZGGES ', INFOT, NOUT, LERR, OK ) NT = NT + 11 * * ZGGESX * SRNAMT = 'ZGGESX' INFOT = 1 CALL ZGGESX( '/', 'N', 'S', ZLCTSX, 'N', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGESX( 'N', '/', 'S', ZLCTSX, 'N', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGESX( 'V', 'V', '/', ZLCTSX, 'N', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, '/', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', -1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 1, A, 0, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 1, A, 1, B, 0, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 0, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 2, A, 2, B, 2, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 17 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 0, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 17 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 2, A, 2, B, 2, SDIM, $ ALPHA, BETA, Q, 2, U, 1, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 21 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'B', 2, A, 2, B, 2, SDIM, $ ALPHA, BETA, Q, 2, U, 2, RCE, RCV, W, 1, RW, IW, $ 1, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL ZGGESX( 'V', 'V', 'S', ZLCTSX, 'V', 1, A, 1, B, 1, SDIM, $ ALPHA, BETA, Q, 1, U, 1, RCE, RCV, W, 32, RW, IW, $ 0, BW, INFO ) CALL CHKXER( 'ZGGESX', INFOT, NOUT, LERR, OK ) NT = NT + 13 * * ZGGEV * SRNAMT = 'ZGGEV ' INFOT = 1 CALL ZGGEV( '/', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGEV( 'N', '/', 1, A, 1, B, 1, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGEV( 'V', 'V', -1, A, 1, B, 1, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGEV( 'V', 'V', 1, A, 0, B, 1, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGEV( 'V', 'V', 1, A, 1, B, 0, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZGGEV( 'N', 'V', 1, A, 1, B, 1, ALPHA, BETA, Q, 0, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZGGEV( 'V', 'V', 2, A, 2, B, 2, ALPHA, BETA, Q, 1, U, 2, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZGGEV( 'V', 'N', 2, A, 2, B, 2, ALPHA, BETA, Q, 2, U, 0, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZGGEV( 'V', 'V', 2, A, 2, B, 2, ALPHA, BETA, Q, 2, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZGGEV( 'V', 'V', 1, A, 1, B, 1, ALPHA, BETA, Q, 1, U, 1, $ W, 1, RW, INFO ) CALL CHKXER( 'ZGGEV ', INFOT, NOUT, LERR, OK ) NT = NT + 10 * * ZGGEVX * SRNAMT = 'ZGGEVX' INFOT = 1 CALL ZGGEVX( '/', 'N', 'N', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZGGEVX( 'N', '/', 'N', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZGGEVX( 'N', 'N', '/', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZGGEVX( 'N', 'N', 'N', '/', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZGGEVX( 'N', 'N', 'N', 'N', -1, A, 1, B, 1, ALPHA, BETA, $ Q, 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, $ 1, RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZGGEVX( 'N', 'N', 'N', 'N', 1, A, 0, B, 1, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZGGEVX( 'N', 'N', 'N', 'N', 1, A, 1, B, 0, ALPHA, BETA, Q, $ 1, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZGGEVX( 'N', 'N', 'N', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 0, U, 1, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZGGEVX( 'N', 'V', 'N', 'N', 2, A, 2, B, 2, ALPHA, BETA, Q, $ 1, U, 2, 1, 2, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZGGEVX( 'N', 'N', 'N', 'N', 1, A, 1, B, 1, ALPHA, BETA, Q, $ 1, U, 0, 1, 1, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZGGEVX( 'N', 'N', 'V', 'N', 2, A, 2, B, 2, ALPHA, BETA, Q, $ 2, U, 1, 1, 2, LS, RS, ANRM, BNRM, RCE, RCV, W, 1, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) INFOT = 25 CALL ZGGEVX( 'N', 'N', 'V', 'N', 2, A, 2, B, 2, ALPHA, BETA, Q, $ 2, U, 2, 1, 2, LS, RS, ANRM, BNRM, RCE, RCV, W, 0, $ RW, IW, BW, INFO ) CALL CHKXER( 'ZGGEVX', INFOT, NOUT, LERR, OK ) NT = NT + 12 * * ZTGEXC * SRNAMT = 'ZTGEXC' INFOT = 3 CALL ZTGEXC( .TRUE., .TRUE., -1, A, 1, B, 1, Q, 1, Z, 1, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZTGEXC( .TRUE., .TRUE., 1, A, 0, B, 1, Q, 1, Z, 1, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZTGEXC( .TRUE., .TRUE., 1, A, 1, B, 0, Q, 1, Z, 1, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZTGEXC( .FALSE., .TRUE., 1, A, 1, B, 1, Q, 0, Z, 1, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZTGEXC( .TRUE., .TRUE., 1, A, 1, B, 1, Q, 0, Z, 1, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZTGEXC( .TRUE., .FALSE., 1, A, 1, B, 1, Q, 1, Z, 0, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL ZTGEXC( .TRUE., .TRUE., 1, A, 1, B, 1, Q, 1, Z, 0, IFST, $ ILST, INFO ) CALL CHKXER( 'ZTGEXC', INFOT, NOUT, LERR, OK ) NT = NT + 7 * * ZTGSEN * SRNAMT = 'ZTGSEN' INFOT = 1 CALL ZTGSEN( -1, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, -1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, 1, A, 0, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, 1, A, 1, B, 0, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 0, Z, 1, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 0, M, TOLA, TOLB, RCV, W, 1, IW, 1, $ INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 21 CALL ZTGSEN( 3, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, -5, IW, $ 1, INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 23 CALL ZTGSEN( 0, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 20, IW, $ 0, INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 23 CALL ZTGSEN( 1, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 20, IW, $ 0, INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) INFOT = 23 CALL ZTGSEN( 5, .TRUE., .TRUE., SEL, 1, A, 1, B, 1, ALPHA, $ BETA, Q, 1, Z, 1, M, TOLA, TOLB, RCV, W, 20, IW, $ 1, INFO ) CALL CHKXER( 'ZTGSEN', INFOT, NOUT, LERR, OK ) NT = NT + 11 * * ZTGSNA * SRNAMT = 'ZTGSNA' INFOT = 1 CALL ZTGSNA( '/', 'A', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZTGSNA( 'B', '/', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZTGSNA( 'B', 'A', SEL, -1, A, 1, B, 1, Q, 1, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZTGSNA( 'B', 'A', SEL, 1, A, 0, B, 1, Q, 1, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZTGSNA( 'B', 'A', SEL, 1, A, 1, B, 0, Q, 1, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZTGSNA( 'E', 'A', SEL, 1, A, 1, B, 1, Q, 0, U, 1, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZTGSNA( 'E', 'A', SEL, 1, A, 1, B, 1, Q, 1, U, 0, R1, R2, $ 1, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL ZTGSNA( 'E', 'A', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2, $ 0, M, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL ZTGSNA( 'E', 'A', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2, $ 1, M, W, 0, IW, INFO ) CALL CHKXER( 'ZTGSNA', INFOT, NOUT, LERR, OK ) NT = NT + 9 * * ZTGSYL * SRNAMT = 'ZTGSYL' INFOT = 1 CALL ZTGSYL( '/', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL ZTGSYL( 'N', -1, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL ZTGSYL( 'N', 0, 0, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL ZTGSYL( 'N', 0, 1, 0, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL ZTGSYL( 'N', 0, 1, 1, A, 0, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL ZTGSYL( 'N', 0, 1, 1, A, 1, B, 0, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL ZTGSYL( 'N', 0, 1, 1, A, 1, B, 1, Q, 0, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL ZTGSYL( 'N', 0, 1, 1, A, 1, B, 1, Q, 1, U, 0, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 14 CALL ZTGSYL( 'N', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 0, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 16 CALL ZTGSYL( 'N', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 0, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZTGSYL( 'N', 1, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL ZTGSYL( 'N', 2, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1, $ SCALE, DIF, W, 1, IW, INFO ) CALL CHKXER( 'ZTGSYL', INFOT, NOUT, LERR, OK ) NT = NT + 12 END IF * * Print a summary line. * IF( OK ) THEN WRITE( NOUT, FMT = 9999 )PATH, NT ELSE WRITE( NOUT, FMT = 9998 )PATH END IF * 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits (', $ I3, ' tests done)' ) 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ', $ 'exits ***' ) * RETURN * * End of ZERRGG * END