Fixes for parRSB API changes

Author: thilinarmtb

3rd_party/nek5000/core/partitioner.c

@@ -335,7 +335,7 @@ void fpartmesh(int *nell, long long *el, long long *vl, double *xyz,
   if (*loglevel > 2)
     print_part_stat(vl, nel, nv, cext);
 
-  ierr = parrsb_part_mesh(part, vl, xyz, NULL, nel, nv, &options, comm.c);
+  ierr = parrsb_part_mesh(part, vl, xyz, nel, nv, options, comm.c);
   if (ierr != 0)
     goto err;
 
@@ -370,42 +370,6 @@ void fpartmesh(int *nell, long long *el, long long *vl, double *xyz,
   *rtval = 1;
 }
 
-#define fpartmesh_greedy FORTRAN_UNPREFIXED(fpartmesh_greedy, FPARTMESH_GRREDY)
-
-void fpartmesh_greedy(int *const nel2, long long *const el2,
-                      long long *const vl2, const int *const nel1,
-                      const long long *const vl1, const int *const lelm_,
-                      const int *const nv, const int *const fcomm,
-                      int *const rtval) {
-#if defined(PARRSB)
-  const int lelm = *lelm_;
-
-  struct comm comm;
-#if defined(MPI)
-  comm_ext cext = MPI_Comm_f2c(*fcomm);
-#else
-  comm_ext cext = 0;
-#endif
-  comm_init(&comm, cext);
-
-  int *const part = (int *)malloc(lelm * sizeof(int));
-  parrsb_part_solid(part, vl2, *nel2, vl1, *nel1, *nv, comm.c);
-
-  int ierr = redistribute_data(nel2, vl2, el2, part, *nv, lelm, &comm);
-  if (ierr != 0)
-    goto err;
-  *rtval = 0;
-
-  free(part);
-  comm_free(&comm);
-  return;
-
-err:
-  fflush(stdout);
-  *rtval = 1;
-#endif
-}
-
 #define fprintpartstat FORTRAN_UNPREFIXED(printpartstat, PRINTPARTSTAT)
 
 void fprintpartstat(long long *vtx, int *nel, int *nv, int *comm) {

cmake/nek5000.cmake

@@ -71,7 +71,7 @@ set(PARRSB_DIR ${NEK5000_SOURCE_DIR}/3rd_party/parRSB/parRSB)
 FetchContent_Declare(
   parrsb_content
   GIT_REPOSITORY https://github.com/thilinarmtb/parRSB.git
-  GIT_TAG reorder_dofs
+  GIT_TAG reorder_dofs_v2
   SOURCE_DIR ${PARRSB_DIR}
 )
 FetchContent_GetProperties(parrsb_content)