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

Fix free for jac_solver

Browse Source
maint-1.1
sfilippone 1 year ago
parent 1dcb542e4a
commit 5fbdfb1436
4 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
amgprec/amg_c_jac_solver.f90
Unescape Escape View File

@ -403,7 +403,10 @@ contains
info = psb_success_ info = psb_success_
call sv%a%free() call sv%a%free()
if (allocated(sv%dv)) then
call sv%dv%free(info) call sv%dv%free(info)
deallocate(sv%dv)
end if
if (allocated(sv%d)) deallocate(sv%d) if (allocated(sv%d)) deallocate(sv%d)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/amg_d_jac_solver.f90
Unescape Escape View File

@ -403,7 +403,10 @@ contains
info = psb_success_ info = psb_success_
call sv%a%free() call sv%a%free()
if (allocated(sv%dv)) then
call sv%dv%free(info) call sv%dv%free(info)
deallocate(sv%dv)
end if
if (allocated(sv%d)) deallocate(sv%d) if (allocated(sv%d)) deallocate(sv%d)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/amg_s_jac_solver.f90
Unescape Escape View File

@ -403,7 +403,10 @@ contains
info = psb_success_ info = psb_success_
call sv%a%free() call sv%a%free()
if (allocated(sv%dv)) then
call sv%dv%free(info) call sv%dv%free(info)
deallocate(sv%dv)
end if
if (allocated(sv%d)) deallocate(sv%d) if (allocated(sv%d)) deallocate(sv%d)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

3
amgprec/amg_z_jac_solver.f90
Unescape Escape View File

@ -403,7 +403,10 @@ contains
info = psb_success_ info = psb_success_
call sv%a%free() call sv%a%free()
if (allocated(sv%dv)) then
call sv%dv%free(info) call sv%dv%free(info)
deallocate(sv%dv)
end if
if (allocated(sv%d)) deallocate(sv%d) if (allocated(sv%d)) deallocate(sv%d)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)

Write Preview
Loading…
Cancel
Save