Add fclose() in pxdrive3d1.

xiaoyeli · Sep 14, 2021 · 7375880 · 7375880
1 parent 021946b
commit 7375880
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/EXAMPLE/pddrive3d1.c b/EXAMPLE/pddrive3d1.c
@@ -396,6 +396,7 @@ main (int argc, char *argv[])
     dScalePermstructFree (&ScalePermstruct);
     dLUstructFree (&LUstruct);
     PStatFree (&stat);
+    fclose(fp);
 
     /* ------------------------------------------------------------
        RELEASE THE SUPERLU PROCESS GRID.

diff --git a/EXAMPLE/psdrive3d1.c b/EXAMPLE/psdrive3d1.c
@@ -396,6 +396,7 @@ main (int argc, char *argv[])
     sScalePermstructFree (&ScalePermstruct);
     sLUstructFree (&LUstruct);
     PStatFree (&stat);
+    fclose(fp);
 
     /* ------------------------------------------------------------
        RELEASE THE SUPERLU PROCESS GRID.

diff --git a/EXAMPLE/pzdrive3d1.c b/EXAMPLE/pzdrive3d1.c
@@ -396,6 +396,7 @@ main (int argc, char *argv[])
     zScalePermstructFree (&ScalePermstruct);
     zLUstructFree (&LUstruct);
     PStatFree (&stat);
+    fclose(fp);
 
     /* ------------------------------------------------------------
        RELEASE THE SUPERLU PROCESS GRID.