/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/ |
H A D | dlbeta.f | 28 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 D | dlngam.f | 28 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 D | dgamma.f | 32 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 D | dlngam.f | 28 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 D | dlbeta.f | 28 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 D | alngam.f | 31 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 D | albeta.f | 33 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 D | dgamma.f | 32 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 D | dlngam.f | 28 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 D | dgamma.f | 32 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 D | dlbeta.f | 28 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 D | dlngam.f | 28 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 D | dbinom.f | 24 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 D | dfac.f | 24 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 D | clngam.f | 29 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 D | alngam.f | 31 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 D | albeta.f | 33 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 D | binom.f | 26 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 D | fac.f | 25 SAVE FACN, SQ2PIL, NMAX 52 DATA SQ2PIL / 0.9189385332 0467274E0/ 69 FAC = EXP ( (X-0.5)*LOG(X) - X + SQ2PIL + R9LGMC(X) )
|
H A D | dgamma.f | 32 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 D | dlngam.f | 28 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 D | dgamma.f | 32 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 D | dlbeta.f | 20 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 D | dlngam.f | 20 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 D | dfac.f | 16 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) )
|