| /petsc/src/mat/tests/ |
| H A D | ex142.c | 29 PetscScalar *x_array, *y_array, *z_array; in main() local 71 PetscCall(VecGetArray(x, &x_array)); in main() 82 fplan = fftw_plan_dft_r2c_1d(dim[0], (double *)x_array, (fftw_complex *)y_array, flags); in main() 86 … fplan = fftw_plan_dft_r2c_2d(dim[0], dim[1], (double *)x_array, (fftw_complex *)y_array, flags); in main() 90 …fplan = fftw_plan_dft_r2c_3d(dim[0], dim[1], dim[2], (double *)x_array, (fftw_complex *)y_array, f… in main() 94 fplan = fftw_plan_dft_r2c(DIM, (int *)dim, (double *)x_array, (fftw_complex *)y_array, flags); in main() 99 PetscCall(VecRestoreArray(x, &x_array)); in main() 112 PetscCall(VecGetArray(x, &x_array)); in main() 113 for (i = 0; i < N; ++i) x_array[i] = tanh((i - N / 2.0) * (10.0 / N)); in main() 114 PetscCall(VecRestoreArray(x, &x_array)); in main() [all …]
|
| /petsc/src/mat/impls/fft/fftw/ |
| H A D | fftw.c | 35 const PetscScalar *x_array; in MatMult_SeqFFTW() local 52 PetscCall(VecGetArrayRead(xx, &x_array)); in MatMult_SeqFFTW() 54 PetscCall(VecGetArrayRead(x, &x_array)); in MatMult_SeqFFTW() 61 …fftw->p_forward = fftw_plan_dft_1d(dim[0], (fftw_complex *)x_array, (fftw_complex *)y_array, FFTW_… in MatMult_SeqFFTW() 63 …fftw->p_forward = fftw_plan_dft_r2c_1d(dim[0], (double *)x_array, (fftw_complex *)y_array, fftw->p… in MatMult_SeqFFTW() 68 …fftw->p_forward = fftw_plan_dft_2d(dim[0], dim[1], (fftw_complex *)x_array, (fftw_complex *)y_arra… in MatMult_SeqFFTW() 70 …fftw->p_forward = fftw_plan_dft_r2c_2d(dim[0], dim[1], (double *)x_array, (fftw_complex *)y_array,… in MatMult_SeqFFTW() 75 …fftw->p_forward = fftw_plan_dft_3d(dim[0], dim[1], dim[2], (fftw_complex *)x_array, (fftw_complex … in MatMult_SeqFFTW() 77 …fftw->p_forward = fftw_plan_dft_r2c_3d(dim[0], dim[1], dim[2], (double *)x_array, (fftw_complex *)… in MatMult_SeqFFTW() 92 …n_guru64_dft((int)ndim, (fftw_iodim64 *)iodims, 0, NULL, (fftw_complex *)x_array, (fftw_complex *)… in MatMult_SeqFFTW() [all …]
|
| /petsc/src/mat/impls/cufft/ |
| H A D | cufft.cu | 21 PetscScalar *x_array, *y_array; in MatMult_SeqCUFFT() local 24 PetscCall(VecGetArray(x, &x_array)); in MatMult_SeqCUFFT() 43 …PetscCallCUDA(cudaMemcpy(devArray, x_array, sizeof(cufftComplex) * dim[ndim], cudaMemcpyHostToDevi… in MatMult_SeqCUFFT() 49 PetscCall(VecRestoreArray(x, &x_array)); in MatMult_SeqCUFFT() 58 PetscScalar *x_array, *y_array; in MatMultTranspose_SeqCUFFT() local 61 PetscCall(VecGetArray(x, &x_array)); in MatMultTranspose_SeqCUFFT() 80 …PetscCallCUDA(cudaMemcpy(devArray, x_array, sizeof(cufftComplex) * dim[ndim], cudaMemcpyHostToDevi… in MatMultTranspose_SeqCUFFT() 86 PetscCall(VecRestoreArray(x, &x_array)); in MatMultTranspose_SeqCUFFT()
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex31.c | 8 PetscScalar *x_array; in main() local 22 PetscCall(VecGetArrayWrite(x, &x_array)); in main() 23 for (PetscInt i = 0; i < n; ++i) x_array[i] = (PetscScalar)(start + i + 1); in main() 24 PetscCall(VecRestoreArrayWrite(x, &x_array)); in main()
|
| /petsc/src/dm/impls/stag/tests/ |
| H A D | ex51.c | 10 PetscScalar ****x_array; in main() local 28 PetscCall(DMStagVecGetArray(dm, x, &x_array)); in main() 31 for (PetscInt i = s_x; i < s_x + n_x + n_e_x; ++i) x_array[k][j][i][slot_vertex_2] = 2.0; in main() 34 PetscCall(DMStagVecRestoreArray(dm, x, &x_array)); in main()
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | blackscholes.c | 128 PetscReal *x_array; in main() local 216 PetscCall(VecGetArray(x, &x_array)); in main() 217 for (i = 0; i < xm; i++) x_array[i] = user.Vt1[i - gxs + xs]; in main() 218 PetscCall(VecRestoreArray(x, &x_array)); in main() 234 PetscCall(VecGetArray(localX, &x_array)); in main() 235 for (j = 0; j < gxm; j++) user.Vt1[j] = x_array[j]; in main() 236 PetscCall(VecRestoreArray(x, &x_array)); in main()
|
| /petsc/src/ksp/pc/impls/telescope/ |
| H A D | telescope.c | 247 const PetscScalar *x_array; in PCTelescopeSubNullSpaceCreate_Telescope() local 256 PetscCall(VecGetArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_Telescope() 260 for (i = 0; i < ed - st; i++) LA_sub_vec[i] = x_array[i]; in PCTelescopeSubNullSpaceCreate_Telescope() 263 PetscCall(VecRestoreArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_Telescope() 574 const PetscScalar *x_array; in PCApply_Telescope() local 589 PetscCall(VecGetArrayRead(xtmp, &x_array)); in PCApply_Telescope() 594 for (i = 0; i < ed - st; i++) LA_xred[i] = x_array[i]; in PCApply_Telescope() 597 PetscCall(VecRestoreArrayRead(xtmp, &x_array)); in PCApply_Telescope() 624 const PetscScalar *x_array; in PCApplyRichardson_Telescope() local 642 PetscCall(VecGetArrayRead(xtmp, &x_array)); in PCApplyRichardson_Telescope() [all …]
|
| H A D | telescope_dmda.c | 802 const PetscScalar *x_array; in PCTelescopeSubNullSpaceCreate_dmda_Telescope() local 814 PetscCall(VecGetArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope() 819 for (i = 0; i < ed - st; i++) LA_sub_vec[i] = x_array[i]; in PCTelescopeSubNullSpaceCreate_dmda_Telescope() 823 PetscCall(VecRestoreArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope() 877 const PetscScalar *x_array; in PCApply_Telescope_dmda() local 899 PetscCall(VecGetArrayRead(xtmp, &x_array)); in PCApply_Telescope_dmda() 905 for (i = 0; i < ed - st; i++) LA_xred[i] = x_array[i]; in PCApply_Telescope_dmda() 908 PetscCall(VecRestoreArrayRead(xtmp, &x_array)); in PCApply_Telescope_dmda() 939 const PetscScalar *x_array; in PCApplyRichardson_Telescope_dmda() local 964 PetscCall(VecGetArrayRead(xtmp, &x_array)); in PCApplyRichardson_Telescope_dmda() [all …]
|
| /petsc/src/ksp/pc/impls/bjacobi/ |
| H A D | bjacobi.c | 648 const PetscScalar *x_array; in PCApplySymmetricLeft_BJacobi_Singleblock() local 658 PetscCall(VecGetArrayRead(x, &x_array)); in PCApplySymmetricLeft_BJacobi_Singleblock() 660 PetscCall(VecPlaceArray(bjac->x, x_array)); in PCApplySymmetricLeft_BJacobi_Singleblock() 668 PetscCall(VecRestoreArrayRead(x, &x_array)); in PCApplySymmetricLeft_BJacobi_Singleblock() 678 const PetscScalar *x_array; in PCApplySymmetricRight_BJacobi_Singleblock() local 688 PetscCall(VecGetArrayRead(x, &x_array)); in PCApplySymmetricRight_BJacobi_Singleblock() 690 PetscCall(VecPlaceArray(bjac->x, x_array)); in PCApplySymmetricRight_BJacobi_Singleblock() 701 PetscCall(VecRestoreArrayRead(x, &x_array)); in PCApplySymmetricRight_BJacobi_Singleblock() 711 const PetscScalar *x_array; in PCApplyTranspose_BJacobi_Singleblock() local 720 PetscCall(VecGetArrayRead(x, &x_array)); in PCApplyTranspose_BJacobi_Singleblock() [all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex73.c | 437 const PetscScalar *x_array; in DMShellDAFieldScatter_Forward() local 457 PetscCall(VecGetArrayRead(xtmp, &x_array)); in DMShellDAFieldScatter_Forward() 463 for (i = 0; i < ed - st; i++) LA_xred[i] = x_array[i]; in DMShellDAFieldScatter_Forward() 466 PetscCall(VecRestoreArrayRead(xtmp, &x_array)); in DMShellDAFieldScatter_Forward()
|
| /petsc/src/mat/impls/dense/seq/cupm/ |
| H A D | matseqdensecupm.hpp | 663 const PetscScalar *x_array; in MatSolve_Factored_Dispatch_() local 675 PetscCall(VecCUPMGetArrayReadAsync<T>(x, &x_array, dctx)); in MatSolve_Factored_Dispatch_() 677 PetscCall(VecGetArrayRead(x, &x_array)); in MatSolve_Factored_Dispatch_() 680 PetscCall(PetscCUPMMemcpyAsync(y_array, x_array, m, copy_mode, stream)); in MatSolve_Factored_Dispatch_() 682 PetscCall(VecCUPMRestoreArrayReadAsync<T>(x, &x_array, dctx)); in MatSolve_Factored_Dispatch_() 684 PetscCall(VecRestoreArrayRead(x, &x_array)); in MatSolve_Factored_Dispatch_()
|