/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | slascl.f | 165 REAL BIGNUM, CFROM1, CFROMC, CTO1, CTOC, MUL, SMLNUM 241 SMLNUM = SLAMCH( 'S' ) 242 BIGNUM = ONE / SMLNUM 248 CFROM1 = CFROMC*SMLNUM 264 MUL = SMLNUM
|
H A D | cgeev.f | 206 REAL ANRM, BIGNUM, CSCALE, EPS, SCL, SMLNUM 306 SMLNUM = SLAMCH( 'S' ) 307 BIGNUM = ONE / SMLNUM 308 CALL SLABAD( SMLNUM, BIGNUM ) 309 SMLNUM = SQRT( SMLNUM ) / EPS 310 BIGNUM = ONE / SMLNUM 316 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 318 CSCALE = SMLNUM
|
H A D | ctrevc.f | 249 REAL OVFL, REMAX, SCALE, SMIN, SMLNUM, ULP, UNFL 327 SMLNUM = UNFL*( N / ULP ) 354 SMIN = MAX( ULP*( CABS1( T( KI, KI ) ) ), SMLNUM ) 423 SMIN = MAX( ULP*( CABS1( T( KI, KI ) ) ), SMLNUM )
|
H A D | slaqr2.f | 304 $ SAFMAX, SAFMIN, SMLNUM, SN, TAU, ULP 370 SMLNUM = SAFMIN*( REAL( N ) / ULP ) 390 IF( ABS( S ).LE.MAX( SMLNUM, ULP*ABS( H( KWTOP, KWTOP ) ) ) ) 444 IF( ABS( S*V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) ) THEN 468 $ MAX( SMLNUM, ULP*FOO ) ) THEN
|
H A D | slaqr3.f | 301 $ SAFMAX, SAFMIN, SMLNUM, SN, TAU, ULP 375 SMLNUM = SAFMIN*( REAL( N ) / ULP ) 395 IF( ABS( S ).LE.MAX( SMLNUM, ULP*ABS( H( KWTOP, KWTOP ) ) ) ) 455 IF( ABS( S*V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) ) THEN 479 $ MAX( SMLNUM, ULP*FOO ) ) THEN
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dgeev.f | 217 DOUBLE PRECISION ANRM, BIGNUM, CS, CSCALE, EPS, R, SCL, SMLNUM, 326 SMLNUM = DLAMCH( 'S' ) 327 BIGNUM = ONE / SMLNUM 328 CALL DLABAD( SMLNUM, BIGNUM ) 329 SMLNUM = SQRT( SMLNUM ) / EPS 330 BIGNUM = ONE / SMLNUM 336 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 338 CSCALE = SMLNUM
|
H A D | dlaqr2.f | 304 $ SAFMAX, SAFMIN, SMLNUM, SN, TAU, ULP 370 SMLNUM = SAFMIN*( DBLE( N ) / ULP ) 390 IF( ABS( S ).LE.MAX( SMLNUM, ULP*ABS( H( KWTOP, KWTOP ) ) ) ) 444 IF( ABS( S*V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) ) THEN 468 $ MAX( SMLNUM, ULP*FOO ) ) THEN
|
H A D | dlaqr3.f | 301 $ SAFMAX, SAFMIN, SMLNUM, SN, TAU, ULP 375 SMLNUM = SAFMIN*( DBLE( N ) / ULP ) 395 IF( ABS( S ).LE.MAX( SMLNUM, ULP*ABS( H( KWTOP, KWTOP ) ) ) ) 455 IF( ABS( S*V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) ) THEN 479 $ MAX( SMLNUM, ULP*FOO ) ) THEN
|
H A D | zgeev.f | 206 DOUBLE PRECISION ANRM, BIGNUM, CSCALE, EPS, SCL, SMLNUM 305 SMLNUM = DLAMCH( 'S' ) 306 BIGNUM = ONE / SMLNUM 307 CALL DLABAD( SMLNUM, BIGNUM ) 308 SMLNUM = SQRT( SMLNUM ) / EPS 309 BIGNUM = ONE / SMLNUM 315 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 317 CSCALE = SMLNUM
|
H A D | zlaqr2.f | 299 DOUBLE PRECISION FOO, SAFMAX, SAFMIN, SMLNUM, ULP 369 SMLNUM = SAFMIN*( DBLE( N ) / ULP ) 388 IF( CABS1( S ).LE.MAX( SMLNUM, ULP*CABS1( H( KWTOP, 423 IF( CABS1( S )*CABS1( V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) )
|
H A D | zlaqr3.f | 296 DOUBLE PRECISION FOO, SAFMAX, SAFMIN, SMLNUM, ULP 374 SMLNUM = SAFMIN*( DBLE( N ) / ULP ) 393 IF( CABS1( S ).LE.MAX( SMLNUM, ULP*CABS1( H( KWTOP, 434 IF( CABS1( S )*CABS1( V( 1, NS ) ).LE.MAX( SMLNUM, ULP*FOO ) )
|
H A D | dgeevx.f | 211 DOUBLE PRECISION ANRM, BIGNUM, CS, CSCALE, EPS, R, SCL, SMLNUM, 343 SMLNUM = DLAMCH( 'S' ) 344 BIGNUM = ONE / SMLNUM 345 CALL DLABAD( SMLNUM, BIGNUM ) 346 SMLNUM = SQRT( SMLNUM ) / EPS 347 BIGNUM = ONE / SMLNUM 354 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 356 CSCALE = SMLNUM
|
H A D | dgels.F | 123 DOUBLE PRECISION ANRM, BIGNUM, BNRM, SMLNUM 214 SMLNUM = DLAMCH( 'S' ) / DLAMCH( 'P' ) 215 BIGNUM = ONE / SMLNUM 216 CALL DLABAD( SMLNUM, BIGNUM ) 222 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 226 CALL DLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, A, LDA, INFO ) 247 IF( BNRM.GT.ZERO .AND. BNRM.LT.SMLNUM ) THEN 251 CALL DLASCL( 'G', 0, 0, BNRM, SMLNUM, BROW, NRHS, B, LDB, 382 CALL DLASCL( 'G', 0, 0, ANRM, SMLNUM, SCLLEN, NRHS, B, LDB, 389 CALL DLASCL( 'G', 0, 0, SMLNUM, BNRM, SCLLEN, NRHS, B, LDB,
|
H A D | dgesvd.f | 244 DOUBLE PRECISION ANRM, BIGNUM, EPS, SMLNUM 656 SMLNUM = SQRT( DLAMCH( 'S' ) ) / EPS 657 BIGNUM = ONE / SMLNUM 663 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 665 CALL DLASCL( 'G', 0, 0, ANRM, SMLNUM, M, N, A, LDA, IERR ) 3477 IF( ANRM.LT.SMLNUM ) 3478 $ CALL DLASCL( 'G', 0, 0, SMLNUM, ANRM, MINMN, 1, S, MINMN, 3480 IF( INFO.NE.0 .AND. ANRM.LT.SMLNUM ) 3481 $ CALL DLASCL( 'G', 0, 0, SMLNUM, ANRM, MINMN-1, 1, WORK( 2 ),
|
H A D | dlaexc.f | 166 DOUBLE PRECISION CS, DNORM, EPS, SCALE, SMLNUM, SN, T11, T22, 243 SMLNUM = DLAMCH( 'S' ) / EPS 244 THRESH = MAX( TEN*EPS*DNORM, SMLNUM )
|
H A D | dlascl.f | 165 DOUBLE PRECISION BIGNUM, CFROM1, CFROMC, CTO1, CTOC, MUL, SMLNUM 241 SMLNUM = DLAMCH( 'S' ) 242 BIGNUM = ONE / SMLNUM 248 CFROM1 = CFROMC*SMLNUM 264 MUL = SMLNUM
|
H A D | dlasy2.f | 203 DOUBLE PRECISION BET, EPS, GAM, L21, SGN, SMIN, SMLNUM, TAU1, 243 SMLNUM = DLAMCH( 'S' ) / EPS 254 IF( BET.LE.SMLNUM ) THEN 255 TAU1 = SMLNUM 256 BET = SMLNUM 262 IF( SMLNUM*GAM.GT.BET ) 277 $ SMLNUM ) 298 $ SMLNUM ) 338 IF( ( TWO*SMLNUM )*ABS( BTMP( 2 ) ).GT.ABS( U22 ) .OR. 339 $ ( TWO*SMLNUM )*ABS( BTMP( 1 ) ).GT.ABS( U11 ) ) THEN [all …]
|
H A D | dsyevd.f | 205 $ SMLNUM 290 SMLNUM = SAFMIN / EPS 291 BIGNUM = ONE / SMLNUM 292 RMIN = SQRT( SMLNUM )
|
H A D | zheev.f | 170 $ SMLNUM 238 SMLNUM = SAFMIN / EPS 239 BIGNUM = ONE / SMLNUM 240 RMIN = SQRT( SMLNUM )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/lapack/double/ |
H A D | wfn1_ad_dlascl.f | 90 DOUBLE PRECISION BIGNUM, SMLNUM 166 SMLNUM = DLAMCH( 'S' ) 167 BIGNUM = ONE / SMLNUM 173 CFROM1 = CFROMC*SMLNUM 189 MUL = SMLNUM
|
H A D | wfn1_ad_dsyev.f | 95 DOUBLE PRECISION BIGNUM, EPS, RMAX, RMIN, SAFMIN, SMLNUM 164 SMLNUM = SAFMIN / EPS 165 BIGNUM = 1.0d0 / SMLNUM 166 RMIN = SQRT( SMLNUM )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/ |
H A D | dsyev_nsrt.f | 160 $ SMLNUM 228 SMLNUM = SAFMIN / EPS 229 BIGNUM = ONE / SMLNUM 230 RMIN = SQRT( SMLNUM )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/f77/ |
H A D | dspevx2.F | 185 $ SIGMA, SMLNUM, TMP1, VLL, VUU local 264 SMLNUM = SAFMIN / EPS 265 BIGNUM = ONE / SMLNUM 266 RMIN = SQRT( SMLNUM )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ |
H A D | tce_dgeev.F | 125 DOUBLE PRECISION ANRM, BIGNUM, CS, CSCALE, EPS, R, SCL, SMLNUM, 217 SMLNUM = DLAMCH( 'S' ) 218 BIGNUM = ONE / SMLNUM 219 CALL DLABAD( SMLNUM, BIGNUM ) 220 SMLNUM = SQRT( SMLNUM ) / EPS 221 BIGNUM = ONE / SMLNUM 227 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 229 CSCALE = SMLNUM
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | util_dgeev.F | 156 DOUBLE PRECISION ANRM, BIGNUM, CS, CSCALE, EPS, R, SCL, SMLNUM, 248 SMLNUM = DLAMCH( 'S' ) 249 BIGNUM = ONE / SMLNUM 250 CALL DLABAD( SMLNUM, BIGNUM ) 251 SMLNUM = SQRT( SMLNUM ) / EPS 252 BIGNUM = ONE / SMLNUM 258 IF( ANRM.GT.ZERO .AND. ANRM.LT.SMLNUM ) THEN 260 CSCALE = SMLNUM
|