/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zrati.f | 19 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS 35 RZR = PTR*(ZR+ZR)*PTR 37 T1R = RZR*FNUP 43 T1R = T1R + RZR 72 T1R = T1R + RZR 97 TTR = RZR*RAP1 115 CDFNUR = FNU*RZR 118 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 119 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 14 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, 32 RZR = (STR+STR)*RAZ 54 CKR = CKR + RZR 87 CKR = CKR + RZR 125 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 126 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 142 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 143 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 161 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 162 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 17 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, 79 RZR = (STR+STR)*RAZ 84 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 85 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 118 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 119 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zrati.f | 18 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, AZABS local 34 RZR = PTR*(ZR+ZR)*PTR 36 T1R = RZR*FNUP 42 T1R = T1R + RZR 71 T1R = T1R + RZR 96 TTR = RZR*RAP1 114 CDFNUR = FNU*RZR 117 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 118 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 13 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, local 31 RZR = (STR+STR)*RAZ 53 CKR = CKR + RZR 86 CKR = CKR + RZR 124 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 125 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 141 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 142 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 160 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 161 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 78 RZR = (STR+STR)*RAZ 83 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 84 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 117 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 118 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
H A D | zseri.f | 19 * ELIM, FNU, FNUP, HZI, HZR, RAZ, RS, RTR1, RZI, RZR, S, SS, STI, local 123 RZR = (STR+STR)*RAZ 129 YR(K) = (AK+FNU)*(RZR*YR(K+1)-RZI*YI(K+1)) + YR(K+2) 130 YI(K) = (AK+FNU)*(RZR*YI(K+1)+RZI*YR(K+1)) + YI(K+2) 150 S2R = S1R + (AK+FNU)*(RZR*CKR-RZI*CKI) 151 S2I = S1I + (AK+FNU)*(RZR*CKI+RZI*CKR)
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zrati.f | 18 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, XZABS local 34 RZR = PTR*(ZR+ZR)*PTR 36 T1R = RZR*FNUP 42 T1R = T1R + RZR 71 T1R = T1R + RZR 96 TTR = RZR*RAP1 114 CDFNUR = FNU*RZR 117 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 118 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 13 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, local 31 RZR = (STR+STR)*RAZ 53 CKR = CKR + RZR 86 CKR = CKR + RZR 124 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 125 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 141 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 142 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 160 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 161 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 78 RZR = (STR+STR)*RAZ 83 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 84 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 117 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 118 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zrati.f | 18 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS 34 RZR = PTR*(ZR+ZR)*PTR 36 T1R = RZR*FNUP 42 T1R = T1R + RZR 71 T1R = T1R + RZR 96 TTR = RZR*RAP1 114 CDFNUR = FNU*RZR 117 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 118 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 13 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, 31 RZR = (STR+STR)*RAZ 53 CKR = CKR + RZR 88 CKR = CKR + RZR 126 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 127 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 143 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 144 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 162 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 163 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, 78 RZR = (STR+STR)*RAZ 83 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 84 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 117 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 118 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | zrati.f | 27 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS local 45 RZR = PTR*(ZR+ZR)*PTR 47 T1R = RZR*FNUP 53 T1R = T1R + RZR 82 T1R = T1R + RZR 107 TTR = RZR*RAP1 125 CDFNUR = FNU*RZR 128 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 129 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 24 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, local 44 RZR = (STR+STR)*RAZ 66 CKR = CKR + RZR 99 CKR = CKR + RZR 137 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 138 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 154 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 155 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 173 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 174 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 26 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 90 RZR = (STR+STR)*RAZ 95 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 96 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 129 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 130 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/math/slatec/src/ |
H A D | zrati.f | 27 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS 45 RZR = PTR*(ZR+ZR)*PTR 47 T1R = RZR*FNUP 53 T1R = T1R + RZR 82 T1R = T1R + RZR 107 TTR = RZR*RAP1 125 CDFNUR = FNU*RZR 128 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 129 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 24 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, 44 RZR = (STR+STR)*RAZ 66 CKR = CKR + RZR 99 CKR = CKR + RZR 137 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 138 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 154 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 155 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 173 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 174 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 26 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, 90 RZR = (STR+STR)*RAZ 95 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 96 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 129 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 130 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | zrati.f | 27 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS 45 RZR = PTR*(ZR+ZR)*PTR 47 T1R = RZR*FNUP 53 T1R = T1R + RZR 82 T1R = T1R + RZR 107 TTR = RZR*RAP1 125 CDFNUR = FNU*RZR 128 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 129 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 24 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, 44 RZR = (STR+STR)*RAZ 66 CKR = CKR + RZR 99 CKR = CKR + RZR 137 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 138 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 154 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 155 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 173 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 174 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 26 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, local 90 RZR = (STR+STR)*RAZ 95 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 96 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 129 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 130 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | zrati.f | 18 * RZR, TEST, TEST1, TOL, TTI, TTR, T1I, T1R, ZI, ZR, ZABS 34 RZR = PTR*(ZR+ZR)*PTR 36 T1R = RZR*FNUP 42 T1R = T1R + RZR 71 T1R = T1R + RZR 96 TTR = RZR*RAP1 114 CDFNUR = FNU*RZR 117 PTR = CDFNUR + (T1R*RZR-T1I*RZI) + CYR(K+1) 118 PTI = CDFNUI + (T1R*RZI+T1I*RZR) + CYI(K+1)
|
H A D | zmlri.f | 13 * P1R, P2I, P2R, RAZ, RHO, RHO2, RZI, RZR, SCLE, STI, STR, SUMI, 31 RZR = (STR+STR)*RAZ 53 CKR = CKR + RZR 88 CKR = CKR + RZR 126 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 127 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 143 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 144 P2I = P1I + (FKK+FNF)*(RZI*PTR+RZR*PTI) 162 P2R = P1R + (FKK+FNF)*(RZR*PTR-RZI*PTI) 163 P2I = P1I + (FKK+FNF)*(RZR*PTI+RZI*PTR) [all …]
|
H A D | zbuni.f | 16 * ELIM, FNU, FNUI, FNUL, GNU, RAZ, RZI, RZR, STI, STR, S1I, S1R, 78 RZR = (STR+STR)*RAZ 83 S2R = (DFNU+FNUI)*(RZR*STR-RZI*STI) + S1R 84 S2I = (DFNU+FNUI)*(RZR*STI+RZI*STR) + S1I 117 S2R = (FNU+FNUI)*(RZR*STR-RZI*STI) + S1R 118 S2I = (FNU+FNUI)*(RZR*STI+RZI*STR) + S1I
|