2:  #include <petscsys.h>

  4: /*@C
  5:      PetscGetArchType - Returns a standardized architecture type for the machine
  6:      that is executing this routine.

  8:      Not Collective

 10:      Input Parameter:
 11: .    slen - length of string buffer

 13:      Output Parameter:
 14: .    str - string area to contain architecture name, should be at least
 15:            10 characters long. Name is truncated if string is not long enough.

 17:      Level: developer

 19:      Concepts: machine type
 20:      Concepts: architecture

 22:    Fortran Version:
 23:    In Fortran this routine has the format

 25: $       character*(10) str
 26: $       call PetscGetArchType(str,ierr)

 28: .seealso: PetscGetUserName(),PetscGetHostName()
 29: @*/
 30: PetscErrorCode  PetscGetArchType(char str[],size_t slen)
 31: {

 35: #if defined(PETSC_ARCH)
 36:   PetscStrncpy(str,PETSC_ARCH,slen-1);

 38:   str[slen-1] = 0;
 39: #else
 40: #error "$PETSC_ARCH/include/petscconf.h is missing PETSC_ARCH"
 41: #endif
 42:   return(0);
 43: }