fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2016-07-20 13:10:27 +00:00
parent 3c6fc5d14d
commit c631b77eb0
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_diag_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_d_diag_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_s_diag_solver.f90
+2 -2
View File
@@ -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
mlprec/mld_z_diag_solver.f90
+2 -2
View File
@@ -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