Lines Matching refs:cval
66 PetscScalar, dimension(:), pointer :: cval, xyz
351 PetscCallA(VecGetArray(UALoc, cval, ierr))
364 cval(offUA + i) = cval(offUA + i) + xyz(j/sdim + i)
366 cval(offUA + i) = cval(offUA + i)*sdim/closureSize
367 cval(offUA + sdim + 1) = cval(offUA + sdim + 1) + cval(offUA + i)**2
373 PetscCallA(VecRestoreArray(UALoc, cval, ierr))
449 …allA(DMPlexVecGetClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), PETSC_NULL_INTEGER, cval, ierr))
451 cval(1) = rank
452 cval(2) = csID(set)
453 cval(3) = 0.0_kPR
455 cval(3) = cval(3) + xyz(c)
457 cval(3) = cval(3)*sdim/size(xyz)
458 …PetscCallA(DMPlexVecSetClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), cval, INSERT_ALL_VALUES, …
459 …(DMPlexVecRestoreClosure(dmS, PETSC_NULL_SECTION, S, cellID(cell), PETSC_NULL_INTEGER, cval, ierr))