diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90
index 1a9467ad..94171ba4 100644
--- a/base/modules/psb_desc_type.f90
+++ b/base/modules/psb_desc_type.f90
@@ -230,30 +230,30 @@ module psb_descriptor_type
     module procedure psb_cd_sizeof
   end interface psb_sizeof
 
-  interface psb_is_ok_desc
-    module procedure psb_is_ok_desc
-  end interface psb_is_ok_desc
-
-  interface psb_is_valid_desc
-    module procedure psb_is_valid_desc
-  end interface psb_is_valid_desc
-
-  interface psb_is_asb_desc
-    module procedure psb_is_asb_desc
-  end interface psb_is_asb_desc
-
-  interface psb_is_upd_desc
-    module procedure psb_is_upd_desc
-  end interface psb_is_upd_desc
-
-  interface psb_is_ovl_desc
-    module procedure psb_is_ovl_desc
-  end interface psb_is_ovl_desc
-
-  interface psb_is_bld_desc
-    module procedure psb_is_bld_desc
-  end interface psb_is_bld_desc
-
+!!$  interface psb_is_ok_desc
+!!$    module procedure psb_is_ok_desc
+!!$  end interface psb_is_ok_desc
+!!$
+!!$  interface psb_is_valid_desc
+!!$    module procedure psb_is_valid_desc
+!!$  end interface psb_is_valid_desc
+!!$
+!!$  interface psb_is_asb_desc
+!!$    module procedure psb_is_asb_desc
+!!$  end interface psb_is_asb_desc
+!!$
+!!$  interface psb_is_upd_desc
+!!$    module procedure psb_is_upd_desc
+!!$  end interface psb_is_upd_desc
+!!$
+!!$  interface psb_is_ovl_desc
+!!$    module procedure psb_is_ovl_desc
+!!$  end interface psb_is_ovl_desc
+!!$
+!!$  interface psb_is_bld_desc
+!!$    module procedure psb_is_bld_desc
+!!$  end interface psb_is_bld_desc
+!!$
 
   interface psb_move_alloc
     module procedure psb_cdtransfer
diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90
index 2f0731a5..8ef0ad97 100644
--- a/prec/psb_d_prec_type.f90
+++ b/prec/psb_d_prec_type.f90
@@ -243,14 +243,13 @@ contains
 
   end subroutine d_apply2v
 
-  subroutine d_apply1v(prec,x,desc_data,info,trans,work)
+  subroutine d_apply1v(prec,x,desc_data,info,trans)
     use psb_base_mod
     type(psb_desc_type),intent(in)    :: desc_data
     class(psb_dprec_type), intent(in) :: prec
     real(psb_dpk_),intent(inout)      :: x(:)
     integer, intent(out)              :: info
     character(len=1), optional        :: trans
-    real(psb_dpk_),intent(inout), optional, target :: work(:)
 
     character     :: trans_
     integer :: ictxt,np,me, err_act