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 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 xerbla(SRNAME, INFO)
XERBLA
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 ...