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

Call free_wrk inside lev%free. Fix prec%free_wrk.

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent 70a57f6ab0
commit 0082f4404b
8 changed files with 40 additions and 24 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/impl/level/mld_c_base_onelev_free.f90
Unescape Escape View File

@ -54,6 +54,9 @@ subroutine mld_c_base_onelev_free(lv,info)
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%free(info) & call lv%sm%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
call lv%ac%free() call lv%ac%free()
if (lv%desc_ac%is_ok()) & if (lv%desc_ac%is_ok()) &
& call lv%desc_ac%free(info) & call lv%desc_ac%free(info)

3
mlprec/impl/level/mld_d_base_onelev_free.f90
Unescape Escape View File

@ -54,6 +54,9 @@ subroutine mld_d_base_onelev_free(lv,info)
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%free(info) & call lv%sm%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
call lv%ac%free() call lv%ac%free()
if (lv%desc_ac%is_ok()) & if (lv%desc_ac%is_ok()) &
& call lv%desc_ac%free(info) & call lv%desc_ac%free(info)

3
mlprec/impl/level/mld_s_base_onelev_free.f90
Unescape Escape View File

@ -54,6 +54,9 @@ subroutine mld_s_base_onelev_free(lv,info)
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%free(info) & call lv%sm%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
call lv%ac%free() call lv%ac%free()
if (lv%desc_ac%is_ok()) & if (lv%desc_ac%is_ok()) &
& call lv%desc_ac%free(info) & call lv%desc_ac%free(info)

3
mlprec/impl/level/mld_z_base_onelev_free.f90
Unescape Escape View File

@ -54,6 +54,9 @@ subroutine mld_z_base_onelev_free(lv,info)
if (allocated(lv%sm)) & if (allocated(lv%sm)) &
& call lv%sm%free(info) & call lv%sm%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
call lv%ac%free() call lv%ac%free()
if (lv%desc_ac%is_ok()) & if (lv%desc_ac%is_ok()) &
& call lv%desc_ac%free(info) & call lv%desc_ac%free(info)

11
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -579,7 +579,6 @@ contains
end if end if
me=-1 me=-1
call prec%free_wrk(info)
if (allocated(prec%precv)) then if (allocated(prec%precv)) then
do i=1,size(prec%precv) do i=1,size(prec%precv)
call prec%precv(i)%free(info) call prec%precv(i)%free(info)
@ -910,10 +909,12 @@ contains
info = psb_err_internal_error_; goto 9999 info = psb_err_internal_error_; goto 9999
end if end if
nlev = size(prec%precv) if (allocated(prec%precv)) then
do level = 1, nlev nlev = size(prec%precv)
call prec%precv(level)%free_wrk(info) do level = 1, nlev
end do call prec%precv(level)%free_wrk(info)
end do
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

11
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -579,7 +579,6 @@ contains
end if end if
me=-1 me=-1
call prec%free_wrk(info)
if (allocated(prec%precv)) then if (allocated(prec%precv)) then
do i=1,size(prec%precv) do i=1,size(prec%precv)
call prec%precv(i)%free(info) call prec%precv(i)%free(info)
@ -910,10 +909,12 @@ contains
info = psb_err_internal_error_; goto 9999 info = psb_err_internal_error_; goto 9999
end if end if
nlev = size(prec%precv) if (allocated(prec%precv)) then
do level = 1, nlev nlev = size(prec%precv)
call prec%precv(level)%free_wrk(info) do level = 1, nlev
end do call prec%precv(level)%free_wrk(info)
end do
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

11
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -579,7 +579,6 @@ contains
end if end if
me=-1 me=-1
call prec%free_wrk(info)
if (allocated(prec%precv)) then if (allocated(prec%precv)) then
do i=1,size(prec%precv) do i=1,size(prec%precv)
call prec%precv(i)%free(info) call prec%precv(i)%free(info)
@ -910,10 +909,12 @@ contains
info = psb_err_internal_error_; goto 9999 info = psb_err_internal_error_; goto 9999
end if end if
nlev = size(prec%precv) if (allocated(prec%precv)) then
do level = 1, nlev nlev = size(prec%precv)
call prec%precv(level)%free_wrk(info) do level = 1, nlev
end do call prec%precv(level)%free_wrk(info)
end do
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

11
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -579,7 +579,6 @@ contains
end if end if
me=-1 me=-1
call prec%free_wrk(info)
if (allocated(prec%precv)) then if (allocated(prec%precv)) then
do i=1,size(prec%precv) do i=1,size(prec%precv)
call prec%precv(i)%free(info) call prec%precv(i)%free(info)
@ -910,10 +909,12 @@ contains
info = psb_err_internal_error_; goto 9999 info = psb_err_internal_error_; goto 9999
end if end if
nlev = size(prec%precv) if (allocated(prec%precv)) then
do level = 1, nlev nlev = size(prec%precv)
call prec%precv(level)%free_wrk(info) do level = 1, nlev
end do call prec%precv(level)%free_wrk(info)
end do
end if
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

Write Preview
Loading…
Cancel
Save