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