/dports/math/lapack95/LAPACK95/EXAMPLES2/Old000807/ |
H A D | ggevxet.base | 64 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 D | la_test_sggevx.f90 | 2 & 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 D | la_test_dggevx.f90 | 2 & 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 D | zggbal.f | 1 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 D | dggbal.f | 253 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 D | cggbal.f | 190 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 D | sggbal.f | 253 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 D | zggbal.f | 190 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 D | zggbal.f | 187 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 D | sggbal.f | 250 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 D | dggbal.f | 250 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 D | cggbal.f | 187 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 D | zggbal.f | 187 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 D | cggbal.f | 187 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 D | dggbal.f | 250 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 D | sggbal.f | 250 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 D | sggbal.f | 250 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 D | dggbal.f | 250 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 D | cggbal.f | 187 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 D | zggbal.f | 187 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 D | dggbal.f | 250 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 D | cggbal.f | 187 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 D | zggbal.f | 187 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 D | sggbal.f | 250 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 D | dggbal.f | 253 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 …]
|