78 DOUBLE PRECISION 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
dtzrqf( -1, 0, a, 1, tau, info )
118 CALL
chkxer(
'DTZRQF', infot, nout, lerr, ok )
120 CALL
dtzrqf( 1, 0, a, 1, tau, info )
121 CALL
chkxer(
'DTZRQF', infot, nout, lerr, ok )
123 CALL
dtzrqf( 2, 2, a, 1, tau, info )
124 CALL
chkxer(
'DTZRQF', infot, nout, lerr, ok )
130 CALL
dtzrzf( -1, 0, a, 1, tau, w, 1, info )
131 CALL
chkxer(
'DTZRZF', infot, nout, lerr, ok )
133 CALL
dtzrzf( 1, 0, a, 1, tau, w, 1, info )
134 CALL
chkxer(
'DTZRZF', infot, nout, lerr, ok )
136 CALL
dtzrzf( 2, 2, a, 1, tau, w, 1, info )
137 CALL
chkxer(
'DTZRZF', infot, nout, lerr, ok )
139 CALL
dtzrzf( 2, 2, a, 2, tau, w, 0, info )
140 CALL
chkxer(
'DTZRZF', infot, nout, lerr, ok )
142 CALL
dtzrzf( 2, 3, a, 2, tau, w, 1, info )
143 CALL
chkxer(
'DTZRZF', infot, nout, lerr, ok )
148 CALL
alaesm( path, ok, nout )
subroutine dtzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
DTZRZF
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine derrtz(PATH, NUNIT)
DERRTZ
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine dtzrqf(M, N, A, LDA, TAU, INFO)
DTZRQF