1 2 #if !defined(__PETSCVERSION_H) 3 #define __PETSCVERSION_H 4 PETSC_EXTERN_CXX_BEGIN 5 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 0 15 #define PETSC_VERSION_MAJOR 2 16 #define PETSC_VERSION_MINOR 3 17 #define PETSC_VERSION_SUBMINOR 0 18 #define PETSC_VERSION_PATCH 41 19 #define PETSC_VERSION_DATE "April, 26, 2005" 20 #define PETSC_VERSION_PATCH_DATE "November, 1, 2005" 21 #define PETSC_VERSION_BK "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" 26 27 #if (PETSC_VERSION_RELEASE == 1) 28 #define PetscGetVersion(version) (sprintf(*(version),"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),"\nBK revision: "),PetscStrcat(*(version),PETSC_VERSION_BK),0) 32 #else 33 #define PetscGetVersion(version) (sprintf(*(version),"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),"\nBK revision: "),PetscStrcat(*(version),PETSC_VERSION_BK),0) 37 #endif 38 39 /*MC 40 PetscGetVersion - Gets the Petsc Version information in a string. 41 42 Output Parameter: 43 . version - version string 44 45 Level: developer 46 47 Usage: 48 char version[256]; 49 PetscGetVersion(&version); 50 51 Fortran Note: 52 This routine is not supported in Fortran. 53 54 .seealso: PetscGetProgramName() 55 56 M*/ 57 58 PETSC_EXTERN_CXX_END 59 #endif 60