80 COMPLEX A( nmax, nmax ), TAU( nmax ),
96 COMMON / infoc / infot, nout, ok, lerr
97 COMMON / srnamc / srnamt
107 a( 1, 1 ) = cmplx( 1.0e+0, -1.0e+0 )
108 a( 1, 2 ) = cmplx( 2.0e+0, -2.0e+0 )
109 a( 2, 2 ) = cmplx( 3.0e+0, -3.0e+0 )
110 a( 2, 1 ) = cmplx( 4.0e+0, -4.0e+0 )
112 WRITE( nout, fmt = * )
116 IF( lsamen( 2, c2,
'QP' ) )
THEN
122 CALL
cgeqpf( -1, 0, a, 1, ip, tau, w, rw, info )
123 CALL
chkxer(
'CGEQPF', infot, nout, lerr, ok )
125 CALL
cgeqpf( 0, -1, a, 1, ip, tau, w, rw, info )
126 CALL
chkxer(
'CGEQPF', infot, nout, lerr, ok )
128 CALL
cgeqpf( 2, 0, a, 1, ip, tau, w, rw, info )
129 CALL
chkxer(
'CGEQPF', infot, nout, lerr, ok )
135 CALL
cgeqp3( -1, 0, a, 1, ip, tau, w, lw, rw, info )
136 CALL
chkxer(
'CGEQP3', infot, nout, lerr, ok )
138 CALL
cgeqp3( 1, -1, a, 1, ip, tau, w, lw, rw, info )
139 CALL
chkxer(
'CGEQP3', infot, nout, lerr, ok )
141 CALL
cgeqp3( 2, 3, a, 1, ip, tau, w, lw, rw, info )
142 CALL
chkxer(
'CGEQP3', infot, nout, lerr, ok )
144 CALL
cgeqp3( 2, 2, a, 2, ip, tau, w, lw-10, rw, info )
145 CALL
chkxer(
'CGEQP3', infot, nout, lerr, ok )
150 CALL
alaesm( path, ok, nout )
subroutine cgeqp3(M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, INFO)
CGEQP3
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine cerrqp(PATH, NUNIT)
CERRQP
subroutine cgeqpf(M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO)
CGEQPF
subroutine alaesm(PATH, OK, NOUT)
ALAESM