fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3

Browse Source 
prec/psb_c_bjacprec.f90
 prec/psb_d_bjacprec.f90
 prec/psb_s_bjacprec.f90
 prec/psb_z_bjacprec.f90

Fix leaky free method.
This commit is contained in:
Salvatore Filippone
2012-05-09 16:04:06 +00:00
parent 7fdd0ef65b
commit dffb914829
4 changed files with 12 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_bjacprec.f90
+3 -27
View File
@@ -100,33 +100,6 @@ module psb_c_bjacprec
end subroutine psb_c_bjac_precseti
end interface
!!$ interface
!!$ subroutine psb_c_bjac_precsetr(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_
!!$ class(psb_c_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ real(psb_spk_), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_c_bjac_precsetr
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_c_bjac_precsetc(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_
!!$ class(psb_c_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ character(len=*), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_c_bjac_precsetc
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_c_bjac_precfree(prec,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_
!!$ class(psb_c_bjac_prec_type), intent(inout) :: prec
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_c_bjac_precfree
!!$ end interface
contains
@@ -284,6 +257,9 @@ contains
call prec%dv%free(info)
if (info == 0) deallocate(prec%dv,stat=info)
end if
if (allocated(prec%iprcparm)) then
deallocate(prec%iprcparm,stat=info)
end if
call psb_erractionrestore(err_act)
return
prec/psb_d_bjacprec.f90
+3 -27
View File
@@ -100,33 +100,6 @@ module psb_d_bjacprec
end subroutine psb_d_bjac_precseti
end interface
!!$ interface
!!$ subroutine psb_d_bjac_precsetr(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_
!!$ class(psb_d_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ real(psb_dpk_), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_d_bjac_precsetr
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_d_bjac_precsetc(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_
!!$ class(psb_d_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ character(len=*), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_d_bjac_precsetc
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_d_bjac_precfree(prec,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_
!!$ class(psb_d_bjac_prec_type), intent(inout) :: prec
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_d_bjac_precfree
!!$ end interface
contains
@@ -284,6 +257,9 @@ contains
call prec%dv%free(info)
if (info == 0) deallocate(prec%dv,stat=info)
end if
if (allocated(prec%iprcparm)) then
deallocate(prec%iprcparm,stat=info)
end if
call psb_erractionrestore(err_act)
return
prec/psb_s_bjacprec.f90
+3 -27
View File
@@ -100,33 +100,6 @@ module psb_s_bjacprec
end subroutine psb_s_bjac_precseti
end interface
!!$ interface
!!$ subroutine psb_s_bjac_precsetr(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_
!!$ class(psb_s_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ real(psb_spk_), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_s_bjac_precsetr
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_s_bjac_precsetc(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_
!!$ class(psb_s_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ character(len=*), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_s_bjac_precsetc
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_s_bjac_precfree(prec,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_
!!$ class(psb_s_bjac_prec_type), intent(inout) :: prec
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_s_bjac_precfree
!!$ end interface
contains
@@ -284,6 +257,9 @@ contains
call prec%dv%free(info)
if (info == 0) deallocate(prec%dv,stat=info)
end if
if (allocated(prec%iprcparm)) then
deallocate(prec%iprcparm,stat=info)
end if
call psb_erractionrestore(err_act)
return
prec/psb_z_bjacprec.f90
+3 -27
View File
@@ -100,33 +100,6 @@ module psb_z_bjacprec
end subroutine psb_z_bjac_precseti
end interface
!!$ interface
!!$ subroutine psb_z_bjac_precsetr(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_
!!$ class(psb_z_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ real(psb_dpk_), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_z_bjac_precsetr
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_z_bjac_precsetc(prec,what,val,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_
!!$ class(psb_z_bjac_prec_type),intent(inout) :: prec
!!$ integer(psb_ipk_), intent(in) :: what
!!$ character(len=*), intent(in) :: val
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_z_bjac_precsetc
!!$ end interface
!!$
!!$ interface
!!$ subroutine psb_z_bjac_precfree(prec,info)
!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_
!!$ class(psb_z_bjac_prec_type), intent(inout) :: prec
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_z_bjac_precfree
!!$ end interface
contains
@@ -284,6 +257,9 @@ contains
call prec%dv%free(info)
if (info == 0) deallocate(prec%dv,stat=info)
end if
if (allocated(prec%iprcparm)) then
deallocate(prec%iprcparm,stat=info)
end if
call psb_erractionrestore(err_act)
return