1 2 /* 3 We define the memory operations here. The reason we just do not use 4 the standard memory routines in the PETSc code is that on some machines 5 they are broken. 6 7 */ 8 #include <petsc/private/petscimpl.h> /*I "petscsys.h" I*/ 9 #include <petscbt.h> 10 #include <../src/sys/utils/ftn-kernels/fcopy.h> 11 12 /*@ 13 PetscMemcmp - Compares two byte streams in memory. 14 15 Not Collective 16 17 Input Parameters: 18 + str1 - Pointer to the first byte stream 19 . str2 - Pointer to the second byte stream 20 - len - The length of the byte stream 21 (both str1 and str2 are assumed to be of length len) 22 23 Output Parameters: 24 . e - PETSC_TRUE if equal else PETSC_FALSE. 25 26 Level: intermediate 27 28 Note: 29 PetscArraycmp() is preferred 30 This routine is anologous to memcmp() 31 32 .seealso: `PetscMemcpy()`, `PetscMemcmp()`, `PetscArrayzero()`, `PetscMemzero()`, `PetscArraycmp()`, `PetscArraycpy()`, `PetscStrallocpy()`, 33 `PetscArraymove()` 34 @*/ 35 PetscErrorCode PetscMemcmp(const void *str1, const void *str2, size_t len, PetscBool *e) { 36 if (!len) { 37 // if e is a bad ptr I guess we just die here then? 38 *e = PETSC_TRUE; 39 return 0; 40 } 41 42 PetscFunctionBegin; 43 PetscValidPointer(str1, 1); 44 PetscValidPointer(str2, 2); 45 PetscValidBoolPointer(e, 4); 46 *e = memcmp((char *)str1, (char *)str2, len) ? PETSC_FALSE : PETSC_TRUE; 47 PetscFunctionReturn(0); 48 } 49 50 #if defined(PETSC_HAVE_HWLOC) 51 #include <petsc/private/petscimpl.h> 52 #include <hwloc.h> 53 54 /*@C 55 PetscProcessPlacementView - display the MPI process placement by core 56 57 Input Parameter: 58 . viewer - ASCII viewer to display the results on 59 60 Level: intermediate 61 62 Notes: 63 Requires that PETSc be installed with hwloc, for example using --download-hwloc 64 @*/ 65 PetscErrorCode PetscProcessPlacementView(PetscViewer viewer) { 66 PetscBool isascii; 67 PetscMPIInt rank; 68 hwloc_bitmap_t set; 69 hwloc_topology_t topology; 70 71 PetscFunctionBegin; 72 PetscValidHeaderSpecific(viewer, PETSC_VIEWER_CLASSID, 1); 73 PetscCall(PetscObjectTypeCompare((PetscObject)viewer, PETSCVIEWERASCII, &isascii)); 74 PetscCheck(isascii, PetscObjectComm((PetscObject)viewer), PETSC_ERR_SUP, "Only ASCII viewer is supported"); 75 76 PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank)); 77 hwloc_topology_init(&topology); 78 hwloc_topology_load(topology); 79 set = hwloc_bitmap_alloc(); 80 81 PetscCallExternal(hwloc_get_proc_cpubind, topology, getpid(), set, HWLOC_CPUBIND_PROCESS); 82 PetscCall(PetscViewerASCIIPushSynchronized(viewer)); 83 PetscCall(PetscViewerASCIISynchronizedPrintf(viewer, "MPI rank %d Process id: %d coreid %d\n", rank, getpid(), hwloc_bitmap_first(set))); 84 PetscCall(PetscViewerFlush(viewer)); 85 hwloc_bitmap_free(set); 86 hwloc_topology_destroy(topology); 87 PetscFunctionReturn(0); 88 } 89 #endif 90