Home
last modified time | relevance | path

Searched refs:ZI (Results 1 – 25 of 3070) sorted by relevance

12345678910>>...123

/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/
H A Dzairy.f147 AZ = AZABS(ZR,ZI)
166 STR = ZR*ZR - ZI*ZI
167 STI = ZR*ZI + ZI*ZR
168 Z3R = STR*ZR - STI*ZI
169 Z3I = STR*ZI + STI*ZR
216 STR = ZR*S1R - ZI*S1I
217 STI = ZR*S1I + ZI*S1R
332 AIR = -(ZR*S1R-ZI*S1I)
359 S1I = C2*ZI
369 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f141 AZ = AZABS(ZR,ZI)
160 STR = ZR*ZR - ZI*ZI
161 STI = ZR*ZI + ZI*ZR
162 Z3R = STR*ZR - STI*ZI
163 Z3I = STR*ZI + STI*ZR
199 ZTAR = TTH*(ZR*STR-ZI*STI)
200 ZTAI = TTH*(ZR*STI+ZI*STR)
212 STR = S1R*ZR - S1I*ZI
213 STI = S1R*ZI + S1I*ZR
340 STR = ZR*S1R - ZI*S1I
[all …]
H A Dzbinu.f1 SUBROUTINE ZBINU(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, RL, FNUL, argument
11 * FNUL, RL, TOL, ZEROI, ZEROR, ZI, ZR, AZABS local
17 AZ = AZABS(ZR,ZI)
26 CALL ZSERI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL, ELIM, ALIM)
41 CALL ZASYI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, RL, TOL, ELIM,
51 CALL ZUOIK(ZR, ZI, FNU, KODE, 1, NN, CYR, CYI, NW, TOL, ELIM,
66 CALL ZMLRI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, TOL)
76 CALL ZUOIK(ZR, ZI, FNU, KODE, 2, 2, CWR, CWI, NW, TOL, ELIM,
87 CALL ZWRSK(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, CWR, CWI, TOL,
97 CALL ZBUNI(ZR, ZI, FNU, KODE, NN, CYR, CYI, NW, NUI, NLAST, FNUL,
/dports/math/octave/octave-6.4.0/liboctave/external/amos/
H A Dzairy.f147 AZ = XZABS(ZR,ZI)
166 STR = ZR*ZR - ZI*ZI
167 STI = ZR*ZI + ZI*ZR
168 Z3R = STR*ZR - STI*ZI
169 Z3I = STR*ZI + STI*ZR
216 STR = ZR*S1R - ZI*S1I
217 STI = ZR*S1I + ZI*S1R
332 AIR = -(ZR*S1R-ZI*S1I)
359 S1I = C2*ZI
369 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f141 AZ = XZABS(ZR,ZI)
160 STR = ZR*ZR - ZI*ZI
161 STI = ZR*ZI + ZI*ZR
162 Z3R = STR*ZR - STI*ZI
163 Z3I = STR*ZI + STI*ZR
199 ZTAR = TTH*(ZR*STR-ZI*STI)
200 ZTAI = TTH*(ZR*STI+ZI*STR)
212 STR = S1R*ZR - S1I*ZI
213 STI = S1R*ZI + S1I*ZR
340 STR = ZR*S1R - ZI*S1I
[all …]
/dports/www/grafana8/grafana-8.3.6/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzairy.f166 STR = ZR*ZR - ZI*ZI
167 STI = ZR*ZI + ZI*ZR
168 Z3R = STR*ZR - STI*ZI
169 Z3I = STR*ZI + STI*ZR
218 STR = ZR*S1R - ZI*S1I
219 STI = ZR*S1I + ZI*S1R
334 AIR = -(ZR*S1R-ZI*S1I)
335 AII = -(ZR*S1I+ZI*S1R)
361 S1I = C2*ZI
371 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f160 STR = ZR*ZR - ZI*ZI
161 STI = ZR*ZI + ZI*ZR
162 Z3R = STR*ZR - STI*ZI
163 Z3I = STR*ZI + STI*ZR
199 ZTAR = TTH*(ZR*STR-ZI*STI)
200 ZTAI = TTH*(ZR*STI+ZI*STR)
212 STR = S1R*ZR - S1I*ZI
213 STI = S1R*ZI + S1I*ZR
219 ZTAR = TTH*(ZR*STR-ZI*STI)
340 STR = ZR*S1R - ZI*S1I
[all …]
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dzairy.f158 AZ = ZABS(ZR,ZI)
177 STR = ZR*ZR - ZI*ZI
178 STI = ZR*ZI + ZI*ZR
179 Z3R = STR*ZR - STI*ZI
180 Z3I = STR*ZI + STI*ZR
227 STR = ZR*S1R - ZI*S1I
228 STI = ZR*S1I + ZI*S1R
343 AIR = -(ZR*S1R-ZI*S1I)
370 S1I = C2*ZI
380 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f154 AZ = ZABS(ZR,ZI)
173 STR = ZR*ZR - ZI*ZI
174 STI = ZR*ZI + ZI*ZR
175 Z3R = STR*ZR - STI*ZI
176 Z3I = STR*ZI + STI*ZR
212 ZTAR = TTH*(ZR*STR-ZI*STI)
213 ZTAI = TTH*(ZR*STI+ZI*STR)
225 STR = S1R*ZR - S1I*ZI
226 STI = S1R*ZI + S1I*ZR
353 STR = ZR*S1R - ZI*S1I
[all …]
/dports/math/slatec/src/
H A Dzairy.f158 AZ = ZABS(ZR,ZI)
177 STR = ZR*ZR - ZI*ZI
178 STI = ZR*ZI + ZI*ZR
179 Z3R = STR*ZR - STI*ZI
180 Z3I = STR*ZI + STI*ZR
227 STR = ZR*S1R - ZI*S1I
228 STI = ZR*S1I + ZI*S1R
343 AIR = -(ZR*S1R-ZI*S1I)
370 S1I = C2*ZI
380 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f154 AZ = ZABS(ZR,ZI)
173 STR = ZR*ZR - ZI*ZI
174 STI = ZR*ZI + ZI*ZR
175 Z3R = STR*ZR - STI*ZI
176 Z3I = STR*ZI + STI*ZR
212 ZTAR = TTH*(ZR*STR-ZI*STI)
213 ZTAI = TTH*(ZR*STI+ZI*STR)
225 STR = S1R*ZR - S1I*ZI
226 STI = S1R*ZI + S1I*ZR
353 STR = ZR*S1R - ZI*S1I
[all …]
H A Dcombak.f2 SUBROUTINE COMBAK (NM, LOW, IGH, AR, AI, INT, M, ZR, ZI) argument
74 REAL AR(NM,*),AI(NM,*),ZR(NM,*),ZI(NM,*)
94 ZR(I,J) = ZR(I,J) + XR * ZR(MP,J) - XI * ZI(MP,J)
95 ZI(I,J) = ZI(I,J) + XR * ZI(MP,J) + XI * ZR(MP,J)
107 XI = ZI(I,J)
108 ZI(I,J) = ZI(MP,J)
109 ZI(MP,J) = XI
H A Dcbabk2.f2 SUBROUTINE CBABK2 (NM, N, LOW, IGH, SCALE, M, ZR, ZI) argument
69 REAL SCALE(*),ZR(NM,*),ZI(NM,*)
83 ZI(I,J) = ZI(I,J) * S
100 S = ZI(I,J)
101 ZI(I,J) = ZI(K,J)
102 ZI(K,J) = S
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dzairy.f158 AZ = ZABS(ZR,ZI)
177 STR = ZR*ZR - ZI*ZI
178 STI = ZR*ZI + ZI*ZR
179 Z3R = STR*ZR - STI*ZI
180 Z3I = STR*ZI + STI*ZR
227 STR = ZR*S1R - ZI*S1I
228 STI = ZR*S1I + ZI*S1R
343 AIR = -(ZR*S1R-ZI*S1I)
370 S1I = C2*ZI
380 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/
H A Dzairy.f148 AZ = ZABS(ZR,ZI)
167 STR = ZR*ZR - ZI*ZI
168 STI = ZR*ZI + ZI*ZR
169 Z3R = STR*ZR - STI*ZI
170 Z3I = STR*ZI + STI*ZR
217 STR = ZR*S1R - ZI*S1I
218 STI = ZR*S1I + ZI*S1R
333 AIR = -(ZR*S1R-ZI*S1I)
360 S1I = C2*ZI
370 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f142 AZ = ZABS(ZR,ZI)
161 STR = ZR*ZR - ZI*ZI
162 STI = ZR*ZI + ZI*ZR
163 Z3R = STR*ZR - STI*ZI
164 Z3I = STR*ZI + STI*ZR
200 ZTAR = TTH*(ZR*STR-ZI*STI)
201 ZTAI = TTH*(ZR*STI+ZI*STR)
213 STR = S1R*ZR - S1I*ZI
214 STI = S1R*ZI + S1I*ZR
341 STR = ZR*S1R - ZI*S1I
[all …]
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Dzairy.f166 STR = ZR*ZR - ZI*ZI
167 STI = ZR*ZI + ZI*ZR
168 Z3R = STR*ZR - STI*ZI
169 Z3I = STR*ZI + STI*ZR
218 STR = ZR*S1R - ZI*S1I
219 STI = ZR*S1I + ZI*S1R
334 AIR = -(ZR*S1R-ZI*S1I)
335 AII = -(ZR*S1I+ZI*S1R)
361 S1I = C2*ZI
371 S1R = 0.5D0*(ZR*ZR-ZI*ZI)
[all …]
H A Dzbiry.f160 STR = ZR*ZR - ZI*ZI
161 STI = ZR*ZI + ZI*ZR
162 Z3R = STR*ZR - STI*ZI
163 Z3I = STR*ZI + STI*ZR
199 ZTAR = TTH*(ZR*STR-ZI*STI)
200 ZTAI = TTH*(ZR*STI+ZI*STR)
212 STR = S1R*ZR - S1I*ZI
213 STI = S1R*ZI + S1I*ZR
219 ZTAR = TTH*(ZR*STR-ZI*STI)
340 STR = ZR*S1R - ZI*S1I
[all …]
/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/
H A Dzbsaux1.f9011 ZI( LDZI, * ) local
102 CALL DCOPY( N, Z( N+1, J ), 1, ZI( 1, J ), 1 )
103 CALL DSCAL( N, -ONE, ZI( 1, J ), 1 )
106 CALL DCOPY( N, Z( 1, J ), 1, ZI( 1, J ), 1 )
107 CALL DCOPY( N, Z( 1, J ), 1, ZI( N+1, J ), 1 )
116 CALL DCOPY( N, Z( N+1, J ), 1, ZI( 1, J ), 1 )
118 CALL DSCAL( N, -ONE, ZI( N+1, J ), 1 )
120 CALL DCOPY( N, Z( 1, J ), 1, ZI( 1, J ), 1 )
121 CALL DSCAL( N, -ONE, ZI( 1, J ), 1 )
122 CALL DCOPY( N, Z( 1, J ), 1, ZI( N+1, J ), 1 )
[all …]
H A Dpzbsaux1.f902 JZ, DESCZ, ZR, IZR, JZR, DESCZR, ZI, IZI, & argument
233 CALL PDCOPY( N, Z, IZ + N, JZ + J, DESCZ, 1, ZI, IZI, &
235 CALL PDSCAL( N, -ONE, ZI, IZI, JZI + J, DESCZI, 1 )
236 CALL PDCOPY( N, Z, IZ + N, JZ + J, DESCZ, 1, ZI, IZI + N, &
241 CALL PDCOPY( N, Z, IZ, JZ + J, DESCZ, 1, ZI, IZI + N, &
255 CALL PDCOPY( N, Z, IZ + N, JZ + J, DESCZ, 1, ZI, IZI, &
257 CALL PDCOPY( N, Z, IZ + N, JZ + J, DESCZ, 1, ZI, IZI + N, &
259 CALL PDSCAL( N, -ONE, ZI, IZI + N, JZI + J, DESCZI, 1 )
263 CALL PDSCAL( N, -ONE, ZI, IZI, JZI + J, DESCZI, 1 )
264 CALL PDCOPY( N, Z, IZ, JZ + J, DESCZ, 1, ZI, IZI + N, &
[all …]
/dports/math/armadillo/armadillo-10.7.1/include/armadillo_bits/
H A Dfn_interp2.hpp37 if(mode == 0) { ZI.set_size(XI.n_elem, ZG.n_cols); } in interp2_helper_nearest()
38 if(mode == 1) { ZI.set_size(ZG.n_rows, XI.n_elem); } in interp2_helper_nearest()
56 if(mode == 0) { ZI.row(i).fill(extrap_val); } in interp2_helper_nearest()
57 if(mode == 1) { ZI.col(i).fill(extrap_val); } in interp2_helper_nearest()
81 if(mode == 0) { ZI.row(i) = ZG.row(best_j); } in interp2_helper_nearest()
82 if(mode == 1) { ZI.col(i) = ZG.col(best_j); } in interp2_helper_nearest()
120 if(mode == 0) { ZI.row(i).fill(extrap_val); } in interp2_helper_linear()
121 if(mode == 1) { ZI.col(i).fill(extrap_val); } in interp2_helper_linear()
189 Mat<typename T1::elem_type>& ZI, in interp2() argument
228 if( UXG.is_alias(ZI) || UXI.is_alias(ZI) ) in interp2()
[all …]
/dports/math/R-cran-RcppArmadillo/RcppArmadillo/inst/include/armadillo_bits/
H A Dfn_interp2.hpp37 if(mode == 0) { ZI.set_size(XI.n_elem, ZG.n_cols); } in interp2_helper_nearest()
38 if(mode == 1) { ZI.set_size(ZG.n_rows, XI.n_elem); } in interp2_helper_nearest()
56 if(mode == 0) { ZI.row(i).fill(extrap_val); } in interp2_helper_nearest()
57 if(mode == 1) { ZI.col(i).fill(extrap_val); } in interp2_helper_nearest()
81 if(mode == 0) { ZI.row(i) = ZG.row(best_j); } in interp2_helper_nearest()
82 if(mode == 1) { ZI.col(i) = ZG.col(best_j); } in interp2_helper_nearest()
120 if(mode == 0) { ZI.row(i).fill(extrap_val); } in interp2_helper_linear()
121 if(mode == 1) { ZI.col(i).fill(extrap_val); } in interp2_helper_linear()
189 Mat<typename T1::elem_type>& ZI, in interp2() argument
228 if( UXG.is_alias(ZI) || UXI.is_alias(ZI) ) in interp2()
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/eispack/
H A Dcombak.f1 SUBROUTINE COMBAK(NM,LOW,IGH,AR,AI,INT,M,ZR,ZI) argument
62 REAL AR(NM,IGH),AI(NM,IGH),ZR(NM,M),ZI(NM,M)
82 ZR(I,J) = ZR(I,J) + XR * ZR(MP,J) - XI * ZI(MP,J)
83 ZI(I,J) = ZI(I,J) + XR * ZI(MP,J) + XI * ZR(MP,J)
95 XI = ZI(I,J)
96 ZI(I,J) = ZI(MP,J)
97 ZI(MP,J) = XI
H A Dcbabk2.f1 SUBROUTINE CBABK2(NM,N,LOW,IGH,SCALE,M,ZR,ZI) argument
57 REAL SCALE(N),ZR(NM,M),ZI(NM,M)
71 ZI(I,J) = ZI(I,J) * S
88 S = ZI(I,J)
89 ZI(I,J) = ZI(K,J)
90 ZI(K,J) = S
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/
H A Dprecheck_LIB_3d.f90552 H(1)= 0.5*X1*(2.0*X1-2.-ZI)*(1.0-ZI)
553 H(2)= 0.5*X2*(2.0*X2-2.-ZI)*(1.0-ZI)
554 H(3)= 0.5*X3*(2.0*X3-2.-ZI)*(1.0-ZI)
555 H(4)= 0.5*X1*(2.0*X1-2.+ZI)*(1.0+ZI)
556 H(5)= 0.5*X2*(2.0*X2-2.+ZI)*(1.0+ZI)
569 HL1(1)= 0.5*(4.0*X1-2.-ZI)*(1.0-ZI)
572 HL1(4)= 0.5*(4.0*X1-2.+ZI)*(1.0+ZI)
586 HL2(2)= 0.5*(4.0*X2-2.-ZI)*(1.0-ZI)
589 HL2(5)= 0.5*(4.0*X2-2.+ZI)*(1.0+ZI)
603 HL3(3)= 0.5*(4.0*X3-2.-ZI)*(1.0-ZI)
[all …]

12345678910>>...123