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 ztzrqf(M, N, A, LDA, TAU, INFO)
ZTZRQF
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
logical function lsamen(N, CA, CB)
LSAMEN
subroutine ztzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
ZTZRZF
subroutine alaesm(PATH, OK, NOUT)
ALAESM