/dports/science/xtb/xtb-6.4.1/src/mctc/blas/ |
H A D | wrap1.f90 | 106 xptr(1:size(xvec)) => xvec 115 xptr(1:size(xvec)) => xvec 135 xptr(1:size(xvec)) => xvec 145 xptr(1:size(xvec)) => xvec 166 xptr(1:size(xvec)) => xvec 176 xptr(1:size(xvec)) => xvec 195 xptr(1:size(xvec)) => xvec 204 xptr(1:size(xvec)) => xvec 223 xptr(1:size(xvec)) => xvec 232 xptr(1:size(xvec)) => xvec [all …]
|
H A D | wrap2.f90 | 49 real(sp), intent(in) :: xvec(:) local 68 call mctc_gemv(aptr, xvec, yptr, alpha, beta, tra) 74 real(sp), intent(in), contiguous, target :: xvec(:, :) 88 xptr(1:size(xvec, 1)*size(xvec, 2)) => xvec 91 xptr(1:size(xvec, 1) * size(xvec, 2)) => xvec 99 real(dp), intent(in) :: xvec(:) local 118 call mctc_gemv(aptr, xvec, yptr, alpha, beta, tra) 124 real(dp), intent(in), contiguous, target :: xvec(:, :) 138 xptr(1:size(xvec, 1)*size(xvec, 2)) => xvec 141 xptr(1:size(xvec, 1) * size(xvec, 2)) => xvec
|
H A D | level1.F90 | 493 n = size(xvec) 511 n = size(xvec) 537 n = size(xvec) 563 n = size(xvec) 582 n = size(xvec) 593 n = size(xvec) 605 n = size(xvec) 617 n = size(xvec) 627 n = size(xvec) 637 n = size(xvec) [all …]
|
/dports/lang/scheme48/scheme48-1.9.2/ps-compiler/util/ |
H A D | expand-vec.scm | 43 (define (xvector-length xvec) 44 (+ 1 (expanding-vector-max xvec))) 49 (define (xvector-ref xvec index) 52 (expanding-vector-default xvec)) 63 (define (xvector-set! xvec index value) 66 (set-expanding-vector-max! xvec index)) 68 (expand-expanding-vector xvec) 69 (xvector-set! xvec index value)) 80 (define (xvector->vector xvec) 83 ((>= i (xvector-length xvec))) [all …]
|
/dports/math/mfem/mfem-4.3/miniapps/solvers/ |
H A D | lor_mms.hpp | 24 double u(const Vector &xvec) in u() argument 26 int dim = xvec.Size(); in u() 27 double x = pi*xvec[0], y = pi*xvec[1]; in u() 32 double f(const Vector &xvec) in f() argument 34 int dim = xvec.Size(); in f() 35 double x = pi*xvec[0], y = pi*xvec[1]; in f() 43 double z = pi*xvec[2]; in f() 52 int dim = xvec.Size(); in u_vec() 53 double x = pi*xvec[0], y = pi*xvec[1]; in u_vec() 70 int dim = xvec.Size(); in f_vec() [all …]
|
/dports/devel/py-qutip/qutip-4.6.2/qutip/tests/ |
H A D | test_wigner.py | 222 yvec = xvec 228 dx = xvec[1] - xvec[0] 254 yvec = xvec 260 dx = xvec[1] - xvec[0] 298 dx = xvec[1] - xvec[0] 330 dx = xvec[1] - xvec[0] 359 Wfft, yvec = wigner(rho, xvec, xvec, method='fft') 373 Wfft, yvec = wigner(rho, xvec, xvec, method='fft') 387 Wclen = wigner(rho, xvec, xvec, method='clenshaw') 388 W = wigner(rho, xvec, xvec, method='iterative') [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fhutiter/src/ |
H A D | huti_sfe.F90 | 99 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 133 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 167 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 201 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 235 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 269 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 303 REAL, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 575 COMPLEX, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 609 COMPLEX, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local 643 COMPLEX, DIMENSION(HUTI_NDIM) :: xvec, rhsvec local [all …]
|
/dports/science/opensim-core/opensim-core-4.1/OpenSim/Common/Test/ |
H A D | testFunctionAdapter.cpp | 38 SimTK::Vector xvec(1); in main() local 41 xvec[0] = i*0.01; in main() 42 ASSERT_EQUAL(f1.calcValue(xvec), adapter.calcValue(xvec), 1e-10, __FILE__, __LINE__); in main() 43 …ASSERT_EQUAL(f1.calcDerivative(deriv,xvec), adapter.calcDerivative(deriv,xvec), 1e-10, __FILE__, _… in main() 44 ASSERT_EQUAL(f1.calcValue(xvec), f2.calcValue(xvec), 1e-10, __FILE__, __LINE__); in main() 45 …ASSERT_EQUAL(f1.calcDerivative(deriv,xvec), f2.calcDerivative(deriv,xvec), 1e-10, __FILE__, __LINE… in main()
|
/dports/devel/hyperscan/hyperscan-5.4.0/src/util/ |
H A D | state_compress.c | 89 memcpy(x, &xvec, sizeof(xvec)); in storecompressed128_32bit() 112 memcpy(x, &xvec, sizeof(xvec)); in storecompressed128_64bit() 192 memcpy(x, &xvec, sizeof(xvec)); in storecompressed256_32bit() 219 memcpy(x, &xvec, sizeof(xvec)); in storecompressed256_64bit() 273 return xvec; in loadcompressed256_32bit() 299 return xvec; in loadcompressed256_64bit() 321 memcpy(x, &xvec, sizeof(xvec)); in storecompressed384_32bit() 352 memcpy(x, &xvec, sizeof(xvec)); in storecompressed384_64bit() 455 memcpy(x, &xvec, sizeof(xvec)); in storecompressed512_32bit() 492 memcpy(x, &xvec, sizeof(xvec)); in storecompressed512_64bit() [all …]
|
/dports/devel/tcllib/tcllib-1.20/modules/math/ |
H A D | calculus.testscript | 44 # xvec should one long! 45 proc const_func { t xvec } { return 1.0 } 47 # xvec should be two long! 48 proc dampened_oscillator { t xvec } { 49 set x [lindex $xvec 0] 50 set x1 [lindex $xvec 1] 57 set xvec 0.0 61 set result [::Calculus::$method $t $tstep $xvec const_func] 64 set xvec $result 67 set xvec { 1.0 0.0 } [all …]
|
/dports/devel/tcllibc/tcllib-1.20/modules/math/ |
H A D | calculus.testscript | 44 # xvec should one long! 45 proc const_func { t xvec } { return 1.0 } 47 # xvec should be two long! 48 proc dampened_oscillator { t xvec } { 49 set x [lindex $xvec 0] 50 set x1 [lindex $xvec 1] 57 set xvec 0.0 61 set result [::Calculus::$method $t $tstep $xvec const_func] 64 set xvec $result 67 set xvec { 1.0 0.0 } [all …]
|
/dports/math/primme/primme-3.2/examples/ |
H A D | ex_svds_dseq.c | 186 double *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 192 xvec = (double *)x + (*ldx)*i; in LauchliMatrixMatvec() 196 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 204 xvec = (double *)x + (*ldx)*i; in LauchliMatrixMatvec() 207 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 239 xvec = (double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 243 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 250 xvec = (double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 252 yvec[0] = xvec[0]/(double)primme_svds->m; in LauchliApplyPreconditioner() 255 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
H A D | ex_svds_petscf77.F | 296 Vec xvec,yvec,aux 300 xvec = tVec(0) 303 call MatGetVecs(A, xvec, yvec, ierr) 308 aux = xvec 309 xvec = yvec 320 call VecResetArray(xvec, ierr) 323 call VecDestroy(xvec, ierr) 342 Vec xvec,yvec 351 xvec = tVec(0) 359 call VecResetArray(xvec, ierr) [all …]
|
H A D | ex_svds_zseq.c | 181 complex double *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 187 xvec = (complex double *)x + (*ldx)*i; in LauchliMatrixMatvec() 191 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 199 xvec = (complex double *)x + (*ldx)*i; in LauchliMatrixMatvec() 202 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 253 xvec = (complex double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 257 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 264 xvec = (complex double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 266 yvec[0] = xvec[0]/(complex double)primme_svds->m; in LauchliApplyPreconditioner() 269 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
H A D | ex_svds_petscf77ptr.F | 303 Vec xvec,yvec,aux 310 xvec = tVec(0) 313 call MatGetVecs(A, xvec, yvec, ierr) 318 aux = xvec 319 xvec = yvec 330 call VecResetArray(xvec, ierr) 333 call VecDestroy(xvec, ierr) 353 Vec xvec,yvec 368 xvec = tVec(0) 376 call VecResetArray(xvec, ierr) [all …]
|
H A D | ex_svds_zseqxx.cxx | 181 std::complex<double> *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 187 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliMatrixMatvec() 191 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 199 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliMatrixMatvec() 202 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 253 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliApplyPreconditioner() 257 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 264 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliApplyPreconditioner() 266 yvec[0] = xvec[0]/(std::complex<double>)primme_svds->m; in LauchliApplyPreconditioner() 269 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
/dports/math/py-primme/primme-3.2/examples/ |
H A D | ex_svds_dseq.c | 186 double *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 192 xvec = (double *)x + (*ldx)*i; in LauchliMatrixMatvec() 196 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 204 xvec = (double *)x + (*ldx)*i; in LauchliMatrixMatvec() 207 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 239 xvec = (double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 243 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 250 xvec = (double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 252 yvec[0] = xvec[0]/(double)primme_svds->m; in LauchliApplyPreconditioner() 255 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
H A D | ex_svds_petscf77.F | 296 Vec xvec,yvec,aux 300 xvec = tVec(0) 303 call MatGetVecs(A, xvec, yvec, ierr) 308 aux = xvec 309 xvec = yvec 320 call VecResetArray(xvec, ierr) 323 call VecDestroy(xvec, ierr) 342 Vec xvec,yvec 351 xvec = tVec(0) 359 call VecResetArray(xvec, ierr) [all …]
|
H A D | ex_svds_zseq.c | 181 complex double *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 187 xvec = (complex double *)x + (*ldx)*i; in LauchliMatrixMatvec() 191 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 199 xvec = (complex double *)x + (*ldx)*i; in LauchliMatrixMatvec() 202 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 253 xvec = (complex double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 257 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 264 xvec = (complex double *)x + (*ldx)*i; in LauchliApplyPreconditioner() 266 yvec[0] = xvec[0]/(complex double)primme_svds->m; in LauchliApplyPreconditioner() 269 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
H A D | ex_svds_petscf77ptr.F | 303 Vec xvec,yvec,aux 310 xvec = tVec(0) 313 call MatGetVecs(A, xvec, yvec, ierr) 318 aux = xvec 319 xvec = yvec 330 call VecResetArray(xvec, ierr) 333 call VecDestroy(xvec, ierr) 353 Vec xvec,yvec 368 xvec = tVec(0) 376 call VecResetArray(xvec, ierr) [all …]
|
H A D | ex_svds_zseqxx.cxx | 181 std::complex<double> *xvec; /* pointer to i-th input vector x */ in LauchliMatrixMatvec() local 187 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliMatrixMatvec() 191 yvec[0] += xvec[j]; in LauchliMatrixMatvec() 199 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliMatrixMatvec() 202 yvec[j] = xvec[0]; in LauchliMatrixMatvec() 253 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliApplyPreconditioner() 257 yvec[j] = xvec[j]/(1.0 + ei*ei); in LauchliApplyPreconditioner() 264 xvec = (std::complex<double> *)x + (*ldx)*i; in LauchliApplyPreconditioner() 266 yvec[0] = xvec[0]/(std::complex<double>)primme_svds->m; in LauchliApplyPreconditioner() 269 yvec[j] = xvec[j]/ei/ei; in LauchliApplyPreconditioner() [all …]
|
/dports/math/py-pystan/pystan-2.19.0.0/pystan/stan/lib/stan_math/lib/sundials_4.1.0/src/nvector/cuda/ |
H A D | nvector_cuda.cu | 483 setConst(a, *xvec); in N_VConst_Cuda() 499 prod(*xvec, *yvec, *zvec); in N_VProd_Cuda() 507 div(*xvec, *yvec, *zvec); in N_VDiv_Cuda() 514 scale(a, *xvec, *zvec); in N_VScale_Cuda() 521 absVal(*xvec, *zvec); in N_VAbs_Cuda() 528 inv(*xvec, *zvec); in N_VInv_Cuda() 535 addConst(b, *xvec, *zvec); in N_VAddConst_Cuda() 542 SUNMPI_Comm comm = xvec->comm(); in N_VDotProd_Cuda() 553 SUNMPI_Comm comm = xvec->comm(); in N_VMaxNorm_Cuda() 616 realtype sum = L1Norm(*xvec); in N_VL1Norm_Cuda() [all …]
|
/dports/devel/ga/ga-5.8/armci/examples/benchmarks/cg/armci_sharedmemory/ |
H A D | cg.c | 37 double *bvec,*dvec,*svec,*dmvec,*m_dvec,*amat,*xvec,*axvec,*rvec,*qvec; variable 62 acg_matvecmul(amat,xvec,axvec,ridx,cidx); /* compute Ax */ in conjugate_gradient() 107 acg_matvecmul(amat,xvec,axvec,ridx,cidx); in conjugate_gradient() 109 acg_2addvec(&d_one,xvec,&alpha,dvec,xvec,&d_one,bvec, in conjugate_gradient() 117 acg_2addvec(&d_one,xvec,&alpha,dvec,xvec,&d_one,rvec, in conjugate_gradient() 146 acg_printvec("xvec",xvec); in conjugate_gradient() 161 xvec[i]=0.0; in initialize_arrays() 174 ARMCI_Free(xvec); in finalize_arrays() 240 acg_matvecmul(amat,xvec,axvec,ridx,cidx); in main() 242 acg_matvecmul(amat,xvec,axvec,ridx,cidx); in main()
|
/dports/devel/clixon/clixon-4.8.0/lib/src/ |
H A D | clixon_xml_sort.c | 473 clixon_xvec *xvec) in xml_find_keys_notsorted() argument 525 clixon_xvec *xvec) in search_multi_equals() argument 566 clixon_xvec *xvec) in search_multi_equals_xvec() argument 674 clixon_xvec *xvec) in xml_search_indexvar() argument 698 0, xvec) < 0) in xml_search_indexvar() 730 clixon_xvec *xvec) in xml_search_binary() argument 803 clixon_xvec *xvec) in xml_search_yang() argument 1206 if (xvec) in match_base_child() 1207 clixon_xvec_free(xvec); in match_base_child() 1217 clixon_xvec *xvec) in xml_find_noyang_cvk() argument [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | MarchingODESolver.F90 | 112 REAL(KIND=dp), POINTER :: xvec(:),xivec(:),dxvec(:),x0vec(:),& local 263 xvec = 0.0_dp; fvec = 0.0_dp; rvec = 0.0_dp; cvec = 0.0_dp 326 x0vec = xvec 362 xivec = xvec 369 xvec = x0vec + dtime * fvec / cvec 371 xvec = x0vec + dtime * fvec 374 Norm = SQRT(SUM(xvec*xvec)) 376 dxvec = xvec-xivec 387 Var3D % Values(Var3D % Perm(InvPerm)) = xvec 414 Var3D % Values(Var3D % Perm(InvPerm)) = xvec [all …]
|