75 COMPLEX A( NMAX, NMAX ), TAU( NMAX ), W( NMAX )
90 COMMON / infoc / infot, nout, ok, lerr
91 COMMON / srnamc / srnamt
100 a( 1, 1 ) = cmplx( 1.e+0, -1.e+0 )
101 a( 1, 2 ) = cmplx( 2.e+0, -2.e+0 )
102 a( 2, 2 ) = cmplx( 3.e+0, -3.e+0 )
103 a( 2, 1 ) = cmplx( 4.e+0, -4.e+0 )
104 w( 1 ) = cmplx( 0.e+0, 0.e+0 )
105 w( 2 ) = cmplx( 0.e+0, 0.e+0 )
110 WRITE( nout, fmt = * )
111 IF(
lsamen( 2, c2,
'TZ' ) )
THEN
117 CALL ctzrzf( -1, 0, a, 1, tau, w, 1, info )
118 CALL chkxer(
'CTZRZF', infot, nout, lerr, ok )
120 CALL ctzrzf( 1, 0, a, 1, tau, w, 1, info )
121 CALL chkxer(
'CTZRZF', infot, nout, lerr, ok )
123 CALL ctzrzf( 2, 2, a, 1, tau, w, 1, info )
124 CALL chkxer(
'CTZRZF', infot, nout, lerr, ok )
126 CALL ctzrzf( 2, 2, a, 2, tau, w, 0, info )
127 CALL chkxer(
'CTZRZF', infot, nout, lerr, ok )
129 CALL ctzrzf( 2, 3, a, 2, tau, w, 1, info )
130 CALL chkxer(
'CTZRZF', infot, nout, lerr, ok )
135 CALL alaesm( path, ok, nout )
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