39 REAL a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
40 $ w( nmax ), x( nmax )
45 $ sorglq, sorml2, sormlq
53 common / infoc / infot, nout, ok, lerr
54 common / srnamc / srnamt
62 WRITE( nout, fmt = * )
73 a( i, j ) = 1. /
REAL( i+j )
74 af( i, j ) = 1. /
REAL( i+j )
93 CALL
chkxer(
'SGELQF', infot, nout, info, ok )
96 CALL
chkxer(
'SGELQF', infot, nout, info, ok )
99 CALL
chkxer(
'SGELQF', infot, nout, info, ok )
106 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
109 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
112 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
115 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
118 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
121 CALL
chkxer(
'SGELQS', infot, nout, info, ok )
128 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
131 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
134 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
137 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
140 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
143 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
146 CALL
chkxer(
'SORGLQ', infot, nout, info, ok )
152 CALL
plasma_sormlq(
'/', plasmatrans, 0, 0, 0, a, 1, ht, af, 1,
154 CALL
chkxer(
'SORMLQ', infot, nout, info, ok )
156 CALL
plasma_sormlq( plasmaleft,
'/', 0, 0, 0, a, 1, ht, af, 1,
158 CALL
chkxer(
'SORMLQ', infot, nout, info, ok )
160 CALL
plasma_sormlq( plasmaleft, plasmatrans, -1, 0, 0, a, 1, ht,
162 CALL
chkxer(
'SORMLQ', infot, nout, info, ok )
164 CALL
plasma_sormlq( plasmaleft, plasmatrans, 0, -1, 0, a, 1, ht,
166 CALL
chkxer(
'SORMLQ', infot, nout, info, ok )
168 CALL
plasma_sormlq( plasmaleft, plasmatrans, 0, 0, -1, a, 1, ht,
170 CALL
chkxer(
'SORMLQ', infot, nout, info, ok )
195 CALL
alaesm( path, ok, nout )
199 CALL plasma_dealloc_handle( ht, info )