Commit 68b3558e authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Put dump between defined to be able to reuse it easily

parent f09ad74e
......@@ -28,7 +28,10 @@ pastix_static_zgetrf( sopalin_data_t *sopalin_data )
pastix_int_t i, ii;
pastix_int_t tasknbr, *tasktab;
Task *t;
FILE *stream = fopen("facto.txt", "w");
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("getrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -50,6 +53,10 @@ pastix_static_zgetrf( sopalin_data_t *sopalin_data )
errorPrint("Taskid unknown for task %ld\n", (long)i);
EXIT(MOD_SOPALIN,INTERNAL_ERR);
}
#if defined(PASTIX_DEBUG_FACTO)
coeftab_zdumpcblk( cblk, stream );
#endif
}
fclose(stream);
}
......@@ -28,7 +28,10 @@ pastix_static_zhetrf( sopalin_data_t *sopalin_data )
pastix_int_t i, ii;
pastix_int_t tasknbr, *tasktab;
Task *t;
FILE *stream = fopen("facto.txt", "w");
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("hetrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -50,6 +53,10 @@ pastix_static_zhetrf( sopalin_data_t *sopalin_data )
errorPrint("Taskid unknown for task %ld\n", (long)i);
EXIT(MOD_SOPALIN,INTERNAL_ERR);
}
#if defined(PASTIX_DEBUG_FACTO)
coeftab_zdumpcblk( cblk, stream );
#endif
}
fclose(stream);
}
......@@ -28,7 +28,10 @@ pastix_static_zpotrf( sopalin_data_t *sopalin_data )
pastix_int_t i, ii;
pastix_int_t tasknbr, *tasktab;
Task *t;
FILE *stream = fopen("facto.txt", "w");
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("potrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -42,31 +45,18 @@ pastix_static_zpotrf( sopalin_data_t *sopalin_data )
switch( t->taskid )
{
case COMP_1D:
/* /\* Wait for contributions *\/ */
/* API_CALL(z_wait_contrib_comp_1d)(sopalin_data, me, i); */
/* z_ooc_wait_task(sopalin_data,i, me); */
/* z_ooc_wait_for_cblk(sopalin_data, TASK_CBLKNUM(i),me); */
/* /\* trace_begin_task1(thread_data->tracefile, *\/ */
/* /\* SOPALIN_CLOCK_TRACE, *\/ */
/* /\* SOLV_PROCNUM, me, *\/ */
/* /\* STATE_COMP1D, *\/ */
/* /\* TASK_PROC( i ), *\/ */
/* /\* SOLV_TASKTAB[i], *\/ */
/* /\* stolen ); *\/ */
/* Compute */
core_zpotrfsp1d( datacode, cblk, sopalin_data->diagthreshold);
/* fprintf(stream, "i=%ld, task=%ld, cblk=%ld\n", */
/* (long)ii, (long)i, (long)t->cblknum); */
/* coeftab_zdumpcblk( cblk, stream ); */
break;
default:
errorPrint("Taskid unknown for task %ld\n", (long)i);
EXIT(MOD_SOPALIN,INTERNAL_ERR);
}
#if defined(PASTIX_DEBUG_FACTO)
coeftab_zdumpcblk( cblk, stream );
#endif
}
fclose(stream);
}
......@@ -28,7 +28,10 @@ pastix_static_zsytrf( sopalin_data_t *sopalin_data )
pastix_int_t i, ii;
pastix_int_t tasknbr, *tasktab;
Task *t;
FILE *stream = fopen("facto.txt", "w");
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("sytrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -50,6 +53,10 @@ pastix_static_zsytrf( sopalin_data_t *sopalin_data )
errorPrint("Taskid unknown for task %ld\n", (long)i);
EXIT(MOD_SOPALIN,INTERNAL_ERR);
}
#if defined(PASTIX_DEBUG_FACTO)
coeftab_zdumpcblk( cblk, stream );
#endif
}
fclose(stream);
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment