/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlasd1.f | 231 DOUBLE PRECISION ORGNRM 280 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 283 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 284 ORGNRM = ABS( D( I ) ) 287 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 288 ALPHA = ALPHA / ORGNRM 289 BETA = BETA / ORGNRM 314 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd1.f | 231 REAL ORGNRM 280 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 283 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 284 ORGNRM = ABS( D( I ) ) 287 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 288 ALPHA = ALPHA / ORGNRM 289 BETA = BETA / ORGNRM 314 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd6.f | 344 DOUBLE PRECISION ORGNRM 393 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 396 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 397 ORGNRM = ABS( D( I ) ) 400 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 401 ALPHA = ALPHA / ORGNRM 402 BETA = BETA / ORGNRM 432 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd6.f | 344 REAL ORGNRM 393 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 396 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 397 ORGNRM = ABS( D( I ) ) 400 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 401 ALPHA = ALPHA / ORGNRM 402 BETA = BETA / ORGNRM 432 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slasd1.f | 228 REAL ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 228 DOUBLE PRECISION ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 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 )
|
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/blas/lapack-3.10.0/SRC/ |
H A D | slasd1.f | 228 REAL ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 228 DOUBLE PRECISION ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 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 )
|
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/lapack/lapack-3.10.0/SRC/ |
H A D | slasd1.f | 228 REAL ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 228 DOUBLE PRECISION ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slasd1.f | 228 REAL ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 228 DOUBLE PRECISION ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlasd1.f | 141 DOUBLE PRECISION ORGNRM 190 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 193 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 194 ORGNRM = ABS( D( I ) ) 197 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 198 ALPHA = ALPHA / ORGNRM 199 BETA = BETA / ORGNRM 221 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd1.f | 141 REAL ORGNRM 190 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 193 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 194 ORGNRM = ABS( D( I ) ) 197 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 198 ALPHA = ALPHA / ORGNRM 199 BETA = BETA / ORGNRM 221 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlasd1.f | 231 DOUBLE PRECISION ORGNRM local 280 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 283 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 284 ORGNRM = ABS( D( I ) ) 287 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 288 ALPHA = ALPHA / ORGNRM 289 BETA = BETA / ORGNRM 314 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | slasd1.f | 231 REAL ORGNRM local 280 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 283 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 284 ORGNRM = ABS( D( I ) ) 287 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 288 ALPHA = ALPHA / ORGNRM 289 BETA = BETA / ORGNRM 314 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slasd1.f | 141 REAL ORGNRM local 190 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 193 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 194 ORGNRM = ABS( D( I ) ) 197 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 198 ALPHA = ALPHA / ORGNRM 199 BETA = BETA / ORGNRM 221 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 141 DOUBLE PRECISION ORGNRM local 190 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 193 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 194 ORGNRM = ABS( D( I ) ) 197 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 198 ALPHA = ALPHA / ORGNRM 199 BETA = BETA / ORGNRM 221 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slasd1.f | 228 REAL ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL SLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL SLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
H A D | dlasd1.f | 228 DOUBLE PRECISION ORGNRM 277 ORGNRM = MAX( ABS( ALPHA ), ABS( BETA ) ) 280 IF( ABS( D( I ) ).GT.ORGNRM ) THEN 281 ORGNRM = ABS( D( I ) ) 284 CALL DLASCL( 'G', 0, 0, ORGNRM, ONE, N, 1, D, N, INFO ) 285 ALPHA = ALPHA / ORGNRM 286 BETA = BETA / ORGNRM 311 CALL DLASCL( 'G', 0, 0, ONE, ORGNRM, N, 1, D, N, INFO )
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dlasd6.f | 343 DOUBLE PRECISION ORGNRM 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 )
|