1*27710113SBarry Smith #include <petscsys.h> 2*27710113SBarry Smith /*@C 3*27710113SBarry Smith PetscGetVersion - Gets the PETSc version information in a string. 4*27710113SBarry Smith 5*27710113SBarry Smith Input Parameter: 6*27710113SBarry Smith . len - length of the string 7*27710113SBarry Smith 8*27710113SBarry Smith Output Parameter: 9*27710113SBarry Smith . version - version string 10*27710113SBarry Smith 11*27710113SBarry Smith Level: developer 12*27710113SBarry Smith 13*27710113SBarry Smith Fortran Note: 14*27710113SBarry Smith This routine is not supported in Fortran. 15*27710113SBarry Smith 16*27710113SBarry Smith Developer Note: The version information is also listed in 17*27710113SBarry Smith $ src/docs/tex/manual/intro.tex, 18*27710113SBarry Smith $ src/docs/tex/manual/manual.tex. 19*27710113SBarry Smith $ src/docs/website/index.html. 20*27710113SBarry Smith 21*27710113SBarry Smith .seealso: PetscGetProgramName() 22*27710113SBarry Smith 23*27710113SBarry Smith @*/ 24*27710113SBarry Smith 25*27710113SBarry Smith #undef __FUNCT__ 26*27710113SBarry Smith #define __FUNCT__ "PetscGetVersion" 27*27710113SBarry Smith PetscErrorCode PetscGetVersion(char version[], size_t len) 28*27710113SBarry Smith { 29*27710113SBarry Smith PetscErrorCode ierr; 30*27710113SBarry Smith #if (PETSC_VERSION_RELEASE == 1) 31*27710113SBarry Smith ierr = PetscSNPrintf(version,len,"Petsc Release Version %d.%d.%d, Patch %d, %s ",PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR,PETSC_VERSION_PATCH,PETSC_VERSION_PATCH_DATE);CHKERRQ(ierr); 32*27710113SBarry Smith #else 33*27710113SBarry Smith ierr = PetscSNPrintf(version,len,"Petsc Development HG revision: %s HG Date: %s",PETSC_VERSION_HG, PETSC_VERSION_DATE_HG);CHKERRQ(ierr); 34*27710113SBarry Smith #endif 35*27710113SBarry Smith PetscFunctionReturn(0); 36*27710113SBarry Smith } 37*27710113SBarry Smith 38*27710113SBarry Smith 39