Home
last modified time | relevance | path

Searched refs:TAUQ (Results 1 – 25 of 182) sorted by relevance

12345678

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddgebd2.f190 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
H A Dsgebd2.f190 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
H A Dzgebd2.f190 SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 COMPLEX*16 A( LDA, * ), TAUP( * ), TAUQ( * ), WORK( * )
249 $ TAUQ( I ) )
257 $ DCONJG( TAUQ( I ) ), A( I, I+1 ), LDA, WORK )
312 $ TAUQ( I ) )
319 $ DCONJG( TAUQ( I ) ), A( I+1, I+1 ), LDA,
323 TAUQ( I ) = ZERO
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddgebd2.f188 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
H A Dsgebd2.f188 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
/dports/math/blas/lapack-3.10.0/SRC/
H A Ddgebd2.f188 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
H A Dsgebd2.f188 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/
H A Ddgebd2.f190 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Ddgebd2.f1 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
13 $ TAUQ( * ), WORK( * )
166 $ TAUQ( I ) )
172 CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
220 $ TAUQ( I ) )
226 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
230 TAUQ( I ) = ZERO
H A Dsgebd2.f1 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
13 $ TAUQ( * ), WORK( * ) local
166 $ TAUQ( I ) )
172 CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
220 $ TAUQ( I ) )
226 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
230 TAUQ( I ) = ZERO
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddgebd2.f188 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
H A Dsgebd2.f188 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
/dports/math/lapack/lapack-3.10.0/SRC/
H A Ddgebd2.f188 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
H A Dsgebd2.f188 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
/dports/math/algae/algae-4.3.6/lapack/
H A Ddgebd2.f1 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
13 $ TAUQ( * ), WORK( * )
166 $ TAUQ( I ) )
173 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
222 $ TAUQ( I ) )
228 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
232 TAUQ( I ) = ZERO
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Ddgebd2.f190 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddgebd2.f190 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * ) local
246 $ TAUQ( I ) )
253 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
H A Dsgebd2.f190 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * ) local
246 $ TAUQ( I ) )
253 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Ddgebd2.f1 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
13 $ TAUQ( * ), WORK( * )
166 $ TAUQ( I ) )
172 CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
220 $ TAUQ( I ) )
226 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
230 TAUQ( I ) = ZERO
H A Dsgebd2.f1 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
13 $ TAUQ( * ), WORK( * )
166 $ TAUQ( I ) )
172 CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
220 $ TAUQ( I ) )
226 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
230 TAUQ( I ) = ZERO
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/
H A Ddgebd2.f190 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddgebd2.f188 SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL DLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL DLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
H A Dsgebd2.f188 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
199 $ TAUQ( * ), WORK( * )
243 $ TAUQ( I ) )
250 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
299 $ TAUQ( I ) )
305 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
309 TAUQ( I ) = ZERO
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/
H A Dsgebd2.f190 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/
H A Dsgebd2.f190 SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) argument
202 $ TAUQ( * ), WORK( * )
246 $ TAUQ( I ) )
253 $ CALL SLARF( 'Left', M-I+1, N-I, A( I, I ), 1, TAUQ( I ),
302 $ TAUQ( I ) )
308 CALL SLARF( 'Left', M-I, N-I, A( I+1, I ), 1, TAUQ( I ),
312 TAUQ( I ) = ZERO

12345678