Actual source code: petscversion.h


  6: /* ========================================================================== */
  7: /* 
  8:    Current PETSc version number and release date, also listed in
  9:     Web page
 10:     docs/tex/manual/intro.tex,
 11:     docs/tex/manual/manual.tex.
 12:     docs/website/index.html.
 13: */
 14: #define PETSC_VERSION_RELEASE    1
 15: #define PETSC_VERSION_MAJOR      2
 16: #define PETSC_VERSION_MINOR      3
 17: #define PETSC_VERSION_SUBMINOR   0
 18: #define PETSC_VERSION_PATCH      21
 19: #define PETSC_VERSION_DATE       "April, 26, 2005"
 20: #define PETSC_VERSION_PATCH_DATE "June, 21, 2005"
 21: #define PETSC_AUTHOR_INFO        "\
 22:        The PETSc Team\n\
 23:     petsc-maint@mcs.anl.gov\n\
 24:  http://www.mcs.anl.gov/petsc/\n"

 26: #if (PETSC_VERSION_RELEASE == 1)
 27: #define PetscGetVersion(version) (sprintf(*(version),"Petsc Release Version %d.%d.%d, Patch %d, ", \
 28:                                          PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \
 29:                                          PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_DATE),0)
 30: #else
 31: #define PetscGetVersion(version) (sprintf(*(version),"Petsc Development Version %d.%d.%d, Patch %d, ", \
 32:                                          PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \
 33:                                          PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_DATE),0)
 34: #endif

 36: /*M
 37:     PetscGetVersion - Gets the Petsc Version information in a string.

 39:     Output Parameter:
 40: .   version - version string

 42:     Level: developer

 44:     Usage:
 45:     char version[256];
 46:     PetscGetVersion(&version);

 48:     Fortran Note:
 49:     This routine is not supported in Fortran.

 51: .seealso: PetscGetProgramName()

 53: M*/

 56: #endif