55 SUBROUTINE derrtz( PATH, NUNIT )
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