2: #include <petscsys.h>
  4: /*@C
  5:      PetscGetArchType - Returns the $PETSC_ARCH that was used for this configuration of PETSc
  7:      Not Collective
  9:      Input Parameter:
 10: .    slen - length of string buffer
 12:      Output Parameter:
 13: .    str - string area to contain architecture name, should be at least
 14:            10 characters long. Name is truncated if string is not long enough.
 16:      Level: developer
 19:    Fortran Version:
 20:    In Fortran this routine has the format
 22: $       character*(10) str
 23: $       call PetscGetArchType(str,ierr)
 25:    Notes:
 26:     This name is arbitrary and need not correspond to the physical hardware or the software running on the system.
 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);
 37:   str[slen-1] = 0;
 38: #else
 39: #error "$PETSC_ARCH/include/petscconf.h is missing PETSC_ARCH"
 40: #endif
 41:   return(0);
 42: }