78 REAL A( nmax, nmax ), TAU( nmax ), W( nmax )
93 COMMON / infoc / infot, nout, ok, lerr
94 COMMON / srnamc / srnamt
99 WRITE( nout, fmt = * )
109 IF( lsamen( 2, c2,
'TZ' ) )
THEN
117 CALL
stzrqf( -1, 0, a, 1, tau, info )
118 CALL
chkxer(
'STZRQF', infot, nout, lerr, ok )
120 CALL
stzrqf( 1, 0, a, 1, tau, info )
121 CALL
chkxer(
'STZRQF', infot, nout, lerr, ok )
123 CALL
stzrqf( 2, 2, a, 1, tau, info )
124 CALL
chkxer(
'STZRQF', infot, nout, lerr, ok )
130 CALL
stzrzf( -1, 0, a, 1, tau, w, 1, info )
131 CALL
chkxer(
'STZRZF', infot, nout, lerr, ok )
133 CALL
stzrzf( 1, 0, a, 1, tau, w, 1, info )
134 CALL
chkxer(
'STZRZF', infot, nout, lerr, ok )
136 CALL
stzrzf( 2, 2, a, 1, tau, w, 1, info )
137 CALL
chkxer(
'STZRZF', infot, nout, lerr, ok )
139 CALL
stzrzf( 2, 2, a, 2, tau, w, 0, info )
140 CALL
chkxer(
'STZRZF', infot, nout, lerr, ok )
142 CALL
stzrzf( 2, 3, a, 2, tau, w, 1, info )
143 CALL
chkxer(
'STZRZF', infot, nout, lerr, ok )
148 CALL
alaesm( path, ok, nout )
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine serrtz(PATH, NUNIT)
SERRTZ
subroutine stzrqf(M, N, A, LDA, TAU, INFO)
STZRQF
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine stzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
STZRZF