#if !defined(__PETSCVERSION_H) #define __PETSCVERSION_H PETSC_EXTERN_CXX_BEGIN /* ========================================================================== */ /* Current PETSc version number and release date, also listed in Web page src/docs/tex/manual/intro.tex, src/docs/tex/manual/manual.tex. src/docs/website/index.html. */ #define PETSC_VERSION_RELEASE 1 #define PETSC_VERSION_MAJOR 2 #define PETSC_VERSION_MINOR 3 #define PETSC_VERSION_SUBMINOR 2 #define PETSC_VERSION_PATCH 10 #define PETSC_VERSION_DATE "September, 1, 2006" #define PETSC_VERSION_PATCH_DATE "Wed Mar 28 19:13:22 CDT 2007" #define PETSC_VERSION_HG "d7298c71db7f5e767f359ae35d33cab3bed44428" #define PETSC_AUTHOR_INFO "\ The PETSc Team\n\ petsc-maint@mcs.anl.gov\n\ http://www.mcs.anl.gov/petsc/\n" #if (PETSC_VERSION_RELEASE == 1) #define PetscGetVersion(version,len) (PetscSNPrintf(*(version),len,"Petsc Release Version %d.%d.%d, Patch %d, ", \ PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \ PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_PATCH_DATE), \ PetscStrcat(*(version)," HG revision: "),PetscStrcat(*(version),PETSC_VERSION_HG),0) #else #define PetscGetVersion(version,len) (PetscSNPrintf(*(version),len,"Petsc Development Version %d.%d.%d, Patch %d, ", \ PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR, \ PETSC_VERSION_PATCH),PetscStrcat(*(version),PETSC_VERSION_PATCH_DATE), \ PetscStrcat(*(version)," HG revision: "),PetscStrcat(*(version),PETSC_VERSION_HG),0) #endif /*MC PetscGetVersion - Gets the Petsc Version information in a string. Output Parameter: . version - version string Input Parameter: . len - length of the string Level: developer Usage: char version[256]; PetscGetVersion(&version,256); Fortran Note: This routine is not supported in Fortran. .seealso: PetscGetProgramName() M*/ PETSC_EXTERN_CXX_END #endif