Home
last modified time | relevance | path

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

/dports/math/slatec/src/
H A Dd9gmic.f2 DOUBLE PRECISION FUNCTION D9GMIC (A, X, ALX)
63 30 D9GMIC = -ALX - EULER + X*S/(FM+1.0D0)
66 IF (M.EQ.1) D9GMIC = -D9GMIC - 1.D0 + 1.D0/X
82 D9GMIC = D9GMIC + 1.0D0/K
87 ALNG = LOG(D9GMIC) - DLNGAM(FM+1.D0)
89 D9GMIC = 0.D0
90 IF (ALNG.GT.BOT) D9GMIC = SGNG * EXP(ALNG)
91 IF (S.NE.0.D0) D9GMIC = D9GMIC +
94 IF (D9GMIC .EQ. 0.D0 .AND. S .EQ. 0.D0) CALL XERMSG ('SLATEC',
H A Ddgamic.f48 2 D1MACH, DLNGAM, D9GMIC, D9GMIT, D9LGIC, D9LGIT
86 DGAMIC = D9GMIC (A, X, ALX)
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Dd9gmic.f1 DOUBLE PRECISION FUNCTION D9GMIC(A,X,ALX) function
47 30 D9GMIC = -ALX - EULER + X*S/(FM+1.0D0)
50 IF (M.EQ.1) D9GMIC = -D9GMIC - 1.D0 + 1.D0/X
66 D9GMIC = D9GMIC + 1.0D0/DBLE(FLOAT(K))
71 ALNG = DLOG(D9GMIC) - DLNGAM(FM+1.D0)
73 D9GMIC = 0.D0
74 IF (ALNG.GT.BOT) D9GMIC = SGNG * DEXP(ALNG)
75 IF (S.NE.0.D0) D9GMIC = D9GMIC +
78 IF (D9GMIC.EQ.0.D0 .AND. S.EQ.0.D0) CALL XERROR ( 'D9GMIC RESULT
H A Ddgamic.f36 2 D1MACH, DLNGAM, D9GMIC, D9GMIT, D9LGIC, D9LGIT, DINT
69 DGAMIC = D9GMIC (A, X, ALX)
/dports/math/cmlib/cmlib-3.0_8/doc/fnlib/
H A Ddgamic32 C***ROUTINES CALLED D1MACH,D9GMIC,D9GMIT,D9LGIC,D9LGIT,DINT,DLGAMS,
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp6.F3392 D9GMIC=0.D0
3399 D9GMIC=0.D0
3422 D9GMIC=0.D0
3425 30 D9GMIC = -ALX - EULER + X*S/(FM+1.0D0)
3428 IF (M.EQ.1) D9GMIC = -D9GMIC - 1.D0 + 1.D0/X
3444 D9GMIC = D9GMIC + 1.0D0/K
3449 ALNG = LOG(D9GMIC) - DLNGAM(FM+1.D0)
3451 D9GMIC = 0.D0
3453 IF (S.NE.0.D0) D9GMIC = D9GMIC +
12686 2 DLNGAM, D9GMIC, D9GMIT, D9LGIC, D9LGIT local
[all …]