39 COMPLEX a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
40 $ w( nmax ), x( nmax )
45 $ cungqr, cunm2r, cunmqr
53 common / infoc / infot, nout, ok, lerr
54 common / srnamc / srnamt
62 WRITE( nout, fmt = * )
73 a( i, j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
74 af( i, j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
93 CALL
chkxer(
'CGEQRF', infot, nout, info, ok )
96 CALL
chkxer(
'CGEQRF', infot, nout, info, ok )
99 CALL
chkxer(
'CGEQRF', infot, nout, info, ok )
106 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
109 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
112 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
115 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
118 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
121 CALL
chkxer(
'CGEQRS', infot, nout, info, ok )
128 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
131 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
134 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
137 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
140 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
143 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
146 CALL
chkxer(
'CUNGQR', infot, nout, info, ok )
152 CALL
plasma_cunmqr(
'/', plasmaconjtrans, 0, 0, 0, a, 1, ht, af,
154 CALL
chkxer(
'CUNMQR', infot, nout, info, ok )
156 CALL
plasma_cunmqr( plasmaleft,
'/', 0, 0, 0, a, 1, ht, af, 1,
158 CALL
chkxer(
'CUNMQR', infot, nout, info, ok )
160 CALL
plasma_cunmqr( plasmaleft, plasmaconjtrans, -1, 0, 0, a, 1,
162 CALL
chkxer(
'CUNMQR', infot, nout, info, ok )
164 CALL
plasma_cunmqr( plasmaleft, plasmaconjtrans, 0, -1, 0, a, 1,
166 CALL
chkxer(
'CUNMQR', infot, nout, info, ok )
168 CALL
plasma_cunmqr( plasmaleft, plasmaconjtrans, 0, 0, -1, a, 1,
170 CALL
chkxer(
'CUNMQR', infot, nout, info, ok )
198 CALL
alaesm( path, ok, nout )
202 CALL plasma_dealloc_handle( ht, info )