Home
last modified time | relevance | path

Searched refs:CKR (Results 1 – 25 of 176) sorted by relevance

12345678

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzbknu.f120 CKR = CONER
141 STR = CKR*CZR - CKI*CZI
144 CKR = STR*RAK
179 CKR = STR*RAK
264 CBR = CKR/(FK+CONER)
268 CKR = CKR + CTWOR
359 CKR = STR*RZR
384 CKR = CKR + RZR
430 CKR = CKR + RZR
474 CKR = CKR+RZR
[all …]
H A Dzmlri.f30 CKR = STR*AT*RAZ
50 P2R = P1R - (CKR*PTR-CKI*PTI)
51 P2I = P1I - (CKI*PTR+CKR*PTI)
54 CKR = CKR + RZR
75 CKR = STR*AT*RAZ
83 P2R = P1R - (CKR*PTR-CKI*PTI)
84 P2I = P1I - (CKR*PTI+CKI*PTR)
87 CKR = CKR + RZR
92 ACK = ZABS(CKR,CKI)
191 CKR = STR*P1R
[all …]
H A Dzseri.f19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
44 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
51 AK1R = CKR*DFNU
149 CKR = S2R
151 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
152 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
153 S1R = CKR
155 CKR = S2R*CRSCR
157 YR(K) = CKR
161 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzbknu.f119 CKR = CONER
140 STR = CKR*CZR - CKI*CZI
143 CKR = STR*RAK
178 CKR = STR*RAK
263 CBR = CKR/(FK+CONER)
267 CKR = CKR + CTWOR
358 CKR = STR*RZR
383 CKR = CKR + RZR
429 CKR = CKR + RZR
473 CKR = CKR+RZR
[all …]
H A Dzmlri.f29 CKR = STR*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
53 CKR = CKR + RZR
74 CKR = STR*AT*RAZ
82 P2R = P1R - (CKR*PTR-CKI*PTI)
83 P2I = P1I - (CKR*PTI+CKI*PTR)
86 CKR = CKR + RZR
91 ACK = AZABS(CKR,CKI)
190 CKR = STR*P1R
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
43 CALL AZLOG(HZR, HZI, CKR, CKI, IDUM)
50 AK1R = CKR*DFNU
148 CKR = S2R
150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
152 S1R = CKR
154 CKR = S2R*CRSCR
156 YR(K) = CKR
160 IF (AZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzbknu.f119 CKR = CONER
140 STR = CKR*CZR - CKI*CZI
143 CKR = STR*RAK
178 CKR = STR*RAK
263 CBR = CKR/(FK+CONER)
267 CKR = CKR + CTWOR
358 CKR = STR*RZR
383 CKR = CKR + RZR
429 CKR = CKR + RZR
473 CKR = CKR+RZR
[all …]
H A Dzmlri.f29 CKR = STR*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
53 CKR = CKR + RZR
76 CKR = STR*AT*RAZ
84 P2R = P1R - (CKR*PTR-CKI*PTI)
85 P2I = P1I - (CKR*PTI+CKI*PTR)
88 CKR = CKR + RZR
93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0)))
192 CKR = STR*P1R
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
53 AK1R = CKR*DFNU
153 CKR = S2R
155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
157 S1R = CKR
159 CKR = S2R*CRSCR
161 YR(K) = CKR
165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzbknu.f131 CKR = CONER
152 STR = CKR*CZR - CKI*CZI
155 CKR = STR*RAK
190 CKR = STR*RAK
275 CBR = CKR/(FK+CONER)
279 CKR = CKR + CTWOR
370 CKR = STR*RZR
395 CKR = CKR + RZR
441 CKR = CKR + RZR
485 CKR = CKR+RZR
[all …]
H A Dzmlri.f42 CKR = STR*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
66 CKR = CKR + RZR
87 CKR = STR*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
99 CKR = CKR + RZR
104 ACK = ZABS(CKR,CKI)
203 CKR = STR*P1R
[all …]
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
62 AK1R = CKR*DFNU
160 CKR = S2R
162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
164 S1R = CKR
166 CKR = S2R*CRSCR
168 YR(K) = CKR
172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzbknu.f119 CKR = CONER
140 STR = CKR*CZR - CKI*CZI
143 CKR = STR*RAK
178 CKR = STR*RAK
263 CBR = CKR/(FK+CONER)
267 CKR = CKR + CTWOR
358 CKR = STR*RZR
383 CKR = CKR + RZR
429 CKR = CKR + RZR
473 CKR = CKR+RZR
[all …]
H A Dzmlri.f29 CKR = STR*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
53 CKR = CKR + RZR
74 CKR = STR*AT*RAZ
82 P2R = P1R - (CKR*PTR-CKI*PTI)
83 P2I = P1I - (CKR*PTI+CKI*PTR)
86 CKR = CKR + RZR
91 ACK = XZABS(CKR,CKI)
190 CKR = STR*P1R
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
43 CALL XZLOG(HZR, HZI, CKR, CKI, IDUM)
50 AK1R = CKR*DFNU
148 CKR = S2R
150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
152 S1R = CKR
154 CKR = S2R*CRSCR
156 YR(K) = CKR
160 IF (XZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/math/slatec/src/
H A Dzbknu.f131 CKR = CONER
152 STR = CKR*CZR - CKI*CZI
155 CKR = STR*RAK
190 CKR = STR*RAK
275 CBR = CKR/(FK+CONER)
279 CKR = CKR + CTWOR
370 CKR = STR*RZR
395 CKR = CKR + RZR
441 CKR = CKR + RZR
485 CKR = CKR+RZR
[all …]
H A Dzmlri.f42 CKR = STR*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
66 CKR = CKR + RZR
87 CKR = STR*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
99 CKR = CKR + RZR
104 ACK = ZABS(CKR,CKI)
203 CKR = STR*P1R
[all …]
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
62 AK1R = CKR*DFNU
160 CKR = S2R
162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
164 S1R = CKR
166 CKR = S2R*CRSCR
168 YR(K) = CKR
172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzbknu.f131 CKR = CONER
152 STR = CKR*CZR - CKI*CZI
155 CKR = STR*RAK
190 CKR = STR*RAK
275 CBR = CKR/(FK+CONER)
279 CKR = CKR + CTWOR
370 CKR = STR*RZR
395 CKR = CKR + RZR
441 CKR = CKR + RZR
485 CKR = CKR+RZR
[all …]
H A Dzmlri.f42 CKR = STR*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
66 CKR = CKR + RZR
87 CKR = STR*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
99 CKR = CKR + RZR
104 ACK = ZABS(CKR,CKI)
203 CKR = STR*P1R
[all …]
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
62 AK1R = CKR*DFNU
161 CKR = S2R
163 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
164 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
165 S1R = CKR
167 CKR = S2R*CRSCR
169 YR(K) = CKR
173 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzbknu.f119 CKR = CONER
140 STR = CKR*CZR - CKI*CZI
143 CKR = STR*RAK
178 CKR = STR*RAK
263 CBR = CKR/(FK+CONER)
267 CKR = CKR + CTWOR
358 CKR = STR*RZR
383 CKR = CKR + RZR
429 CKR = CKR + RZR
473 CKR = CKR+RZR
[all …]
H A Dzmlri.f29 CKR = STR*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
53 CKR = CKR + RZR
76 CKR = STR*AT*RAZ
84 P2R = P1R - (CKR*PTR-CKI*PTI)
85 P2I = P1I - (CKR*PTI+CKI*PTR)
88 CKR = CKR + RZR
93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0)))
192 CKR = STR*P1R
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
53 AK1R = CKR*DFNU
153 CKR = S2R
155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
157 S1R = CKR
159 CKR = S2R*CRSCR
161 YR(K) = CKR
165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/
H A Dorigcode_test.go666 CKR = CONER
859 CKR = CKR + CTWOR
991 CKR = CKR + RZR
1049 CKR = CKR + RZR
1096 CKR = CKR + RZR
1302 CKR = CKR + RZR
1593 CKR = CONER
1737 CKR = CKR + RZR
1772 CKR = CKR + RZR
2083 CKR = S2R
[all …]

12345678