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

For SLU and SLUDIST check for NULL pointers on FREE

Browse Source
This commit is contained in:
Salvatore Filippone
2020-05-11 15:36:21 +02:00
parent 5b9f76354b
commit f7059c285d
6 changed files with 24 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_c_slu_solver.F90
+4 -5
View File
@@ -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
+4 -5
View File
@@ -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
+4 -3
View File
@@ -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
+4 -5
View File
@@ -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
+4 -5
View File
@@ -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
+4 -3
View File
@@ -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