/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/ |
H A D | dlgams.f | 2 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 D | dgamit.f | 52 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 D | d9gmit.f | 2 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 D | dlgams.f | 2 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 D | algams.f | 2 SUBROUTINE ALGAMS (X, ALGAM, SGNGAM) argument 31 SGNGAM = 1.0 35 IF (INT.EQ.0) SGNGAM = -1.0
|
H A D | d9gmit.f | 2 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 D | r9gmit.f | 2 FUNCTION R9GMIT (A, X, ALGAP1, SGNGAM, ALX) 74 SGNG2 = SGNGAM*SIGN(1.0,S)
|
/dports/math/slatec/src/ |
H A D | dlgams.f | 2 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 D | dgamit.f | 52 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 D | dgamic.f | 47 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 D | gamit.f | 78 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 D | gamic.f | 87 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 D | algams.f | 2 SUBROUTINE ALGAMS (X, ALGAM, SGNGAM) argument 31 SGNGAM = 1.0 35 IF (INT.EQ.0) SGNGAM = -1.0
|
H A D | d9gmit.f | 2 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 D | dlgams.f | 1 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 D | dgamit.f | 37 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 D | gamit.f | 58 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 D | dgamic.f | 35 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 D | gamic.f | 70 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 D | algams.f | 1 SUBROUTINE ALGAMS(X,ALGAM,SGNGAM) argument 22 SGNGAM = 1.0 26 IF (INT.EQ.0) SGNGAM = -1.0
|
H A D | d9gmit.f | 1 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 D | dgami.f | 3 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 D | dgami.f | 3 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 D | algams | 2 SUBROUTINE ALGAMS(X,ALGAM,SGNGAM) 16 C SGNGAM - is set to the sign of GAMMA(X) and will
|
H A D | dlgams | 2 SUBROUTINE DLGAMS(X,DLGAM,SGNGAM) 14 C DLGAMS(X,DLGAM,SGNGAM) calculates the double precision natural
|