From 12e9dd8c5fd57f6a18d383ee03eb6853c0f0901b Mon Sep 17 00:00:00 2001
From: Nathalie Vialaneix <nathalie.vialaneix@inrae.fr>
Date: Sat, 17 Feb 2024 16:44:10 +0100
Subject: [PATCH] tentative fix of MAC/Clang issue #81

---
 src/adjClustFast.cpp | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/src/adjClustFast.cpp b/src/adjClustFast.cpp
index a25fbfb..a4aac1a 100644
--- a/src/adjClustFast.cpp
+++ b/src/adjClustFast.cpp
@@ -126,7 +126,11 @@ arma::mat matL_full_rowCumsums(const arma::mat & Csq, const int & h, int nthread
 	int p = Csq.n_rows;
 	arma::mat out(p, h+1, arma::fill::zeros);
 
-	#pragma omp parallel for num_threads(nthreads)
+  #if defined(_OPENMP)
+  #include <omp.h>
+  #pragma omp parallel for num_threads(nthreads)
+  #endif
+
 	for( int i=0; i<p; i++){
 		
 		int k = 0;
@@ -215,7 +219,11 @@ arma::mat matR_sparse_rowCumsums(const arma::SpMat<double> & Csq, const int & h,
 	int p = Csq.n_rows;
 	arma::mat out(p, h+1, arma::fill::zeros);
 
-	#pragma omp parallel for num_threads(nthreads)
+  #if defined(_OPENMP)
+  #include <omp.h>
+  #pragma omp parallel for num_threads(nthreads)
+  #endif
+
 	for( int i=0; i<p; i++){
 		
 		int k = 0;
@@ -250,7 +258,11 @@ arma::mat matR_full_rowCumsums(const arma::mat & Csq, const int & h, int nthread
 	int p = Csq.n_rows;
 	arma::mat out(p, h+1, arma::fill::zeros);
 
-	#pragma omp parallel for num_threads(nthreads)
+  #if defined(_OPENMP)
+  #include <omp.h>
+  #pragma omp parallel for num_threads(nthreads)
+  #endif
+
 	for( int i=0; i<p; i++){
 		
 		int k = 0;