Home
last modified time | relevance | path

Searched refs:CKI (Results 1 – 25 of 127) sorted by relevance

123456

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzmlri.f31 CKI = STI*AT*RAZ
50 P2R = P1R - (CKR*PTR-CKI*PTI)
51 P2I = P1I - (CKI*PTR+CKR*PTI)
55 CKI = CKI + RZI
76 CKI = STI*AT*RAZ
83 P2R = P1R - (CKR*PTR-CKI*PTI)
84 P2I = P1I - (CKR*PTI+CKI*PTR)
88 CKI = CKI + RZI
92 ACK = ZABS(CKR,CKI)
192 CKI = STI*P1R
[all …]
H A Dzbknu.f121 CKI = CONEI
141 STR = CKR*CZR - CKI*CZI
143 CKI = (CKR*CZI+CKI*CZR)*RAK
145 S1R = CKR*FR - CKI*FI + S1R
176 STR = CKR*CZR - CKI*CZI
178 CKI = (CKR*CZI+CKI*CZR)*RAK
360 CKI = STR*RZI
385 CKI = CKI + RZI
431 CKI = CKI + RZI
475 CKI = CKI+RZI
[all …]
H A Dzseri.f19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
44 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
52 AK1I = CKI*DFNU
150 CKI = S2I
151 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
152 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
154 S1I = CKI
156 CKI = S2I*CRSCR
158 YI(K) = CKI
161 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzmlri.f30 CKI = STI*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
54 CKI = CKI + RZI
75 CKI = STI*AT*RAZ
82 P2R = P1R - (CKR*PTR-CKI*PTI)
83 P2I = P1I - (CKR*PTI+CKI*PTR)
87 CKI = CKI + RZI
91 ACK = AZABS(CKR,CKI)
191 CKI = STI*P1R
[all …]
H A Dzbknu.f120 CKI = CONEI
140 STR = CKR*CZR - CKI*CZI
142 CKI = (CKR*CZI+CKI*CZR)*RAK
144 S1R = CKR*FR - CKI*FI + S1R
175 STR = CKR*CZR - CKI*CZI
177 CKI = (CKR*CZI+CKI*CZR)*RAK
359 CKI = STR*RZI
384 CKI = CKI + RZI
430 CKI = CKI + RZI
474 CKI = CKI+RZI
[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)
51 AK1I = CKI*DFNU
149 CKI = S2I
150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
153 S1I = CKI
155 CKI = S2I*CRSCR
157 YI(K) = CKI
160 IF (AZABS(CKR,CKI).GT.ASCLE) GO TO 140
H A Dzasyi.f15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local
93 CKI = CONEI
100 CALL ZDIV(CKR, CKI, DKR, DKI, STR, STI)
102 CKI = STI*SQK
104 CS2I = CS2I + CKI
107 CS1I = CS1I + CKI*SGN
152 CALL AZEXP(CZR, CZI, CKR, CKI)
154 STR = YR(I)*CKR - YI(I)*CKI
155 YI(I) = YR(I)*CKI + YI(I)*CKR
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzmlri.f30 CKI = STI*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
54 CKI = CKI + RZI
77 CKI = STI*AT*RAZ
84 P2R = P1R - (CKR*PTR-CKI*PTI)
85 P2I = P1I - (CKR*PTI+CKI*PTR)
89 CKI = CKI + RZI
93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0)))
193 CKI = STI*P1R
[all …]
H A Dzbknu.f120 CKI = CONEI
140 STR = CKR*CZR - CKI*CZI
142 CKI = (CKR*CZI+CKI*CZR)*RAK
144 S1R = CKR*FR - CKI*FI + S1R
175 STR = CKR*CZR - CKI*CZI
177 CKI = (CKR*CZI+CKI*CZR)*RAK
359 CKI = STR*RZI
384 CKI = CKI + RZI
430 CKI = CKI + RZI
474 CKI = CKI+RZI
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
54 AK1I = CKI*DFNU
154 CKI = S2I
155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
158 S1I = CKI
160 CKI = S2I*CRSCR
162 YI(K) = CKI
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 Dzmlri.f43 CKI = STI*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
67 CKI = CKI + RZI
88 CKI = STI*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
100 CKI = CKI + RZI
104 ACK = ZABS(CKR,CKI)
204 CKI = STI*P1R
[all …]
H A Dzbknu.f132 CKI = CONEI
152 STR = CKR*CZR - CKI*CZI
154 CKI = (CKR*CZI+CKI*CZR)*RAK
156 S1R = CKR*FR - CKI*FI + S1R
187 STR = CKR*CZR - CKI*CZI
189 CKI = (CKR*CZI+CKI*CZR)*RAK
371 CKI = STR*RZI
396 CKI = CKI + RZI
442 CKI = CKI + RZI
486 CKI = CKI+RZI
[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)
63 AK1I = CKI*DFNU
161 CKI = S2I
162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
165 S1I = CKI
167 CKI = S2I*CRSCR
169 YI(K) = CKI
172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzmlri.f30 CKI = STI*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
54 CKI = CKI + RZI
75 CKI = STI*AT*RAZ
82 P2R = P1R - (CKR*PTR-CKI*PTI)
83 P2I = P1I - (CKR*PTI+CKI*PTR)
87 CKI = CKI + RZI
91 ACK = XZABS(CKR,CKI)
191 CKI = STI*P1R
[all …]
H A Dzbknu.f120 CKI = CONEI
140 STR = CKR*CZR - CKI*CZI
142 CKI = (CKR*CZI+CKI*CZR)*RAK
144 S1R = CKR*FR - CKI*FI + S1R
175 STR = CKR*CZR - CKI*CZI
177 CKI = (CKR*CZI+CKI*CZR)*RAK
359 CKI = STR*RZI
384 CKI = CKI + RZI
430 CKI = CKI + RZI
474 CKI = CKI+RZI
[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)
51 AK1I = CKI*DFNU
149 CKI = S2I
150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
153 S1I = CKI
155 CKI = S2I*CRSCR
157 YI(K) = CKI
160 IF (XZABS(CKR,CKI).GT.ASCLE) GO TO 140
/dports/math/slatec/src/
H A Dzmlri.f43 CKI = STI*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
67 CKI = CKI + RZI
88 CKI = STI*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
100 CKI = CKI + RZI
104 ACK = ZABS(CKR,CKI)
204 CKI = STI*P1R
[all …]
H A Dzbknu.f132 CKI = CONEI
152 STR = CKR*CZR - CKI*CZI
154 CKI = (CKR*CZI+CKI*CZR)*RAK
156 S1R = CKR*FR - CKI*FI + S1R
187 STR = CKR*CZR - CKI*CZI
189 CKI = (CKR*CZI+CKI*CZR)*RAK
371 CKI = STR*RZI
396 CKI = CKI + RZI
442 CKI = CKI + RZI
486 CKI = CKI+RZI
[all …]
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
63 AK1I = CKI*DFNU
161 CKI = S2I
162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
165 S1I = CKI
167 CKI = S2I*CRSCR
169 YI(K) = CKI
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 Dzmlri.f43 CKI = STI*AT*RAZ
62 P2R = P1R - (CKR*PTR-CKI*PTI)
63 P2I = P1I - (CKI*PTR+CKR*PTI)
67 CKI = CKI + RZI
88 CKI = STI*AT*RAZ
95 P2R = P1R - (CKR*PTR-CKI*PTI)
96 P2I = P1I - (CKR*PTI+CKI*PTR)
100 CKI = CKI + RZI
104 ACK = ZABS(CKR,CKI)
204 CKI = STI*P1R
[all …]
H A Dzbknu.f132 CKI = CONEI
152 STR = CKR*CZR - CKI*CZI
154 CKI = (CKR*CZI+CKI*CZR)*RAK
156 S1R = CKR*FR - CKI*FI + S1R
187 STR = CKR*CZR - CKI*CZI
189 CKI = (CKR*CZI+CKI*CZR)*RAK
371 CKI = STR*RZI
396 CKI = CKI + RZI
442 CKI = CKI + RZI
486 CKI = CKI+RZI
[all …]
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
63 AK1I = CKI*DFNU
162 CKI = S2I
163 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
164 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
166 S1I = CKI
168 CKI = S2I*CRSCR
170 YI(K) = CKI
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 Dzmlri.f30 CKI = STI*AT*RAZ
49 P2R = P1R - (CKR*PTR-CKI*PTI)
50 P2I = P1I - (CKI*PTR+CKR*PTI)
54 CKI = CKI + RZI
77 CKI = STI*AT*RAZ
84 P2R = P1R - (CKR*PTR-CKI*PTI)
85 P2I = P1I - (CKR*PTI+CKI*PTR)
89 CKI = CKI + RZI
93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0)))
193 CKI = STI*P1R
[all …]
H A Dzbknu.f120 CKI = CONEI
140 STR = CKR*CZR - CKI*CZI
142 CKI = (CKR*CZI+CKI*CZR)*RAK
144 S1R = CKR*FR - CKI*FI + S1R
175 STR = CKR*CZR - CKI*CZI
177 CKI = (CKR*CZI+CKI*CZR)*RAK
359 CKI = STR*RZI
384 CKI = CKI + RZI
430 CKI = CKI + RZI
474 CKI = CKI+RZI
[all …]
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM)
54 AK1I = CKI*DFNU
154 CKI = S2I
155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI)
156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
158 S1I = CKI
160 CKI = S2I*CRSCR
162 YI(K) = CKI
165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140

123456