/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zairy.f | 155 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 D | zunk1.f | 103 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 D | zs1s2.f | 1 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 D | zairy.f | 155 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 D | zunk1.f | 103 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 D | zs1s2.f | 1 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 D | zairy.f | 155 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 D | zunk1.f | 103 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 D | zs1s2.f | 1 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 D | zairy.f | 166 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 D | zunk1.f | 114 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 D | zs1s2.f | 2 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 D | zairy.f | 166 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 D | zunk1.f | 114 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 D | zs1s2.f | 2 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 D | zairy.f | 166 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 D | zunk1.f | 114 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 D | zs1s2.f | 2 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 D | zairy.f | 156 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 D | zunk1.f | 104 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 D | zs1s2.f | 1 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 D | zbknu.f | 115 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 D | zairy.f | 155 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 D | zunk1.f | 103 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 D | zs1s2.f | 1 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
|