| /petsc/src/mat/tests/ ! |
| H A D | ex144.c | 23 Vec fin, fout, fout1; in main() local
58 PetscCall(VecCreateMPIWithArray(PETSC_COMM_WORLD, 1, n, N, (PetscScalar *)in1, &fin)); in main()
63 PetscCall(VecSet(fin, zero)); in main()
71 PetscCall(VecSetValues(fin, 1, &i, &one, INSERT_VALUES)); in main()
73 PetscCall(VecSetValues(fin, 1, &i, &two, INSERT_VALUES)); in main()
75 PetscCall(VecSetValues(fin, 1, &i, &three, INSERT_VALUES)); in main()
77 PetscCall(VecSetValues(fin, 1, &i, &four, INSERT_VALUES)); in main()
78 PetscCall(VecAssemblyBegin(fin)); in main()
79 PetscCall(VecAssemblyEnd(fin)); in main()
85 PetscCall(VecGetArray(fin, &x_arr)); in main()
[all …]
|
| H A D | ex146.c | 19 Vec fin, fout, fout1, ini, final; in main() local
59 PetscCall(VecCreateMPIWithArray(PETSC_COMM_WORLD, 1, n, N, (PetscScalar *)in1, &fin)); in main()
66 VecSet(fin, one); in main()
70 VecAssemblyBegin(fin); in main()
71 VecAssemblyEnd(fin); in main()
74 VecGetArray(fin, &x_arr); in main()
84 VecRestoreArray(fin, &x_arr); in main()
102 PetscCall(VecGetOwnershipRange(fin, &low, NULL)); in main()
119 VecGetValues(fin, local_n0 * N1 * N2, indx4, x_arr); in main()
163 PetscCall(VecDestroy(&fin)); in main()
|
| H A D | ex147.c | 19 Vec fin, fout, fout1, x, y; in main() local
60 PetscCall(VecCreateMPIWithArray(PETSC_COMM_WORLD, 1, n, N, (PetscScalar *)in1, &fin)); in main()
67 VecSet(fin, one); in main()
72 VecGetArray(fin, &x_arr); in main()
84 VecRestoreArray(fin, &x_arr); in main()
99 PetscCall(VecDestroy(&fin)); in main()
|
| H A D | ex57.c | 13 char fin[PETSC_MAX_PATH_LEN], fout[PETSC_MAX_PATH_LEN] = "default.mat"; in main() local
25 PetscCall(PetscOptionsGetString(NULL, NULL, "-fin", fin, sizeof(fin), &flg)); in main()
27 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_SELF, fin, FILE_MODE_READ, &fdin)); in main()
|
| /petsc/src/snes/tutorials/ ! |
| H A D | ex7.c | 114 const PetscScalar fin[4] = {f[0 * ldx], f[1 * ldx], f[2 * ldx], f[3 * ldx]}; in ComputeGamma() local
119 f[0 * ldx] = PETSC_i * fin[3]; in ComputeGamma()
120 f[1 * ldx] = PETSC_i * fin[2]; in ComputeGamma()
121 f[2 * ldx] = -PETSC_i * fin[1]; in ComputeGamma()
122 f[3 * ldx] = -PETSC_i * fin[0]; in ComputeGamma()
125 f[0 * ldx] = -fin[3]; in ComputeGamma()
126 f[1 * ldx] = fin[2]; in ComputeGamma()
127 f[2 * ldx] = fin[1]; in ComputeGamma()
128 f[3 * ldx] = -fin[0]; in ComputeGamma()
131 f[0 * ldx] = PETSC_i * fin[2]; in ComputeGamma()
[all …]
|
| /petsc/src/vec/is/ao/tests/ex3d/ ! |
| H A D | ex3.cxx | 35 ifstream fin(infile); in main() local
36 PetscCheck(fin, PETSC_COMM_SELF, PETSC_ERR_FILE_OPEN, "File not found: %s", infile); in main()
39 while (!fin.eof()) { in main()
41 fin >> tmp; in main()
|
| /petsc/src/mat/impls/fft/fftw/ ! |
| H A D | fftw.c | 399 static PetscErrorCode VecDuplicate_FFTW_fin(Vec fin, Vec *fin_new) in VecDuplicate_FFTW_fin() argument
404 PetscCall(PetscObjectQuery((PetscObject)fin, "FFTmatrix", (PetscObject *)&A)); in VecDuplicate_FFTW_fin()
477 PetscErrorCode MatCreateVecsFFTW_FFTW(Mat A, Vec *fin, Vec *fout, Vec *bout) in MatCreateVecsFFTW_FFTW() argument
492 if (fin) PetscCall(VecCreateSeq(PETSC_COMM_SELF, fft->N, fin)); in MatCreateVecsFFTW_FFTW()
496 if (fin) PetscCall(VecCreateSeq(PETSC_COMM_SELF, fft->n, fin)); in MatCreateVecsFFTW_FFTW()
522 if (fin) { in MatCreateVecsFFTW_FFTW()
526 PetscCall(VecCreateMPIWithArray(comm, 1, n1, N1, (const PetscScalar *)data_fin, fin)); in MatCreateVecsFFTW_FFTW()
527 PetscCall(PetscObjectCompose((PetscObject)*fin, "FFTmatrix", (PetscObject)A)); in MatCreateVecsFFTW_FFTW()
528 (*fin)->ops->duplicate = VecDuplicate_FFTW_fin; in MatCreateVecsFFTW_FFTW()
529 (*fin)->ops->destroy = VecDestroy_MPIFFTW; in MatCreateVecsFFTW_FFTW()
[all …]
|
| /petsc/src/ksp/ksp/impls/gmres/agmres/ ! |
| H A D | agmresdeflation.c | 19 PetscInt deb[DEPTH], fin[DEPTH]; in KSPAGMRESQuickSort() local
31 fin[0] = size; in KSPAGMRESQuickSort()
35 R = fin[i] - 1; in KSPAGMRESQuickSort()
70 fin[i + 1] = fin[i]; in KSPAGMRESQuickSort()
71 fin[i] = L; in KSPAGMRESQuickSort()
|
| /petsc/src/tao/constrained/tutorials/ ! |
| H A D | ex1.c | 259 PetscReal fin; in FormFunctionGradient() local
272 fin = 0.0; in FormFunctionGradient()
275 fin = (x[0] - 2.0) * (x[0] - 2.0) + (x[1] - 2.0) * (x[1] - 2.0) - 2.0 * (x[0] + x[1]); in FormFunctionGradient()
278 PetscCallMPI(MPIU_Allreduce(&fin, f, 1, MPIU_REAL, MPIU_SUM, comm)); in FormFunctionGradient()
|
| /petsc/src/tao/unconstrained/tutorials/ ! |
| H A D | adjointreads.m | 32 % plot(xg,fin,'ro-')
|
| /petsc/lib/petsc/bin/ ! |
| H A D | generatefortranbindings.py | 434 with open(os.path.join(fun.dir,'makefile')) as fin:
436 fout.write(fin.read().replace('petscdir.mk','../petscdir.mk'))
|
| /petsc/doc/ ! |
| H A D | petsc.bib | 35528 title = {Sur les Courbes {D}\'{e}fin\'{e}es par une \'{E}quation Differentielle {I}},
|