Home
last modified time | relevance | path

Searched refs:SROT (Results 1 – 25 of 471) sorted by relevance

12345678910>>...19

/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dslaqz2.f189 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 Dslagv2.f183 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 Dsgghrd.f237 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 Dslaqz2.f189 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 Dslagv2.f183 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 Dsgghrd.f237 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 Dslaqz2.f189 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 Dslagv2.f183 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 Dsgghrd.f237 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 Dslaqz2.f189 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 Dslagv2.f183 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 Dsgghrd.f237 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 Dslaqz2.f189 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 Dslagv2.f183 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 Dsgghrd.f237 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 Dslagv2.f186 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 Dsgghrd.f240 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 Dslagv2.f103 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 Dsgghrd.f132 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 Dslagv2.f186 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 Dsgghrd.f240 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 Dslagv2.f103 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 Dsgghrd.f132 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 Dsgghrd.f145 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 Dsgghrd.f145 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 )

12345678910>>...19