55 SUBROUTINE cerrqp( PATH, NUNIT )
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