Home
last modified time | relevance | path

Searched refs:ORGNRM (Results 26 – 50 of 171) sorted by relevance

1234567

/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dslasd6.f212 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 Ddlasd6.f212 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 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 )
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 )
/dports/math/lapack/lapack-3.10.0/SRC/
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 )
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 )
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Dslasd6.f212 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 Ddlasd6.f212 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 Ddlasd1.f147 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 Dslasd1.f147 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 Dslasd6.f218 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 Ddlasd6.f218 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 Ddlasd6.f343 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 Dslasd6.f343 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 Dslasd1.f147 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 Ddlasd1.f147 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 Ddlasd6.f218 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 Dslasd6.f218 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 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/scalapack/scalapack-2.1.0/SRC/
H A Dpsstedc.f133 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 Dpdstedc.f133 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 Dcstedc.f240 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 Ddstedc.f216 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 Dsstedc.f215 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,

1234567