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

 27: #if (PETSC_VERSION_RELEASE == 1)
 28: #define PetscGetVersion(version,len) (PetscSNPrintf(*(version),len,"Petsc Release Version %d.%d.%d, Patch %d, ", \
 29:                                          PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \
 30:                                          PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_PATCH_DATE), \
 31:                                          PetscStrcat(*(version)," HG revision: "),PetscStrcat(*(version),PETSC_VERSION_HG),0)
 32: #else
 33: #define PetscGetVersion(version,len) (PetscSNPrintf(*(version),len,"Petsc Development Version %d.%d.%d, Patch %d, ", \
 34:                                          PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \
 35:                                          PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_PATCH_DATE), \
 36:                                          PetscStrcat(*(version)," HG revision: "),PetscStrcat(*(version),PETSC_VERSION_HG),0)
 37: #endif

 39: /*MC
 40:     PetscGetVersion - Gets the Petsc Version information in a string.

 42:     Output Parameter:
 43: .   version - version string

 45:     Input Parameter:
 46: .   len - length of the string

 48:     Level: developer

 50:     Usage:
 51:     char version[256];
 52:     PetscGetVersion(&version,256);

 54:     Fortran Note:
 55:     This routine is not supported in Fortran.

 57: .seealso: PetscGetProgramName()

 59: M*/

 62: #endif