diff --git a/prec/psb_c_prec_mod.f90 b/prec/psb_c_prec_mod.f90
index dcaf0192..8d9c9d1d 100644
--- a/prec/psb_c_prec_mod.f90
+++ b/prec/psb_c_prec_mod.f90
@@ -34,24 +34,6 @@ module psb_c_prec_mod
   use psb_c_prec_type
   use psb_c_base_prec_mod
 
-  interface psb_precset
-    subroutine psb_cprecseti(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type
-      implicit none
-      type(psb_cprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what, val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_cprecseti
-    subroutine psb_cprecsetr(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type
-      implicit none
-      type(psb_cprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what
-      real(psb_spk_)                       :: val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_cprecsetr
-  end interface
-
   interface psb_ilu_fct
     subroutine psb_cilu_fct(a,l,u,d,info,blck)
       import :: psb_ipk_, psb_desc_type, psb_cspmat_type, &
diff --git a/prec/psb_d_prec_mod.f90 b/prec/psb_d_prec_mod.f90
index 4cb8a5b7..3f1a59d8 100644
--- a/prec/psb_d_prec_mod.f90
+++ b/prec/psb_d_prec_mod.f90
@@ -34,24 +34,6 @@ module psb_d_prec_mod
   use psb_d_prec_type
   use psb_d_base_prec_mod
 
-  interface psb_precset
-    subroutine psb_dprecseti(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type
-      implicit none
-      type(psb_dprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what, val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_dprecseti
-    subroutine psb_dprecsetr(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type
-      implicit none
-      type(psb_dprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what
-      real(psb_dpk_)                       :: val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_dprecsetr
-  end interface
-
   interface psb_ilu_fct
     subroutine psb_dilu_fct(a,l,u,d,info,blck)
       import :: psb_ipk_, psb_desc_type, psb_dspmat_type, &
diff --git a/prec/psb_s_prec_mod.f90 b/prec/psb_s_prec_mod.f90
index 1bc7f642..858db9ec 100644
--- a/prec/psb_s_prec_mod.f90
+++ b/prec/psb_s_prec_mod.f90
@@ -34,24 +34,6 @@ module psb_s_prec_mod
   use psb_s_prec_type
   use psb_s_base_prec_mod
 
-  interface psb_precset
-    subroutine psb_sprecseti(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type
-      implicit none
-      type(psb_sprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what, val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_sprecseti
-    subroutine psb_sprecsetr(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type
-      implicit none
-      type(psb_sprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what
-      real(psb_spk_)                       :: val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_sprecsetr
-  end interface
-
   interface psb_ilu_fct
     subroutine psb_silu_fct(a,l,u,d,info,blck)
       import :: psb_ipk_, psb_desc_type, psb_sspmat_type, &
diff --git a/prec/psb_z_prec_mod.f90 b/prec/psb_z_prec_mod.f90
index 59fee171..1f0909aa 100644
--- a/prec/psb_z_prec_mod.f90
+++ b/prec/psb_z_prec_mod.f90
@@ -34,24 +34,6 @@ module psb_z_prec_mod
   use psb_z_prec_type
   use psb_z_base_prec_mod
 
-  interface psb_precset
-    subroutine psb_zprecseti(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type
-      implicit none
-      type(psb_zprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what, val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_zprecseti
-    subroutine psb_zprecsetr(prec,what,val,info)
-      import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type
-      implicit none
-      type(psb_zprec_type), intent(inout)    :: prec
-      integer(psb_ipk_) :: what
-      real(psb_dpk_)                       :: val 
-      integer(psb_ipk_), intent(out)                   :: info
-    end subroutine psb_zprecsetr
-  end interface
-
   interface psb_ilu_fct
     subroutine psb_zilu_fct(a,l,u,d,info,blck)
       import :: psb_ipk_, psb_desc_type, psb_zspmat_type, &