Actual source code: ex28.c

petsc-3.8.4 2018-03-24
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*/