73 parameter ( nmax = 2 )
79 REAL a( nmax, nmax ), t( nmax, nmax ), w( nmax ),
92 COMMON / infoc / infot, nout, ok, lerr
93 COMMON / srnamc / srnamt
101 WRITE( nout, fmt = * )
107 a( i, j ) = 1.d0 /
REAL( i+j )
108 c( i, j ) = 1.d0 /
REAL( i+j )
109 t( i, j ) = 1.d0 /
REAL( i+j )
121 CALL sgelqt( -1, 0, 1, a, 1, t, 1, w, info )
122 CALL chkxer(
'SGELQT', infot, nout, lerr, ok )
124 CALL sgelqt( 0, -1, 1, a, 1, t, 1, w, info )
125 CALL chkxer(
'SGELQT', infot, nout, lerr, ok )
127 CALL sgelqt( 0, 0, 0, a, 1, t, 1, w, info )
128 CALL chkxer(
'SGELQT', infot, nout, lerr, ok )
130 CALL sgelqt( 2, 1, 1, a, 1, t, 1, w, info )
131 CALL chkxer(
'SGELQT', infot, nout, lerr, ok )
133 CALL sgelqt( 2, 2, 2, a, 2, t, 1, w, info )
134 CALL chkxer(
'SGELQT', infot, nout, lerr, ok )
140 CALL sgelqt3( -1, 0, a, 1, t, 1, info )
141 CALL chkxer(
'SGELQT3', infot, nout, lerr, ok )
143 CALL sgelqt3( 0, -1, a, 1, t, 1, info )
144 CALL chkxer(
'SGELQT3', infot, nout, lerr, ok )
146 CALL sgelqt3( 2, 2, a, 1, t, 1, info )
147 CALL chkxer(
'SGELQT3', infot, nout, lerr, ok )
149 CALL sgelqt3( 2, 2, a, 2, t, 1, info )
150 CALL chkxer(
'SGELQT3', infot, nout, lerr, ok )
156 CALL sgemlqt(
'/',
'N', 0, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
157 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
159 CALL sgemlqt(
'L',
'/', 0, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
160 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
162 CALL sgemlqt(
'L',
'N', -1, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
163 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
165 CALL sgemlqt(
'L',
'N', 0, -1, 0, 1, a, 1, t, 1, c, 1, w, info )
166 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
168 CALL sgemlqt(
'L',
'N', 0, 0, -1, 1, a, 1, t, 1, c, 1, w, info )
169 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
171 CALL sgemlqt(
'R',
'N', 0, 0, -1, 1, a, 1, t, 1, c, 1, w, info )
172 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
174 CALL sgemlqt(
'L',
'N', 0, 0, 0, 0, a, 1, t, 1, c, 1, w, info )
175 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
177 CALL sgemlqt(
'R',
'N', 2, 2, 2, 1, a, 1, t, 1, c, 1, w, info )
178 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
180 CALL sgemlqt(
'L',
'N', 2, 2, 2, 1, a, 1, t, 1, c, 1, w, info )
181 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
183 CALL sgemlqt(
'R',
'N', 1, 1, 1, 1, a, 1, t, 0, c, 1, w, info )
184 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
186 CALL sgemlqt(
'L',
'N', 1, 1, 1, 1, a, 1, t, 1, c, 0, w, info )
187 CALL chkxer(
'SGEMLQT', infot, nout, lerr, ok )
191 CALL alaesm( path, ok, nout )
subroutine sgelqt(M, N, MB, A, LDA, T, LDT, WORK, INFO)
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine sgemlqt(SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, C, LDC, WORK, INFO)
recursive subroutine sgelqt3(M, N, A, LDA, T, LDT, INFO)
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)