/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zseri.f | 17 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, local 51 AK1I = CKI*DFNU 73 COEFR = AA*DCOS(AK1I) 74 COEFI = AA*DSIN(AK1I) 84 AK1I = CONEI 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR 93 AK1I = STI*RS 95 S1I = S1I + AK1I
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 37 AK1I = RTPI*STI*RAZ 38 CALL AZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 133 YR(M) = S2R*AK1R - S2I*AK1I 134 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zseri.f | 17 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, local 51 AK1I = CKI*DFNU 73 COEFR = AA*DCOS(AK1I) 74 COEFI = AA*DSIN(AK1I) 84 AK1I = CONEI 90 STR = AK1R*CZR - AK1I*CZI 91 STI = AK1R*CZI + AK1I*CZR 93 AK1I = STI*RS 95 S1I = S1I + AK1I
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 37 AK1I = RTPI*STI*RAZ 38 CALL XZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 133 YR(M) = S2R*AK1R - S2I*AK1I 134 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zseri.f | 17 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, 54 AK1I = CKI*DFNU 76 COEFR = AA*DCOS(AK1I) 77 COEFI = AA*DSIN(AK1I) 87 AK1I = CONEI 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR 96 AK1I = STI*RS 98 S1I = S1I + AK1I
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 37 AK1I = RTPI*STI*RAZ 38 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 137 YR(M) = S2R*AK1R - S2I*AK1I 138 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zseri.f | 28 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, local 63 AK1I = CKI*DFNU 85 COEFR = AA*COS(AK1I) 86 COEFI = AA*SIN(AK1I) 96 AK1I = CONEI 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 105 AK1I = STI*RS 107 S1I = S1I + AK1I
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 49 AK1I = RTPI*STI*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/slatec/src/ |
H A D | zseri.f | 28 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, 63 AK1I = CKI*DFNU 85 COEFR = AA*COS(AK1I) 86 COEFI = AA*SIN(AK1I) 96 AK1I = CONEI 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 105 AK1I = STI*RS 107 S1I = S1I + AK1I
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 49 AK1I = RTPI*STI*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zseri.f | 28 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, 63 AK1I = CKI*DFNU 85 COEFR = AA*COS(AK1I) 86 COEFI = AA*SIN(AK1I) 96 AK1I = CONEI 102 STR = AK1R*CZR - AK1I*CZI 103 STI = AK1R*CZI + AK1I*CZR 105 AK1I = STI*RS 107 S1I = S1I + AK1I
|
H A D | zasyi.f | 25 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, local 49 AK1I = RTPI*STI*RAZ 50 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 63 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 145 YR(M) = S2R*AK1R - S2I*AK1I 146 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zseri.f | 18 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, 52 AK1I = CKI*DFNU 74 COEFR = AA*DCOS(AK1I) 75 COEFI = AA*DSIN(AK1I) 85 AK1I = CONEI 91 STR = AK1R*CZR - AK1I*CZI 92 STI = AK1R*CZI + AK1I*CZR 94 AK1I = STI*RS 96 S1I = S1I + AK1I
|
H A D | zasyi.f | 15 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 38 AK1I = RTPI*STI*RAZ 39 CALL ZSQRTAMOS(AK1R, AK1I, AK1R, AK1I) 52 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 134 YR(M) = S2R*AK1R - S2I*AK1I 135 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zseri.f | 17 DOUBLE PRECISION AA, ACZ, AK, AK1I, AK1R, ALIM, ARM, ASCLE, ATOL, 54 AK1I = CKI*DFNU 76 COEFR = AA*DCOS(AK1I) 77 COEFI = AA*DSIN(AK1I) 87 AK1I = CONEI 93 STR = AK1R*CZR - AK1I*CZI 94 STI = AK1R*CZI + AK1I*CZR 96 AK1I = STI*RS 98 S1I = S1I + AK1I
|
H A D | zasyi.f | 14 DOUBLE PRECISION AA, AEZ, AK, AK1I, AK1R, ALIM, ARG, ARM, ATOL, 37 AK1I = RTPI*STI*RAZ 38 CALL ZSQRT(AK1R, AK1I, AK1R, AK1I) 51 CALL ZMLT(AK1R, AK1I, STR, STI, AK1R, AK1I) 137 YR(M) = S2R*AK1R - S2I*AK1I 138 YI(M) = S2R*AK1I + S2I*AK1R
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/ |
H A D | origcode_test.go | 1520 AK1I = RTPI * STI * RAZ 1523 AK1I = imag(tmp) 1546 AK1I = imag(tmp) 1961 AK1I = CKI * DFNU 1995 COEFR = AA * dcos(AK1I) 1996 COEFI = AA * dsin(AK1I) 2008 AK1I = CONEI 2014 STR = AK1R*CZR - AK1I*CZI 2015 STI = AK1R*CZI + AK1I*CZR 2017 AK1I = STI * RS [all …]
|
H A D | amos.go | 1534 var AA, AEZ, AK, AK1I, AK1R, ARG, ARM, ATOL, 1562 AK1I = RTPI * STI * RAZ 1563 tmp = cmplx.Sqrt(complex(AK1R, AK1I)) 1565 AK1I = imag(tmp) 1586 tmp = complex(AK1R, AK1I) * complex(STR, STI) 1588 AK1I = imag(tmp) 1691 YR[M] = S2R*AK1R - S2I*AK1I 1692 YI[M] = S2R*AK1I + S2I*AK1R
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/ |
H A D | origcode_test.go | 1519 AK1I = RTPI * STI * RAZ 1522 AK1I = imag(tmp) 1545 AK1I = imag(tmp) 1960 AK1I = CKI * DFNU 1994 COEFR = AA * dcos(AK1I) 1995 COEFI = AA * dsin(AK1I) 2007 AK1I = CONEI 2013 STR = AK1R*CZR - AK1I*CZI 2014 STI = AK1R*CZI + AK1I*CZR 2016 AK1I = STI * RS [all …]
|
H A D | amos.go | 1538 var AA, AEZ, AK, AK1I, AK1R, ARG, ARM, ATOL, 1567 AK1I = RTPI * STI * RAZ 1568 tmp = cmplx.Sqrt(complex(AK1R, AK1I)) 1570 AK1I = imag(tmp) 1591 tmp = complex(AK1R, AK1I) * complex(STR, STI) 1593 AK1I = imag(tmp) 1696 YR[M] = S2R*AK1R - S2I*AK1I 1697 YI[M] = S2R*AK1I + S2I*AK1R
|