55 SUBROUTINE serrqp( PATH, NUNIT )
79 REAL A( nmax, nmax ), TAU( nmax ), W( 3*nmax+1 )
94 COMMON / infoc / infot, nout, ok, lerr
95 COMMON / srnamc / srnamt
100 WRITE( nout, fmt = * )
109 IF( lsamen( 2, c2,
'QP' ) )
THEN
117 CALL sgeqpf( -1, 0, a, 1, ip, tau, w, info )
118 CALL chkxer(
'SGEQPF', infot, nout, lerr, ok )
120 CALL sgeqpf( 0, -1, a, 1, ip, tau, w, info )
121 CALL chkxer(
'SGEQPF', infot, nout, lerr, ok )
123 CALL sgeqpf( 2, 0, a, 1, ip, tau, w, info )
124 CALL chkxer(
'SGEQPF', infot, nout, lerr, ok )
130 CALL sgeqp3( -1, 0, a, 1, ip, tau, w, lw, info )
131 CALL chkxer(
'SGEQP3', infot, nout, lerr, ok )
133 CALL sgeqp3( 1, -1, a, 1, ip, tau, w, lw, info )
134 CALL chkxer(
'SGEQP3', infot, nout, lerr, ok )
136 CALL sgeqp3( 2, 3, a, 1, ip, tau, w, lw, info )
137 CALL chkxer(
'SGEQP3', infot, nout, lerr, ok )
139 CALL sgeqp3( 2, 2, a, 2, ip, tau, w, lw-10, info )
140 CALL chkxer(
'SGEQP3', infot, nout, lerr, ok )
145 CALL alaesm( path, ok, nout )
subroutine sgeqp3(M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO)
SGEQP3
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine serrqp(PATH, NUNIT)
SERRQP
subroutine sgeqpf(M, N, A, LDA, JPVT, TAU, WORK, INFO)
SGEQPF
subroutine alaesm(PATH, OK, NOUT)
ALAESM