static char help[] = "Tests PetscAtan2Real\n"; #include #include #include int main(int argc, char **argv) { PetscReal a; PetscFunctionBeginUser; PetscCall(PetscInitialize(&argc, &argv, NULL, help)); a = PetscAtan2Real(1.0, 1.0); PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(1.0,1.0) = %g\n", (double)a)); a = PetscAtan2Real(1.0, 0.0); PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(1.0,0.0) = %g\n", (double)a)); a = PetscAtan2Real(0.0, 1.0); PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(0.0,1.0) = %g\n", (double)a)); a = PetscAtan2Real(0.0, 0.0); PetscCall(PetscPrintf(PETSC_COMM_WORLD, "PetscAtan2Real(0.0,0.0) = %g\n", (double)a)); PetscCall(PetscFinalize()); return 0; } /*TEST test: TEST*/