pirofti/ccubes-cl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

less verbose logs

Browse source
This commit is contained in:
Paul Irofti 2025-03-29 15:27:11 +02:00
parent feb82c35df
commit b426012542
1 changed files with 33 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/CCubes.c
View file

@ -220,6 +220,7 @@ SEXP CCubes(SEXP tt) {
if (PRINT_INFO) { if (PRINT_INFO) {
Rprintf("---k: %d\n", k); Rprintf("---k: %d\n", k);
} }
log_debug("ccubes", "---k: %d\n", k);
int n_tasks = nchoosek(ninputs, k); int n_tasks = nchoosek(ninputs, k);
if (n_tasks == 0) { if (n_tasks == 0) {
@ -270,6 +271,8 @@ SEXP CCubes(SEXP tt) {
for (int current_task = 0; current_task < current_batch; current_task++) { for (int current_task = 0; current_task < current_batch; current_task++) {
log_debug("ccubes", "Task %d", current_task); log_debug("ccubes", "Task %d", current_task);
if (!ctx->h_redundant[current_task]) {
/* LOG TASK */
log_debug_raw("ccubes", "redundant[%d]: %d\n", current_task, ctx->h_redundant[current_task]); log_debug_raw("ccubes", "redundant[%d]: %d\n", current_task, ctx->h_redundant[current_task]);
log_debug_raw("ccubes", "coverage[%d]:", current_task); log_debug_raw("ccubes", "coverage[%d]:", current_task);
@ -300,7 +303,7 @@ SEXP CCubes(SEXP tt) {
} }
log_debug_raw("ccubes", "\n"); log_debug_raw("ccubes", "\n");
if (!ctx->h_redundant[current_task]) {
int covsum = 0; int covsum = 0;
for (int i = 0; i < posrows; i++) { for (int i = 0; i < posrows; i++) {
covsum += ctx->h_coverage[current_task * posrows + i]; covsum += ctx->h_coverage[current_task * posrows + i];