Home
last modified time | relevance | path

Searched refs:S1I (Results 1 – 25 of 186) sorted by relevance

12345678

/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzairy.f155 S1I = CONEI
185 S1I = S1I + TRM1I
337 S1I = S1I*SFAC
340 S1I = S1R*CSQI + S1I*CSQR
343 AII = S1I/SFAC
347 S1I = -(S1R*ZI+S1I*ZR)
350 AII = S1I/SFAC
355 S1I = ZEROI
359 S1I = C2*ZI
362 AII = -S1I
[all …]
H A Dzunk1.f103 S1I = STR*DSIN(S1I)
195 S1I = CYI(1)
206 S1I = C2I
221 S1I = S1I*C1R
225 S1I = S1I*CSSR(KFLAG)
323 S1I = STR*DSIN(S1I)
343 S1I = YI(KK)
376 S1I = CYI(1)
388 S1I = C2I
413 S1I = S1I*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
28 S1DI = S1I
30 S1I = ZEROI
36 CALL AZEXP(C1R, C1I, S1R, S1I)
37 AS1 = AZABS(S1R,S1I)
43 S1I = ZEROI
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzairy.f155 S1I = CONEI
185 S1I = S1I + TRM1I
337 S1I = S1I*SFAC
340 S1I = S1R*CSQI + S1I*CSQR
343 AII = S1I/SFAC
347 S1I = -(S1R*ZI+S1I*ZR)
350 AII = S1I/SFAC
355 S1I = ZEROI
359 S1I = C2*ZI
362 AII = -S1I
[all …]
H A Dzunk1.f103 S1I = STR*DSIN(S1I)
195 S1I = CYI(1)
206 S1I = C2I
221 S1I = S1I*C1R
225 S1I = S1I*CSSR(KFLAG)
323 S1I = STR*DSIN(S1I)
343 S1I = YI(KK)
376 S1I = CYI(1)
388 S1I = C2I
413 S1I = S1I*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
28 S1DI = S1I
30 S1I = ZEROI
36 CALL XZEXP(C1R, C1I, S1R, S1I)
37 AS1 = XZABS(S1R,S1I)
43 S1I = ZEROI
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzairy.f155 S1I = CONEI
185 S1I = S1I + TRM1I
339 S1I = S1I*SFAC
342 S1I = S1R*CSQI + S1I*CSQR
345 AII = S1I/SFAC
349 S1I = -(S1R*ZI+S1I*ZR)
352 AII = S1I/SFAC
357 S1I = ZEROI
361 S1I = C2*ZI
364 AII = -S1I
[all …]
H A Dzunk1.f103 S1I = STR*DSIN(S1I)
195 S1I = CYI(1)
206 S1I = C2I
221 S1I = S1I*C1R
225 S1I = S1I*CSSR(KFLAG)
323 S1I = STR*DSIN(S1I)
343 S1I = YI(KK)
376 S1I = CYI(1)
388 S1I = C2I
413 S1I = S1I*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
28 S1DI = S1I
30 S1I = ZEROI
36 CALL ZEXP(C1R, C1I, S1R, S1I)
37 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
45 S1I = ZEROI
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzairy.f166 S1I = CONEI
196 S1I = S1I + TRM1I
348 S1I = S1I*SFAC
351 S1I = S1R*CSQI + S1I*CSQR
354 AII = S1I/SFAC
358 S1I = -(S1R*ZI+S1I*ZR)
361 AII = S1I/SFAC
366 S1I = ZEROI
370 S1I = C2*ZI
373 AII = -S1I
[all …]
H A Dzunk1.f114 S1I = STR*SIN(S1I)
206 S1I = CYI(1)
217 S1I = C2I
232 S1I = S1I*C1R
236 S1I = S1I*CSSR(KFLAG)
334 S1I = STR*SIN(S1I)
354 S1I = YI(KK)
387 S1I = CYI(1)
399 S1I = C2I
424 S1I = S1I*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
41 S1DI = S1I
43 S1I = ZEROI
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
56 S1I = ZEROI
/dports/math/slatec/src/
H A Dzairy.f166 S1I = CONEI
196 S1I = S1I + TRM1I
348 S1I = S1I*SFAC
351 S1I = S1R*CSQI + S1I*CSQR
354 AII = S1I/SFAC
358 S1I = -(S1R*ZI+S1I*ZR)
361 AII = S1I/SFAC
366 S1I = ZEROI
370 S1I = C2*ZI
373 AII = -S1I
[all …]
H A Dzunk1.f114 S1I = STR*SIN(S1I)
206 S1I = CYI(1)
217 S1I = C2I
232 S1I = S1I*C1R
236 S1I = S1I*CSSR(KFLAG)
334 S1I = STR*SIN(S1I)
354 S1I = YI(KK)
387 S1I = CYI(1)
399 S1I = C2I
424 S1I = S1I*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
41 S1DI = S1I
43 S1I = ZEROI
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
56 S1I = ZEROI
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzairy.f166 S1I = CONEI
196 S1I = S1I + TRM1I
348 S1I = S1I*SFAC
351 S1I = S1R*CSQI + S1I*CSQR
354 AII = S1I/SFAC
358 S1I = -(S1R*ZI+S1I*ZR)
361 AII = S1I/SFAC
366 S1I = ZEROI
370 S1I = C2*ZI
373 AII = -S1I
[all …]
H A Dzunk1.f114 S1I = STR*SIN(S1I)
206 S1I = CYI(1)
217 S1I = C2I
232 S1I = S1I*C1R
236 S1I = S1I*CSSR(KFLAG)
334 S1I = STR*SIN(S1I)
354 S1I = YI(KK)
387 S1I = CYI(1)
399 S1I = C2I
424 S1I = S1I*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
41 S1DI = S1I
43 S1I = ZEROI
49 CALL ZEXP(C1R, C1I, S1R, S1I)
50 AS1 = ZABS(S1R,S1I)
56 S1I = ZEROI
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzairy.f156 S1I = CONEI
186 S1I = S1I + TRM1I
338 S1I = S1I*SFAC
341 S1I = S1R*CSQI + S1I*CSQR
344 AII = S1I/SFAC
348 S1I = -(S1R*ZI+S1I*ZR)
351 AII = S1I/SFAC
356 S1I = ZEROI
360 S1I = C2*ZI
363 AII = -S1I
[all …]
H A Dzunk1.f104 S1I = STR*DSIN(S1I)
196 S1I = CYI(1)
207 S1I = C2I
222 S1I = S1I*C1R
226 S1I = S1I*CSSR(KFLAG)
324 S1I = STR*DSIN(S1I)
344 S1I = YI(KK)
377 S1I = CYI(1)
389 S1I = C2I
414 S1I = S1I*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
29 S1DI = S1I
31 S1I = ZEROI
37 CALL ZEXPAMOS(C1R, C1I, S1R, S1I)
38 AS1 = ZABS(S1R,S1I)
44 S1I = ZEROI
H A Dzbknu.f115 S1I = FI
146 S1I = CKR*FI + CKI*FR + S1I
181 S1I = CKR*FI + CKI*FR + S1I
200 S1I = S1I*STR
203 CALL ZMLT(S1R, S1I, FR, FI, S1R, S1I)
365 S1I = S2I
396 S1I = S1I*P1R
401 S1I = S1I*STR
444 S1I = S1I*P1R
449 S1I = S1I*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.f155 S1I = CONEI
185 S1I = S1I + TRM1I
339 S1I = S1I*SFAC
342 S1I = S1R*CSQI + S1I*CSQR
345 AII = S1I/SFAC
349 S1I = -(S1R*ZI+S1I*ZR)
352 AII = S1I/SFAC
357 S1I = ZEROI
361 S1I = C2*ZI
364 AII = -S1I
[all …]
H A Dzunk1.f103 S1I = STR*DSIN(S1I)
195 S1I = CYI(1)
206 S1I = C2I
221 S1I = S1I*C1R
225 S1I = S1I*CSSR(KFLAG)
323 S1I = STR*DSIN(S1I)
343 S1I = YI(KK)
376 S1I = CYI(1)
388 S1I = C2I
413 S1I = S1I*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
28 S1DI = S1I
30 S1I = ZEROI
36 CALL ZEXP(C1R, C1I, S1R, S1I)
37 AS1 = ZABS(CMPLX(S1R,S1I,kind=KIND(1.0D0)))
45 S1I = ZEROI

12345678