Lines Matching refs:arr
285 PetscErrorCode Adjoint2(Vec U, PetscScalar arr[], User ctx) in Adjoint2() argument
326 arr[0] = x_ptr[0]; in Adjoint2()
327 arr[1] = x_ptr[1]; in Adjoint2()
335 PetscErrorCode FiniteDiff(Vec U, PetscScalar arr[], User ctx) in FiniteDiff() argument
358 arr[0] = u[0]; in FiniteDiff()
359 arr[1] = u[1]; in FiniteDiff()
370 arr[2] = u[0]; in FiniteDiff()
371 arr[3] = u[1]; in FiniteDiff()
401 PetscScalar *x_ptr, arr[4]; in main() local
484 PetscCall(FiniteDiff(x, arr, &user)); in main()
486 …Printf(PETSC_COMM_WORLD, "%g %g\n%g %g\n", (double)arr[0], (double)arr[1], (double)arr[2], (double… in main()
494 PetscCall(Adjoint2(user.U, arr, &user)); in main()
496 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%g\n%g\n", (double)arr[0], (double)arr[1])); in main()
502 PetscCall(Adjoint2(user.U, arr, &user)); in main()
504 PetscCall(PetscPrintf(PETSC_COMM_WORLD, "%g\n%g\n", (double)arr[0], (double)arr[1])); in main()