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 stzrqf(M, N, A, LDA, TAU, INFO)
STZRQF
logical function lsamen(N, CA, CB)
LSAMEN
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine stzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
STZRZF