Actual source code: ex17.c

  1: static char help[] = "Demonstrates PetscGetVersonNumber().\n\n";

  3: #include <petscsys.h>
  4: int main(int argc, char **argv)
  5: {
  6:   char     version[128];
  7:   PetscInt major, minor, subminor;

  9:   /*
 10:     Every PETSc routine should begin with the PetscInitialize() routine.
 11:     argc, argv - These command line arguments are taken to extract the options
 12:                  supplied to PETSc and options supplied to MPI.
 13:     help       - When PETSc executable is invoked with the option -help,
 14:                  it prints the various options that can be applied at
 15:                  runtime.  The user can use the "help" variable place
 16:                  additional help messages in this printout.
 17:   */
 18:   PetscFunctionBeginUser;
 19:   PetscCall(PetscInitialize(&argc, &argv, NULL, help));
 20:   PetscCall(PetscGetVersion(version, sizeof(version)));

 22:   PetscCall(PetscGetVersionNumber(&major, &minor, &subminor, NULL));
 23:   PetscCheck(major == PETSC_VERSION_MAJOR, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Library major %" PetscInt_FMT " does not equal include %d", major, PETSC_VERSION_MAJOR);
 24:   PetscCheck(minor == PETSC_VERSION_MINOR, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Library minor %" PetscInt_FMT " does not equal include %d", minor, PETSC_VERSION_MINOR);
 25:   PetscCheck(subminor == PETSC_VERSION_SUBMINOR, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Library subminor %" PetscInt_FMT " does not equal include %d", subminor, PETSC_VERSION_SUBMINOR);

 27:   PetscCall(PetscFinalize());
 28:   return 0;
 29: }

 31: /*TEST

 33:    test:

 35: TEST*/