Home
last modified time | relevance | path

Searched refs:ORGNRM (Results 1 – 25 of 171) sorted by relevance

1234567

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlasd1.f231 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 Dslasd1.f231 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 Ddlasd6.f344 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 Dslasd6.f344 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 Dslasd1.f228 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 Ddlasd1.f228 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 Dslasd6.f340 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 Ddlasd6.f340 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 Dslasd1.f228 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 Ddlasd1.f228 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 Dslasd6.f340 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 Ddlasd6.f340 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 Dslasd1.f228 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 Ddlasd1.f228 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 Dslasd1.f228 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 Ddlasd1.f228 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 Ddlasd1.f141 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 Dslasd1.f141 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 Ddlasd1.f231 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 Dslasd1.f231 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 Dslasd1.f141 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 Ddlasd1.f141 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 Dslasd1.f228 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 Ddlasd1.f228 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 Ddlasd6.f343 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 )

1234567