78 COMPLEX*16 a( nmax, nmax ), tau( nmax ), w( nmax )
93 COMMON / infoc / infot, nout, ok, lerr
94 COMMON / srnamc / srnamt
103 a( 1, 1 ) = dcmplx( 1.d+0, -1.d+0 )
104 a( 1, 2 ) = dcmplx( 2.d+0, -2.d+0 )
105 a( 2, 2 ) = dcmplx( 3.d+0, -3.d+0 )
106 a( 2, 1 ) = dcmplx( 4.d+0, -4.d+0 )
107 w( 1 ) = dcmplx( 0.d+0, 0.d+0 )
108 w( 2 ) = dcmplx( 0.d+0, 0.d+0 )
113 WRITE( nout, fmt = * )
114 IF(
lsamen( 2, c2,
'TZ' ) )
THEN
120 CALL
ztzrqf( -1, 0, a, 1, tau, info )
121 CALL
chkxer(
'ZTZRQF', infot, nout, lerr, ok )
123 CALL
ztzrqf( 1, 0, a, 1, tau, info )
124 CALL
chkxer(
'ZTZRQF', infot, nout, lerr, ok )
126 CALL
ztzrqf( 2, 2, a, 1, tau, info )
127 CALL
chkxer(
'ZTZRQF', infot, nout, lerr, ok )
133 CALL
ztzrzf( -1, 0, a, 1, tau, w, 1, info )
134 CALL
chkxer(
'ZTZRZF', infot, nout, lerr, ok )
136 CALL
ztzrzf( 1, 0, a, 1, tau, w, 1, info )
137 CALL
chkxer(
'ZTZRZF', infot, nout, lerr, ok )
139 CALL
ztzrzf( 2, 2, a, 1, tau, w, 1, info )
140 CALL
chkxer(
'ZTZRZF', infot, nout, lerr, ok )
142 CALL
ztzrzf( 2, 2, a, 2, tau, w, 0, info )
143 CALL
chkxer(
'ZTZRZF', infot, nout, lerr, ok )
145 CALL
ztzrzf( 2, 3, a, 2, tau, w, 1, info )
146 CALL
chkxer(
'ZTZRZF', infot, nout, lerr, ok )
151 CALL
alaesm( path, ok, nout )
subroutine zerrtz(PATH, NUNIT)
ZERRTZ
subroutine ztzrqf(M, N, A, LDA, TAU, INFO)
ZTZRQF
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine ztzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
ZTZRZF
LOGICAL function lsamen(N, CA, CB)
LSAMEN
subroutine alaesm(PATH, OK, NOUT)
ALAESM