Home
last modified time | relevance | path

Searched refs:S1R (Results 1 – 25 of 204) sorted by relevance

123456789

/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzairy.f154 S1R = CONER
184 S1R = S1R + TRM1R
324 S1R = CYR(1)*COEF
336 S1R = S1R*SFAC
341 S1R = STR
342 AIR = S1R/SFAC
348 S1R = STR
349 AIR = S1R/SFAC
354 S1R = ZEROR
358 S1R = C2*ZR
[all …]
H A Dzunk1.f78 RS1 = S1R
169 RS1 = S1R
194 S1R = CYR(1)
205 S1R = C2R
220 S1R = S1R*C1R
224 S1R = S1R*CSSR(KFLAG)
303 RS1 = S1R
375 S1R = CYR(1)
387 S1R = C2R
412 S1R = S1R*CSR
[all …]
H A Dzs1s2.f1 SUBROUTINE ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
18 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, AZABS local
22 AS1 = AZABS(S1R,S1I)
24 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
27 S1DR = S1R
29 S1R = ZEROR
36 CALL AZEXP(C1R, C1I, S1R, S1I)
37 AS1 = AZABS(S1R,S1I)
42 S1R = ZEROR
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzairy.f154 S1R = CONER
184 S1R = S1R + TRM1R
324 S1R = CYR(1)*COEF
336 S1R = S1R*SFAC
341 S1R = STR
342 AIR = S1R/SFAC
348 S1R = STR
349 AIR = S1R/SFAC
354 S1R = ZEROR
358 S1R = C2*ZR
[all …]
H A Dzunk1.f78 RS1 = S1R
169 RS1 = S1R
194 S1R = CYR(1)
205 S1R = C2R
220 S1R = S1R*C1R
224 S1R = S1R*CSSR(KFLAG)
303 RS1 = S1R
375 S1R = CYR(1)
387 S1R = C2R
412 S1R = S1R*CSR
[all …]
H A Dzs1s2.f1 SUBROUTINE ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
18 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, XZABS local
22 AS1 = XZABS(S1R,S1I)
24 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
27 S1DR = S1R
29 S1R = ZEROR
36 CALL XZEXP(C1R, C1I, S1R, S1I)
37 AS1 = XZABS(S1R,S1I)
42 S1R = ZEROR
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzairy.f154 S1R = CONER
184 S1R = S1R + TRM1R
326 S1R = CYR(1)*COEF
338 S1R = S1R*SFAC
343 S1R = STR
344 AIR = S1R/SFAC
350 S1R = STR
351 AIR = S1R/SFAC
356 S1R = ZEROR
360 S1R = C2*ZR
[all …]
H A Dzunk1.f78 RS1 = S1R
169 RS1 = S1R
194 S1R = CYR(1)
205 S1R = C2R
220 S1R = S1R*C1R
224 S1R = S1R*CSSR(KFLAG)
303 RS1 = S1R
375 S1R = CYR(1)
387 S1R = C2R
412 S1R = S1R*CSR
[all …]
H A Dzs1s2.f1 SUBROUTINE ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
18 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS
22 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
24 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
27 S1DR = S1R
29 S1R = ZEROR
36 CALL ZEXP(C1R, C1I, S1R, S1I)
37 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
44 S1R = ZEROR
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzairy.f165 S1R = CONER
195 S1R = S1R + TRM1R
335 S1R = CYR(1)*COEF
347 S1R = S1R*SFAC
352 S1R = STR
353 AIR = S1R/SFAC
359 S1R = STR
360 AIR = S1R/SFAC
365 S1R = ZEROR
369 S1R = C2*ZR
[all …]
H A Dzunk1.f89 RS1 = S1R
180 RS1 = S1R
205 S1R = CYR(1)
216 S1R = C2R
231 S1R = S1R*C1R
235 S1R = S1R*CSSR(KFLAG)
314 RS1 = S1R
386 S1R = CYR(1)
398 S1R = C2R
423 S1R = S1R*CSR
[all …]
H A Dzs1s2.f2 SUBROUTINE ZS1S2 (ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
29 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS local
35 AS1 = ZABS(S1R,S1I)
37 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
40 S1DR = S1R
42 S1R = ZEROR
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
55 S1R = ZEROR
/dports/math/slatec/src/
H A Dzairy.f165 S1R = CONER
195 S1R = S1R + TRM1R
335 S1R = CYR(1)*COEF
347 S1R = S1R*SFAC
352 S1R = STR
353 AIR = S1R/SFAC
359 S1R = STR
360 AIR = S1R/SFAC
365 S1R = ZEROR
369 S1R = C2*ZR
[all …]
H A Dzunk1.f89 RS1 = S1R
180 RS1 = S1R
205 S1R = CYR(1)
216 S1R = C2R
231 S1R = S1R*C1R
235 S1R = S1R*CSSR(KFLAG)
314 RS1 = S1R
386 S1R = CYR(1)
398 S1R = C2R
423 S1R = S1R*CSR
[all …]
H A Dzs1s2.f2 SUBROUTINE ZS1S2 (ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
29 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS
35 AS1 = ZABS(S1R,S1I)
37 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
40 S1DR = S1R
42 S1R = ZEROR
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
55 S1R = ZEROR
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzairy.f165 S1R = CONER
195 S1R = S1R + TRM1R
335 S1R = CYR(1)*COEF
347 S1R = S1R*SFAC
352 S1R = STR
353 AIR = S1R/SFAC
359 S1R = STR
360 AIR = S1R/SFAC
365 S1R = ZEROR
369 S1R = C2*ZR
[all …]
H A Dzunk1.f89 RS1 = S1R
180 RS1 = S1R
205 S1R = CYR(1)
216 S1R = C2R
231 S1R = S1R*C1R
235 S1R = S1R*CSSR(KFLAG)
314 RS1 = S1R
386 S1R = CYR(1)
398 S1R = C2R
423 S1R = S1R*CSR
[all …]
H A Dzs1s2.f2 SUBROUTINE ZS1S2 (ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
29 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS
35 AS1 = ZABS(S1R,S1I)
37 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
40 S1DR = S1R
42 S1R = ZEROR
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
55 S1R = ZEROR
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzairy.f155 S1R = CONER
185 S1R = S1R + TRM1R
325 S1R = CYR(1)*COEF
337 S1R = S1R*SFAC
342 S1R = STR
343 AIR = S1R/SFAC
349 S1R = STR
350 AIR = S1R/SFAC
355 S1R = ZEROR
359 S1R = C2*ZR
[all …]
H A Dzunk1.f79 RS1 = S1R
170 RS1 = S1R
195 S1R = CYR(1)
206 S1R = C2R
221 S1R = S1R*C1R
225 S1R = S1R*CSSR(KFLAG)
304 RS1 = S1R
376 S1R = CYR(1)
388 S1R = C2R
413 S1R = S1R*CSR
[all …]
H A Dzs1s2.f1 SUBROUTINE ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
19 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS
23 AS1 = ZABS(S1R,S1I)
25 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
28 S1DR = S1R
30 S1R = ZEROR
37 CALL ZEXPAMOS(C1R, C1I, S1R, S1I)
38 AS1 = ZABS(S1R,S1I)
43 S1R = ZEROR
H A Dzbknu.f114 S1R = FR
145 S1R = CKR*FR - CKI*FI + S1R
180 S1R = CKR*FR - CKI*FI + S1R
199 S1R = S1R*STR
203 CALL ZMLT(S1R, S1I, FR, FI, S1R, S1I)
364 S1R = S2R
395 S1R = S1R*P1R
400 S1R = S1R*STR
443 S1R = S1R*P1R
448 S1R = S1R*STR
[all …]
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzairy.f154 S1R = CONER
184 S1R = S1R + TRM1R
326 S1R = CYR(1)*COEF
338 S1R = S1R*SFAC
343 S1R = STR
344 AIR = S1R/SFAC
350 S1R = STR
351 AIR = S1R/SFAC
356 S1R = ZEROR
360 S1R = C2*ZR
[all …]
H A Dzunk1.f78 RS1 = S1R
169 RS1 = S1R
194 S1R = CYR(1)
205 S1R = C2R
220 S1R = S1R*C1R
224 S1R = S1R*CSSR(KFLAG)
303 RS1 = S1R
375 S1R = CYR(1)
387 S1R = C2R
412 S1R = S1R*CSR
[all …]
H A Dzs1s2.f1 SUBROUTINE ZS1S2(ZRR, ZRI, S1R, S1I, S2R, S2I, NZ, ASCLE, ALIM, argument
18 * S1DR, S1I, S1R, S2I, S2R, ZEROI, ZEROR, ZRI, ZRR, ZABS
22 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
24 IF (S1R.EQ.0.0D0 .AND. S1I.EQ.0.0D0) GO TO 10
27 S1DR = S1R
29 S1R = ZEROR
36 CALL ZEXP(C1R, C1I, S1R, S1I)
37 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
44 S1R = ZEROR

123456789