55 SUBROUTINE zerrtz( PATH, NUNIT )
71 parameter ( nmax = 2 )
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 )
112 WRITE( nout, fmt = * )
113 IF( lsamen( 2, c2,
'TZ' ) )
THEN
120 CALL ztzrzf( -1, 0, a, 1, tau, w, 1, info )
121 CALL chkxer(
'ZTZRZF', infot, nout, lerr, ok )
123 CALL ztzrzf( 1, 0, a, 1, tau, w, 1, info )
124 CALL chkxer(
'ZTZRZF', infot, nout, lerr, ok )
126 CALL ztzrzf( 2, 2, a, 1, tau, w, 1, info )
127 CALL chkxer(
'ZTZRZF', infot, nout, lerr, ok )
129 CALL ztzrzf( 2, 2, a, 2, tau, w, 0, info )
130 CALL chkxer(
'ZTZRZF', infot, nout, lerr, ok )
132 CALL ztzrzf( 2, 3, a, 2, tau, w, 1, info )
133 CALL chkxer(
'ZTZRZF', infot, nout, lerr, ok )
138 CALL alaesm( path, ok, nout )
subroutine ztzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
ZTZRZF
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine zerrtz(PATH, NUNIT)
ZERRTZ