Home
last modified time | relevance | path

Searched refs:BILNMX (Results 1 – 6 of 6) sorted by relevance

/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Ddbinom.f20 REAL BILNMX
22 DATA BILNMX, FINTMX / 0.0, 0.0D0 /
24 IF (BILNMX.NE.0.0) GO TO 10
25 BILNMX = DLOG(D1MACH(2)) - 0.0001D0
34 IF (FLOAT(K)*ALOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
59 IF (DBINOM.GT.DBLE(BILNMX)) CALL XERROR ( 'DBINOM RESULT OVERFLOW
H A Dbinom.f16 DATA BILNMX, FINTMX / 0.0, 0.0 /
18 IF (BILNMX.NE.0.0) GO TO 10
19 BILNMX = ALOG (R1MACH(2))
28 IF (FLOAT(K)*ALOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
52 IF (BINOM.GT.BILNMX) CALL XERROR ( 'BINOM RESULT OVERFLOWS BECAU
/dports/math/slatec/src/
H A Ddbinom.f25 1 DLNREL, D1MACH, BILNMX
27 SAVE SQ2PIL, BILNMX, FINTMX, FIRST
32 BILNMX = LOG(D1MACH(2)) - 0.0001D0
43 IF (K*LOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
68 IF (DBINOM .GT. BILNMX) CALL XERMSG ('SLATEC', 'DBINOM',
H A Dbinom.f26 SAVE SQ2PIL, BILNMX, FINTMX, FIRST
31 BILNMX = LOG (R1MACH(2))
42 IF (K*LOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
66 IF (BINOM .GT. BILNMX) CALL XERMSG ('SLATEC', 'BINOM',
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp6.F1676 REAL BILNMX local
1681 DATA BILNMX, FINTMX / 0.0, 0.0D0 /
1686 IF (BILNMX.NE.0.0) GO TO 10
1687 BILNMX = DLOG(D1MACH(2)) - 0.0001D0
1707 IF (FLOAT(K)*LOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
1738 IF (DBINOM.GT.DBLE(BILNMX)) THEN
1779 REAL BILNMX local
1785 DATA BILNMX, FINTMX / 0.0, 0.0D0 /
1790 IF (BILNMX.NE.0.0) GO TO 10
1791 BILNMX = DLOG(D1MACH(2)) - 0.0001D0
[all …]
H A Ddp3.F24630 DATA BILNMX, FINTMX / 0.0, 0.0 /
24635 IF (BILNMX.NE.0.0) GO TO 10
24636 BILNMX = LOG (R1MACH(2))
24662 IF (FLOAT(K)*LOG(AMAX0(N,1)).GT.BILNMX) GO TO 30
24693 IF (BINOM.GT.BILNMX) THEN