/dports/science/py-scipy/scipy-1.7.1/scipy/special/amos/ |
H A D | zairy.f | 147 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 D | zbiry.f | 141 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 D | zbinu.f | 1 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 D | zairy.f | 147 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 D | zbiry.f | 141 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 D | zairy.f | 166 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 D | zbiry.f | 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 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 D | zairy.f | 158 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 D | zbiry.f | 154 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 D | zairy.f | 158 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 D | zbiry.f | 154 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 D | combak.f | 2 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 D | cbabk2.f | 2 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 D | zairy.f | 158 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 D | zairy.f | 148 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 D | zbiry.f | 142 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 D | zairy.f | 166 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 D | zbiry.f | 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 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 D | zbsaux1.f90 | 11 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 D | pzbsaux1.f90 | 2 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 D | fn_interp2.hpp | 37 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 D | fn_interp2.hpp | 37 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 D | combak.f | 1 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 D | cbabk2.f | 1 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 D | precheck_LIB_3d.f90 | 552 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 …]
|