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 1 18 #define PETSC_VERSION_PATCH 14 19 #define PETSC_VERSION_DATE "February, 3, 2006" 20 #define PETSC_VERSION_PATCH_DATE "unknown" 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,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)," BK revision: "),PetscStrcat(*(version),PETSC_VERSION_BK),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)," BK 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 Input Parameter: 46 . len - length of the string 47 48 Level: developer 49 50 Usage: 51 char version[256]; 52 PetscGetVersion(&version,256); 53 54 Fortran Note: 55 This routine is not supported in Fortran. 56 57 .seealso: PetscGetProgramName() 58 59 M*/ 60 61 PETSC_EXTERN_CXX_END 62 #endif 63