/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dgebd2.f | 190 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 D | sgebd2.f | 190 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 D | zgebd2.f | 190 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 D | dgebd2.f | 188 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 D | sgebd2.f | 188 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 D | dgebd2.f | 188 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 D | sgebd2.f | 188 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 D | dgebd2.f | 190 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 D | dgebd2.f | 1 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 D | sgebd2.f | 1 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 D | dgebd2.f | 188 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 D | sgebd2.f | 188 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 D | dgebd2.f | 188 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 D | sgebd2.f | 188 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 D | dgebd2.f | 1 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 D | dgebd2.f | 190 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 D | dgebd2.f | 190 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 D | sgebd2.f | 190 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 D | dgebd2.f | 1 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 D | sgebd2.f | 1 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 D | dgebd2.f | 190 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 D | dgebd2.f | 188 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 D | sgebd2.f | 188 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 D | sgebd2.f | 190 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 D | sgebd2.f | 190 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
|