Home
last modified time | relevance | path

Searched refs:PETSC_i (Results 1 – 25 of 30) sorted by relevance

12

/petsc/src/mat/tests/
H A Dex197.c27 v = 3.0 + 4.0 * PETSC_i; in main()
31 v = 5.0 + 6.0 * PETSC_i; in main()
35 v = 7.0 + 8.0 * PETSC_i; in main()
45 v = 10.0 + 11.0 * PETSC_i; in main()
48 v = 100.0 + 120.0 * PETSC_i; in main()
H A Dex256.c22 a[i + i * lda] = 1.0 + 2.0 * PETSC_i; in main()
23 if (i > 0) a[i + (i - 1) * lda] = 3.0 - 0.5 * PETSC_i; in main()
24 b[i + i * lda] = 1.0 + 2.0 * PETSC_i; in main()
25 if (i > 0) b[i + (i - 1) * lda] = 3.0 - 0.5 * PETSC_i; in main()
H A Dex175.c20 v = 0.0 - 1.0 * PETSC_i; in main()
H A Dex120.c64 PetscCall(PetscRandomSetInterval(rctx, 0.0, PETSC_i)); in main()
66 sigma2 = 10.0 * PETSC_i; in main()
H A Dex127.c29 sigma2 = 10.0 * PETSC_i; in main()
H A Dex115.c114 PetscCall(MatScale(A, PETSC_i)); in main()
115 PetscCall(MatScale(B, PETSC_i)); in main()
H A Dex221.c128 for (i = 0; i < m; i++) data[j * m + i] = s2 * j + i + s1 + 1 + PETSC_i * (s1 - 1); in main()
/petsc/src/snes/tutorials/
H A Dex7.c119 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()
131 f[0 * ldx] = PETSC_i * fin[2]; in ComputeGamma()
132 f[1 * ldx] = -PETSC_i * fin[3]; in ComputeGamma()
133 f[2 * ldx] = -PETSC_i * fin[0]; in ComputeGamma()
134 f[3 * ldx] = PETSC_i * fin[1]; in ComputeGamma()
157 f[0 * ldx] += sign * PETSC_i * fin[3]; in ComputeGammaFactor()
158 f[1 * ldx] += sign * PETSC_i * fin[2]; in ComputeGammaFactor()
[all …]
/petsc/src/sys/classes/random/impls/sprng/
H A Dsprng.c21 …RealPart(r->low) + (PetscImaginaryPart(r->width) * sprng() + PetscImaginaryPart(r->low)) * PETSC_i; in PetscRandomGetValue_Sprng()
23 *val = sprng() + sprng() * PETSC_i; in PetscRandomGetValue_Sprng()
/petsc/src/sys/classes/random/impls/rander48/
H A Drander48.c57 *val = PetscRealPart(r->low) + PetscImaginaryPart(r->low) * PETSC_i; in PetscRandomGetValue_Rander48()
59 …f (PetscImaginaryPart(r->width)) *val += PetscImaginaryPart(r->width) * _dorander48(r48) * PETSC_i; in PetscRandomGetValue_Rander48()
61 *val = _dorander48(r48) + _dorander48(r48) * PETSC_i; in PetscRandomGetValue_Rander48()
/petsc/src/sys/classes/random/impls/rand/
H A Drand.c15 …alPart(r->low) + (PetscImaginaryPart(r->width) * RAND_WRAP + PetscImaginaryPart(r->low)) * PETSC_i; in PetscRandomGetValue_Rand()
16 else *val = RAND_WRAP + RAND_WRAP * PETSC_i; in PetscRandomGetValue_Rand()
/petsc/src/sys/classes/random/impls/rand48/
H A Drand48.c16 …ow) + (PetscImaginaryPart(r->width) * (PetscReal)drand48() + PetscImaginaryPart(r->low)) * PETSC_i; in PetscRandomGetValue_Rand48()
18 *val = (PetscReal)drand48() + (PetscReal)drand48() * PETSC_i; in PetscRandomGetValue_Rand48()
/petsc/src/vec/vec/tests/
H A Dex43.c20 PetscCall(PetscRandomSetInterval(rctx, -1. + 4. * PETSC_i, 1. + 5. * PETSC_i)); in main()
/petsc/src/binding/petsc4py/src/petsc4py/include/petsc4py/
H A Dpyscalar.h31 return a + b * PETSC_i; in PyPetscScalar_AsPetscScalar()
/petsc/src/ksp/ksp/tutorials/
H A Dex11.c82 PetscCall(PetscRandomSetInterval(rctx, 0.0, PETSC_i)); in main()
84 sigma2 = 10.0 * PETSC_i; in main()
H A Dex11f.F9061 cone = PETSC_i
97 sigma2 = 10.0*PETSC_i
/petsc/src/mat/utils/
H A Dgetcolv.c180 for (i = 0; i < n; i++) sums[i] += work[i] * PETSC_i; in MatGetColumnSums()
268 for (i = 0; i < n; i++) means[i] += work[i] * PETSC_i; in MatGetColumnMeans()
/petsc/src/ksp/ksp/tests/
H A Dex17.c171 val[0] = PETSC_i * 2.0; in FormTestMatrix()
218 PetscCall(PetscRandomSetInterval(rctx, 0.0, PETSC_i)); in FormTestMatrix()
257 alpha_h = (PETSC_i * 10.0) / (PetscReal)(n + 1); /* alpha_h = alpha * h */ in FormTestMatrix()
/petsc/src/sys/error/
H A Dcheckptr.c103 PETSC_UNUSED volatile PetscScalar x = xreal + PETSC_i * ximag; in PetscCheckPointer()
/petsc/src/sys/ftn-mod/
H A Dpetscsysmod.F90105 PetscComplex, parameter :: PETSC_i = (0.0_PETSC_REAL_KIND, 1.0_PETSC_REAL_KIND)
/petsc/doc/changes/
H A D2015.md55 global variable defining the imaginary number "i": PETSC_i
/petsc/share/petsc/matlab/
H A DgeneratePetscTestFiles.m84 x=1i.*ones(n,1); b=A*x; % use VecSet(x,PETSC_i) in PETSc for x
/petsc/src/sys/objects/
H A Dinit.c56 PetscComplex PETSC_i; variable
H A Dpinit.c922 PETSC_i = ic; in PetscInitialize_Common()
924 PETSC_i = _Complex_I; in PetscInitialize_Common()
/petsc/src/mat/impls/mffd/
H A Dmffd.c350 if (ctx->usecomplex) h = PETSC_i * h; in MatMult_MFFD()

12