Actual source code: ex28.c

  1: static char help[] = "Tests PetscAtan2Real\n";

  3: #include <petscsys.h>
  4: #include <petscviewer.h>
  5: #include <petscmath.h>

  7: int main(int argc, char **argv)
  8: {
  9:   PetscReal a;

 11:   PetscFunctionBeginUser;
 12:   PetscCall(PetscInitialize(&argc, &argv, (char *)0, help));
 13:   a = PetscAtan2Real(1.0, 1.0);
 14:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(1.0,1.0) = %g\n", (double)a));
 15:   a = PetscAtan2Real(1.0, 0.0);
 16:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(1.0,0.0) = %g\n", (double)a));
 17:   a = PetscAtan2Real(0.0, 1.0);
 18:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(0.0,1.0) = %g\n", (double)a));
 19:   a = PetscAtan2Real(0.0, 0.0);
 20:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(0.0,0.0) = %g\n", (double)a));
 21:   PetscCall(PetscFinalize());
 22:   return 0;
 23: }

 25: /*TEST

 27:    test:

 29: TEST*/