1 static const char help[] = "Test ParMETIS handling of negative weights.\n\n"; 2 3 /* Test contributed by John Fettig */ 4 5 /* 6 * This file implements two tests for a bug reported in ParMETIS. These tests are not expected to pass without the 7 * patches in the PETSc distribution of ParMetis. See parmetis.py 8 * 9 * 10 * The bug was reported upstream, but has received no action so far. 11 * 12 * http://glaros.dtc.umn.edu/gkhome/node/837 13 * 14 */ 15 16 #include <petscsys.h> 17 #include <parmetis.h> 18 19 #define PetscCallPARMETIS(...) do { \ 20 int metis_ierr = __VA_ARGS__; \ 21 PetscCheck(metis_ierr != METIS_ERROR_INPUT,PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS error due to wrong inputs and/or options"); \ 22 PetscCheck(metis_ierr != METIS_ERROR_MEMORY,PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS error due to insufficient memory"); \ 23 PetscCheck(metis_ierr != METIS_ERROR,PETSC_COMM_SELF,PETSC_ERR_LIB,"ParMETIS general error"); \ 24 } while (0) 25 26 int main(int argc, char *argv[]) 27 { 28 PetscErrorCode ierr; 29 PetscBool flg; 30 PetscMPIInt rank, size; 31 idx_t ni,isize,*vtxdist, *xadj, *adjncy, *vwgt, *part; 32 idx_t wgtflag=0, numflag=0, ncon=1, ndims=3, edgecut=0; 33 idx_t options[5]; 34 PetscReal *xyz; 35 real_t *sxyz, *tpwgts, ubvec[1]; 36 MPI_Comm comm; 37 FILE *fp; 38 char fname[PETSC_MAX_PATH_LEN],prefix[PETSC_MAX_PATH_LEN] = ""; 39 size_t red; 40 41 PetscCall(PetscInitialize(&argc,&argv,NULL,help)); 42 #if defined(PETSC_USE_64BIT_INDICES) 43 PetscCall(PetscPrintf(PETSC_COMM_WORLD,"This example only works with 32 bit indices\n")); 44 PetscCall(PetscFinalize()); 45 return 0; 46 #endif 47 MPI_Comm_rank(PETSC_COMM_WORLD,&rank); 48 MPI_Comm_size(PETSC_COMM_WORLD,&size); 49 50 ierr = PetscOptionsBegin(PETSC_COMM_WORLD,NULL,"Parmetis test options","");PetscCall(ierr); 51 PetscCall(PetscOptionsString("-prefix","Path and prefix of test file","",prefix,prefix,sizeof(prefix),&flg)); 52 PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_USER,"Must specify -prefix"); 53 ierr = PetscOptionsEnd();PetscCall(ierr); 54 55 PetscCall(PetscMalloc1(size+1,&vtxdist)); 56 57 PetscCall(PetscSNPrintf(fname,sizeof(fname),"%s.%d.graph",prefix,rank)); 58 59 PetscCall(PetscFOpen(PETSC_COMM_SELF,fname,"r",&fp)); 60 61 red = fread(vtxdist, sizeof(idx_t), size+1, fp);PetscCheck(red == (size_t) (size+1),PETSC_COMM_SELF,PETSC_ERR_SYS,"Unable to read from data file"); 62 63 ni = vtxdist[rank+1]-vtxdist[rank]; 64 65 PetscCall(PetscMalloc1(ni+1,&xadj)); 66 67 red = fread(xadj, sizeof(idx_t), ni+1, fp);PetscCheck(red == (size_t) (ni+1),PETSC_COMM_SELF,PETSC_ERR_SYS,"Unable to read from data file"); 68 69 PetscCall(PetscMalloc1(xadj[ni],&adjncy)); 70 71 for (PetscInt i=0; i<ni; i++) { 72 red = fread(&adjncy[xadj[i]], sizeof(idx_t), xadj[i+1]-xadj[i], fp);PetscCheck(red == (size_t) (xadj[i+1]-xadj[i]),PETSC_COMM_SELF,PETSC_ERR_SYS,"Unable to read from data file"); 73 } 74 75 PetscCall(PetscFClose(PETSC_COMM_SELF,fp)); 76 77 PetscCall(PetscSNPrintf(fname,sizeof(fname),"%s.%d.graph.xyz",prefix,rank)); 78 PetscCall(PetscFOpen(PETSC_COMM_SELF,fname,"r",&fp)); 79 80 PetscCall(PetscMalloc3(ni*ndims,&xyz,ni,&part,size,&tpwgts)); 81 PetscCall(PetscMalloc1(ni*ndims,&sxyz)); 82 83 red = fread(xyz, sizeof(PetscReal), ndims*ni, fp);PetscCheck(red == (size_t) (ndims*ni),PETSC_COMM_SELF,PETSC_ERR_SYS,"Unable to read from data file"); 84 for (PetscInt i=0; i<ni*ndims; i++) sxyz[i] = (size_t) xyz[i]; 85 86 PetscCall(PetscFClose(PETSC_COMM_SELF,fp)); 87 88 vwgt = NULL; 89 90 for (PetscInt i = 0; i < size; i++) tpwgts[i] = 1. / size; 91 isize = size; 92 93 ubvec[0] = 1.05; 94 options[0] = 0; 95 options[1] = 2; 96 options[2] = 15; 97 options[3] = 0; 98 options[4] = 0; 99 100 PetscCallMPI(MPI_Comm_dup(MPI_COMM_WORLD, &comm)); 101 PetscCallPARMETIS(ParMETIS_V3_PartGeomKway(vtxdist, xadj, adjncy, vwgt, NULL, &wgtflag, &numflag, &ndims, sxyz, &ncon, &isize, tpwgts, ubvec,options, &edgecut, part, &comm)); 102 PetscCallMPI(MPI_Comm_free(&comm)); 103 104 PetscCall(PetscFree(vtxdist)); 105 PetscCall(PetscFree(xadj)); 106 PetscCall(PetscFree(adjncy)); 107 PetscCall(PetscFree3(xyz,part,tpwgts)); 108 PetscCall(PetscFree(sxyz)); 109 PetscCall(PetscFinalize()); 110 return 0; 111 } 112 113 /*TEST 114 115 build: 116 requires: parmetis 117 118 test: 119 nsize: 2 120 requires: parmetis datafilespath !complex double !defined(PETSC_USE_64BIT_INDICES) 121 args: -prefix ${DATAFILESPATH}/parmetis-test/testnp2 122 123 test: 124 suffix: 2 125 nsize: 4 126 requires: parmetis datafilespath !complex double !defined(PETSC_USE_64BIT_INDICES) 127 args: -prefix ${DATAFILESPATH}/parmetis-test/testnp4 128 129 TEST*/ 130