73 parameter ( nmax = 2 )
79 COMPLEX A( nmax, nmax ), T( nmax, nmax ), W( nmax ),
80 $ b( nmax, nmax ), c( nmax, 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 ctplqt( -1, 1, 0, 1, a, 1, b, 1, t, 1, w, info )
122 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
124 CALL ctplqt( 1, -1, 0, 1, a, 1, b, 1, t, 1, w, info )
125 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
127 CALL ctplqt( 0, 1, -1, 1, a, 1, b, 1, t, 1, w, info )
128 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
130 CALL ctplqt( 0, 1, 1, 1, a, 1, b, 1, t, 1, w, info )
131 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
133 CALL ctplqt( 0, 1, 0, 0, a, 1, b, 1, t, 1, w, info )
134 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
136 CALL ctplqt( 1, 1, 0, 2, a, 1, b, 1, t, 1, w, info )
137 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
139 CALL ctplqt( 2, 1, 0, 2, a, 1, b, 1, t, 1, w, info )
140 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
142 CALL ctplqt( 2, 1, 0, 1, a, 2, b, 1, t, 1, w, info )
143 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
145 CALL ctplqt( 2, 2, 1, 2, a, 2, b, 2, t, 1, w, info )
146 CALL chkxer(
'CTPLQT', infot, nout, lerr, ok )
152 CALL ctplqt2( -1, 0, 0, a, 1, b, 1, t, 1, info )
153 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
155 CALL ctplqt2( 0, -1, 0, a, 1, b, 1, t, 1, info )
156 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
158 CALL ctplqt2( 0, 0, -1, a, 1, b, 1, t, 1, info )
159 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
161 CALL ctplqt2( 2, 2, 0, a, 1, b, 2, t, 2, info )
162 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
164 CALL ctplqt2( 2, 2, 0, a, 2, b, 1, t, 2, info )
165 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
167 CALL ctplqt2( 2, 2, 0, a, 2, b, 2, t, 1, info )
168 CALL chkxer(
'CTPLQT2', infot, nout, lerr, ok )
174 CALL ctpmlqt(
'/',
'N', 0, 0, 0, 0, 1, a, 1, t, 1, b, 1, c, 1,
176 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
178 CALL ctpmlqt(
'L',
'/', 0, 0, 0, 0, 1, a, 1, t, 1, b, 1, c, 1,
180 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
182 CALL ctpmlqt(
'L',
'N', -1, 0, 0, 0, 1, a, 1, t, 1, b, 1, c, 1,
184 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
186 CALL ctpmlqt(
'L',
'N', 0, -1, 0, 0, 1, a, 1, t, 1, b, 1, c, 1,
188 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
190 CALL ctpmlqt(
'L',
'N', 0, 0, -1, 0, 1, a, 1, t, 1, b, 1, c, 1,
193 CALL ctpmlqt(
'L',
'N', 0, 0, 0, -1, 1, a, 1, t, 1, b, 1, c, 1,
195 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
197 CALL ctpmlqt(
'L',
'N', 0, 0, 0, 0, 0, a, 1, t, 1, b, 1, c, 1,
199 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
201 CALL ctpmlqt(
'R',
'N', 2, 2, 2, 1, 1, a, 1, t, 1, b, 1, c, 1,
203 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
205 CALL ctpmlqt(
'R',
'N', 1, 1, 1, 1, 1, a, 1, t, 0, b, 1, c, 1,
207 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
209 CALL ctpmlqt(
'L',
'N', 1, 1, 1, 1, 1, a, 1, t, 1, b, 0, c, 1,
211 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
213 CALL ctpmlqt(
'L',
'N', 1, 1, 1, 1, 1, a, 1, t, 1, b, 1, c, 0,
215 CALL chkxer(
'CTPMLQT', infot, nout, lerr, ok )
219 CALL alaesm( path, ok, nout )
subroutine ctpmlqt(SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, A, LDA, B, LDB, WORK, INFO)
subroutine ctplqt(M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, INFO)
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine cerrlqtp(PATH, NUNIT)
ZERRLQTP
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine ctplqt2(M, N, L, A, LDA, B, LDB, T, LDT, INFO)