/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 181 INTEGER INFO, LDA, M, N, TSIZE, LWORK local 214 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 219 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 220 IF( TSIZE.NE.-1 ) MINT = .TRUE. 249 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 250 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 252 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 269 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 181 INTEGER INFO, LDA, M, N, TSIZE, LWORK local 214 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 219 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 220 IF( TSIZE.NE.-1 ) MINT = .TRUE. 249 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 250 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 252 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 269 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 181 INTEGER INFO, LDA, M, N, TSIZE, LWORK local 214 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 219 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 220 IF( TSIZE.NE.-1 ) MINT = .TRUE. 249 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 250 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 252 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 269 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 181 INTEGER INFO, LDA, M, N, TSIZE, LWORK local 214 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 219 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 220 IF( TSIZE.NE.-1 ) MINT = .TRUE. 249 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 250 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 252 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 269 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dgeqr.f | 172 SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | sgeqr.f | 172 SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | cgeqr.f | 172 SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
H A D | zgeqr.f | 172 SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, argument 180 INTEGER INFO, LDA, M, N, TSIZE, LWORK 213 LQUERY = ( TSIZE.EQ.-1 .OR. TSIZE.EQ.-2 .OR. 218 IF( TSIZE.EQ.-2 .OR. LWORK.EQ.-2 ) THEN 219 IF( TSIZE.NE.-1 ) MINT = .TRUE. 248 IF( ( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) .OR. LWORK.LT.NB*N ) 249 $ .AND. ( LWORK.GE.N ) .AND. ( TSIZE.GE.MINTSZ ) 251 IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 ) ) THEN 268 ELSE IF( TSIZE.LT.MAX( 1, NB*N*NBLCKS + 5 )
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | dtsqr01.f | 110 INTEGER INFO, J, K, L, LWORK, TSIZE, MNB 173 TSIZE = INT( TQUERY( 1 ) ) 190 ALLOCATE ( T( TSIZE ) ) 193 CALL DGEQR( M, N, AF, M, T, TSIZE, WORK, LWORK, INFO ) 199 CALL DGEMQR( 'L', 'N', M, M, K, AF, M, T, TSIZE, Q, M, 236 CALL DGEMQR( 'L', 'N', M, N, K, AF, M, T, TSIZE, CF, M, 256 CALL DGEMQR( 'L', 'T', M, N, K, AF, M, T, TSIZE, CF, M, 316 TSIZE = INT( TQUERY( 1 ) ) 333 ALLOCATE ( T( TSIZE ) ) 336 CALL DGELQ( M, N, AF, M, T, TSIZE, WORK, LWORK, INFO ) [all …]
|