added flag to turn on experimental h1 cener elimination, currently not working correctly

src/adp/adp.c

@@ -768,9 +768,8 @@ clusters_t Heuristic1(global_context_t *ctx)
                  * use an array of locks, and compare and swap to actually gain control of the thing
                  *
                  * */
-                #pragma omp critical
-                {
 
+#ifdef EXPERIMENTAL_H1
                 int owner = foreign_owner(ctx, jidx);
                 idx_t jpos = jidx - ctx -> rank_idx_start[owner];
 
@@ -797,9 +796,8 @@ clusters_t Heuristic1(global_context_t *ctx)
                 }
 
                 state = h1_lock_free(ctx, win_locks, owner, jpos, state);
-                }
+#else
 
-                /*
                 #pragma omp critical (h1_centers_elimination)
                 {
                     int owner = foreign_owner(ctx, jidx);
@@ -824,8 +822,7 @@ clusters_t Heuristic1(global_context_t *ctx)
                     }
 
                     MPI_Win_unlock(owner, win_to_remove_mask);
-                }
-                */
+#endif
             }
         }
     }