/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zairy.f | 154 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 D | zunk1.f | 78 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 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 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 D | zairy.f | 154 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 D | zunk1.f | 78 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 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 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 D | zairy.f | 154 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 D | zunk1.f | 78 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 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 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 D | zairy.f | 165 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 D | zunk1.f | 89 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 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 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 D | zairy.f | 165 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 D | zunk1.f | 89 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 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 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 D | zairy.f | 165 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 D | zunk1.f | 89 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 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 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 D | zairy.f | 155 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 D | zunk1.f | 79 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 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 28 S1DR = S1R 30 S1R = ZEROR 37 CALL ZEXPAMOS(C1R, C1I, S1R, S1I) 38 AS1 = ZABS(S1R,S1I) 43 S1R = ZEROR
|
H A D | zbknu.f | 114 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 D | zairy.f | 154 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 D | zunk1.f | 78 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 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 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
|