Actual source code: ex28.c
petsc-3.12.4 2020-02-04
Report Typos and Errors

      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: {

     11:   PetscReal a;

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

     28: /*TEST
     29:
     30:    test:

     32: TEST*/