fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improve checks for SLU/SLUDIST %free()

Browse Source
pizdaint-runs
Salvatore Filippone 5 years ago
parent 32d550ed05
commit a83ccc7f52
6 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File

5
mlprec/mld_c_slu_solver.F90
Unescape Escape View File

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

5
mlprec/mld_d_slu_solver.F90
Unescape Escape View File

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

6
mlprec/mld_d_sludist_solver.F90
Unescape Escape View File

@ -343,10 +343,8 @@ contains
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_
if (c_associated(sv%lufactors)) then if (c_associated(sv%lufactors)) info = mld_dsludist_free(sv%lufactors)
info = mld_dsludist_free(sv%lufactors)
end if
sv%lufactors = c_null_ptr sv%lufactors = c_null_ptr
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

5
mlprec/mld_s_slu_solver.F90
Unescape Escape View File

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

5
mlprec/mld_z_slu_solver.F90
Unescape Escape View File

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

6
mlprec/mld_z_sludist_solver.F90
Unescape Escape View File

@ -343,10 +343,8 @@ contains
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_success_
if (c_associated(sv%lufactors)) then if (c_associated(sv%lufactors)) info = mld_zsludist_free(sv%lufactors)
info = mld_zsludist_free(sv%lufactors)
end if
sv%lufactors = c_null_ptr sv%lufactors = c_null_ptr
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999

Write Preview
Loading…
Cancel
Save