258 SUBROUTINE dorhr_col( M, N, NB, A, LDA, T, LDT, D, INFO )
266 INTEGER INFO, LDA, LDT, M, N, NB
269 DOUBLE PRECISION A( LDA, * ), D( * ), T( LDT, * )
275 DOUBLE PRECISION ONE, ZERO
276 parameter( one = 1.0d+0, zero = 0.0d+0 )
279 INTEGER I, IINFO, J, JB, JBTEMP1, JBTEMP2, JNB,
296 ELSE IF( n.LT.0 .OR. n.GT.m )
THEN
298 ELSE IF( nb.LT.1 )
THEN
300 ELSE IF( lda.LT.max( 1, m ) )
THEN
302 ELSE IF( ldt.LT.max( 1, min( nb, n ) ) )
THEN
309 CALL xerbla(
'DORHR_COL', -info )
315 IF( min( m, n ).EQ.0 )
THEN
337 CALL dtrsm(
'R',
'U',
'N',
'N', m-n, n, one, a, lda,
354 jnb = min( nplusone-jb, nb )
364 CALL dcopy( j-jbtemp1, a( jb, j ), 1, t( 1, j ), 1 )
379 IF( d( j ).EQ.one )
THEN
380 CALL dscal( j-jbtemp1, -one, t( 1, j ), 1 )
429 CALL dtrsm(
'R',
'L',
'T',
'U', jnb, jnb, one,
430 $ a( jb, jb ), lda, t( 1, jb ), ldt )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dcopy(N, DX, INCX, DY, INCY)
DCOPY
subroutine dscal(N, DA, DX, INCX)
DSCAL
subroutine dtrsm(SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB)
DTRSM
subroutine dlaorhr_col_getrfnp(M, N, A, LDA, D, INFO)
DLAORHR_COL_GETRFNP
subroutine dorhr_col(M, N, NB, A, LDA, T, LDT, D, INFO)
DORHR_COL