1: #define PETSC_DLL 3: #include petscsys.h 7: /*@C 8: PetscGetArchType - Returns a standardized architecture type for the machine 9: that is executing this routine. 11: Not Collective 13: Input Parameter: 14: . slen - length of string buffer 16: Output Parameter: 17: . str - string area to contain architecture name, should be at least 18: 10 characters long. Name is truncated if string is not long enough. 20: Level: developer 22: Concepts: machine type 23: Concepts: architecture 25: @*/ 26: PetscErrorCode PetscGetArchType(char str[],size_t slen) 27: { 31: #if defined(PETSC_ARCH) 32: PetscStrncpy(str,PETSC_ARCH,slen-1); 33: str[slen-1] = 0; 34: #else 35: #error "$PETSC_ARCH/include/petscconf.h is missing PETSC_ARCH" 36: #endif 37: return(0); 38: }