/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zmlri.f | 31 CKI = STI*AT*RAZ 50 P2R = P1R - (CKR*PTR-CKI*PTI) 51 P2I = P1I - (CKI*PTR+CKR*PTI) 55 CKI = CKI + RZI 76 CKI = STI*AT*RAZ 83 P2R = P1R - (CKR*PTR-CKI*PTI) 84 P2I = P1I - (CKR*PTI+CKI*PTR) 88 CKI = CKI + RZI 92 ACK = ZABS(CKR,CKI) 192 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 121 CKI = CONEI 141 STR = CKR*CZR - CKI*CZI 143 CKI = (CKR*CZI+CKI*CZR)*RAK 145 S1R = CKR*FR - CKI*FI + S1R 176 STR = CKR*CZR - CKI*CZI 178 CKI = (CKR*CZI+CKI*CZR)*RAK 360 CKI = STR*RZI 385 CKI = CKI + RZI 431 CKI = CKI + RZI 475 CKI = CKI+RZI [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) 52 AK1I = CKI*DFNU 150 CKI = S2I 151 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 152 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 154 S1I = CKI 156 CKI = S2I*CRSCR 158 YI(K) = CKI 161 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zmlri.f | 30 CKI = STI*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 54 CKI = CKI + RZI 75 CKI = STI*AT*RAZ 82 P2R = P1R - (CKR*PTR-CKI*PTI) 83 P2I = P1I - (CKR*PTI+CKI*PTR) 87 CKI = CKI + RZI 91 ACK = AZABS(CKR,CKI) 191 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 120 CKI = CONEI 140 STR = CKR*CZR - CKI*CZI 142 CKI = (CKR*CZI+CKI*CZR)*RAK 144 S1R = CKR*FR - CKI*FI + S1R 175 STR = CKR*CZR - CKI*CZI 177 CKI = (CKR*CZI+CKI*CZR)*RAK 359 CKI = STR*RZI 384 CKI = CKI + RZI 430 CKI = CKI + RZI 474 CKI = CKI+RZI [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) 51 AK1I = CKI*DFNU 149 CKI = S2I 150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 153 S1I = CKI 155 CKI = S2I*CRSCR 157 YI(K) = CKI 160 IF (AZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
H A D | zasyi.f | 15 * AZ, BB, BK, CKI, CKR, CONEI, CONER, CS1I, CS1R, CS2I, CS2R, CZI, local 93 CKI = CONEI 100 CALL ZDIV(CKR, CKI, DKR, DKI, STR, STI) 102 CKI = STI*SQK 104 CS2I = CS2I + CKI 107 CS1I = CS1I + CKI*SGN 152 CALL AZEXP(CZR, CZI, CKR, CKI) 154 STR = YR(I)*CKR - YI(I)*CKI 155 YI(I) = YR(I)*CKI + YI(I)*CKR
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zmlri.f | 30 CKI = STI*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 54 CKI = CKI + RZI 77 CKI = STI*AT*RAZ 84 P2R = P1R - (CKR*PTR-CKI*PTI) 85 P2I = P1I - (CKR*PTI+CKI*PTR) 89 CKI = CKI + RZI 93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))) 193 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 120 CKI = CONEI 140 STR = CKR*CZR - CKI*CZI 142 CKI = (CKR*CZI+CKI*CZR)*RAK 144 S1R = CKR*FR - CKI*FI + S1R 175 STR = CKR*CZR - CKI*CZI 177 CKI = (CKR*CZI+CKI*CZR)*RAK 359 CKI = STR*RZI 384 CKI = CKI + RZI 430 CKI = CKI + RZI 474 CKI = CKI+RZI [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) 54 AK1I = CKI*DFNU 154 CKI = S2I 155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 158 S1I = CKI 160 CKI = S2I*CRSCR 162 YI(K) = CKI 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 | zmlri.f | 43 CKI = STI*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 67 CKI = CKI + RZI 88 CKI = STI*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 100 CKI = CKI + RZI 104 ACK = ZABS(CKR,CKI) 204 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 132 CKI = CONEI 152 STR = CKR*CZR - CKI*CZI 154 CKI = (CKR*CZI+CKI*CZR)*RAK 156 S1R = CKR*FR - CKI*FI + S1R 187 STR = CKR*CZR - CKI*CZI 189 CKI = (CKR*CZI+CKI*CZR)*RAK 371 CKI = STR*RZI 396 CKI = CKI + RZI 442 CKI = CKI + RZI 486 CKI = CKI+RZI [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) 63 AK1I = CKI*DFNU 161 CKI = S2I 162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 165 S1I = CKI 167 CKI = S2I*CRSCR 169 YI(K) = CKI 172 IF (ZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zmlri.f | 30 CKI = STI*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 54 CKI = CKI + RZI 75 CKI = STI*AT*RAZ 82 P2R = P1R - (CKR*PTR-CKI*PTI) 83 P2I = P1I - (CKR*PTI+CKI*PTR) 87 CKI = CKI + RZI 91 ACK = XZABS(CKR,CKI) 191 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 120 CKI = CONEI 140 STR = CKR*CZR - CKI*CZI 142 CKI = (CKR*CZI+CKI*CZR)*RAK 144 S1R = CKR*FR - CKI*FI + S1R 175 STR = CKR*CZR - CKI*CZI 177 CKI = (CKR*CZI+CKI*CZR)*RAK 359 CKI = STR*RZI 384 CKI = CKI + RZI 430 CKI = CKI + RZI 474 CKI = CKI+RZI [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) 51 AK1I = CKI*DFNU 149 CKI = S2I 150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 153 S1I = CKI 155 CKI = S2I*CRSCR 157 YI(K) = CKI 160 IF (XZABS(CKR,CKI).GT.ASCLE) GO TO 140
|
/dports/math/slatec/src/ |
H A D | zmlri.f | 43 CKI = STI*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 67 CKI = CKI + RZI 88 CKI = STI*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 100 CKI = CKI + RZI 104 ACK = ZABS(CKR,CKI) 204 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 132 CKI = CONEI 152 STR = CKR*CZR - CKI*CZI 154 CKI = (CKR*CZI+CKI*CZR)*RAK 156 S1R = CKR*FR - CKI*FI + S1R 187 STR = CKR*CZR - CKI*CZI 189 CKI = (CKR*CZI+CKI*CZR)*RAK 371 CKI = STR*RZI 396 CKI = CKI + RZI 442 CKI = CKI + RZI 486 CKI = CKI+RZI [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) 63 AK1I = CKI*DFNU 161 CKI = S2I 162 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 163 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 165 S1I = CKI 167 CKI = S2I*CRSCR 169 YI(K) = CKI 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 | zmlri.f | 43 CKI = STI*AT*RAZ 62 P2R = P1R - (CKR*PTR-CKI*PTI) 63 P2I = P1I - (CKI*PTR+CKR*PTI) 67 CKI = CKI + RZI 88 CKI = STI*AT*RAZ 95 P2R = P1R - (CKR*PTR-CKI*PTI) 96 P2I = P1I - (CKR*PTI+CKI*PTR) 100 CKI = CKI + RZI 104 ACK = ZABS(CKR,CKI) 204 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 132 CKI = CONEI 152 STR = CKR*CZR - CKI*CZI 154 CKI = (CKR*CZI+CKI*CZR)*RAK 156 S1R = CKR*FR - CKI*FI + S1R 187 STR = CKR*CZR - CKI*CZI 189 CKI = (CKR*CZI+CKI*CZR)*RAK 371 CKI = STR*RZI 396 CKI = CKI + RZI 442 CKI = CKI + RZI 486 CKI = CKI+RZI [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) 63 AK1I = CKI*DFNU 162 CKI = S2I 163 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 164 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 166 S1I = CKI 168 CKI = S2I*CRSCR 170 YI(K) = CKI 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 | zmlri.f | 30 CKI = STI*AT*RAZ 49 P2R = P1R - (CKR*PTR-CKI*PTI) 50 P2I = P1I - (CKI*PTR+CKR*PTI) 54 CKI = CKI + RZI 77 CKI = STI*AT*RAZ 84 P2R = P1R - (CKR*PTR-CKI*PTI) 85 P2I = P1I - (CKR*PTI+CKI*PTR) 89 CKI = CKI + RZI 93 ACK = ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))) 193 CKI = STI*P1R [all …]
|
H A D | zbknu.f | 120 CKI = CONEI 140 STR = CKR*CZR - CKI*CZI 142 CKI = (CKR*CZI+CKI*CZR)*RAK 144 S1R = CKR*FR - CKI*FI + S1R 175 STR = CKR*CZR - CKI*CZI 177 CKI = (CKR*CZI+CKI*CZR)*RAK 359 CKI = STR*RZI 384 CKI = CKI + RZI 430 CKI = CKI + RZI 474 CKI = CKI+RZI [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) 54 AK1I = CKI*DFNU 154 CKI = S2I 155 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 156 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR) 158 S1I = CKI 160 CKI = S2I*CRSCR 162 YI(K) = CKI 165 IF (ZABS(CMPLX(CKR,CKI,kind=KIND(1.0D0))).GT.ASCLE) GO TO 140
|