Commit 5b6e4652 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Use the global dump to avoid multiple defines

parent bdce7db9
......@@ -29,10 +29,6 @@ pastix_static_zgetrf( sopalin_data_t *sopalin_data )
pastix_int_t tasknbr, *tasktab;
Task *t;
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("getrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -53,10 +49,9 @@ 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 );
coeftab_zdump( datacode, "getrf_L.txt" );
#endif
}
fclose(stream);
}
......@@ -29,10 +29,6 @@ pastix_static_zhetrf( sopalin_data_t *sopalin_data )
pastix_int_t tasknbr, *tasktab;
Task *t;
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("hetrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -53,10 +49,9 @@ 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 );
coeftab_zdump( datacode, "hetrf_L.txt" );
#endif
}
fclose(stream);
}
......@@ -29,10 +29,6 @@ pastix_static_zpotrf( sopalin_data_t *sopalin_data )
pastix_int_t tasknbr, *tasktab;
Task *t;
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("potrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -53,10 +49,9 @@ pastix_static_zpotrf( 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 );
coeftab_zdump( datacode, "potrf_L.txt" );
#endif
}
fclose(stream);
}
......@@ -29,10 +29,6 @@ pastix_static_zsytrf( sopalin_data_t *sopalin_data )
pastix_int_t tasknbr, *tasktab;
Task *t;
#if defined(PASTIX_DEBUG_FACTO)
FILE *stream = fopen("sytrf_L.txt", "w");
#endif
tasknbr = datacode->ttsknbr[0];
tasktab = datacode->ttsktab[0];
......@@ -53,10 +49,9 @@ 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 );
coeftab_zdump( datacode, "sytrf_L.txt" );
#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