70 parameter( nmax = 4, lw = nmax*( nmax+2 ) )
72 parameter( one = 1.0e0, zero = 0.0e0 )
75 INTEGER I, IFST, ILST, INFO, J, M, NT
80 REAL RW( LW ), S( NMAX ), SEP( NMAX ), SWORK( NMAX )
81 COMPLEX A( NMAX, NMAX ), B( NMAX, NMAX ),
82 $ C( NMAX, NMAX ), WORK( LW ), X( NMAX )
93 COMMON / infoc / infot, nout, ok, lerr
94 COMMON / srnamc / srnamt
119 CALL ctrsyl(
'X',
'N', 1, 0, 0, a, 1, b, 1, c, 1, scale, info )
120 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
122 CALL ctrsyl(
'N',
'X', 1, 0, 0, a, 1, b, 1, c, 1, scale, info )
123 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
125 CALL ctrsyl(
'N',
'N', 0, 0, 0, a, 1, b, 1, c, 1, scale, info )
126 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
128 CALL ctrsyl(
'N',
'N', 1, -1, 0, a, 1, b, 1, c, 1, scale, info )
129 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
131 CALL ctrsyl(
'N',
'N', 1, 0, -1, a, 1, b, 1, c, 1, scale, info )
132 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
134 CALL ctrsyl(
'N',
'N', 1, 2, 0, a, 1, b, 1, c, 2, scale, info )
135 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
137 CALL ctrsyl(
'N',
'N', 1, 0, 2, a, 1, b, 1, c, 1, scale, info )
138 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
140 CALL ctrsyl(
'N',
'N', 1, 2, 0, a, 2, b, 1, c, 1, scale, info )
141 CALL chkxer(
'CTRSYL', infot, nout, lerr, ok )
148 CALL ctrsyl3(
'X',
'N', 1, 0, 0, a, 1, b, 1, c, 1, scale,
149 $ swork, nmax, info )
150 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
152 CALL ctrsyl3(
'N',
'X', 1, 0, 0, a, 1, b, 1, c, 1, scale,
153 $ swork, nmax, info )
154 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
156 CALL ctrsyl3(
'N',
'N', 0, 0, 0, a, 1, b, 1, c, 1, scale,
157 $ swork, nmax, info )
158 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
160 CALL ctrsyl3(
'N',
'N', 1, -1, 0, a, 1, b, 1, c, 1, scale,
161 $ swork, nmax, info )
162 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
164 CALL ctrsyl3(
'N',
'N', 1, 0, -1, a, 1, b, 1, c, 1, scale,
165 $ swork, nmax, info )
166 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
168 CALL ctrsyl3(
'N',
'N', 1, 2, 0, a, 1, b, 1, c, 2, scale,
169 $ swork, nmax, info )
170 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
172 CALL ctrsyl3(
'N',
'N', 1, 0, 2, a, 1, b, 1, c, 1, scale,
173 $ swork, nmax, info )
174 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
176 CALL ctrsyl3(
'N',
'N', 1, 2, 0, a, 2, b, 1, c, 1, scale,
177 $ swork, nmax, info )
178 CALL chkxer(
'CTRSYL3', infot, nout, lerr, ok )
187 CALL ctrexc(
'X', 1, a, 1, b, 1, ifst, ilst, info )
188 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
190 CALL ctrexc(
'N', -1, a, 1, b, 1, ifst, ilst, info )
191 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
194 CALL ctrexc(
'N', 2, a, 1, b, 1, ifst, ilst, info )
195 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
197 CALL ctrexc(
'V', 2, a, 2, b, 1, ifst, ilst, info )
198 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
202 CALL ctrexc(
'V', 1, a, 1, b, 1, ifst, ilst, info )
203 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
206 CALL ctrexc(
'V', 1, a, 1, b, 1, ifst, ilst, info )
207 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
211 CALL ctrexc(
'V', 1, a, 1, b, 1, ifst, ilst, info )
212 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
215 CALL ctrexc(
'V', 1, a, 1, b, 1, ifst, ilst, info )
216 CALL chkxer(
'CTREXC', infot, nout, lerr, ok )
223 CALL ctrsna(
'X',
'A', sel, 0, a, 1, b, 1, c, 1, s, sep, 1, m,
224 $ work, 1, rw, info )
225 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
227 CALL ctrsna(
'B',
'X', sel, 0, a, 1, b, 1, c, 1, s, sep, 1, m,
228 $ work, 1, rw, info )
229 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
231 CALL ctrsna(
'B',
'A', sel, -1, a, 1, b, 1, c, 1, s, sep, 1, m,
232 $ work, 1, rw, info )
233 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
235 CALL ctrsna(
'V',
'A', sel, 2, a, 1, b, 1, c, 1, s, sep, 2, m,
236 $ work, 2, rw, info )
237 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
239 CALL ctrsna(
'B',
'A', sel, 2, a, 2, b, 1, c, 2, s, sep, 2, m,
240 $ work, 2, rw, info )
241 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
243 CALL ctrsna(
'B',
'A', sel, 2, a, 2, b, 2, c, 1, s, sep, 2, m,
244 $ work, 2, rw, info )
245 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
247 CALL ctrsna(
'B',
'A', sel, 1, a, 1, b, 1, c, 1, s, sep, 0, m,
248 $ work, 1, rw, info )
249 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
251 CALL ctrsna(
'B',
'S', sel, 2, a, 2, b, 2, c, 2, s, sep, 1, m,
252 $ work, 1, rw, info )
253 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
255 CALL ctrsna(
'B',
'A', sel, 2, a, 2, b, 2, c, 2, s, sep, 2, m,
256 $ work, 1, rw, info )
257 CALL chkxer(
'CTRSNA', infot, nout, lerr, ok )
265 CALL ctrsen(
'X',
'N', sel, 0, a, 1, b, 1, x, m, s( 1 ), sep( 1 ),
267 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
269 CALL ctrsen(
'N',
'X', sel, 0, a, 1, b, 1, x, m, s( 1 ), sep( 1 ),
271 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
273 CALL ctrsen(
'N',
'N', sel, -1, a, 1, b, 1, x, m, s( 1 ),
274 $ sep( 1 ), work, 1, info )
275 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
277 CALL ctrsen(
'N',
'N', sel, 2, a, 1, b, 1, x, m, s( 1 ), sep( 1 ),
279 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
281 CALL ctrsen(
'N',
'V', sel, 2, a, 2, b, 1, x, m, s( 1 ), sep( 1 ),
283 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
285 CALL ctrsen(
'N',
'V', sel, 2, a, 2, b, 2, x, m, s( 1 ), sep( 1 ),
287 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
289 CALL ctrsen(
'E',
'V', sel, 3, a, 3, b, 3, x, m, s( 1 ), sep( 1 ),
291 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
293 CALL ctrsen(
'V',
'V', sel, 3, a, 3, b, 3, x, m, s( 1 ), sep( 1 ),
295 CALL chkxer(
'CTRSEN', infot, nout, lerr, ok )
301 WRITE( nout, fmt = 9999 )path, nt
303 WRITE( nout, fmt = 9998 )path
306 9999
FORMAT( 1x, a3,
' routines passed the tests of the error exits (',
307 $ i3,
' tests done)' )
308 9998
FORMAT(
' *** ', a3,
' routines failed the tests of the error ',
subroutine chkxer(srnamt, infot, nout, lerr, ok)
subroutine cerrec(path, nunit)
CERREC
subroutine ctrexc(compq, n, t, ldt, q, ldq, ifst, ilst, info)
CTREXC
subroutine ctrsen(job, compq, select, n, t, ldt, q, ldq, w, m, s, sep, work, lwork, info)
CTRSEN
subroutine ctrsna(job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, rwork, info)
CTRSNA
subroutine ctrsyl3(trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale, swork, ldswork, info)
CTRSYL3
subroutine ctrsyl(trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale, info)
CTRSYL