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
LOGICAL function lsamen(N, CA, CB)
LSAMEN
subroutine alaesm(PATH, OK, NOUT)
ALAESM