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 alaesm(path, ok, nout)
ALAESM
subroutine chkxer(srnamt, infot, nout, lerr, ok)
subroutine cerrtz(path, nunit)
CERRTZ
subroutine ctzrzf(m, n, a, lda, tau, work, lwork, info)
CTZRZF