fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
prec/impl/psb_cprecinit.f90
 prec/impl/psb_dprecinit.f90
 prec/impl/psb_sprecinit.f90
 prec/impl/psb_zprecinit.f90
 prec/psb_c_base_prec_mod.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_base_prec_mod.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90

Make free a method of PREC.
This commit is contained in:
Salvatore Filippone
2013-04-08 15:08:02 +00:00
parent 2dbd56b775
commit 10f92d3b90
25 changed files with 177 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_cprecinit.f90
+1 -1
View File
@@ -45,7 +45,7 @@ subroutine psb_cprecinit(p,ptype,info)
info = psb_success_
if (allocated(p%prec) ) then
call p%prec%precfree(info)
call p%prec%free(info)
if (info == psb_success_) deallocate(p%prec,stat=info)
if (info /= psb_success_) return
end if
prec/impl/psb_dprecinit.f90
+1 -1
View File
@@ -44,7 +44,7 @@ subroutine psb_dprecinit(p,ptype,info)
info = psb_success_
if (allocated(p%prec) ) then
call p%prec%precfree(info)
call p%prec%free(info)
if (info == psb_success_) deallocate(p%prec,stat=info)
if (info /= psb_success_) return
end if
prec/impl/psb_sprecinit.f90
+1 -1
View File
@@ -44,7 +44,7 @@ subroutine psb_sprecinit(p,ptype,info)
info = psb_success_
if (allocated(p%prec) ) then
call p%prec%precfree(info)
call p%prec%free(info)
if (info == psb_success_) deallocate(p%prec,stat=info)
if (info /= psb_success_) return
end if
prec/impl/psb_zprecinit.f90
+1 -1
View File
@@ -45,7 +45,7 @@ subroutine psb_zprecinit(p,ptype,info)
info = psb_success_
if (allocated(p%prec) ) then
call p%prec%precfree(info)
call p%prec%free(info)
if (info == psb_success_) deallocate(p%prec,stat=info)
if (info /= psb_success_) return
end if