55 SUBROUTINE cerrtz( PATH, NUNIT )
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)
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine ctzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
CTZRZF