Home
last modified time | relevance | path

Searched refs:CZR (Results 1 – 25 of 56) sorted by relevance

123

/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzuoik.f97 CZR = CZR - ZBR
101 CZR = -CZR
105 RCZ = CZR
134 CZR = CZR + STR
138 CZR = CZR - 0.25D0*STR - AIC
143 CZR = AX*COS(AY)
170 CZR = CZR - ZBR
174 RCZ = CZR
190 CZR = CZR + STR
194 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local
51 CZR = ZR
54 CZR = ZEROR
57 IF (ABS(CZR).GT.ELIM) GO TO 100
60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
62 CALL ZEXP(CZR, CZI, STR, STI)
164 CALL ZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
48 CZR = ZEROR
51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
53 ACZ = ZABS(CZR,CZI)
102 STR = AK1R*CZR - AK1I*CZI
103 STI = AK1R*CZI + AK1I*CZR
/dports/math/slatec/src/
H A Dzuoik.f97 CZR = CZR - ZBR
101 CZR = -CZR
105 RCZ = CZR
134 CZR = CZR + STR
138 CZR = CZR - 0.25D0*STR - AIC
143 CZR = AX*COS(AY)
170 CZR = CZR - ZBR
174 RCZ = CZR
190 CZR = CZR + STR
194 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I,
51 CZR = ZR
54 CZR = ZEROR
57 IF (ABS(CZR).GT.ELIM) GO TO 100
60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
62 CALL ZEXP(CZR, CZI, STR, STI)
164 CALL ZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
48 CZR = ZEROR
51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
53 ACZ = ZABS(CZR,CZI)
102 STR = AK1R*CZR - AK1I*CZI
103 STI = AK1R*CZI + AK1I*CZR
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzuoik.f97 CZR = CZR - ZBR
101 CZR = -CZR
105 RCZ = CZR
134 CZR = CZR + STR
138 CZR = CZR - 0.25D0*STR - AIC
143 CZR = AX*COS(AY)
170 CZR = CZR - ZBR
174 RCZ = CZR
190 CZR = CZR + STR
194 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f27 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local
51 CZR = ZR
54 CZR = ZEROR
57 IF (ABS(CZR).GT.ELIM) GO TO 100
60 IF ((ABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
62 CALL ZEXP(CZR, CZI, STR, STI)
164 CALL ZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
48 CZR = ZEROR
51 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
53 ACZ = ZABS(CZR,CZI)
102 STR = AK1R*CZR - AK1I*CZI
103 STI = AK1R*CZI + AK1I*CZR
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzuoik.f84 CZR = CZR - ZBR
88 CZR = -CZR
92 RCZ = CZR
121 CZR = CZR + STR
125 CZR = CZR - 0.25D0*STR - AIC
130 CZR = AX*DCOS(AY)
157 CZR = CZR - ZBR
161 RCZ = CZR
177 CZR = CZR + STR
181 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local
39 CZR = ZR
42 CZR = ZEROR
45 IF (DABS(CZR).GT.ELIM) GO TO 100
48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
50 CALL AZEXP(CZR, CZI, STR, STI)
152 CALL AZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
36 CZR = ZEROR
39 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
41 ACZ = AZABS(CZR,CZI)
90 STR = AK1R*CZR - AK1I*CZI
91 STI = AK1R*CZI + AK1I*CZR
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzuoik.f84 CZR = CZR - ZBR
88 CZR = -CZR
92 RCZ = CZR
121 CZR = CZR + STR
125 CZR = CZR - 0.25D0*STR - AIC
130 CZR = AX*DCOS(AY)
157 CZR = CZR - ZBR
161 RCZ = CZR
177 CZR = CZR + STR
181 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I, local
39 CZR = ZR
42 CZR = ZEROR
45 IF (DABS(CZR).GT.ELIM) GO TO 100
48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
50 CALL XZEXP(CZR, CZI, STR, STI)
152 CALL XZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local
36 CZR = ZEROR
39 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
41 ACZ = XZABS(CZR,CZI)
90 STR = AK1R*CZR - AK1I*CZI
91 STI = AK1R*CZI + AK1I*CZR
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzuoik.f84 CZR = CZR - ZBR
88 CZR = -CZR
92 RCZ = CZR
121 CZR = CZR + STR
125 CZR = CZR - 0.25D0*STR - AIC
130 CZR = AX*DCOS(AY)
157 CZR = CZR - ZBR
161 RCZ = CZR
177 CZR = CZR + STR
181 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I,
39 CZR = ZR
42 CZR = ZEROR
45 IF (DABS(CZR).GT.ELIM) GO TO 100
48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
50 CALL ZEXP(CZR, CZI, STR, STI)
156 CALL ZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
39 CZR = ZEROR
42 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
44 ACZ = ZABS(CMPLX(CZR,CZI,kind=KIND(1.0D0)))
93 STR = AK1R*CZR - AK1I*CZI
94 STI = AK1R*CZI + AK1I*CZR
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzuoik.f85 CZR = CZR - ZBR
89 CZR = -CZR
93 RCZ = CZR
122 CZR = CZR + STR
126 CZR = CZR - 0.25D0*STR - AIC
131 CZR = AX*DCOS(AY)
158 CZR = CZR - ZBR
162 RCZ = CZR
178 CZR = CZR + STR
182 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f17 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I,
40 CZR = ZR
43 CZR = ZEROR
46 IF (DABS(CZR).GT.ELIM) GO TO 100
49 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
51 CALL ZEXPAMOS(CZR, CZI, STR, STI)
153 CALL ZEXPAMOS(CZR, CZI, CKR, CKI)
H A Dzseri.f19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
37 CZR = ZEROR
40 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
42 ACZ = ZABS(CZR,CZI)
91 STR = AK1R*CZR - AK1I*CZI
92 STI = AK1R*CZI + AK1I*CZR
H A Dzbknu.f16 * CZEROI, CZEROR, CZI, CZR, DNU, DNU2, DPI, ELIM, ETEST, FC, FHS,
128 CALL ZMLT(ZR, ZI, ZR, ZI, CZR, CZI)
129 CZR = 0.25D0*CZR
141 STR = CKR*CZR - CKI*CZI
143 CKI = (CKR*CZI+CKI*CZR)*RAK
163 CALL ZMLT(ZR, ZI, ZR, ZI, CZR, CZI)
164 CZR = 0.25D0*CZR
176 STR = CKR*CZR - CKI*CZI
178 CKI = (CKR*CZI+CKI*CZR)*RAK
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzuoik.f84 CZR = CZR - ZBR
88 CZR = -CZR
92 RCZ = CZR
121 CZR = CZR + STR
125 CZR = CZR - 0.25D0*STR - AIC
130 CZR = AX*DCOS(AY)
157 CZR = CZR - ZBR
161 RCZ = CZR
177 CZR = CZR + STR
181 CZR = CZR - 0.25D0*STR - AIC
[all …]
H A Dzasyi.f16 * CZR, DFNU, DKI, DKR, DNU2, ELIM, EZI, EZR, FDN, FNU, PI, P1I,
39 CZR = ZR
42 CZR = ZEROR
45 IF (DABS(CZR).GT.ELIM) GO TO 100
48 IF ((DABS(CZR).GT.ALIM) .AND. (N.GT.2)) GO TO 20
50 CALL ZEXP(CZR, CZI, STR, STI)
156 CALL ZEXP(CZR, CZI, CKR, CKI)
H A Dzseri.f18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU,
39 CZR = ZEROR
42 CALL ZMLT(HZR, HZI, HZR, HZI, CZR, CZI)
44 ACZ = ZABS(CMPLX(CZR,CZI,kind=KIND(1.0D0)))
93 STR = AK1R*CZR - AK1I*CZI
94 STI = AK1R*CZI + AK1I*CZR

123