Actual source code: ex28.c


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

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

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

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

 26: /*TEST

 28:    test:

 30: TEST*/