Home
last modified time | relevance | path

Searched refs:LSCALE (Results 1 – 25 of 296) sorted by relevance

12345678910>>...12

/dports/math/lapack95/LAPACK95/EXAMPLES2/Old000807/
H A Dggevxet.base64 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
88 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
112 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
136 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
222 … CALL LA_GGEVX( A, B, ALPHAR, ALPHAI, BETA, VL, VR, BALANC='B', LSCALE=LSCALE(1:N-1), INFO = INFO)
299 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
321 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
343 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
365 WRITE(NOUT,*) ' LSCALE :'; WRITE(NOUT,FMT) LSCALE
441 …WRITE(NOUT,*) 'CALL LA_GGEVX( A, B, ALPHA, BETA, VL, VR, BALANC=B, LSCALE=LSCALE(1:N-1), INFO = IN…
[all …]
/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_sggevx.f902 & ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, LSCALE, RSCALE,& argument
24 & VL(1: LDVL, 1:N), VR(1: LDVR, 1:N), LSCALE(1:N), RSCALE(1:N), & local
81 & VR(1:IVR1,1:IVR2), IBALANC, ILO, IHI, LSCALE(1:ILSCALE), RSCALE(1: IRSCALE), &
86 & ILO=ILO, IHI=IHI, LSCALE=LSCALE(1:ILSCALE), RSCALE=RSCALE(1 : IRSCALE), &
94 & BALANC=IBALANC, LSCALE=LSCALE(1 :ILSCALE), &
100 & LSCALE=LSCALE(1 :ILSCALE), RSCALE=RSCALE(1: IRSCALE), ABNRM=ABNRM, &
H A Dla_test_dggevx.f902 & ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, LSCALE, RSCALE,& argument
24 & VL(1: LDVL, 1:N), VR(1: LDVR, 1:N), LSCALE(1:N), RSCALE(1:N), & local
81 & VR(1:IVR1,1:IVR2), IBALANC, ILO, IHI, LSCALE(1:ILSCALE), RSCALE(1: IRSCALE), &
86 & ILO=ILO, IHI=IHI, LSCALE=LSCALE(1:ILSCALE), RSCALE=RSCALE(1 : IRSCALE), &
94 & BALANC=IBALANC, LSCALE=LSCALE(1 :ILSCALE), &
100 & LSCALE=LSCALE(1 :ILSCALE), RSCALE=RSCALE(1: IRSCALE), ABNRM=ABNRM, &
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/
H A Dzggbal.f1 SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, argument
14 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
173 LSCALE( 1 ) = ONE
182 LSCALE( I ) = ONE
205 LSCALE( 1 ) = 1
263 LSCALE( M ) = I
287 LSCALE( I ) = ONE
301 LSCALE( I ) = ZERO
422 LSCALE( I ) = LSCALE( I ) + COR
452 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddggbal.f253 LSCALE( 1 ) = ONE
262 LSCALE( I ) = ONE
285 LSCALE( 1 ) = ONE
343 LSCALE( M ) = I
367 LSCALE( I ) = ONE
381 LSCALE( I ) = ZERO
498 LSCALE( I ) = LSCALE( I ) + COR
528 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
530 LSCALE( I ) = SCLFAC**IR
544 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dcggbal.f190 REAL LSCALE( * ), RSCALE( * ), WORK( * )
262 LSCALE( 1 ) = ONE
271 LSCALE( I ) = ONE
294 LSCALE( 1 ) = ONE
352 LSCALE( M ) = I
376 LSCALE( I ) = ONE
390 LSCALE( I ) = ZERO
511 LSCALE( I ) = LSCALE( I ) + COR
541 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
543 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dsggbal.f253 LSCALE( 1 ) = ONE
262 LSCALE( I ) = ONE
285 LSCALE( 1 ) = ONE
343 LSCALE( M ) = I
367 LSCALE( I ) = ONE
381 LSCALE( I ) = ZERO
498 LSCALE( I ) = LSCALE( I ) + COR
528 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
530 LSCALE( I ) = SCLFAC**IR
544 CALL SSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dzggbal.f190 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
262 LSCALE( 1 ) = ONE
271 LSCALE( I ) = ONE
294 LSCALE( 1 ) = 1
352 LSCALE( M ) = I
376 LSCALE( I ) = ONE
390 LSCALE( I ) = ZERO
511 LSCALE( I ) = LSCALE( I ) + COR
541 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
543 LSCALE( I ) = SCLFAC**IR
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dzggbal.f187 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = 1
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dsggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
527 LSCALE( I ) = SCLFAC**IR
541 CALL SSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Ddggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
527 LSCALE( I ) = SCLFAC**IR
541 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dcggbal.f187 REAL LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = ONE
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
540 LSCALE( I ) = SCLFAC**IR
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzggbal.f187 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = 1
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dcggbal.f187 REAL LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = ONE
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Ddggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
527 LSCALE( I ) = SCLFAC**IR
541 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dsggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
527 LSCALE( I ) = SCLFAC**IR
541 CALL SSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dsggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
527 LSCALE( I ) = SCLFAC**IR
541 CALL SSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Ddggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
527 LSCALE( I ) = SCLFAC**IR
541 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dcggbal.f187 REAL LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = ONE
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dzggbal.f187 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = 1
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
540 LSCALE( I ) = SCLFAC**IR
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
527 LSCALE( I ) = SCLFAC**IR
541 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
H A Dcggbal.f187 REAL LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = ONE
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dzggbal.f187 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = 1
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
540 LSCALE( I ) = SCLFAC**IR
[all …]
H A Dsggbal.f250 LSCALE( 1 ) = ONE
259 LSCALE( I ) = ONE
282 LSCALE( 1 ) = ONE
340 LSCALE( M ) = I
364 LSCALE( I ) = ONE
378 LSCALE( I ) = ZERO
495 LSCALE( I ) = LSCALE( I ) + COR
525 IR = LSCALE( I ) + SIGN( HALF, LSCALE( I ) )
527 LSCALE( I ) = SCLFAC**IR
541 CALL SSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddggbal.f253 LSCALE( 1 ) = ONE
262 LSCALE( I ) = ONE
285 LSCALE( 1 ) = ONE
343 LSCALE( M ) = I
367 LSCALE( I ) = ONE
381 LSCALE( I ) = ZERO
498 LSCALE( I ) = LSCALE( I ) + COR
528 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
530 LSCALE( I ) = SCLFAC**IR
544 CALL DSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
[all …]

12345678910>>...12