1e5c89e4eSSatish Balay #define PETSC_DLL 2e5c89e4eSSatish Balay 3d382aafbSBarry Smith #include "petscsys.h" /*I "petscsys.h" I*/ 4e5c89e4eSSatish Balay 5e5c89e4eSSatish Balay #undef __FUNCT__ 6e5c89e4eSSatish Balay #define __FUNCT__ "PetscGetArchType" 7e5c89e4eSSatish Balay /*@C 8e5c89e4eSSatish Balay PetscGetArchType - Returns a standardized architecture type for the machine 9e5c89e4eSSatish Balay that is executing this routine. 10e5c89e4eSSatish Balay 11e5c89e4eSSatish Balay Not Collective 12e5c89e4eSSatish Balay 13e5c89e4eSSatish Balay Input Parameter: 14e5c89e4eSSatish Balay . slen - length of string buffer 15e5c89e4eSSatish Balay 16e5c89e4eSSatish Balay Output Parameter: 17e5c89e4eSSatish Balay . str - string area to contain architecture name, should be at least 18e5c89e4eSSatish Balay 10 characters long. Name is truncated if string is not long enough. 19e5c89e4eSSatish Balay 20e5c89e4eSSatish Balay Level: developer 21e5c89e4eSSatish Balay 22e5c89e4eSSatish Balay Concepts: machine type 23e5c89e4eSSatish Balay Concepts: architecture 24e5c89e4eSSatish Balay 25e5c89e4eSSatish Balay @*/ 26*7087cfbeSBarry Smith PetscErrorCode PetscGetArchType(char str[],size_t slen) 27e5c89e4eSSatish Balay { 28e5c89e4eSSatish Balay PetscErrorCode ierr; 29e5c89e4eSSatish Balay 30e5c89e4eSSatish Balay PetscFunctionBegin; 3146bc77b6SBarry Smith #if defined(PETSC_ARCH) 3246bc77b6SBarry Smith ierr = PetscStrncpy(str,PETSC_ARCH,slen-1);CHKERRQ(ierr); 33e5c89e4eSSatish Balay str[slen-1] = 0; 34e5c89e4eSSatish Balay #else 3546bc77b6SBarry Smith #error "$PETSC_ARCH/include/petscconf.h is missing PETSC_ARCH" 36e5c89e4eSSatish Balay #endif 37e5c89e4eSSatish Balay PetscFunctionReturn(0); 38e5c89e4eSSatish Balay } 39e5c89e4eSSatish Balay 40