/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slasd6.f | 212 REAL ORGNRM local 261 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 264 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 265 ORGNRM = ABS( D( I ) ) 268 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 269 ALPHA = ALPHA / ORGNRM 270 BETA = BETA / ORGNRM 294 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 212 DOUBLE PRECISION ORGNRM local 261 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 264 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 265 ORGNRM = ABS( D( I ) ) 268 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 269 ALPHA = ALPHA / ORGNRM 270 BETA = BETA / ORGNRM 294 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlasd6.f | 340 DOUBLE PRECISION ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 340 REAL ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlasd6.f | 340 DOUBLE PRECISION ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 340 REAL ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | slasd6.f | 212 REAL ORGNRM 261 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 264 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 265 ORGNRM = ABS( D( I ) ) 268 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 269 ALPHA = ALPHA / ORGNRM 270 BETA = BETA / ORGNRM 294 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 212 DOUBLE PRECISION ORGNRM 261 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 264 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 265 ORGNRM = ABS( D( I ) ) 268 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 269 ALPHA = ALPHA / ORGNRM 270 BETA = BETA / ORGNRM 294 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | dlasd1.f | 147 DOUBLE PRECISION ORGNRM 196 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 199 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 200 ORGNRM = ABS( D( I ) ) 204 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 205 ALPHA = ALPHA / ORGNRM 206 BETA = BETA / ORGNRM 229 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd1.f | 147 REAL ORGNRM 196 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 199 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 200 ORGNRM = ABS( D( I ) ) 204 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 205 ALPHA = ALPHA / ORGNRM 206 BETA = BETA / ORGNRM 229 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 218 REAL ORGNRM 267 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 270 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 271 ORGNRM = ABS( D( I ) ) 275 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 276 ALPHA = ALPHA / ORGNRM 277 BETA = BETA / ORGNRM 302 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 218 DOUBLE PRECISION ORGNRM local 267 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 270 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 271 ORGNRM = ABS( D( I ) ) 275 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 276 ALPHA = ALPHA / ORGNRM 277 BETA = BETA / ORGNRM 302 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlasd6.f | 343 DOUBLE PRECISION ORGNRM local 392 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 395 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 396 ORGNRM = ABS( D( I ) ) 399 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 400 ALPHA = ALPHA / ORGNRM 401 BETA = BETA / ORGNRM 431 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 343 REAL ORGNRM local 392 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 395 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 396 ORGNRM = ABS( D( I ) ) 399 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 400 ALPHA = ALPHA / ORGNRM 401 BETA = BETA / ORGNRM 431 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | slasd1.f | 147 REAL ORGNRM 196 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 199 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 200 ORGNRM = ABS( D( I ) ) 204 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 205 ALPHA = ALPHA / ORGNRM 206 BETA = BETA / ORGNRM 229 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 147 DOUBLE PRECISION ORGNRM 196 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 199 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 200 ORGNRM = ABS( D( I ) ) 204 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 205 ALPHA = ALPHA / ORGNRM 206 BETA = BETA / ORGNRM 229 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 218 DOUBLE PRECISION ORGNRM 267 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 270 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 271 ORGNRM = ABS( D( I ) ) 275 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 276 ALPHA = ALPHA / ORGNRM 277 BETA = BETA / ORGNRM 302 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 218 REAL ORGNRM 267 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 270 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 271 ORGNRM = ABS( D( I ) ) 275 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 276 ALPHA = ALPHA / ORGNRM 277 BETA = BETA / ORGNRM 302 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slasd6.f | 340 REAL ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 340 DOUBLE PRECISION ORGNRM 389 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 392 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 393 ORGNRM = ABS( D( I ) ) 396 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 397 ALPHA = ALPHA / ORGNRM 398 BETA = BETA / ORGNRM 428 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | psstedc.f | 133 REAL ORGNRM local 239 ORGNRM = SLANST( 'M', N, D, E ) 240 IF( ORGNRM.NE.ZERO ) THEN 241 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 242 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N-1, 1, E, N-1, INFO ) 254 IF( ORGNRM.NE.ZERO ) 255 $ CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | pdstedc.f | 133 DOUBLE PRECISION ORGNRM 240 ORGNRM = DLANST( 'M', N, D, E ) 241 IF( ORGNRM.NE.ZERO ) THEN 242 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 243 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N-1, 1, E, N-1, INFO ) 255 IF( ORGNRM.NE.ZERO ) 256 $ CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cstedc.f | 240 REAL EPS, ORGNRM, P, TINY 382 ORGNRM = SLANST( 'M', N, D, E ) 383 IF( ORGNRM.EQ.ZERO ) 419 ORGNRM = SLANST( 'M', M, D( START ), E( START ) ) 420 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, M, 1, D( START ), M, 422 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, M-1, 1, E( START ), 435 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, M, 1, D( START ), M,
|
H A D | dstedc.f | 216 DOUBLE PRECISION EPS, ORGNRM, P, TINY 348 ORGNRM = DLANST( 'M', N, D, E ) 349 IF( ORGNRM.EQ.ZERO ) 389 ORGNRM = DLANST( 'M', M, D( START ), E( START ) ) 390 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, M, 1, D( START ), M, 392 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, M-1, 1, E( START ), 411 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, M, 1, D( START ), M,
|
H A D | sstedc.f | 215 REAL EPS, ORGNRM, P, TINY 347 ORGNRM = SLANST( 'M', N, D, E ) 348 IF( ORGNRM.EQ.ZERO ) 388 ORGNRM = SLANST( 'M', M, D( START ), E( START ) ) 389 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, M, 1, D( START ), M, 391 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, M-1, 1, E( START ), 410 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, M, 1, D( START ), M,
|