/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | zrati.f | 18 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, 36 RZI = -PTR*(ZI+ZI)*PTR 38 T1I = RZI*FNUP 44 T1I = T1I + RZI 73 T1I = T1I + RZI 98 TTI = RZI*RAP1 116 CDFNUI = FNU*RZI 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, 33 RZI = (STI+STI)*RAZ 55 CKI = CKI + RZI 88 CKI = CKI + RZI 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 …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zrati.f | 17 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, local 35 RZI = -PTR*(ZI+ZI)*PTR 37 T1I = RZI*FNUP 43 T1I = T1I + RZI 72 T1I = T1I + RZI 97 TTI = RZI*RAP1 115 CDFNUI = FNU*RZI 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 32 RZI = (STI+STI)*RAZ 54 CKI = CKI + RZI 87 CKI = CKI + RZI 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 79 RZI = (STI+STI)*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/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | zrati.f | 17 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, local 35 RZI = -PTR*(ZI+ZI)*PTR 37 T1I = RZI*FNUP 43 T1I = T1I + RZI 72 T1I = T1I + RZI 97 TTI = RZI*RAP1 115 CDFNUI = FNU*RZI 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 32 RZI = (STI+STI)*RAZ 54 CKI = CKI + RZI 87 CKI = CKI + RZI 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 79 RZI = (STI+STI)*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 | 17 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, 35 RZI = -PTR*(ZI+ZI)*PTR 37 T1I = RZI*FNUP 43 T1I = T1I + RZI 72 T1I = T1I + RZI 97 TTI = RZI*RAP1 115 CDFNUI = FNU*RZI 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, 32 RZI = (STI+STI)*RAZ 54 CKI = CKI + RZI 89 CKI = CKI + RZI 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, 79 RZI = (STI+STI)*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 | 26 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, local 46 RZI = -PTR*(ZI+ZI)*PTR 48 T1I = RZI*FNUP 54 T1I = T1I + RZI 83 T1I = T1I + RZI 108 TTI = RZI*RAP1 126 CDFNUI = FNU*RZI 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 45 RZI = (STI+STI)*RAZ 67 CKI = CKI + RZI 100 CKI = CKI + RZI 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 91 RZI = (STI+STI)*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 | 26 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, 46 RZI = -PTR*(ZI+ZI)*PTR 48 T1I = RZI*FNUP 54 T1I = T1I + RZI 83 T1I = T1I + RZI 108 TTI = RZI*RAP1 126 CDFNUI = FNU*RZI 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, 45 RZI = (STI+STI)*RAZ 67 CKI = CKI + RZI 100 CKI = CKI + RZI 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, 91 RZI = (STI+STI)*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 | 26 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, 46 RZI = -PTR*(ZI+ZI)*PTR 48 T1I = RZI*FNUP 54 T1I = T1I + RZI 83 T1I = T1I + RZI 108 TTI = RZI*RAP1 126 CDFNUI = FNU*RZI 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, 45 RZI = (STI+STI)*RAZ 67 CKI = CKI + RZI 100 CKI = CKI + RZI 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 …]
|
/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 | 17 * FNUP, PTI, PTR, P1I, P1R, P2I, P2R, RAK, RAP1, RHO, RT2, RZI, 35 RZI = -PTR*(ZI+ZI)*PTR 37 T1I = RZI*FNUP 43 T1I = T1I + RZI 72 T1I = T1I + RZI 97 TTI = RZI*RAP1 115 CDFNUI = FNU*RZI 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, 32 RZI = (STI+STI)*RAZ 54 CKI = CKI + RZI 89 CKI = CKI + RZI 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 …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/ion/shake/ |
H A D | shake_chain.F | 14 REAL*8 RXI(n), RYI(n), RZI(n) 66 RZI(A) = r1(3,indx(A)) 115 RZAB = RZI(A) - RZI(B) 185 r1(3,indx(a)) = RZI(a)
|
H A D | shake_chain3.F | 13 REAL*8 RXI(n), RYI(n), RZI(n) 32 RZI(A) = r1(3,indx(A)) 71 RZAB = RZI(A) - RZI(B) 130 r1(3,indx(a)) = RZI(a)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/ion/shake/ |
H A D | shake_chain.F | 14 REAL*8 RXI(n), RYI(n), RZI(n) 66 RZI(A) = r1(3,indx(A)) 115 RZAB = RZI(A) - RZI(B) 185 r1(3,indx(a)) = RZI(a)
|
H A D | shake_chain3.F | 13 REAL*8 RXI(n), RYI(n), RZI(n) 32 RZI(A) = r1(3,indx(A)) 71 RZAB = RZI(A) - RZI(B) 130 r1(3,indx(a)) = RZI(a)
|