@@ -94,7 +94,6 @@ ParU_Ret paru_exec_tasks_seq(int64_t t, int64_t *task_num_child, paru_work *Work
94
94
ParU_Ret paru_exec_tasks (int64_t t, int64_t *task_num_child, int64_t &chain_task,
95
95
paru_work *Work, ParU_Numeric *Num)
96
96
{
97
- DEBUGLEVEL (0 ); // FIXME
98
97
ParU_Symbolic *Sym = Work->Sym ;
99
98
int64_t *task_parent = Sym->task_parent ;
100
99
int64_t daddy = task_parent[t];
@@ -193,7 +192,6 @@ ParU_Ret paru_exec_tasks(int64_t t, int64_t *task_num_child, int64_t &chain_task
193
192
ParU_Ret ParU_Factorize (cholmod_sparse *A, ParU_Symbolic *Sym,
194
193
ParU_Numeric **Num_handle, ParU_Control *user_Control)
195
194
{
196
- DEBUGLEVEL (0 ); // FIXME
197
195
PARU_DEFINE_PRLEVEL;
198
196
#ifndef NTIME
199
197
double my_start_time = PARU_OPENMP_GET_WTIME;
@@ -348,7 +346,6 @@ ParU_Ret ParU_Factorize(cholmod_sparse *A, ParU_Symbolic *Sym,
348
346
// Use the sequential factorization unconditionally in that case.
349
347
if (task_Q.size () * 2 > Control->paru_max_threads )
350
348
{
351
- printf (" Parallel:\n " ) ; // FIXME
352
349
PRLEVEL (1 , (" Parallel\n " ));
353
350
// chekcing user input
354
351
PRLEVEL (1 , (" Control: max_th=" LD " scale=" LD " piv_toler=%lf "
@@ -373,13 +370,11 @@ ParU_Ret ParU_Factorize(cholmod_sparse *A, ParU_Symbolic *Sym,
373
370
int64_t start = 0 ;
374
371
PRLEVEL (
375
372
1 , (" %% size=" LD " , steps =" LD " , stages =" LD " \n " , size, steps, stages));
376
- printf (" stages " LD " \n " , stages) ; // FIXME
377
373
378
374
for (int64_t ii = 0 ; ii < stages; ii++)
379
375
{
380
376
if (start >= size) break ;
381
377
int64_t end = start + steps > size ? size : start + steps;
382
- printf (" stage " LD " \n " , ii) ; // FIXME
383
378
PRLEVEL (1 , (" %% doing Queue tasks <" LD " ," LD " >\n " , start, end));
384
379
#pragma omp parallel proc_bind(spread) \
385
380
num_threads (Control->paru_max_threads )
@@ -417,7 +412,6 @@ ParU_Ret ParU_Factorize(cholmod_sparse *A, ParU_Symbolic *Sym,
417
412
{
418
413
#pragma omp atomic write
419
414
Work->naft = 1 ;
420
- printf (" remaining " LD " \n " , chain_task) ; // FIXME
421
415
PRLEVEL (1 , (" Chain_taskd " LD " has remained\n " , chain_task));
422
416
info = paru_exec_tasks_seq (chain_task, task_num_child, Work, Num);
423
417
}
@@ -461,7 +455,6 @@ ParU_Ret ParU_Factorize(cholmod_sparse *A, ParU_Symbolic *Sym,
461
455
// finalize the permutation
462
456
// --------------------------------------------------------------------------
463
457
464
- printf (" finalize permutation\n " ) ; // FIXME
465
458
PRLEVEL (1 , (" finalize permutation\n " ));
466
459
info = paru_finalize_perm (Sym, Num); // to form the final permutation
467
460
paru_free_work (Sym, Work); // free the work DS
0 commit comments