42 INTEGER hl( 2 ), hpiv( 2 )
44 REAL c( nmax ), r( nmax ), r1( nmax ), r2( nmax ),
45 $ rf( nmax ), rw( nmax )
46 COMPLEX a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
47 $ w( 2*nmax ), x( nmax ), iw( nmax )
54 EXTERNAL cgbsv, cgbsvx, cgesv, cgesvx, cgtsv, cgtsvx,
55 $ chesv, chesvx,
chkxer, chpsv, chpsvx, cpbsv,
56 $ cpbsvx, cposv,
cposvx, cppsv, cppsvx, cptsv,
57 $ cptsvx, cspsv, cspsvx, csysv, csysvx
65 common / infoc / infot, nout, ok, lerr
66 common / srnamc / srnamt
74 WRITE( nout, fmt = * )
86 a( i, j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
87 af( i, j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
101 IF(
lsamen( 2, c2,
'GE' ) )
THEN
106 $ 2, 1, hl, hpiv, info )
114 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
117 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
120 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
123 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
127 CALL plasma_dealloc_handle( hl, info )
128 CALL plasma_dealloc_handle( hpiv, info )
136 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
139 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
142 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
145 CALL
chkxer(
'CGESV ', infot, nout, info, ok )
147 ELSE IF(
lsamen( 2, c2,
'PO' ) )
THEN
154 CALL
chkxer(
'CPOSV ', infot, nout, info, ok )
156 CALL
plasma_cposv( plasmaupper, -1, 0, a, 1, b, 1, info )
157 CALL
chkxer(
'CPOSV ', infot, nout, info, ok )
159 CALL
plasma_cposv( plasmaupper, 0, -1, a, 1, b, 1, info )
160 CALL
chkxer(
'CPOSV ', infot, nout, info, ok )
162 CALL
plasma_cposv( plasmaupper, 2, 0, a, 1, b, 2, info )
163 CALL
chkxer(
'CPOSV ', infot, nout, info, ok )
165 CALL
plasma_cposv( plasmaupper, 2, 0, a, 2, b, 1, info )
166 CALL
chkxer(
'CPOSV ', infot, nout, info, ok )
172 CALL
cposvx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
173 $ rcond, r1, r2, w, iw, info )
174 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
176 CALL
cposvx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
177 $ rcond, r1, r2, w, iw, info )
178 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
180 CALL
cposvx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
181 $ rcond, r1, r2, w, iw, info )
182 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
184 CALL
cposvx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
185 $ rcond, r1, r2, w, iw, info )
186 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
188 CALL
cposvx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
189 $ rcond, r1, r2, w, iw, info )
190 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
192 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
193 $ rcond, r1, r2, w, iw, info )
194 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
197 CALL
cposvx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
198 $ rcond, r1, r2, w, iw, info )
199 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
202 CALL
cposvx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
203 $ rcond, r1, r2, w, iw, info )
204 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
206 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
207 $ rcond, r1, r2, w, iw, info )
208 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
210 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
211 $ rcond, r1, r2, w, iw, info )
212 CALL
chkxer(
'CPOSVX', infot, nout, info, ok )
218 WRITE( nout, fmt = 9999 )path
220 WRITE( nout, fmt = 9998 )path
223 9999
format( 1x, a3,
' drivers passed the tests of the error exits' )
224 9998
format(
' *** ', a3,
' drivers failed the tests of the error ',