127710113SBarry Smith #include <petscsys.h> 227710113SBarry Smith /*@C 327710113SBarry Smith PetscGetVersion - Gets the PETSc version information in a string. 427710113SBarry Smith 527710113SBarry Smith Input Parameter: 627710113SBarry Smith . len - length of the string 727710113SBarry Smith 827710113SBarry Smith Output Parameter: 927710113SBarry Smith . version - version string 1027710113SBarry Smith 1127710113SBarry Smith Level: developer 1227710113SBarry Smith 1327710113SBarry Smith Fortran Note: 1427710113SBarry Smith This routine is not supported in Fortran. 1527710113SBarry Smith 1627710113SBarry Smith Developer Note: The version information is also listed in 1727710113SBarry Smith $ src/docs/tex/manual/intro.tex, 1827710113SBarry Smith $ src/docs/tex/manual/manual.tex. 1927710113SBarry Smith $ src/docs/website/index.html. 2027710113SBarry Smith 2127710113SBarry Smith .seealso: PetscGetProgramName() 2227710113SBarry Smith 2327710113SBarry Smith @*/ 2427710113SBarry Smith 2527710113SBarry Smith #undef __FUNCT__ 2627710113SBarry Smith #define __FUNCT__ "PetscGetVersion" 2727710113SBarry Smith PetscErrorCode PetscGetVersion(char version[], size_t len) 2827710113SBarry Smith { 2927710113SBarry Smith PetscErrorCode ierr; 3027710113SBarry Smith #if (PETSC_VERSION_RELEASE == 1) 31*e4643290SSatish Balay ierr = PetscSNPrintf(version,len,"Petsc Release Version %d.%d.%d, %s ",PETSC_VERSION_MAJOR,PETSC_VERSION_MINOR, PETSC_VERSION_SUBMINOR,PETSC_VERSION_DATE);CHKERRQ(ierr); 3227710113SBarry Smith #else 337078edc9SSatish Balay ierr = PetscSNPrintf(version,len,"Petsc Development GIT revision: %s GIT Date: %s",PETSC_VERSION_GIT, PETSC_VERSION_DATE_GIT);CHKERRQ(ierr); 3427710113SBarry Smith #endif 3527710113SBarry Smith PetscFunctionReturn(0); 3627710113SBarry Smith } 3727710113SBarry Smith 3827710113SBarry Smith 39