mld2p4-2:

mlprec/mld_c_diag_solver.f90 mlprec/mld_d_diag_solver.f90 mlprec/mld_s_diag_solver.f90 mlprec/mld_z_diag_solver.f90 Fix diag%free: guard call to dv%free.
9 years ago · c631b77eb0
parent 3c6fc5d14d
commit c631b77eb0
4 changed files with 8 additions and 8 deletions
--- a/mlprec/mld_c_diag_solver.f90
+++ b/mlprec/mld_c_diag_solver.f90
@ -182,8 +182,8 @@ contains
    call psb_erractionsave(err_act)
    info = psb_success_

-    call sv%dv%free(info)
-        
+    if (allocated(sv%dv)) call sv%dv%free(info)
+    
    if (allocated(sv%d)) then 
      deallocate(sv%d,stat=info)
      if (info /= psb_success_) then 
--- a/mlprec/mld_d_diag_solver.f90
+++ b/mlprec/mld_d_diag_solver.f90
@ -182,8 +182,8 @@ contains
    call psb_erractionsave(err_act)
    info = psb_success_

-    call sv%dv%free(info)
-        
+    if (allocated(sv%dv)) call sv%dv%free(info)
+    
    if (allocated(sv%d)) then 
      deallocate(sv%d,stat=info)
      if (info /= psb_success_) then 
--- a/mlprec/mld_s_diag_solver.f90
+++ b/mlprec/mld_s_diag_solver.f90
@ -182,8 +182,8 @@ contains
    call psb_erractionsave(err_act)
    info = psb_success_

-    call sv%dv%free(info)
-        
+    if (allocated(sv%dv)) call sv%dv%free(info)
+    
    if (allocated(sv%d)) then 
      deallocate(sv%d,stat=info)
      if (info /= psb_success_) then 
--- a/mlprec/mld_z_diag_solver.f90
+++ b/mlprec/mld_z_diag_solver.f90
@ -182,8 +182,8 @@ contains
    call psb_erractionsave(err_act)
    info = psb_success_

-    call sv%dv%free(info)
-        
+    if (allocated(sv%dv)) call sv%dv%free(info)
+    
    if (allocated(sv%d)) then 
      deallocate(sv%d,stat=info)
      if (info /= psb_success_) then