| /petsc/src/dm/tests/ |
| H A D | ex47.c | 19 PetscScalar ***va; in test_3d() local 29 PetscCall(DMDAVecGetArray(da, v, &va)); in test_3d() 36 …va[k][j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + PetscPow… in test_3d() 40 PetscCall(DMDAVecRestoreArray(da, v, &va)); in test_3d() 62 PetscScalar **va; in test_2d() local 71 PetscCall(DMDAVecGetArray(da, v, &va)); in test_2d() 76 va[j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2); in test_2d() 79 PetscCall(DMDAVecRestoreArray(da, v, &va)); in test_2d() 101 PetscScalar **va; in test_2d_nocoord() local 109 PetscCall(DMDAVecGetArray(da, v, &va)); in test_2d_nocoord() [all …]
|
| H A D | ex42.c | 21 PetscScalar ***va; in test_3d() local 31 PetscCall(DMDAVecGetArray(da, v, &va)); in test_3d() 38 …va[k][j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + PetscPow… in test_3d() 42 PetscCall(DMDAVecRestoreArray(da, v, &va)); in test_3d() 64 PetscScalar **va; in test_2d() local 73 PetscCall(DMDAVecGetArray(da, v, &va)); in test_2d() 78 va[j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2); in test_2d() 81 PetscCall(DMDAVecRestoreArray(da, v, &va)); in test_2d() 103 PetscScalar **va; in test_2d_nocoord() local 111 PetscCall(DMDAVecGetArray(da, v, &va)); in test_2d_nocoord() [all …]
|
| H A D | ex48.c | 33 PetscScalar ****va; in test_3d() local 44 PetscCall(DMDAVecGetArrayDOF(da, v, &va)); in test_3d() 51 …for (c = 0; c < dof; ++c) va[k][j][i][c] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(… in test_3d() 55 PetscCall(DMDAVecRestoreArrayDOF(da, v, &va)); in test_3d() 76 PetscScalar ***va; in test_2d() local 86 PetscCall(DMDAVecGetArrayDOF(da, v, &va)); in test_2d() 91 …for (c = 0; c < dof; ++c) va[j][i][c] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y -… in test_2d() 94 PetscCall(DMDAVecRestoreArrayDOF(da, v, &va)); in test_2d() 115 PetscScalar ***va, ****vVectora; in test_3d_compat() local 129 PetscCall(DMDAVecGetArray(da, v, &va)); in test_3d_compat() [all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex42.c | 84 PetscScalar va[4], vh[4]; in RHSJacobian() local 103 va[0] = 2 * alpha * a / (1. + beta * h) - mu_a; in RHSJacobian() 106 va[1] = -beta * alpha * a * a / ((1. + beta * h) * (1. + beta * h)); in RHSJacobian() 112 va[idx] = D_a; in RHSJacobian() 114 va[0] -= D_a; in RHSJacobian() 121 va[idx] = D_a; in RHSJacobian() 123 va[0] -= D_a; in RHSJacobian() 127 PetscCall(MatSetValues(B, 1, &rowa, idx, ca, va, INSERT_VALUES)); in RHSJacobian()
|
| /petsc/src/mat/tests/ |
| H A D | ex47.c | 10 PetscViewer va, vb, vc; in main() local 26 PetscCall(PetscViewerBinaryOpen(PETSC_COMM_WORLD, file, FILE_MODE_READ, &va)); in main() 29 PetscCall(MatLoad(A, va)); in main() 30 PetscCall(PetscViewerDestroy(&va)); in main()
|
| /petsc/src/snes/tutorials/network/power/ |
| H A D | PFReadData.c | 75 double gl, bl, vm, va, basekV; in PFReadMatPowerData() local 78 …%d %d %lf %lf %lf %lf %d %lf %lf %lf", &bus_i, &ide, &Pd, &Qd, &gl, &bl, &area, &vm, &va, &basekV); in PFReadMatPowerData() 85 Bus[busi].va = va; in PFReadMatPowerData()
|
| H A D | power.h | 38 PetscScalar va; /* Bus voltage phase angle */ member
|
| H A D | pffunctions.c | 273 farr[offset] = xarr[offset] - bus->va * PETSC_PI / 180.0; in FormFunction_Power() 378 xarr[offset] = bus->va * PETSC_PI / 180.0; in SetInitialGuess_Power()
|
| H A D | power2.c | 46 farr[offset] = xarr[offset] - bus->va * PETSC_PI / 180.0; in FormFunction_Subnet() 392 xarr[offset] = bus->va * PETSC_PI / 180.0; in SetInitialValues_Subnet()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | petscvec.pxi | 425 cdef PetscScalar *va=NULL, *vv=NULL 426 cdef ndarray ary = iarray_s(o, &na, &va) 435 vv[i] = va[0] 437 CHKERR(PetscMemcpy(vv, va, <size_t>nv*sizeof(PetscScalar)))
|
| /petsc/share/petsc/bin/ |
| H A D | dmnetwork_view.py | 322 va='center', ha='center', 336 va='center', ha='center',
|
| /petsc/include/ |
| H A D | petscvec.h | 395 static inline PetscErrorCode VecSetValue(Vec v, PetscInt i, PetscScalar va, InsertMode mode) in VecSetValue() argument 397 return VecSetValues(v, 1, &i, &va, mode); in VecSetValue() 504 static inline PetscErrorCode VecSetValueLocal(Vec v, PetscInt i, PetscScalar va, InsertMode mode) in VecSetValueLocal() argument 506 return VecSetValuesLocal(v, 1, &i, &va, mode); in VecSetValueLocal()
|
| H A D | petscmat.h | 982 static inline PetscErrorCode MatSetValue(Mat mat, PetscInt i, PetscInt j, PetscScalar va, InsertMod… in MatSetValue() argument 984 return MatSetValues(mat, 1, &i, 1, &j, &va, mode); in MatSetValue() 1011 static inline PetscErrorCode MatGetValue(Mat mat, PetscInt row, PetscInt col, PetscScalar *va) in MatGetValue() argument 1013 return MatGetValues(mat, 1, &row, 1, &col, va); in MatGetValue() 1037 static inline PetscErrorCode MatSetValueLocal(Mat mat, PetscInt i, PetscInt j, PetscScalar va, Inse… in MatSetValueLocal() argument 1039 return MatSetValuesLocal(mat, 1, &i, 1, &j, &va, mode); in MatSetValueLocal()
|
| /petsc/src/mat/impls/dense/seq/cupm/ |
| H A D | matseqdensecupm.hpp | 1355 const auto va = DeviceArrayRead(dctx, A); in Copy() local 1365 …PetscCall(PetscCUPMMemcpy2DAsync(vb.data(), lda_b, va.data(), lda_a, m, n, cupmMemcpyDeviceToDevic… in Copy() 1367 … PetscCall(PetscCUPMMemcpyAsync(vb.data(), va.data(), m * n, cupmMemcpyDeviceToDevice, stream)); in Copy() 1387 const auto va = DeviceArrayWrite(dctx, m); in ZeroEntries() local 1393 PetscCall(PetscCUPMMemset2DAsync(va.data(), lda, 0, ma, na, stream)); in ZeroEntries() 1395 PetscCall(PetscCUPMMemsetAsync(va.data(), 0, ma * na, stream)); in ZeroEntries()
|
| /petsc/src/ts/tests/ |
| H A D | ex28.c | 216 static PetscReal ComputeCDF(PetscReal m, PetscReal n, PetscReal T, PetscReal va, PetscReal vb) in ComputeCDF() argument 219 PetscReal za = alpha * va; in ComputeCDF()
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 2516 PetscScalar *va; in MatGetRowMaxAbs_MPISBAIJ() local 2523 PetscCall(VecGetArray(v, &va)); in MatGetRowMaxAbs_MPISBAIJ() 2556 if (PetscRealPart(va[row]) < atmp) va[row] = atmp; in MatGetRowMaxAbs_MPISBAIJ() 2580 if (PetscRealPart(va[i]) < rvalues[i]) va[i] = rvalues[i]; in MatGetRowMaxAbs_MPISBAIJ() 2585 PetscCall(VecRestoreArray(v, &va)); in MatGetRowMaxAbs_MPISBAIJ()
|
| /petsc/src/mat/graphops/coarsen/impls/hem/ |
| H A D | hem.c | 400 PetscReal va = ((Edge *)a)->weight, vb = ((Edge *)b)->weight; in gamg_hem_compare() local 401 return (va <= vb - MY_MEPS) ? 1 : (va > vb + MY_MEPS) ? -1 : 0; /* 0 for equal */ in gamg_hem_compare()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 63 const PetscScalar *va, *vb; in MatGetRowMaxAbs_MPIBAIJ() local 69 PetscCall(VecGetArrayRead(vA, &va)); in MatGetRowMaxAbs_MPIBAIJ() 72 if (PetscAbsScalar(va[i])) idx[i] += A->cmap->rstart; in MatGetRowMaxAbs_MPIBAIJ() 83 if (PetscAbsScalar(va[i]) < PetscAbsScalar(vb[i])) { in MatGetRowMaxAbs_MPIBAIJ() 87 vv[i] = va[i]; in MatGetRowMaxAbs_MPIBAIJ() 88 …if (idx && PetscAbsScalar(va[i]) == PetscAbsScalar(vb[i]) && idxb[i] != -1 && idx[i] > bs * a->gar… in MatGetRowMaxAbs_MPIBAIJ() 92 PetscCall(VecRestoreArrayRead(vA, &va)); in MatGetRowMaxAbs_MPIBAIJ()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plex.c | 502 PetscInt numVals, va; in VecView_Plex_Local_Draw_2D() local 514 …for (va = 0; va < numVals / Nc; ++va) color[va] = PetscDrawRealToColor(PetscRealPart(vals[va * Nc … in VecView_Plex_Local_Draw_2D() 519 …for (va = 0; va < numVals / Nc; ++va) color[va] = PetscDrawRealToColor(PetscRealPart(vals[va * Nc … in VecView_Plex_Local_Draw_2D() 524 …for (va = 0; va < numVals / (Nc * 2); ++va) color[va] = PetscDrawRealToColor(PetscRealPart(vals[va… in VecView_Plex_Local_Draw_2D()
|
| H A D | plexfem.c | 774 PetscScalar *a, *va; in DMPlexBasisTransform_Internal() local 788 PetscCall(DMPlexPointLocalFieldRef(dm, p, f, a, &va)); in DMPlexBasisTransform_Internal() 789 PetscCall(DMPlexBasisTransformField_Internal(dm, tdm, tv, p, f, l2g, va)); in DMPlexBasisTransform_Internal()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.c | 2250 const MatScalar *va, *vb; in MatIsTranspose_SeqAIJ() local 2260 PetscCall(MatSeqAIJGetArrayRead(A, &va)); in MatIsTranspose_SeqAIJ() 2279 vc = va[aptr[i]]; in MatIsTranspose_SeqAIJ() 2293 PetscCall(MatSeqAIJRestoreArrayRead(A, &va)); in MatIsTranspose_SeqAIJ() 2302 MatScalar *va, *vb; in MatIsHermitianTranspose_SeqAIJ() local 2316 va = aij->a; in MatIsHermitianTranspose_SeqAIJ() 2331 vc = va[aptr[i]]; in MatIsHermitianTranspose_SeqAIJ()
|
| /petsc/src/snes/tutorials/network/ |
| H A D | ex1.c | 301 xarr[offset] = bus->va * PETSC_PI / 180.0; in SetInitialGuess()
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.c | 2618 const PetscScalar *va; in MatCopy_SeqDense() local 2629 PetscCall(MatDenseGetArrayRead(A, &va)); in MatCopy_SeqDense() 2632 for (j = 0; j < n; j++) PetscCall(PetscArraycpy(vb + j * lda2, va + j * lda1, m)); in MatCopy_SeqDense() 2634 PetscCall(PetscArraycpy(vb, va, A->rmap->n * A->cmap->n)); in MatCopy_SeqDense() 2637 PetscCall(MatDenseRestoreArrayRead(A, &va)); in MatCopy_SeqDense()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 2163 const PetscScalar *va, *vb; in MatGetRowMaxAbs_MPIAIJ() local 2169 PetscCall(VecGetArrayRead(vA, &va)); in MatGetRowMaxAbs_MPIAIJ() 2172 if (PetscAbsScalar(va[i])) idx[i] += A->cmap->rstart; in MatGetRowMaxAbs_MPIAIJ() 2183 if (PetscAbsScalar(va[i]) < PetscAbsScalar(vb[i])) { in MatGetRowMaxAbs_MPIAIJ() 2187 vv[i] = va[i]; in MatGetRowMaxAbs_MPIAIJ() 2188 …if (idx && PetscAbsScalar(va[i]) == PetscAbsScalar(vb[i]) && idxb[i] != -1 && idx[i] > a->garray[i… in MatGetRowMaxAbs_MPIAIJ() 2192 PetscCall(VecRestoreArrayRead(vA, &va)); in MatGetRowMaxAbs_MPIAIJ()
|