Improve checks for SLU/SLUDIST %free()

5 years ago · a83ccc7f52
parent 32d550ed05
commit a83ccc7f52
6 changed files with 12 additions and 20 deletions
--- a/mlprec/mld_c_slu_solver.F90
+++ b/mlprec/mld_c_slu_solver.F90
@ -332,9 +332,8 @@ contains

    call psb_erractionsave(err_act)

-    if (c_associated(sv%lufactors)) then 
-      info = mld_cslu_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_cslu_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    if (info /= psb_success_) goto 9999

--- a/mlprec/mld_d_slu_solver.F90
+++ b/mlprec/mld_d_slu_solver.F90
@ -332,9 +332,8 @@ contains

    call psb_erractionsave(err_act)

-    if (c_associated(sv%lufactors)) then 
-      info = mld_dslu_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_dslu_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    if (info /= psb_success_) goto 9999

--- a/mlprec/mld_d_sludist_solver.F90
+++ b/mlprec/mld_d_sludist_solver.F90
@ -343,10 +343,8 @@ contains

    call psb_erractionsave(err_act)

-    
-    if (c_associated(sv%lufactors)) then 
-      info = mld_dsludist_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_dsludist_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    
    if (info /= psb_success_) goto 9999
--- a/mlprec/mld_s_slu_solver.F90
+++ b/mlprec/mld_s_slu_solver.F90
@ -332,9 +332,8 @@ contains

    call psb_erractionsave(err_act)

-    if (c_associated(sv%lufactors)) then 
-      info = mld_sslu_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_sslu_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    if (info /= psb_success_) goto 9999

--- a/mlprec/mld_z_slu_solver.F90
+++ b/mlprec/mld_z_slu_solver.F90
@ -332,9 +332,8 @@ contains

    call psb_erractionsave(err_act)

-    if (c_associated(sv%lufactors)) then 
-      info = mld_zslu_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_zslu_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    if (info /= psb_success_) goto 9999

--- a/mlprec/mld_z_sludist_solver.F90
+++ b/mlprec/mld_z_sludist_solver.F90
@ -343,10 +343,8 @@ contains

    call psb_erractionsave(err_act)

-    
-    if (c_associated(sv%lufactors)) then 
-      info = mld_zsludist_free(sv%lufactors)
-    end if
+    info = psb_success_ 
+    if (c_associated(sv%lufactors)) info = mld_zsludist_free(sv%lufactors)
    sv%lufactors = c_null_ptr
    
    if (info /= psb_success_) goto 9999