/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zbknu.f | 120 CKR = CONER 141 STR = CKR*CZR - CKI*CZI 144 CKR = STR*RAK 179 CKR = STR*RAK 264 CBR = CKR/(FK+CONER) 268 CKR = CKR + CTWOR 359 CKR = STR*RZR 384 CKR = CKR + RZR 430 CKR = CKR + RZR 474 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 30 CKR = STR*AT*RAZ 50 P2R = P1R - (CKR*PTR-CKI*PTI) 51 P2I = P1I - (CKI*PTR+CKR*PTI) 54 CKR = CKR + RZR 75 CKR = STR*AT*RAZ 83 P2R = P1R - (CKR*PTR-CKI*PTI) 84 P2I = P1I - (CKR*PTI+CKI*PTR) 87 CKR = CKR + RZR 92 ACK = ZABS(CKR,CKI) 191 CKR = STR*P1R [all …]
|
H A D | zseri.f | 19 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 44 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 51 AK1R = CKR*DFNU 149 CKR = S2R 151 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 152 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 153 S1R = CKR 155 CKR = S2R*CRSCR 157 YR(K) = CKR 161 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zbknu.f | 119 CKR = CONER 140 STR = CKR*CZR - CKI*CZI 143 CKR = STR*RAK 178 CKR = STR*RAK 263 CBR = CKR/(FK+CONER) 267 CKR = CKR + CTWOR 358 CKR = STR*RZR 383 CKR = CKR + RZR 429 CKR = CKR + RZR 473 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 29 CKR = STR*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 53 CKR = CKR + RZR 74 CKR = STR*AT*RAZ 82 P2R = P1R - (CKR*PTR-CKI*PTI) 83 P2I = P1I - (CKR*PTI+CKI*PTR) 86 CKR = CKR + RZR 91 ACK = AZABS(CKR,CKI) 190 CKR = STR*P1R [all …]
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 43 CALL AZLOG(HZR, HZI, CKR, CKI, IDUM) 50 AK1R = CKR*DFNU 148 CKR = S2R 150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 152 S1R = CKR 154 CKR = S2R*CRSCR 156 YR(K) = CKR 160 IF (AZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbknu.f | 119 CKR = CONER 140 STR = CKR*CZR - CKI*CZI 143 CKR = STR*RAK 178 CKR = STR*RAK 263 CBR = CKR/(FK+CONER) 267 CKR = CKR + CTWOR 358 CKR = STR*RZR 383 CKR = CKR + RZR 429 CKR = CKR + RZR 473 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 29 CKR = STR*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 53 CKR = CKR + RZR 76 CKR = STR*AT*RAZ 84 P2R = P1R - (CKR*PTR-CKI*PTI) 85 P2I = P1I - (CKR*PTI+CKI*PTR) 88 CKR = CKR + RZR 93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))) 192 CKR = STR*P1R [all …]
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 53 AK1R = CKR*DFNU 153 CKR = S2R 155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 157 S1R = CKR 159 CKR = S2R*CRSCR 161 YR(K) = CKR 165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zbknu.f | 131 CKR = CONER 152 STR = CKR*CZR - CKI*CZI 155 CKR = STR*RAK 190 CKR = STR*RAK 275 CBR = CKR/(FK+CONER) 279 CKR = CKR + CTWOR 370 CKR = STR*RZR 395 CKR = CKR + RZR 441 CKR = CKR + RZR 485 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 42 CKR = STR*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 66 CKR = CKR + RZR 87 CKR = STR*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 99 CKR = CKR + RZR 104 ACK = ZABS(CKR,CKI) 203 CKR = STR*P1R [all …]
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 62 AK1R = CKR*DFNU 160 CKR = S2R 162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 164 S1R = CKR 166 CKR = S2R*CRSCR 168 YR(K) = CKR 172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zbknu.f | 119 CKR = CONER 140 STR = CKR*CZR - CKI*CZI 143 CKR = STR*RAK 178 CKR = STR*RAK 263 CBR = CKR/(FK+CONER) 267 CKR = CKR + CTWOR 358 CKR = STR*RZR 383 CKR = CKR + RZR 429 CKR = CKR + RZR 473 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 29 CKR = STR*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 53 CKR = CKR + RZR 74 CKR = STR*AT*RAZ 82 P2R = P1R - (CKR*PTR-CKI*PTI) 83 P2I = P1I - (CKR*PTI+CKI*PTR) 86 CKR = CKR + RZR 91 ACK = XZABS(CKR,CKI) 190 CKR = STR*P1R [all …]
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, local 43 CALL XZLOG(HZR, HZI, CKR, CKI, IDUM) 50 AK1R = CKR*DFNU 148 CKR = S2R 150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 152 S1R = CKR 154 CKR = S2R*CRSCR 156 YR(K) = CKR 160 IF (XZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/math/slatec/src/ |
H A D | zbknu.f | 131 CKR = CONER 152 STR = CKR*CZR - CKI*CZI 155 CKR = STR*RAK 190 CKR = STR*RAK 275 CBR = CKR/(FK+CONER) 279 CKR = CKR + CTWOR 370 CKR = STR*RZR 395 CKR = CKR + RZR 441 CKR = CKR + RZR 485 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 42 CKR = STR*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 66 CKR = CKR + RZR 87 CKR = STR*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 99 CKR = CKR + RZR 104 ACK = ZABS(CKR,CKI) 203 CKR = STR*P1R [all …]
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 62 AK1R = CKR*DFNU 160 CKR = S2R 162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 164 S1R = CKR 166 CKR = S2R*CRSCR 168 YR(K) = CKR 172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zbknu.f | 131 CKR = CONER 152 STR = CKR*CZR - CKI*CZI 155 CKR = STR*RAK 190 CKR = STR*RAK 275 CBR = CKR/(FK+CONER) 279 CKR = CKR + CTWOR 370 CKR = STR*RZR 395 CKR = CKR + RZR 441 CKR = CKR + RZR 485 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 42 CKR = STR*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 66 CKR = CKR + RZR 87 CKR = STR*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 99 CKR = CKR + RZR 104 ACK = ZABS(CKR,CKI) 203 CKR = STR*P1R [all …]
|
H A D | zseri.f | 29 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 55 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 62 AK1R = CKR*DFNU 161 CKR = S2R 163 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 164 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 165 S1R = CKR 167 CKR = S2R*CRSCR 169 YR(K) = CKR 173 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zbknu.f | 119 CKR = CONER 140 STR = CKR*CZR - CKI*CZI 143 CKR = STR*RAK 178 CKR = STR*RAK 263 CBR = CKR/(FK+CONER) 267 CKR = CKR + CTWOR 358 CKR = STR*RZR 383 CKR = CKR + RZR 429 CKR = CKR + RZR 473 CKR = CKR+RZR [all …]
|
H A D | zmlri.f | 29 CKR = STR*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 53 CKR = CKR + RZR 76 CKR = STR*AT*RAZ 84 P2R = P1R - (CKR*PTR-CKI*PTI) 85 P2I = P1I - (CKR*PTI+CKI*PTR) 88 CKR = CKR + RZR 93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))) 192 CKR = STR*P1R [all …]
|
H A D | zseri.f | 18 * AZ, CKI, CKR, COEFI, COEFR, CONEI, CONER, CRSCR, CZI, CZR, DFNU, 46 CALL ZLOG(HZR, HZI, CKR, CKI, IDUM) 53 AK1R = CKR*DFNU 153 CKR = S2R 155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 157 S1R = CKR 159 CKR = S2R*CRSCR 161 YR(K) = CKR 165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/ |
H A D | origcode_test.go | 666 CKR = CONER 859 CKR = CKR + CTWOR 991 CKR = CKR + RZR 1049 CKR = CKR + RZR 1096 CKR = CKR + RZR 1302 CKR = CKR + RZR 1593 CKR = CONER 1737 CKR = CKR + RZR 1772 CKR = CKR + RZR 2083 CKR = S2R [all …]
|