Home
last modified time | relevance | path

Searched refs:SQ2PIL (Results 1 – 25 of 42) sorted by relevance

12

/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/
H A Ddlbeta.f28 DOUBLE PRECISION A, B, P, Q, CORR, SQ2PIL, D9LGMC, DGAMMA, DLNGAM,
31 SAVE SQ2PIL
32 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 DLBETA = -0.5D0*LOG(Q) + SQ2PIL + CORR + (P-0.5D0)*LOG(P/(P+Q))
H A Ddlngam.f28 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX,
32 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
33 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*LOG(X) - X + D9LGMC(Y)
H A Ddgamma.f32 DOUBLE PRECISION X, GAMCS(42), DXREL, PI, SINPIY, SQ2PIL, XMAX,
36 SAVE GAMCS, PI, SQ2PIL, NGAM, XMIN, XMAX, DXREL, FIRST
80 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
139 DGAMMA = EXP ((Y-0.5D0)*LOG(Y) - Y + SQ2PIL + D9LGMC(Y) )
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/
H A Ddlngam.f28 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX, local
32 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
33 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*LOG(X) - X + D9LGMC(Y)
H A Ddlbeta.f28 DOUBLE PRECISION A, B, P, Q, CORR, SQ2PIL, D9LGMC, DGAMMA, DLNGAM, local
31 SAVE SQ2PIL
32 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 DLBETA = -0.5D0*LOG(Q) + SQ2PIL + CORR + (P-0.5D0)*LOG(P/(P+Q))
H A Dalngam.f31 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
32 DATA SQ2PIL / 0.9189385332 0467274E0/
56 IF (X.GT.0.) ALNGAM = SQ2PIL + (X-0.5)*LOG(X) - X + R9LGMC(Y)
H A Dalbeta.f33 SAVE SQ2PIL
34 DATA SQ2PIL / 0.9189385332 0467274 E0 /
59 ALBETA = -0.5*LOG(Q) + SQ2PIL + CORR + (P-0.5)*LOG(P/(P+Q))
H A Ddgamma.f32 DOUBLE PRECISION X, GAMCS(42), DXREL, PI, SINPIY, SQ2PIL, XMAX, local
36 SAVE GAMCS, PI, SQ2PIL, NGAM, XMIN, XMAX, DXREL, FIRST
80 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
139 DGAMMA = EXP ((Y-0.5D0)*LOG(Y) - Y + SQ2PIL + D9LGMC(Y) )
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddlngam.f28 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX, local
32 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
33 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*LOG(X) - X + D9LGMC(Y)
H A Ddgamma.f32 DOUBLE PRECISION X, GAMCS(42), DXREL, PI, SINPIY, SQ2PIL, XMAX, local
36 SAVE GAMCS, PI, SQ2PIL, NGAM, XMIN, XMAX, DXREL, FIRST
80 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
139 DGAMMA = EXP ((Y-0.5D0)*LOG(Y) - Y + SQ2PIL + D9LGMC(Y) )
/dports/math/slatec/src/
H A Ddlbeta.f28 DOUBLE PRECISION A, B, P, Q, CORR, SQ2PIL, D9LGMC, DGAMMA, DLNGAM,
31 SAVE SQ2PIL
32 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 DLBETA = -0.5D0*LOG(Q) + SQ2PIL + CORR + (P-0.5D0)*LOG(P/(P+Q))
H A Ddlngam.f28 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX,
32 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
33 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*LOG(X) - X + D9LGMC(Y)
H A Ddbinom.f24 DOUBLE PRECISION CORR, FINTMX, SQ2PIL, XK, XN, XNK, D9LGMC,
27 SAVE SQ2PIL, BILNMX, FINTMX, FIRST
28 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
66 1 -0.5D0*LOG(XN*XNK/XK) + 1.0D0 - SQ2PIL + CORR
H A Ddfac.f24 DOUBLE PRECISION FACN(31), SQ2PIL, X, XMAX, XMIN, D9LGMC
25 SAVE FACN, SQ2PIL, NMAX
57 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
74 DFAC = EXP ((X-0.5D0)*LOG(X) - X + SQ2PIL + D9LGMC(X) )
H A Dclngam.f29 SAVE PI, SQ2PIL, BOUND, DXREL, FIRST
31 DATA SQ2PIL / 0.9189385332 0467274E0 /
61 CLNGAM = SQ2PIL + 1.0 - CMPLX(0.0,PI)*(Z-0.5) - CLNREL(-CORR)
89 50 CLNGAM = SQ2PIL + (Z-0.5)*LOG(Z) - Z + CORR + C9LGMC(Z)
H A Dalngam.f31 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
32 DATA SQ2PIL / 0.9189385332 0467274E0/
56 IF (X.GT.0.) ALNGAM = SQ2PIL + (X-0.5)*LOG(X) - X + R9LGMC(Y)
H A Dalbeta.f33 SAVE SQ2PIL
34 DATA SQ2PIL / 0.9189385332 0467274 E0 /
59 ALBETA = -0.5*LOG(Q) + SQ2PIL + CORR + (P-0.5)*LOG(P/(P+Q))
H A Dbinom.f26 SAVE SQ2PIL, BILNMX, FINTMX, FIRST
27 DATA SQ2PIL / 0.9189385332 0467274E0 /
64 1 - 0.5*LOG(XN*XNK/XK) + 1.0 - SQ2PIL + CORR
H A Dfac.f25 SAVE FACN, SQ2PIL, NMAX
52 DATA SQ2PIL / 0.9189385332 0467274E0/
69 FAC = EXP ( (X-0.5)*LOG(X) - X + SQ2PIL + R9LGMC(X) )
H A Ddgamma.f32 DOUBLE PRECISION X, GAMCS(42), DXREL, PI, SINPIY, SQ2PIL, XMAX,
36 SAVE GAMCS, PI, SQ2PIL, NGAM, XMIN, XMAX, DXREL, FIRST
80 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
139 DGAMMA = EXP ((Y-0.5D0)*LOG(Y) - Y + SQ2PIL + D9LGMC(Y) )
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Ddlngam.f28 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX, local
32 SAVE SQ2PIL, SQPI2L, PI, XMAX, DXREL, FIRST
33 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
58 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*LOG(X) - X + D9LGMC(Y)
H A Ddgamma.f32 DOUBLE PRECISION X, GAMCS(42), DXREL, PI, SINPIY, SQ2PIL, XMAX,
36 SAVE GAMCS, PI, SQ2PIL, NGAM, XMIN, XMAX, DXREL, FIRST
80 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
139 DGAMMA = EXP ((Y-0.5D0)*LOG(Y) - Y + SQ2PIL + D9LGMC(Y) )
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Ddlbeta.f20 DOUBLE PRECISION A, B, P, Q, CORR, SQ2PIL, D9LGMC, DGAMMA, DLNGAM,
22 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
48 DLBETA = -0.5D0*DLOG(Q) + SQ2PIL + CORR + (P-0.5D0)*DLOG(P/(P+Q))
H A Ddlngam.f20 DOUBLE PRECISION X, DXREL, PI, SINPIY, SQPI2L, SQ2PIL, XMAX,
22 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
45 IF (X.GT.0.D0) DLNGAM = SQ2PIL + (X-0.5D0)*DLOG(X) - X + D9LGMC(Y)
H A Ddfac.f16 DOUBLE PRECISION FACN(31), SQ2PIL, X, XMAX, XMIN, D9LGMC
48 DATA SQ2PIL / 0.9189385332 0467274178 0329736405 62 D0 /
65 DFAC = DEXP ((X-0.5D0)*DLOG(X) - X + SQ2PIL + D9LGMC(X) )

12