Actual source code: arch.c

  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: }