| /petsc/src/ts/tests/ |
| H A D | ex35.c | 31 PetscReal *ck, r = 0.; in erfinv() local
34 PetscCall(PetscCalloc1(maxIter, &ck)); in erfinv()
35 ck[0] = 1; in erfinv()
36 r = ck[0] * ((PetscSqrtReal(PETSC_PI) / 2.) * x); in erfinv()
40 ck[k] += (ck[m] * ck[k - 1 - m]) / denom; in erfinv()
43 r += (ck[k] / temp) * PetscPowReal((PetscSqrtReal(PETSC_PI) / 2.) * x, 2. * k + 1.); in erfinv()
45 PetscCallAbort(PETSC_COMM_SELF, PetscFree(ck)); in erfinv()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtprob.c | 195 PetscReal ck[100], r = 0.; in PetscPDFSampleGaussian1D() local
200 for (k = 0; k < maxIter; ++k) ck[k] = 0.; in PetscPDFSampleGaussian1D()
201 ck[0] = 1; in PetscPDFSampleGaussian1D()
202 r = ck[0] * (PetscSqrtReal(PETSC_PI) / 2.) * q; in PetscPDFSampleGaussian1D()
209 ck[k] += (ck[m] * ck[k - 1 - m]) / denom; in PetscPDFSampleGaussian1D()
211 r += (ck[k] / temp) * PetscPowReal((PetscSqrtReal(PETSC_PI) / 2.) * q, 2. * k + 1.); in PetscPDFSampleGaussian1D()
|
| /petsc/src/dm/partitioner/impls/simple/ |
| H A D | partsimple.c | 50 PetscInt Np = 1, Nr, np, nk, nj, ni, pk, pj, pi, ck, cj, ci, i; in PetscPartitionerPartition_Simple_Grid() local
96 for (ck = 0; ck < pcells[2]; ++ck) { in PetscPartitionerPartition_Simple_Grid()
99 …const PetscInt cid = (((nk * procs[2] + pk) * pcells[2] + ck) * cells[1] + ((nj * procs[1] + pj) *… in PetscPartitionerPartition_Simple_Grid()
|
| /petsc/include/petsc/private/ |
| H A D | petscimpl.h | 431 #define PetscValidHeaderSpecificType(h, ck, arg, t) \ argument
434 PetscValidHeaderSpecific(h, ck, arg); \
445 #define PetscValidHeaderSpecific(h, ck, arg) \ argument
448 if (((PetscObject)(h))->classid != ck) { \
569 #define PetscValidHeaderSpecific(h, ck, arg) \ argument
573 #define PetscValidHeaderSpecificType(h, ck, arg, t) \ argument
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | FE.pyx | 205 cdef PetscInt ck = asInt(k)
208 CHKERR(PetscFECreateLagrange(ccomm, cdim, cnc, cisSimplex, ck, cqorder, &newfe))
|
| /petsc/src/mat/impls/dense/mpi/ |
| H A D | mpidense.c | 2273 PetscBLASInt cm, cn, ck, alda, blda = 0, clda; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic() local
2309 PetscCall(PetscBLASIntCast(cK, &ck)); in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2328 …if (cm && cn && ck) PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &cm, &cn, &ck, &_DOne, av, &alda… in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2357 PetscBLASInt cm, cn, ck, alda, clda; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Allgatherv() local
2383 PetscCall(PetscBLASIntCast(cK, &ck)); in MatMatTransposeMultNumeric_MPIDense_MPIDense_Allgatherv()
2386 …if (cm && cn && ck) PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &cm, &cn, &ck, &_DOne, av, &alda… in MatMatTransposeMultNumeric_MPIDense_MPIDense_Allgatherv()
|
| /petsc/src/mat/tests/ |
| H A D | ex23.c | 305 …PetscInt ri, ci, rr[3] = {0, 1, 0}, cr[4] = {1, 2, 0, 1}, rk[3] = {0, 2, 1}, ck[4] =… in main() local
315 c = (PetscInt *)(ci == 0 ? cr : ck); in main()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 3418 (species/kinetics/spe-ck-eq? #f)
3419 (species/kinetics/use-ck-eq? #f)
|