Lines Matching refs:cval
49 PetscScalar, dimension(:), pointer :: cval, xyz
335 PetscCallA(VecGetArray(UALoc, cval, ierr))
348 cval(offUA + i) = cval(offUA + i) + xyz(j/sdim + i)
350 cval(offUA + i) = cval(offUA + i)*sdim/closureSize
351 cval(offUA + sdim + 1) = cval(offUA + sdim + 1) + cval(offUA + i)**2
357 PetscCallA(VecRestoreArray(UALoc, cval, ierr))
433 …allA(DMPlexVecGetClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), PETSC_NULL_INTEGER, cval, ierr))
435 cval(1) = rank
436 cval(2) = csID(set)
437 cval(3) = 0.0_kPR
439 cval(3) = cval(3) + xyz(c)
441 cval(3) = cval(3)*sdim/size(xyz)
442 …PetscCallA(DMPlexVecSetClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), cval, INSERT_ALL_VALUES, …
443 …(DMPlexVecRestoreClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), PETSC_NULL_INTEGER, cval, ierr))