diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90
index 6ae9cc07..287bc441 100644
--- a/prec/psb_c_bjacprec.f90
+++ b/prec/psb_c_bjacprec.f90
@@ -218,7 +218,6 @@ contains
   subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
 
     use psb_base_mod
-    use psb_prec_mod
     Implicit None
 
     type(psb_cspmat_type), intent(in), target :: a
diff --git a/prec/psb_cprecinit.f90 b/prec/psb_cprecinit.f90
index f1839cac..5662f67f 100644
--- a/prec/psb_cprecinit.f90
+++ b/prec/psb_cprecinit.f90
@@ -33,9 +33,9 @@ subroutine psb_cprecinit(p,ptype,info)
 
   use psb_base_mod
   use psb_prec_mod, psb_protect_name => psb_cprecinit
-  use psb_c_nullprec
-  use psb_c_diagprec
-  use psb_c_bjacprec
+  use psb_c_nullprec, only : psb_c_null_prec_type
+  use psb_c_diagprec, only : psb_c_diag_prec_type
+  use psb_c_bjacprec, only : psb_c_bjac_prec_type
   implicit none
 
   type(psb_cprec_type), intent(inout)    :: p
diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90
index e20acef9..ee601185 100644
--- a/prec/psb_d_bjacprec.f90
+++ b/prec/psb_d_bjacprec.f90
@@ -213,7 +213,6 @@ contains
   subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
 
     use psb_base_mod
-    use psb_prec_mod
     Implicit None
 
     type(psb_dspmat_type), intent(in), target :: a
diff --git a/prec/psb_dprecinit.f90 b/prec/psb_dprecinit.f90
index 75abc145..6fee7c52 100644
--- a/prec/psb_dprecinit.f90
+++ b/prec/psb_dprecinit.f90
@@ -33,9 +33,9 @@ subroutine psb_dprecinit(p,ptype,info)
 
   use psb_base_mod
   use psb_prec_mod, psb_protect_name => psb_dprecinit
-  use psb_d_nullprec
-  use psb_d_diagprec
-  use psb_d_bjacprec
+  use psb_d_nullprec, only : psb_d_null_prec_type
+  use psb_d_diagprec, only : psb_d_diag_prec_type
+  use psb_d_bjacprec, only : psb_d_bjac_prec_type
   implicit none
   type(psb_dprec_type), intent(inout)    :: p
   character(len=*), intent(in)           :: ptype
diff --git a/prec/psb_prec_mod.f90 b/prec/psb_prec_mod.f90
index c87bf08c..3541555d 100644
--- a/prec/psb_prec_mod.f90
+++ b/prec/psb_prec_mod.f90
@@ -106,16 +106,16 @@ module psb_prec_mod
       integer, intent(out)                   :: info
     end subroutine psb_dprecinit
     subroutine psb_cprecinit(prec,ptype,info)
-      use psb_base_mod
-      use psb_prec_type
+      use psb_base_mod, only  : psb_desc_type, psb_cspmat_type, psb_spk_
+      use psb_prec_type, only : psb_cprec_type
       implicit none
       type(psb_cprec_type), intent(inout)    :: prec
       character(len=*), intent(in)           :: ptype
       integer, intent(out)                   :: info
     end subroutine psb_cprecinit
     subroutine psb_zprecinit(prec,ptype,info)
-      use psb_base_mod
-      use psb_prec_type
+      use psb_base_mod, only  : psb_desc_type, psb_zspmat_type, psb_dpk_
+      use psb_prec_type, only : psb_zprec_type
       implicit none
       type(psb_zprec_type), intent(inout)    :: prec
       character(len=*), intent(in)           :: ptype
diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90
index 2f6f6186..2cf82813 100644
--- a/prec/psb_s_bjacprec.f90
+++ b/prec/psb_s_bjacprec.f90
@@ -212,7 +212,6 @@ contains
   subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
 
     use psb_base_mod
-    use psb_prec_mod
     Implicit None
 
     type(psb_sspmat_type), intent(in), target :: a
diff --git a/prec/psb_sprecinit.f90 b/prec/psb_sprecinit.f90
index 7661499c..e130a15e 100644
--- a/prec/psb_sprecinit.f90
+++ b/prec/psb_sprecinit.f90
@@ -33,9 +33,9 @@ subroutine psb_sprecinit(p,ptype,info)
 
   use psb_base_mod
   use psb_prec_mod, psb_protect_name => psb_sprecinit
-  use psb_s_nullprec
-  use psb_s_diagprec
-  use psb_s_bjacprec
+  use psb_s_nullprec, only : psb_s_null_prec_type
+  use psb_s_diagprec, only : psb_s_diag_prec_type
+  use psb_s_bjacprec, only : psb_s_bjac_prec_type
   implicit none
   type(psb_sprec_type), intent(inout)    :: p
   character(len=*), intent(in)           :: ptype
diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90
index c0c2b3dc..b2892167 100644
--- a/prec/psb_z_bjacprec.f90
+++ b/prec/psb_z_bjacprec.f90
@@ -218,7 +218,6 @@ contains
   subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
 
     use psb_base_mod
-    use psb_prec_mod
     Implicit None
 
     type(psb_zspmat_type), intent(in), target :: a
diff --git a/prec/psb_zprecinit.f90 b/prec/psb_zprecinit.f90
index c7e35bdd..df2de095 100644
--- a/prec/psb_zprecinit.f90
+++ b/prec/psb_zprecinit.f90
@@ -33,9 +33,9 @@ subroutine psb_zprecinit(p,ptype,info)
 
   use psb_base_mod
   use psb_prec_mod, psb_protect_name => psb_zprecinit
-  use psb_z_nullprec
-  use psb_z_diagprec
-  use psb_z_bjacprec
+  use psb_z_nullprec, only : psb_z_null_prec_type
+  use psb_z_diagprec, only : psb_z_diag_prec_type
+  use psb_z_bjacprec, only : psb_z_bjac_prec_type
   implicit none
 
   type(psb_zprec_type), intent(inout)    :: p