Home
last modified time | relevance | path

Searched refs:SGNGAM (Results 1 – 25 of 28) sorted by relevance

12

/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/
H A Ddlgams.f2 SUBROUTINE DLGAMS (X, DLGAM, SGNGAM) argument
27 DOUBLE PRECISION X, DLGAM, SGNGAM, DLNGAM
30 SGNGAM = 1.0D0
34 IF (INT.EQ.0) SGNGAM = -1.0D0
H A Ddgamit.f52 1 BOT, H, SGA, SGNGAM, SQEPS, T, D1MACH, DGAMR, D9GMIT, D9LGIT,
81 1 SGNGAM)
82 DGAMIT = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
98 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
102 IF (T.GT.(-ALNEPS)) H = 1.0D0 - SGA * SGNGAM * EXP(T)
116 DGAMIT = -SGA * SGNGAM * EXP(T)
H A Dd9gmit.f2 DOUBLE PRECISION FUNCTION D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
28 DOUBLE PRECISION A, X, ALGAP1, SGNGAM, ALX, AE, AEPS, ALGS, ALG2,
81 SGNG2 = SGNGAM * SIGN (1.0D0, S)
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/
H A Ddlgams.f2 SUBROUTINE DLGAMS (X, DLGAM, SGNGAM) argument
27 DOUBLE PRECISION X, DLGAM, SGNGAM, DLNGAM local
30 SGNGAM = 1.0D0
34 IF (INT.EQ.0) SGNGAM = -1.0D0
H A Dalgams.f2 SUBROUTINE ALGAMS (X, ALGAM, SGNGAM) argument
31 SGNGAM = 1.0
35 IF (INT.EQ.0) SGNGAM = -1.0
H A Dd9gmit.f2 DOUBLE PRECISION FUNCTION D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
28 DOUBLE PRECISION A, X, ALGAP1, SGNGAM, ALX, AE, AEPS, ALGS, ALG2, local
81 SGNG2 = SGNGAM * SIGN (1.0D0, S)
H A Dr9gmit.f2 FUNCTION R9GMIT (A, X, ALGAP1, SGNGAM, ALX)
74 SGNG2 = SGNGAM*SIGN(1.0,S)
/dports/math/slatec/src/
H A Ddlgams.f2 SUBROUTINE DLGAMS (X, DLGAM, SGNGAM) argument
27 DOUBLE PRECISION X, DLGAM, SGNGAM, DLNGAM
30 SGNGAM = 1.0D0
34 IF (INT.EQ.0) SGNGAM = -1.0D0
H A Ddgamit.f52 1 BOT, H, SGA, SGNGAM, SQEPS, T, D1MACH, DGAMR, D9GMIT, D9LGIT,
81 1 SGNGAM)
82 DGAMIT = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
98 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
102 IF (T.GT.(-ALNEPS)) H = 1.0D0 - SGA * SGNGAM * EXP(T)
116 DGAMIT = -SGA * SGNGAM * EXP(T)
H A Ddgamic.f47 1 BOT, E, EPS, GSTAR, H, SGA, SGNG, SGNGAM, SGNGS, SQEPS, T,
89 30 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
90 GSTAR = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
99 SGNGAM = 1.0D0
117 60 SGNG = SIGN (1.0D0, H) * SGA * SGNGAM
123 70 SGNG = -SGNGS * SGA * SGNGAM
H A Dgamit.f78 1 SGNGAM)
79 GAMIT = R9GMIT (A, X, ALGAP1, SGNGAM, ALX)
94 CALL ALGAMS (A+1.0, ALGAP1, SGNGAM)
97 IF (T.GT.(-ALNEPS)) H = 1.0 - SGA*SGNGAM*EXP(T)
109 GAMIT = -SGA*SGNGAM*EXP(T)
H A Dgamic.f87 50 CALL ALGAMS (A+1.0, ALGAP1, SGNGAM)
88 GSTAR = R9GMIT (A, X, ALGAP1, SGNGAM, ALX)
97 SGNGAM = 1.0
115 80 SGNG = SIGN (1.0, H) * SGA * SGNGAM
121 90 SGNG = -SGNGS * SGA * SGNGAM
H A Dalgams.f2 SUBROUTINE ALGAMS (X, ALGAM, SGNGAM) argument
31 SGNGAM = 1.0
35 IF (INT.EQ.0) SGNGAM = -1.0
H A Dd9gmit.f2 DOUBLE PRECISION FUNCTION D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
28 DOUBLE PRECISION A, X, ALGAP1, SGNGAM, ALX, AE, AEPS, ALGS, ALG2,
81 SGNG2 = SGNGAM * SIGN (1.0D0, S)
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Ddlgams.f1 SUBROUTINE DLGAMS(X,DLGAM,SGNGAM) argument
20 DOUBLE PRECISION X, DLGAM, SGNGAM, DINT, DLNGAM
23 SGNGAM = 1.0D0
27 IF (INT.EQ.0) SGNGAM = -1.0D0
H A Ddgamit.f37 1 BOT, H, SGA, SGNGAM, SQEPS, T, D1MACH, DGAMR, D9GMIT, D9LGIT,
61 1 SGNGAM)
62 DGAMIT = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
78 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
82 IF (T.GT.(-ALNEPS)) H = 1.0D0 - SGA * SGNGAM * DEXP(T)
95 DGAMIT = -SGA * SGNGAM * DEXP(T)
H A Dgamit.f58 1 SGNGAM)
59 GAMIT = R9GMIT (A, X, ALGAP1, SGNGAM, ALX)
74 CALL ALGAMS (A+1.0, ALGAP1, SGNGAM)
77 IF (T.GT.(-ALNEPS)) H = 1.0 - SGA*SGNGAM*EXP(T)
89 GAMIT = -SGA*SGNGAM*EXP(T)
H A Ddgamic.f35 1 BOT, E, EPS, GSTAR, H, SGA, SGNG, SGNGAM, SGNGS, SQEPS, T,
72 30 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
73 GSTAR = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
82 SGNGAM = 1.0D0
100 60 SGNG = DSIGN (1.0D0, H) * SGA * SGNGAM
106 70 SGNG = -SGNGS * SGA * SGNGAM
H A Dgamic.f70 50 CALL ALGAMS (A+1.0, ALGAP1, SGNGAM)
71 GSTAR = R9GMIT (A, X, ALGAP1, SGNGAM, ALX)
80 SGNGAM = 1.0
98 80 SGNG = SIGN (1.0, H) * SGA * SGNGAM
104 90 SGNG = -SGNGS * SGA * SGNGAM
H A Dalgams.f1 SUBROUTINE ALGAMS(X,ALGAM,SGNGAM) argument
22 SGNGAM = 1.0
26 IF (INT.EQ.0) SGNGAM = -1.0
H A Dd9gmit.f1 DOUBLE PRECISION FUNCTION D9GMIT(A,X,ALGAP1,SGNGAM,ALX)
18 DOUBLE PRECISION A, X, ALGAP1, SGNGAM, ALX, AE, AEPS, ALGS, ALG2,
66 SGNG2 = SGNGAM * DSIGN (1.0D0, S)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Ddgami.f3 DOUBLE PRECISION FUNCTION D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
82 SGNG2 = SGNGAM * SIGN (1.0D0, S)
481 1 SGNGAM)
482 DGAMIT = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
498 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
502 IF (T.GT.(-ALNEPS)) H = 1.0D0 - SGA * SGNGAM * EXP(T)
516 DGAMIT = -SGA * SGNGAM * EXP(T)
780 SUBROUTINE DLGAMS (X, DLGAM, SGNGAM) argument
805 DOUBLE PRECISION X, DLGAM, SGNGAM, DLNGAM
808 SGNGAM = 1.0D0
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Ddgami.f3 DOUBLE PRECISION FUNCTION D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
82 SGNG2 = SGNGAM * SIGN (1.0D0, S)
481 1 SGNGAM)
482 DGAMIT = D9GMIT (A, X, ALGAP1, SGNGAM, ALX)
498 CALL DLGAMS (A+1.0D0, ALGAP1, SGNGAM)
502 IF (T.GT.(-ALNEPS)) H = 1.0D0 - SGA * SGNGAM * EXP(T)
516 DGAMIT = -SGA * SGNGAM * EXP(T)
780 SUBROUTINE DLGAMS (X, DLGAM, SGNGAM) argument
805 DOUBLE PRECISION X, DLGAM, SGNGAM, DLNGAM
808 SGNGAM = 1.0D0
[all …]
/dports/math/cmlib/cmlib-3.0_8/doc/fnlib/
H A Dalgams2 SUBROUTINE ALGAMS(X,ALGAM,SGNGAM)
16 C SGNGAM - is set to the sign of GAMMA(X) and will
H A Ddlgams2 SUBROUTINE DLGAMS(X,DLGAM,SGNGAM)
14 C DLGAMS(X,DLGAM,SGNGAM) calculates the double precision natural

12