/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zseri.f | 50 AK1R = CKR*DFNU 53 AK1R = AK1R - AK 54 IF (KODE.EQ.2) AK1R = AK1R - ZR 55 IF (AK1R.GT.(-ELIM)) GO TO 40 65 IF (AK1R.GT.(-ALIM)) GO TO 50 71 AA = DEXP(AK1R) 83 AK1R = CONER 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR 92 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 36 AK1R = RTPI*STR*RAZ 38 CALL AZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 133 YR(M) = S2R*AK1R - S2I*AK1I 134 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zseri.f | 50 AK1R = CKR*DFNU 53 AK1R = AK1R - AK 54 IF (KODE.EQ.2) AK1R = AK1R - ZR 55 IF (AK1R.GT.(-ELIM)) GO TO 40 65 IF (AK1R.GT.(-ALIM)) GO TO 50 71 AA = DEXP(AK1R) 83 AK1R = CONER 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR 92 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 36 AK1R = RTPI*STR*RAZ 38 CALL XZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 133 YR(M) = S2R*AK1R - S2I*AK1I 134 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zseri.f | 53 AK1R = CKR*DFNU 56 AK1R = AK1R - AK 57 IF (KODE.EQ.2) AK1R = AK1R - ZR 58 IF (AK1R.GT.(-ELIM)) GO TO 40 68 IF (AK1R.GT.(-ALIM)) GO TO 50 74 AA = DEXP(AK1R) 86 AK1R = CONER 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR 95 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 36 AK1R = RTPI*STR*RAZ 38 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 137 YR(M) = S2R*AK1R - S2I*AK1I 138 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zseri.f | 62 AK1R = CKR*DFNU 65 AK1R = AK1R - AK 66 IF (KODE.EQ.2) AK1R = AK1R - ZR 67 IF (AK1R.GT.(-ELIM)) GO TO 40 77 IF (AK1R.GT.(-ALIM)) GO TO 50 83 AA = EXP(AK1R) 95 AK1R = CONER 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 104 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 48 AK1R = RTPI*STR*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/slatec/src/ |
H A D | zseri.f | 62 AK1R = CKR*DFNU 65 AK1R = AK1R - AK 66 IF (KODE.EQ.2) AK1R = AK1R - ZR 67 IF (AK1R.GT.(-ELIM)) GO TO 40 77 IF (AK1R.GT.(-ALIM)) GO TO 50 83 AA = EXP(AK1R) 95 AK1R = CONER 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 104 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 48 AK1R = RTPI*STR*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zseri.f | 62 AK1R = CKR*DFNU 65 AK1R = AK1R - AK 66 IF (KODE.EQ.2) AK1R = AK1R - ZR 67 IF (AK1R.GT.(-ELIM)) GO TO 40 77 IF (AK1R.GT.(-ALIM)) GO TO 50 83 AA = EXP(AK1R) 95 AK1R = CONER 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 104 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 48 AK1R = RTPI*STR*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zseri.f | 51 AK1R = CKR*DFNU 54 AK1R = AK1R - AK 55 IF (KODE.EQ.2) AK1R = AK1R - ZR 56 IF (AK1R.GT.(-ELIM)) GO TO 40 66 IF (AK1R.GT.(-ALIM)) GO TO 50 72 AA = DEXP(AK1R) 84 AK1R = CONER 91 STR = AK1R*CZR - AK1I*CZI 92 STI = AK1R*CZI + AK1I*CZR 93 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 15 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 37 AK1R = RTPI*STR*RAZ 39 CALL ZSQRTAMOS(AK1R, AK1I, AK1R, AK1I) 52 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 134 YR(M) = S2R*AK1R - S2I*AK1I 135 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zseri.f | 53 AK1R = CKR*DFNU 56 AK1R = AK1R - AK 57 IF (KODE.EQ.2) AK1R = AK1R - ZR 58 IF (AK1R.GT.(-ELIM)) GO TO 40 68 IF (AK1R.GT.(-ALIM)) GO TO 50 74 AA = DEXP(AK1R) 86 AK1R = CONER 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR 95 AK1R = STR*RS [all …]
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 36 AK1R = RTPI*STR*RAZ 38 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 137 YR(M) = S2R*AK1R - S2I*AK1I 138 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/ |
H A D | origcode_test.go | 1522 AK1R = real(tmp) 1545 AK1R = real(tmp) 1960 AK1R = CKR * DFNU 1963 AK1R = AK1R - AK 1965 AK1R = AK1R - ZR 1967 if AK1R > (-ELIM) { 1983 if AK1R > (-ALIM) { 1991 AA = dexp(AK1R) 2007 AK1R = CONER 2016 AK1R = STR * RS [all …]
|
H A D | amos.go | 1534 var AA, AEZ, AK, AK1I, AK1R, ARG, ARM, ATOL, 1561 AK1R = RTPI * STR * RAZ 1563 tmp = cmplx.Sqrt(complex(AK1R, AK1I)) 1564 AK1R = real(tmp) 1586 tmp = complex(AK1R, AK1I) * complex(STR, STI) 1587 AK1R = real(tmp) 1691 YR[M] = S2R*AK1R - S2I*AK1I 1692 YI[M] = S2R*AK1I + S2I*AK1R
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/ |
H A D | origcode_test.go | 1521 AK1R = real(tmp) 1544 AK1R = real(tmp) 1959 AK1R = CKR * DFNU 1962 AK1R = AK1R - AK 1964 AK1R = AK1R - ZR 1966 if AK1R > (-ELIM) { 1982 if AK1R > (-ALIM) { 1990 AA = dexp(AK1R) 2006 AK1R = CONER 2015 AK1R = STR * RS [all …]
|
H A D | amos.go | 1538 var AA, AEZ, AK, AK1I, AK1R, ARG, ARM, ATOL, 1566 AK1R = RTPI * STR * RAZ 1568 tmp = cmplx.Sqrt(complex(AK1R, AK1I)) 1569 AK1R = real(tmp) 1591 tmp = complex(AK1R, AK1I) * complex(STR, STI) 1592 AK1R = real(tmp) 1696 YR[M] = S2R*AK1R - S2I*AK1I 1697 YI[M] = S2R*AK1I + S2I*AK1R
|
/dports/math/py-CyLP/CyLP-0.91.4/cylp/input/netlib/ |
H A D | d2q06c.mps | 2571 04AK1R 1R0KWT -1.
|