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

mld2p4-NewNL:

Browse Source 
mlprec/impl/mld_c_base_smoother_impl.f90
 mlprec/impl/mld_c_onelev_impl.f90
 mlprec/impl/mld_d_base_smoother_impl.f90
 mlprec/impl/mld_d_onelev_impl.f90
 mlprec/impl/mld_s_base_smoother_impl.f90
 mlprec/impl/mld_s_onelev_impl.f90
 mlprec/impl/mld_z_base_smoother_impl.f90
 mlprec/impl/mld_z_onelev_impl.f90

Fix recursive deallocate calls.
This commit is contained in:
Salvatore Filippone
2012-04-30 10:18:31 +00:00
parent 9c4259c3d4
commit aab68f2bf3
8 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_base_smoother_impl.f90
+1 -1
View File
@@ -355,8 +355,8 @@ subroutine mld_c_base_smoother_free(sm,info)
if (allocated(sm%sv)) then
call sm%sv%free(info)
if (info == psb_success_) deallocate(sm%sv,stat=info)
end if
if (info == psb_success_) deallocate(sm%sv,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
mlprec/impl/mld_c_onelev_impl.f90
+2 -1
View File
@@ -150,7 +150,8 @@ subroutine mld_c_base_onelev_free(lv,info)
! that there may be inner objects containing C pointers,
! e.g. UMFPACK, SLU or CUDA stuff.
! We really need FINALs.
call lv%sm%free(info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
call lv%ac%free()
if (psb_is_ok_desc(lv%desc_ac)) &
mlprec/impl/mld_d_base_smoother_impl.f90
+1 -1
View File
@@ -355,8 +355,8 @@ subroutine mld_d_base_smoother_free(sm,info)
if (allocated(sm%sv)) then
call sm%sv%free(info)
if (info == psb_success_) deallocate(sm%sv,stat=info)
end if
if (info == psb_success_) deallocate(sm%sv,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
mlprec/impl/mld_d_onelev_impl.f90
+2 -1
View File
@@ -150,7 +150,8 @@ subroutine mld_d_base_onelev_free(lv,info)
! that there may be inner objects containing C pointers,
! e.g. UMFPACK, SLU or CUDA stuff.
! We really need FINALs.
call lv%sm%free(info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
call lv%ac%free()
if (psb_is_ok_desc(lv%desc_ac)) &
mlprec/impl/mld_s_base_smoother_impl.f90
+1 -1
View File
@@ -355,8 +355,8 @@ subroutine mld_s_base_smoother_free(sm,info)
if (allocated(sm%sv)) then
call sm%sv%free(info)
if (info == psb_success_) deallocate(sm%sv,stat=info)
end if
if (info == psb_success_) deallocate(sm%sv,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
mlprec/impl/mld_s_onelev_impl.f90
+2 -1
View File
@@ -150,7 +150,8 @@ subroutine mld_s_base_onelev_free(lv,info)
! that there may be inner objects containing C pointers,
! e.g. UMFPACK, SLU or CUDA stuff.
! We really need FINALs.
call lv%sm%free(info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
call lv%ac%free()
if (psb_is_ok_desc(lv%desc_ac)) &
mlprec/impl/mld_z_base_smoother_impl.f90
+1 -1
View File
@@ -355,8 +355,8 @@ subroutine mld_z_base_smoother_free(sm,info)
if (allocated(sm%sv)) then
call sm%sv%free(info)
if (info == psb_success_) deallocate(sm%sv,stat=info)
end if
if (info == psb_success_) deallocate(sm%sv,stat=info)
if (info /= psb_success_) then
info = psb_err_alloc_dealloc_
call psb_errpush(info,name)
mlprec/impl/mld_z_onelev_impl.f90
+2 -1
View File
@@ -150,7 +150,8 @@ subroutine mld_z_base_onelev_free(lv,info)
! that there may be inner objects containing C pointers,
! e.g. UMFPACK, SLU or CUDA stuff.
! We really need FINALs.
call lv%sm%free(info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
call lv%ac%free()
if (psb_is_ok_desc(lv%desc_ac)) &