For SLU and SLUDIST check for NULL pointers on FREE

mlprec/mld_c_slu_solver.F90

@@ -332,12 +332,11 @@ contains
 
     call psb_erractionsave(err_act)
 
-    
-    info = mld_cslu_free(sv%lufactors)
-    
-    if (info /= psb_success_) goto 9999
+    if (c_associated(sv%lufactors)) then 
+      info = mld_cslu_free(sv%lufactors)
+    end if
     sv%lufactors = c_null_ptr
-
+    if (info /= psb_success_) goto 9999
 
     call psb_erractionrestore(err_act)
     return

mlprec/mld_d_slu_solver.F90

@@ -332,12 +332,11 @@ contains
 
     call psb_erractionsave(err_act)
 
-    
-    info = mld_dslu_free(sv%lufactors)
-    
-    if (info /= psb_success_) goto 9999
+    if (c_associated(sv%lufactors)) then 
+      info = mld_dslu_free(sv%lufactors)
+    end if
     sv%lufactors = c_null_ptr
-
+    if (info /= psb_success_) goto 9999
 
     call psb_erractionrestore(err_act)
     return

mlprec/mld_d_sludist_solver.F90

@@ -344,11 +344,12 @@ contains
     call psb_erractionsave(err_act)
 
     
-    info = mld_dsludist_free(sv%lufactors)
+    if (c_associated(sv%lufactors)) then 
+      info = mld_dsludist_free(sv%lufactors)
+    end if
+    sv%lufactors = c_null_ptr
     
     if (info /= psb_success_) goto 9999
-    sv%lufactors = c_null_ptr
-
 
     call psb_erractionrestore(err_act)
     return

mlprec/mld_s_slu_solver.F90

@@ -332,12 +332,11 @@ contains
 
     call psb_erractionsave(err_act)
 
-    
-    info = mld_sslu_free(sv%lufactors)
-    
-    if (info /= psb_success_) goto 9999
+    if (c_associated(sv%lufactors)) then 
+      info = mld_sslu_free(sv%lufactors)
+    end if
     sv%lufactors = c_null_ptr
-
+    if (info /= psb_success_) goto 9999
 
     call psb_erractionrestore(err_act)
     return

mlprec/mld_z_slu_solver.F90

@@ -332,12 +332,11 @@ contains
 
     call psb_erractionsave(err_act)
 
-    
-    info = mld_zslu_free(sv%lufactors)
-    
-    if (info /= psb_success_) goto 9999
+    if (c_associated(sv%lufactors)) then 
+      info = mld_zslu_free(sv%lufactors)
+    end if
     sv%lufactors = c_null_ptr
-
+    if (info /= psb_success_) goto 9999
 
     call psb_erractionrestore(err_act)
     return

mlprec/mld_z_sludist_solver.F90

@@ -344,11 +344,12 @@ contains
     call psb_erractionsave(err_act)
 
     
-    info = mld_zsludist_free(sv%lufactors)
+    if (c_associated(sv%lufactors)) then 
+      info = mld_zsludist_free(sv%lufactors)
+    end if
+    sv%lufactors = c_null_ptr
     
     if (info /= psb_success_) goto 9999
-    sv%lufactors = c_null_ptr
-
 
     call psb_erractionrestore(err_act)
     return