Home
last modified time | relevance | path

Searched refs:SMLNUM (Results 1 – 25 of 4254) sorted by last modified time

12345678910>>...171

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/
H A Dslascl.f165 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 Dcgeev.f206 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 Dctrevc.f249 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 Dslaqr2.f304 $ 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 Dslaqr3.f301 $ 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 Ddgeev.f217 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 Ddlaqr2.f304 $ 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 Ddlaqr3.f301 $ 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 Dzgeev.f206 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 Dzlaqr2.f299 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 Dzlaqr3.f296 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 Ddgeevx.f211 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 Ddgels.F123 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 Ddgesvd.f244 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 Ddlaexc.f166 DOUBLE PRECISION CS, DNORM, EPS, SCALE, SMLNUM, SN, T11, T22,
243 SMLNUM = DLAMCH( 'S' ) / EPS
244 THRESH = MAX( TEN*EPS*DNORM, SMLNUM )
H A Ddlascl.f165 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 Ddlasy2.f203 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 Ddsyevd.f205 $ SMLNUM
290 SMLNUM = SAFMIN / EPS
291 BIGNUM = ONE / SMLNUM
292 RMIN = SQRT( SMLNUM )
H A Dzheev.f170 $ 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 Dwfn1_ad_dlascl.f90 DOUBLE PRECISION BIGNUM, SMLNUM
166 SMLNUM = DLAMCH( 'S' )
167 BIGNUM = ONE / SMLNUM
173 CFROM1 = CFROMC*SMLNUM
189 MUL = SMLNUM
H A Dwfn1_ad_dsyev.f95 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 Ddsyev_nsrt.f160 $ SMLNUM
228 SMLNUM = SAFMIN / EPS
229 BIGNUM = ONE / SMLNUM
230 RMIN = SQRT( SMLNUM )
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/f77/
H A Ddspevx2.F185 $ 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 Dtce_dgeev.F125 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 Dutil_dgeev.F156 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

12345678910>>...171