Lines Matching refs:gptr

10   const PetscReal *gptr;
18   PetscCall(VecGetArrayRead(g, &gptr));
21     if (dptr[i] * gptr[i] <= 0.0) dptr[i] = 0.0;
24   PetscCall(VecRestoreArrayRead(g, &gptr));
31   PetscReal       *gptr;
39   PetscCall(VecGetArray(gv, &gptr));
41     if (xptr[i] < 0.0) gptr[i] = gptr[i] - lambda;
42     else if (xptr[i] > 0.0) gptr[i] = gptr[i] + lambda;
43     else if (gptr[i] + lambda < 0.0) gptr[i] = gptr[i] + lambda;
44     else if (gptr[i] - lambda > 0.0) gptr[i] = gptr[i] - lambda;
45     else gptr[i] = 0.0;
47   PetscCall(VecRestoreArray(gv, &gptr));