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,7 +182,7 @@ 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)
--- a/mlprec/mld_d_diag_solver.f90
+++ b/mlprec/mld_d_diag_solver.f90
@ -182,7 +182,7 @@ 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)
--- a/mlprec/mld_s_diag_solver.f90
+++ b/mlprec/mld_s_diag_solver.f90
@ -182,7 +182,7 @@ 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)
--- a/mlprec/mld_z_diag_solver.f90
+++ b/mlprec/mld_z_diag_solver.f90
@ -182,7 +182,7 @@ 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)