Home
last modified time | relevance | path

Searched refs:AK1R (Results 1 – 21 of 21) sorted by relevance

/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzseri.f50 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 Dzasyi.f14 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 Dzseri.f50 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 Dzasyi.f14 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 Dzseri.f53 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 Dzasyi.f14 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 Dzseri.f62 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 Dzasyi.f25 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 Dzseri.f62 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 Dzasyi.f25 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 Dzseri.f62 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 Dzasyi.f25 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 Dzseri.f51 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 Dzasyi.f15 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 Dzseri.f53 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 Dzasyi.f14 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 Dorigcode_test.go1522 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 Damos.go1534 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 Dorigcode_test.go1521 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 Damos.go1538 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 Dd2q06c.mps2571 04AK1R 1R0KWT -1.