39 DOUBLE PRECISION a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
40 $ w( nmax ), x( nmax )
45 $ dorgqr, dorm2r, dormqr
53 common / infoc / infot, nout, ok, lerr
54 common / srnamc / srnamt
62 WRITE( nout, fmt = * )
73 a( i, j ) = 1.d0 / dble( i+j )
74 af( i, j ) = 1.d0 / dble( i+j )
94 CALL
chkxer(
'DGEQRF', infot, nout, info, ok )
97 CALL
chkxer(
'DGEQRF', infot, nout, info, ok )
100 CALL
chkxer(
'DGEQRF', infot, nout, info, ok )
107 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
110 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
113 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
116 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
119 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
122 CALL
chkxer(
'DGEQRS', infot, nout, info, ok )
129 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
132 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
135 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
138 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
141 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
144 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
147 CALL
chkxer(
'DORGQR', infot, nout, info, ok )
153 CALL
plasma_dormqr(
'/', plasmatrans, 0, 0, 0, a, 1, ht, af, 1,
155 CALL
chkxer(
'DORMQR', infot, nout, info, ok )
157 CALL
plasma_dormqr( plasmaleft,
'/', 0, 0, 0, a, 1, ht, af, 1,
159 CALL
chkxer(
'DORMQR', infot, nout, info, ok )
161 CALL
plasma_dormqr( plasmaleft, plasmatrans, -1, 0, 0, a, 1, ht,
163 CALL
chkxer(
'DORMQR', infot, nout, info, ok )
165 CALL
plasma_dormqr( plasmaleft, plasmatrans, 0, -1, 0, a, 1, ht,
167 CALL
chkxer(
'DORMQR', infot, nout, info, ok )
169 CALL
plasma_dormqr( plasmaleft, plasmatrans, 0, 0, -1, a, 1, ht,
171 CALL
chkxer(
'DORMQR', infot, nout, info, ok )
199 CALL
alaesm( path, ok, nout )
203 CALL plasma_dealloc_handle( ht, info )