diff --git a/examples/fileread/mld_cexample_1lev.f90 b/examples/fileread/mld_cexample_1lev.f90
index 1b652efa..aee68054 100644
--- a/examples/fileread/mld_cexample_1lev.f90
+++ b/examples/fileread/mld_cexample_1lev.f90
@@ -302,7 +302,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, itmax
diff --git a/examples/fileread/mld_cexample_ml.f90 b/examples/fileread/mld_cexample_ml.f90
index b95c0617..973aceb1 100644
--- a/examples/fileread/mld_cexample_ml.f90
+++ b/examples/fileread/mld_cexample_ml.f90
@@ -346,7 +346,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, choice, itmax
diff --git a/examples/fileread/mld_dexample_1lev.f90 b/examples/fileread/mld_dexample_1lev.f90
index 126fa0ce..ae54ae7d 100644
--- a/examples/fileread/mld_dexample_1lev.f90
+++ b/examples/fileread/mld_dexample_1lev.f90
@@ -302,7 +302,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, itmax
diff --git a/examples/fileread/mld_dexample_ml.f90 b/examples/fileread/mld_dexample_ml.f90
index 6a3e6b1a..fef3521d 100644
--- a/examples/fileread/mld_dexample_ml.f90
+++ b/examples/fileread/mld_dexample_ml.f90
@@ -346,7 +346,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, choice, itmax
diff --git a/examples/fileread/mld_sexample_1lev.f90 b/examples/fileread/mld_sexample_1lev.f90
index 899c8734..064bf391 100644
--- a/examples/fileread/mld_sexample_1lev.f90
+++ b/examples/fileread/mld_sexample_1lev.f90
@@ -302,7 +302,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, itmax
diff --git a/examples/fileread/mld_sexample_ml.f90 b/examples/fileread/mld_sexample_ml.f90
index 88deffad..39bf62de 100644
--- a/examples/fileread/mld_sexample_ml.f90
+++ b/examples/fileread/mld_sexample_ml.f90
@@ -346,7 +346,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, choice, itmax
diff --git a/examples/fileread/mld_zexample_1lev.f90 b/examples/fileread/mld_zexample_1lev.f90
index 0fc10b7a..7c695e8b 100644
--- a/examples/fileread/mld_zexample_1lev.f90
+++ b/examples/fileread/mld_zexample_1lev.f90
@@ -302,7 +302,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, itmax
diff --git a/examples/fileread/mld_zexample_ml.f90 b/examples/fileread/mld_zexample_ml.f90
index b711b9f4..e4c92d80 100644
--- a/examples/fileread/mld_zexample_ml.f90
+++ b/examples/fileread/mld_zexample_ml.f90
@@ -346,7 +346,6 @@ contains
   !
   subroutine get_parms(ictxt,mtrx,rhs,filefmt,choice,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: ictxt, choice, itmax
diff --git a/examples/pdegen/mld_dexample_1lev.f90 b/examples/pdegen/mld_dexample_1lev.f90
index d26d4887..f4029ac5 100644
--- a/examples/pdegen/mld_dexample_1lev.f90
+++ b/examples/pdegen/mld_dexample_1lev.f90
@@ -1,3 +1,4 @@
+
 !   
 !   
 !                             MLD2P4  version 2.2
@@ -229,7 +230,6 @@ contains
   !
   subroutine get_parms(ictxt,idim,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: idim, ictxt, itmax
diff --git a/examples/pdegen/mld_dexample_ml.f90 b/examples/pdegen/mld_dexample_ml.f90
index 1895b6f1..ce2debbb 100644
--- a/examples/pdegen/mld_dexample_ml.f90
+++ b/examples/pdegen/mld_dexample_ml.f90
@@ -281,7 +281,6 @@ contains
   !
   subroutine get_parms(ictxt,choice,idim,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: choice, idim, ictxt, itmax
diff --git a/examples/pdegen/mld_sexample_1lev.f90 b/examples/pdegen/mld_sexample_1lev.f90
index 40cc13e0..848a8442 100644
--- a/examples/pdegen/mld_sexample_1lev.f90
+++ b/examples/pdegen/mld_sexample_1lev.f90
@@ -1,3 +1,4 @@
+
 !   
 !   
 !                             MLD2P4  version 2.2
@@ -229,7 +230,6 @@ contains
   !
   subroutine get_parms(ictxt,idim,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: idim, ictxt, itmax
diff --git a/examples/pdegen/mld_sexample_ml.f90 b/examples/pdegen/mld_sexample_ml.f90
index c65176d8..522bc25a 100644
--- a/examples/pdegen/mld_sexample_ml.f90
+++ b/examples/pdegen/mld_sexample_ml.f90
@@ -281,7 +281,6 @@ contains
   !
   subroutine get_parms(ictxt,choice,idim,itmax,tol)
 
-    use psb_base_mod
     implicit none
 
     integer             :: choice, idim, ictxt, itmax
diff --git a/tests/fileread/mld_cf_sample.f90 b/tests/fileread/mld_cf_sample.f90
index 490e460a..275604b4 100644
--- a/tests/fileread/mld_cf_sample.f90
+++ b/tests/fileread/mld_cf_sample.f90
@@ -596,7 +596,6 @@ contains
   !
   subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt
diff --git a/tests/fileread/mld_df_sample.f90 b/tests/fileread/mld_df_sample.f90
index c40f083b..302e8b74 100644
--- a/tests/fileread/mld_df_sample.f90
+++ b/tests/fileread/mld_df_sample.f90
@@ -596,7 +596,6 @@ contains
   !
   subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt
diff --git a/tests/fileread/mld_sf_sample.f90 b/tests/fileread/mld_sf_sample.f90
index f2a9b7b6..a5547dc1 100644
--- a/tests/fileread/mld_sf_sample.f90
+++ b/tests/fileread/mld_sf_sample.f90
@@ -596,7 +596,6 @@ contains
   !
   subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt
diff --git a/tests/fileread/mld_zf_sample.f90 b/tests/fileread/mld_zf_sample.f90
index 9fdcb2dd..a45f258c 100644
--- a/tests/fileread/mld_zf_sample.f90
+++ b/tests/fileread/mld_zf_sample.f90
@@ -596,7 +596,6 @@ contains
   !
   subroutine get_parms(icontxt,mtrx,rhs,guess,sol,filefmt,part,afmt,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt
diff --git a/tests/pdegen/mld_d_pde2d.f90 b/tests/pdegen/mld_d_pde2d.f90
index d17c83c9..3e14779d 100644
--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@@ -897,7 +897,6 @@ contains
   !
   subroutine get_parms(icontxt,afmt,idim,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt, idim
diff --git a/tests/pdegen/mld_d_pde3d.f90 b/tests/pdegen/mld_d_pde3d.f90
index 6b4f491d..4b7d03c2 100644
--- a/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@@ -937,7 +937,6 @@ contains
   !
   subroutine get_parms(icontxt,afmt,idim,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt, idim
diff --git a/tests/pdegen/mld_s_pde2d.f90 b/tests/pdegen/mld_s_pde2d.f90
index e97e6210..b13c4462 100644
--- a/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@@ -897,7 +897,6 @@ contains
   !
   subroutine get_parms(icontxt,afmt,idim,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt, idim
diff --git a/tests/pdegen/mld_s_pde3d.f90 b/tests/pdegen/mld_s_pde3d.f90
index 3104cb02..d11e11ee 100644
--- a/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@@ -937,7 +937,6 @@ contains
   !
   subroutine get_parms(icontxt,afmt,idim,solve,prec)
 
-    use psb_base_mod
     implicit none
 
     integer(psb_ipk_)   :: icontxt, idim