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-2

Browse Source 
mlprec/impl/mld_c_onelev_impl.f90
 mlprec/impl/mld_d_onelev_impl.f90
 mlprec/impl/mld_s_onelev_impl.f90
 mlprec/impl/mld_z_onelev_impl.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

Use desc%free().
This commit is contained in:
Salvatore Filippone
2012-05-09 16:59:21 +00:00
parent d90f8820e7
commit e2e8b05e33
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_onelev_impl.f90
+1 -1
View File
@@ -155,7 +155,7 @@ subroutine mld_c_base_onelev_free(lv,info)
call lv%ac%free()
if (lv%desc_ac%is_ok()) &
& call psb_cdfree(lv%desc_ac,info)
& call lv%desc_ac%free(info)
call lv%map%free(info)
! This is a pointer to something else, must not free it here.
mlprec/impl/mld_d_onelev_impl.f90
+1 -1
View File
@@ -155,7 +155,7 @@ subroutine mld_d_base_onelev_free(lv,info)
call lv%ac%free()
if (lv%desc_ac%is_ok()) &
& call psb_cdfree(lv%desc_ac,info)
& call lv%desc_ac%free(info)
call lv%map%free(info)
! This is a pointer to something else, must not free it here.
mlprec/impl/mld_s_onelev_impl.f90
+1 -1
View File
@@ -155,7 +155,7 @@ subroutine mld_s_base_onelev_free(lv,info)
call lv%ac%free()
if (lv%desc_ac%is_ok()) &
& call psb_cdfree(lv%desc_ac,info)
& call lv%desc_ac%free(info)
call lv%map%free(info)
! This is a pointer to something else, must not free it here.
mlprec/impl/mld_z_onelev_impl.f90
+1 -1
View File
@@ -155,7 +155,7 @@ subroutine mld_z_base_onelev_free(lv,info)
call lv%ac%free()
if (lv%desc_ac%is_ok()) &
& call psb_cdfree(lv%desc_ac,info)
& call lv%desc_ac%free(info)
call lv%map%free(info)
! This is a pointer to something else, must not free it here.
mlprec/mld_c_prec_type.f90
+1 -1
View File
@@ -387,7 +387,7 @@ contains
do i=1,size(p%precv)
call p%precv(i)%free(info)
end do
deallocate(p%precv)
deallocate(p%precv,stat=info)
end if
call psb_erractionrestore(err_act)
return
mlprec/mld_d_prec_type.f90
+1 -1
View File
@@ -387,7 +387,7 @@ contains
do i=1,size(p%precv)
call p%precv(i)%free(info)
end do
deallocate(p%precv)
deallocate(p%precv,stat=info)
end if
call psb_erractionrestore(err_act)
return
mlprec/mld_s_prec_type.f90
+1 -1
View File
@@ -387,7 +387,7 @@ contains
do i=1,size(p%precv)
call p%precv(i)%free(info)
end do
deallocate(p%precv)
deallocate(p%precv,stat=info)
end if
call psb_erractionrestore(err_act)
return
mlprec/mld_z_prec_type.f90
+1 -1
View File
@@ -387,7 +387,7 @@ contains
do i=1,size(p%precv)
call p%precv(i)%free(info)
end do
deallocate(p%precv)
deallocate(p%precv,stat=info)
end if
call psb_erractionrestore(err_act)
return