Use the global dump to avoid multiple defines

pastix/sopalin/sequential_zgetrf.c

@@ -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);
 }

pastix/sopalin/sequential_zhetrf.c

@@ -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);
 }

pastix/sopalin/sequential_zpotrf.c

@@ -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);
 }

pastix/sopalin/sequential_zsytrf.c

@@ -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);
 }