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

  3: #include <petscsys.h>

  5: int main(int argc, char **argv)
  6: {
  7:   PetscReal a;

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

 23: /*TEST

 25:    test:

 27: TEST*/