115 SUBROUTINE sopgtr( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO )
127 REAL AP( * ), Q( ldq, * ), TAU( * ), WORK( * )
134 parameter ( zero = 0.0e+0, one = 1.0e+0 )
138 INTEGER I, IINFO, IJ, J
155 upper = lsame( uplo,
'U' )
156 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
158 ELSE IF( n.LT.0 )
THEN
160 ELSE IF( ldq.LT.max( 1, n ) )
THEN
164 CALL xerbla(
'SOPGTR', -info )
197 CALL sorg2l( n-1, n-1, n-1, q, ldq, tau, work, iinfo )
224 CALL sorg2r( n-1, n-1, n-1, q( 2, 2 ), ldq, tau, work,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine sopgtr(UPLO, N, AP, TAU, Q, LDQ, WORK, INFO)
SOPGTR
subroutine sorg2r(M, N, K, A, LDA, TAU, WORK, INFO)
SORG2R generates all or part of the orthogonal matrix Q from a QR factorization determined by sgeqrf ...
subroutine sorg2l(M, N, K, A, LDA, TAU, WORK, INFO)
SORG2L generates all or part of the orthogonal matrix Q from a QL factorization determined by sgeqlf ...