fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2006-03-10 12:35:20 +00:00
parent fb11458b98
commit 22457aba9f
1 changed files with 0 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/prec/psb_dprecfree.f90
-22
View File
@@ -61,28 +61,6 @@ subroutine psb_dprecfree(p,info)
me=-1
!!$ if (associated(p%baseprec)) then
!!$ call base_precfree(p%baseprec,info)
!!$ if (info /= 0) then
!!$ info=4010
!!$ ch_err='base_precfree'
!!$ call psb_errpush(info,name,a_err=ch_err)
!!$ goto 9999
!!$ end if
!!$ deallocate(p%baseprec,stat=info)
!!$ nullify(p%baseprec)
!!$ endif
!!$
!!$ if (associated(p%mlprec)) then
!!$ ! Check this !!!!!
!!$ call base_precfree(p%mlprec,info)
!!$ if (info /= 0) then
!!$ write(0,*) 'From Base_precfree',info
!!$ end if
!!$ deallocate(p%mlprec,stat=info)
!!$ nullify(p%mlprec)
!!$ endif
if (associated(p%baseprecv)) then
do i=1,size(p%baseprecv)
call psb_base_precfree(p%baseprecv(i),info)