/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slaqz2.f | 189 EXTERNAL :: SLARTG, SROT 198 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) 201 CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) 204 CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, 210 CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, 217 CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, 225 CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, 227 CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, 237 CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, 257 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) [all …]
|
H A D | slagv2.f | 183 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 233 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 234 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 243 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 244 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 287 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 288 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 311 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 312 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 330 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 237 EXTERNAL SLARTG, SLASET, SROT, XERBLA 333 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 335 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 338 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 346 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 347 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 350 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | slaqz2.f | 189 EXTERNAL :: SLARTG, SROT 198 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) 201 CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) 204 CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, 210 CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, 217 CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, 225 CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, 227 CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, 237 CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, 257 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) [all …]
|
H A D | slagv2.f | 183 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 233 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 234 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 243 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 244 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 287 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 288 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 311 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 312 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 330 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 237 EXTERNAL SLARTG, SLASET, SROT, XERBLA 333 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 335 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 338 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 346 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 347 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 350 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | slaqz2.f | 189 EXTERNAL :: SLARTG, SROT 198 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) 201 CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) 204 CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, 210 CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, 217 CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, 225 CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, 227 CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, 237 CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, 257 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) [all …]
|
H A D | slagv2.f | 183 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 233 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 234 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 243 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 244 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 287 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 288 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 311 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 312 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 330 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 237 EXTERNAL SLARTG, SLASET, SROT, XERBLA 333 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 335 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 338 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 346 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 347 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 350 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slaqz2.f | 189 EXTERNAL :: SLARTG, SROT 198 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) 201 CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) 204 CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, 210 CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, 217 CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, 225 CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, 227 CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, 237 CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, 257 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) [all …]
|
H A D | slagv2.f | 183 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 233 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 234 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 243 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 244 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 287 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 288 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 311 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 312 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 330 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 237 EXTERNAL SLARTG, SLASET, SROT, XERBLA 333 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 335 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 338 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 346 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 347 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 350 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slaqz2.f | 189 EXTERNAL :: SLARTG, SROT 198 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) 201 CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) 204 CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, 210 CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, 217 CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, 225 CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, 227 CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, 237 CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, 257 CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) [all …]
|
H A D | slagv2.f | 183 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 233 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 234 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 243 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 244 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 287 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 288 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 311 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 312 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 330 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 237 EXTERNAL SLARTG, SLASET, SROT, XERBLA 333 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 335 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 338 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 346 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 347 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 350 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | slagv2.f | 186 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 236 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 237 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 246 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 247 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 290 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 291 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 314 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 315 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 333 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 240 EXTERNAL SLARTG, SLASET, SROT, XERBLA 336 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 338 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 341 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 349 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 350 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 353 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slagv2.f | 103 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 152 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 153 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 161 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 162 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 204 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 205 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 228 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 229 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 247 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 132 EXTERNAL SLARTG, SLASET, SROT, XERBLA 228 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 230 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 233 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 241 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 242 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 245 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | slagv2.f | 186 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 236 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 237 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 246 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 247 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 290 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 291 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 314 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 315 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 333 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 240 EXTERNAL SLARTG, SLASET, SROT, XERBLA 336 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 338 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 341 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 349 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 350 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 353 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | slagv2.f | 103 EXTERNAL SLAG2, SLARTG, SLASV2, SROT 152 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 153 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 161 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 162 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 204 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) 205 CALL SROT( 2, B( 1, 1 ), 1, B( 1, 2 ), 1, CSR, SNR ) 228 CALL SROT( 2, A( 1, 1 ), LDA, A( 2, 1 ), LDA, CSL, SNL ) 229 CALL SROT( 2, B( 1, 1 ), LDB, B( 2, 1 ), LDB, CSL, SNL ) 247 CALL SROT( 2, A( 1, 1 ), 1, A( 1, 2 ), 1, CSR, SNR ) [all …]
|
H A D | sgghrd.f | 132 EXTERNAL SLARTG, SLASET, SROT, XERBLA 228 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 230 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 233 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 241 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 242 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 245 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | sgghrd.f | 145 EXTERNAL SLARTG, SLASET, SROT, XERBLA 241 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 243 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 246 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 254 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 255 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 258 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | sgghrd.f | 145 EXTERNAL SLARTG, SLASET, SROT, XERBLA 241 CALL SROT( N-JCOL, A( JROW-1, JCOL+1 ), LDA, 243 CALL SROT( N+2-JROW, B( JROW-1, JROW-1 ), LDB, 246 $ CALL SROT( N, Q( 1, JROW-1 ), 1, Q( 1, JROW ), 1, C, S ) 254 CALL SROT( IHI, A( 1, JROW ), 1, A( 1, JROW-1 ), 1, C, S ) 255 CALL SROT( JROW-1, B( 1, JROW ), 1, B( 1, JROW-1 ), 1, C, 258 $ CALL SROT( N, Z( 1, JROW ), 1, Z( 1, JROW-1 ), 1, C, S )
|