mld2p4-2

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().
13 years ago · e2e8b05e33
parent d90f8820e7
commit e2e8b05e33
8 changed files with 8 additions and 8 deletions
--- a/mlprec/impl/mld_c_onelev_impl.f90
+++ b/mlprec/impl/mld_c_onelev_impl.f90
@ -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. 
--- a/mlprec/impl/mld_d_onelev_impl.f90
+++ b/mlprec/impl/mld_d_onelev_impl.f90
@ -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. 
--- a/mlprec/impl/mld_s_onelev_impl.f90
+++ b/mlprec/impl/mld_s_onelev_impl.f90
@ -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. 
--- a/mlprec/impl/mld_z_onelev_impl.f90
+++ b/mlprec/impl/mld_z_onelev_impl.f90
@ -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. 
--- a/mlprec/mld_c_prec_type.f90
+++ b/mlprec/mld_c_prec_type.f90
@ -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
--- a/mlprec/mld_d_prec_type.f90
+++ b/mlprec/mld_d_prec_type.f90
@ -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
--- a/mlprec/mld_s_prec_type.f90
+++ b/mlprec/mld_s_prec_type.f90
@ -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
--- a/mlprec/mld_z_prec_type.f90
+++ b/mlprec/mld_z_prec_type.f90
@ -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