56 SUBROUTINE cerrlqt( PATH, NUNIT )
73 parameter ( nmax = 2 )
79 COMPLEX 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.e0 / cmplx(
REAL( I+J ), 0.E0 )
108 c( i, j ) = 1.e0 / cmplx(
REAL( I+J ), 0.E0 )
109 t( i, j ) = 1.e0 / cmplx(
REAL( I+J ), 0.E0 )
121 CALL cgelqt( -1, 0, 1, a, 1, t, 1, w, info )
122 CALL chkxer(
'CGELQT', infot, nout, lerr, ok )
124 CALL cgelqt( 0, -1, 1, a, 1, t, 1, w, info )
125 CALL chkxer(
'CGELQT', infot, nout, lerr, ok )
127 CALL cgelqt( 0, 0, 0, a, 1, t, 1, w, info )
128 CALL chkxer(
'CGELQT', infot, nout, lerr, ok )
130 CALL cgelqt( 2, 1, 1, a, 1, t, 1, w, info )
131 CALL chkxer(
'CGELQT', infot, nout, lerr, ok )
133 CALL cgelqt( 2, 2, 2, a, 2, t, 1, w, info )
134 CALL chkxer(
'CGELQT', infot, nout, lerr, ok )
140 CALL cgelqt3( -1, 0, a, 1, t, 1, info )
141 CALL chkxer(
'CGELQT3', infot, nout, lerr, ok )
143 CALL cgelqt3( 0, -1, a, 1, t, 1, info )
144 CALL chkxer(
'CGELQT3', infot, nout, lerr, ok )
146 CALL cgelqt3( 2, 2, a, 1, t, 1, info )
147 CALL chkxer(
'CGELQT3', infot, nout, lerr, ok )
149 CALL cgelqt3( 2, 2, a, 2, t, 1, info )
150 CALL chkxer(
'CGELQT3', infot, nout, lerr, ok )
156 CALL cgemlqt(
'/',
'N', 0, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
157 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
159 CALL cgemlqt(
'L',
'/', 0, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
160 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
162 CALL cgemlqt(
'L',
'N', -1, 0, 0, 1, a, 1, t, 1, c, 1, w, info )
163 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
165 CALL cgemlqt(
'L',
'N', 0, -1, 0, 1, a, 1, t, 1, c, 1, w, info )
166 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
168 CALL cgemlqt(
'L',
'N', 0, 0, -1, 1, a, 1, t, 1, c, 1, w, info )
169 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
171 CALL cgemlqt(
'R',
'N', 0, 0, -1, 1, a, 1, t, 1, c, 1, w, info )
172 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
174 CALL cgemlqt(
'L',
'N', 0, 0, 0, 0, a, 1, t, 1, c, 1, w, info )
175 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
177 CALL cgemlqt(
'R',
'N', 2, 2, 2, 1, a, 1, t, 1, c, 1, w, info )
178 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
180 CALL cgemlqt(
'L',
'N', 2, 2, 2, 1, a, 1, t, 1, c, 1, w, info )
181 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
183 CALL cgemlqt(
'R',
'N', 1, 1, 1, 1, a, 1, t, 0, c, 1, w, info )
184 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
186 CALL cgemlqt(
'L',
'N', 1, 1, 1, 1, a, 1, t, 1, c, 0, w, info )
187 CALL chkxer(
'CGEMLQT', infot, nout, lerr, ok )
191 CALL alaesm( path, ok, nout )
subroutine alaesm(PATH, OK, NOUT)
ALAESM
recursive subroutine cgelqt3(M, N, A, LDA, T, LDT, INFO)
subroutine cgelqt(M, N, MB, A, LDA, T, LDT, WORK, INFO)
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine cgemlqt(SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, C, LDC, WORK, INFO)
subroutine cerrlqt(PATH, NUNIT)
CERRLQT