Home
last modified time | relevance | path

Searched refs:TSIZE (Results 1 – 25 of 528) sorted by relevance

12345678910>>...22

/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddgeqr.f172 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 Dsgeqr.f172 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 Dcgeqr.f172 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 Dzgeqr.f172 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 Dzgeqr.f172 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 Dcgeqr.f172 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 Ddgeqr.f172 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 Dsgeqr.f172 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 Ddgeqr.f172 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 Dzgeqr.f172 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 Dsgeqr.f172 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 Dcgeqr.f172 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 Dzgeqr.f172 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 Dcgeqr.f172 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 Ddgeqr.f172 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 Dsgeqr.f172 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 Dcgeqr.f172 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 Ddgeqr.f172 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 Dsgeqr.f172 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 Dzgeqr.f172 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 Ddgeqr.f172 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 Dsgeqr.f172 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 Dcgeqr.f172 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 Dzgeqr.f172 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 Ddtsqr01.f110 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 …]

12345678910>>...22