disabling openmp did not help, still stuck

jangorecki · jangorecki · commit c4298ccc4c37 · 2025-09-03T18:03:47.000+02:00
diff --git a/src/types.c b/src/types.c
@@ -87,7 +87,7 @@ SEXP testMsgR(SEXP status, SEXP x, SEXP k) {
     }
   }
 
-  //#pragma omp parallel for schedule(dynamic) collapse(2) num_threads(getDTthreads(nx*nk, false))
+  #pragma omp parallel for schedule(dynamic) collapse(2) num_threads(getDTthreads(nx*nk, false))
   for (R_len_t i=0; i<nx; i++) {
     for (R_len_t j=0; j<nk; j++) {
       testRaiseMsg(&vans[i*nk+j], istatus, verbose);

Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ SEXP testMsgR(SEXP status, SEXP x, SEXP k) {`
`87`	`87`	`}`
`88`	`88`	`}`
`89`	`89`
`90`		`- //#pragma omp parallel for schedule(dynamic) collapse(2) num_threads(getDTthreads(nx*nk, false))`
	`90`	`+ #pragma omp parallel for schedule(dynamic) collapse(2) num_threads(getDTthreads(nx*nk, false))`
`91`	`91`	`for (R_len_t i=0; i<nx; i++) {`
`92`	`92`	`for (R_len_t j=0; j<nk; j++) {`
`93`	`93`	`testRaiseMsg(&vans[i*nk+j], istatus, verbose);`