Searched refs:D9GMIC (Results 1 – 6 of 6) sorted by relevance
/dports/math/slatec/src/ |
H A D | d9gmic.f | 2 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 D | dgamic.f | 48 2 D1MACH, DLNGAM, D9GMIC, D9GMIT, D9LGIC, D9LGIT 86 DGAMIC = D9GMIC (A, X, ALX)
|
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
H A D | d9gmic.f | 1 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 D | dgamic.f | 36 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 D | dgamic | 32 C***ROUTINES CALLED D1MACH,D9GMIC,D9GMIT,D9LGIC,D9LGIT,DINT,DLGAMS,
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp6.F | 3392 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 …]
|