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 20 19 #define PETSC_VERSION_DATE "April, 26, 2005" 20 #define PETSC_VERSION_PATCH_DATE "June, 15, 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" 25 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 35 36 /*MC 37 PetscGetVersion - Gets the Petsc Version information in a string. 38 39 Output Parameter: 40 . version - version string 41 42 Level: developer 43 44 Usage: 45 char version[256]; 46 PetscGetVersion(&version); 47 48 Fortran Note: 49 This routine is not supported in Fortran. 50 51 .seealso: PetscGetProgramName() 52 53 M*/ 54 55 PETSC_EXTERN_CXX_END 56 #endif 57