55 SUBROUTINE cerrqp( PATH, NUNIT )
71 parameter ( nmax = 3 )
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 cgeqp3( -1, 0, a, 1, ip, tau, w, lw, rw, info )
123 CALL chkxer(
'CGEQP3', infot, nout, lerr, ok )
125 CALL cgeqp3( 1, -1, a, 1, ip, tau, w, lw, rw, info )
126 CALL chkxer(
'CGEQP3', infot, nout, lerr, ok )
128 CALL cgeqp3( 2, 3, a, 1, ip, tau, w, lw, rw, info )
129 CALL chkxer(
'CGEQP3', infot, nout, lerr, ok )
131 CALL cgeqp3( 2, 2, a, 2, ip, tau, w, lw-10, rw, info )
132 CALL chkxer(
'CGEQP3', infot, nout, lerr, ok )
137 CALL alaesm( path, ok, nout )
subroutine alaesm(PATH, OK, NOUT)
ALAESM
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine cgeqp3(M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, INFO)
CGEQP3
subroutine cerrqp(PATH, NUNIT)
CERRQP