mld2p4-2:

mlprec/mld_base_prec_type.F90
 mlprec/mld_c_base_solver_mod.f90
 mlprec/mld_c_prec_type.f90
 mlprec/mld_c_slu_solver.f90
 mlprec/mld_c_sludist_solver.f90
 mlprec/mld_c_umf_solver.f90
 mlprec/mld_d_base_solver_mod.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_d_slu_solver.f90
 mlprec/mld_d_sludist_solver.f90
 mlprec/mld_d_umf_solver.f90
 mlprec/mld_s_base_solver_mod.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_s_slu_solver.f90
 mlprec/mld_s_sludist_solver.f90
 mlprec/mld_s_umf_solver.f90
 mlprec/mld_z_base_solver_mod.f90
 mlprec/mld_z_prec_type.f90
 mlprec/mld_z_slu_solver.f90
 mlprec/mld_z_sludist_solver.f90
 mlprec/mld_z_umf_solver.f90

fine-tuning of USEd variables.

mlprec/mld_base_prec_type.F90

@@ -70,7 +70,12 @@ module mld_base_prec_type
        & psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, &
        & psb_nohalo_, psb_square_root_, psb_toupper, psb_root_,&
        & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,&
-       & psb_cd_get_context, psb_info
+       & psb_cd_get_context, psb_info, psb_min, psb_sum, &
+       & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
+       & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
+       & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
+       & psb_err_missing_override_method_
+
   ! 
   ! Version numbers
   !

mlprec/mld_c_base_solver_mod.f90

@@ -54,11 +54,8 @@
 module mld_c_base_solver_mod
 
   use mld_base_prec_type
-  use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_long_int_k_, &
-       & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
-       & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
-       & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
-       & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, psb_spk_
+  use psb_base_mod, only : psb_cspmat_type, &
+       & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat
   !
   ! 
   ! Type: mld_T_base_solver_type.

mlprec/mld_c_prec_type.f90

@@ -207,7 +207,7 @@ contains
   end function mld_c_get_compl
   
   subroutine mld_c_cmp_compl(prec) 
-    use psb_base_mod, only : psb_min, psb_sum
+
     implicit none 
     class(mld_cprec_type), intent(inout) :: prec
     
@@ -360,8 +360,6 @@ contains
   !
   subroutine mld_cprec_free(p,info)
   
-    use psb_base_mod
-    
     implicit none
     
     ! Arguments
@@ -404,7 +402,7 @@ contains
   ! Top level methods. 
   !
   subroutine mld_c_apply2_vect(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_cprec_type), intent(inout)  :: prec
     type(psb_c_vect_type),intent(inout)   :: x
@@ -440,7 +438,7 @@ contains
   end subroutine mld_c_apply2_vect
 
   subroutine mld_c_apply1_vect(prec,x,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_cprec_type), intent(inout)  :: prec
     type(psb_c_vect_type),intent(inout)   :: x
@@ -476,7 +474,7 @@ contains
 
 
   subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_cprec_type), intent(in) :: prec
     complex(psb_spk_),intent(inout)      :: x(:)
@@ -512,7 +510,7 @@ contains
   end subroutine mld_c_apply2v
 
   subroutine mld_c_apply1v(prec,x,desc_data,info,trans)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_cprec_type), intent(in) :: prec
     complex(psb_spk_),intent(inout)      :: x(:)
@@ -547,7 +545,7 @@ contains
 
 
   subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
-    use psb_base_mod
+    
     implicit none 
     class(mld_cprec_type), intent(in) :: prec
     integer, intent(out)             :: info

mlprec/mld_c_slu_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_c_slu_solver_type), intent(in) :: sv
     complex(psb_spk_),intent(inout)         :: x(:)
@@ -271,8 +272,6 @@ contains
 
   subroutine c_slu_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -306,8 +305,6 @@ contains
 
   subroutine c_slu_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -344,8 +341,6 @@ contains
   
   subroutine c_slu_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -380,8 +375,6 @@ contains
 
   subroutine c_slu_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -413,8 +406,6 @@ contains
 
   subroutine c_slu_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -452,7 +443,7 @@ contains
   end subroutine c_slu_solver_descr
 
   function c_slu_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_c_slu_solver_type), intent(in) :: sv

mlprec/mld_c_sludist_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine c_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_c_sludist_solver_type), intent(in) :: sv
     complex(psb_spk_),intent(inout)         :: x(:)
@@ -275,8 +276,6 @@ contains
 
   subroutine c_sludist_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -310,8 +309,6 @@ contains
 
   subroutine c_sludist_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -348,8 +345,6 @@ contains
   
   subroutine c_sludist_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -384,8 +379,6 @@ contains
 
   subroutine c_sludist_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -417,8 +410,6 @@ contains
 
   subroutine c_sludist_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -456,7 +447,7 @@ contains
   end subroutine c_sludist_solver_descr
 
   function c_sludist_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_c_sludist_solver_type), intent(in) :: sv

mlprec/mld_c_umf_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine c_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_c_umf_solver_type), intent(in) :: sv
     complex(psb_spk_),intent(inout)         :: x(:)
@@ -272,8 +273,6 @@ contains
 
   subroutine c_umf_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -307,8 +306,6 @@ contains
 
   subroutine c_umf_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -345,8 +342,6 @@ contains
   
   subroutine c_umf_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -381,8 +376,6 @@ contains
 
   subroutine c_umf_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -416,8 +409,6 @@ contains
 
   subroutine c_umf_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -455,7 +446,7 @@ contains
   end subroutine c_umf_solver_descr
 
   function c_umf_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_c_umf_solver_type), intent(in) :: sv

mlprec/mld_d_base_solver_mod.f90

@@ -54,11 +54,8 @@
 module mld_d_base_solver_mod
 
   use mld_base_prec_type
-  use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_long_int_k_, &
-       & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
-       & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
-       & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
-       & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, psb_dpk_
+  use psb_base_mod, only : psb_dspmat_type, &
+       & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat
   !
   ! 
   ! Type: mld_T_base_solver_type.

mlprec/mld_d_prec_type.f90

@@ -207,7 +207,7 @@ contains
   end function mld_d_get_compl
   
   subroutine mld_d_cmp_compl(prec) 
-    use psb_base_mod, only : psb_min, psb_sum
+
     implicit none 
     class(mld_dprec_type), intent(inout) :: prec
     
@@ -360,8 +360,6 @@ contains
   !
   subroutine mld_dprec_free(p,info)
   
-    use psb_base_mod
-    
     implicit none
     
     ! Arguments
@@ -404,7 +402,7 @@ contains
   ! Top level methods. 
   !
   subroutine mld_d_apply2_vect(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_dprec_type), intent(inout)  :: prec
     type(psb_d_vect_type),intent(inout)   :: x
@@ -440,7 +438,7 @@ contains
   end subroutine mld_d_apply2_vect
 
   subroutine mld_d_apply1_vect(prec,x,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_dprec_type), intent(inout)  :: prec
     type(psb_d_vect_type),intent(inout)   :: x
@@ -476,7 +474,7 @@ contains
 
 
   subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_dprec_type), intent(in) :: prec
     real(psb_dpk_),intent(inout)      :: x(:)
@@ -512,7 +510,7 @@ contains
   end subroutine mld_d_apply2v
 
   subroutine mld_d_apply1v(prec,x,desc_data,info,trans)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_dprec_type), intent(in) :: prec
     real(psb_dpk_),intent(inout)      :: x(:)
@@ -547,7 +545,7 @@ contains
 
 
   subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
-    use psb_base_mod
+    
     implicit none 
     class(mld_dprec_type), intent(in) :: prec
     integer, intent(out)             :: info

mlprec/mld_d_slu_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_d_slu_solver_type), intent(in) :: sv
     real(psb_dpk_),intent(inout)         :: x(:)
@@ -269,8 +270,6 @@ contains
 
   subroutine d_slu_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -304,8 +303,6 @@ contains
 
   subroutine d_slu_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -342,8 +339,6 @@ contains
   
   subroutine d_slu_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -378,8 +373,6 @@ contains
 
   subroutine d_slu_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -411,8 +404,6 @@ contains
 
   subroutine d_slu_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -450,7 +441,7 @@ contains
   end subroutine d_slu_solver_descr
 
   function d_slu_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_d_slu_solver_type), intent(in) :: sv

mlprec/mld_d_sludist_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_d_sludist_solver_type), intent(in) :: sv
     real(psb_dpk_),intent(inout)         :: x(:)
@@ -273,8 +274,6 @@ contains
 
   subroutine d_sludist_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -308,8 +307,6 @@ contains
 
   subroutine d_sludist_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -346,8 +343,6 @@ contains
   
   subroutine d_sludist_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -382,8 +377,6 @@ contains
 
   subroutine d_sludist_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -415,8 +408,6 @@ contains
 
   subroutine d_sludist_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -454,7 +445,7 @@ contains
   end subroutine d_sludist_solver_descr
 
   function d_sludist_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_d_sludist_solver_type), intent(in) :: sv

mlprec/mld_d_umf_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_d_umf_solver_type), intent(in) :: sv
     real(psb_dpk_),intent(inout)         :: x(:)
@@ -270,8 +271,6 @@ contains
 
   subroutine d_umf_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -305,8 +304,6 @@ contains
 
   subroutine d_umf_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -343,8 +340,6 @@ contains
   
   subroutine d_umf_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -379,8 +374,6 @@ contains
 
   subroutine d_umf_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -414,8 +407,6 @@ contains
 
   subroutine d_umf_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -453,7 +444,7 @@ contains
   end subroutine d_umf_solver_descr
 
   function d_umf_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_d_umf_solver_type), intent(in) :: sv

mlprec/mld_s_base_solver_mod.f90

@@ -54,11 +54,8 @@
 module mld_s_base_solver_mod
 
   use mld_base_prec_type
-  use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_long_int_k_, &
-       & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
-       & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
-       & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
-       & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, psb_spk_
+  use psb_base_mod, only : psb_sspmat_type, &
+       & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat
   !
   ! 
   ! Type: mld_T_base_solver_type.

mlprec/mld_s_prec_type.f90

@@ -207,7 +207,7 @@ contains
   end function mld_s_get_compl
   
   subroutine mld_s_cmp_compl(prec) 
-    use psb_base_mod, only : psb_min, psb_sum
+
     implicit none 
     class(mld_sprec_type), intent(inout) :: prec
     
@@ -360,8 +360,6 @@ contains
   !
   subroutine mld_sprec_free(p,info)
   
-    use psb_base_mod
-    
     implicit none
     
     ! Arguments
@@ -404,7 +402,7 @@ contains
   ! Top level methods. 
   !
   subroutine mld_s_apply2_vect(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_sprec_type), intent(inout)  :: prec
     type(psb_s_vect_type),intent(inout)   :: x
@@ -440,7 +438,7 @@ contains
   end subroutine mld_s_apply2_vect
 
   subroutine mld_s_apply1_vect(prec,x,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_sprec_type), intent(inout)  :: prec
     type(psb_s_vect_type),intent(inout)   :: x
@@ -476,7 +474,7 @@ contains
 
 
   subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_sprec_type), intent(in) :: prec
     real(psb_spk_),intent(inout)      :: x(:)
@@ -512,7 +510,7 @@ contains
   end subroutine mld_s_apply2v
 
   subroutine mld_s_apply1v(prec,x,desc_data,info,trans)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_sprec_type), intent(in) :: prec
     real(psb_spk_),intent(inout)      :: x(:)
@@ -547,7 +545,7 @@ contains
 
 
   subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
-    use psb_base_mod
+    
     implicit none 
     class(mld_sprec_type), intent(in) :: prec
     integer, intent(out)             :: info

mlprec/mld_s_slu_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_s_slu_solver_type), intent(in) :: sv
     real(psb_spk_),intent(inout)         :: x(:)
@@ -269,8 +270,6 @@ contains
 
   subroutine s_slu_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -304,8 +303,6 @@ contains
 
   subroutine s_slu_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -342,8 +339,6 @@ contains
   
   subroutine s_slu_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -378,8 +373,6 @@ contains
 
   subroutine s_slu_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -411,8 +404,6 @@ contains
 
   subroutine s_slu_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -450,7 +441,7 @@ contains
   end subroutine s_slu_solver_descr
 
   function s_slu_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_s_slu_solver_type), intent(in) :: sv

mlprec/mld_s_sludist_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine s_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_s_sludist_solver_type), intent(in) :: sv
     real(psb_spk_),intent(inout)         :: x(:)
@@ -273,8 +274,6 @@ contains
 
   subroutine s_sludist_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -308,8 +307,6 @@ contains
 
   subroutine s_sludist_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -346,8 +343,6 @@ contains
   
   subroutine s_sludist_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -382,8 +377,6 @@ contains
 
   subroutine s_sludist_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -415,8 +408,6 @@ contains
 
   subroutine s_sludist_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -454,7 +445,7 @@ contains
   end subroutine s_sludist_solver_descr
 
   function s_sludist_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_s_sludist_solver_type), intent(in) :: sv

mlprec/mld_s_umf_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine s_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_s_umf_solver_type), intent(in) :: sv
     real(psb_spk_),intent(inout)         :: x(:)
@@ -270,8 +271,6 @@ contains
 
   subroutine s_umf_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -305,8 +304,6 @@ contains
 
   subroutine s_umf_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -343,8 +340,6 @@ contains
   
   subroutine s_umf_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -379,8 +374,6 @@ contains
 
   subroutine s_umf_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -414,8 +407,6 @@ contains
 
   subroutine s_umf_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -453,7 +444,7 @@ contains
   end subroutine s_umf_solver_descr
 
   function s_umf_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_s_umf_solver_type), intent(in) :: sv

mlprec/mld_z_base_solver_mod.f90

@@ -54,11 +54,8 @@
 module mld_z_base_solver_mod
 
   use mld_base_prec_type
-  use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_long_int_k_, &
-       & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,&
-       & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, &
-       & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, &
-       & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, psb_dpk_
+  use psb_base_mod, only : psb_zspmat_type, &
+       & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat
   !
   ! 
   ! Type: mld_T_base_solver_type.

mlprec/mld_z_prec_type.f90

@@ -207,7 +207,7 @@ contains
   end function mld_z_get_compl
   
   subroutine mld_z_cmp_compl(prec) 
-    use psb_base_mod, only : psb_min, psb_sum
+
     implicit none 
     class(mld_zprec_type), intent(inout) :: prec
     
@@ -360,8 +360,6 @@ contains
   !
   subroutine mld_zprec_free(p,info)
   
-    use psb_base_mod
-    
     implicit none
     
     ! Arguments
@@ -404,7 +402,7 @@ contains
   ! Top level methods. 
   !
   subroutine mld_z_apply2_vect(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_zprec_type), intent(inout)  :: prec
     type(psb_z_vect_type),intent(inout)   :: x
@@ -440,7 +438,7 @@ contains
   end subroutine mld_z_apply2_vect
 
   subroutine mld_z_apply1_vect(prec,x,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)        :: desc_data
     class(mld_zprec_type), intent(inout)  :: prec
     type(psb_z_vect_type),intent(inout)   :: x
@@ -476,7 +474,7 @@ contains
 
 
   subroutine mld_z_apply2v(prec,x,y,desc_data,info,trans,work)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_zprec_type), intent(in) :: prec
     complex(psb_dpk_),intent(inout)      :: x(:)
@@ -512,7 +510,7 @@ contains
   end subroutine mld_z_apply2v
 
   subroutine mld_z_apply1v(prec,x,desc_data,info,trans)
-    use psb_base_mod
+    implicit none 
     type(psb_desc_type),intent(in)    :: desc_data
     class(mld_zprec_type), intent(in) :: prec
     complex(psb_dpk_),intent(inout)      :: x(:)
@@ -547,7 +545,7 @@ contains
 
 
   subroutine mld_z_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver)
-    use psb_base_mod
+    
     implicit none 
     class(mld_zprec_type), intent(in) :: prec
     integer, intent(out)             :: info

mlprec/mld_z_slu_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine z_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_z_slu_solver_type), intent(in) :: sv
     complex(psb_dpk_),intent(inout)         :: x(:)
@@ -271,8 +272,6 @@ contains
 
   subroutine z_slu_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -306,8 +305,6 @@ contains
 
   subroutine z_slu_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -344,8 +341,6 @@ contains
   
   subroutine z_slu_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -380,8 +375,6 @@ contains
 
   subroutine z_slu_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -413,8 +406,6 @@ contains
 
   subroutine z_slu_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -452,7 +443,7 @@ contains
   end subroutine z_slu_solver_descr
 
   function z_slu_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_z_slu_solver_type), intent(in) :: sv

mlprec/mld_z_sludist_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine z_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_z_sludist_solver_type), intent(in) :: sv
     complex(psb_dpk_),intent(inout)         :: x(:)
@@ -275,8 +276,6 @@ contains
 
   subroutine z_sludist_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -310,8 +309,6 @@ contains
 
   subroutine z_sludist_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -348,8 +345,6 @@ contains
   
   subroutine z_sludist_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -384,8 +379,6 @@ contains
 
   subroutine z_sludist_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -417,8 +410,6 @@ contains
 
   subroutine z_sludist_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -456,7 +447,7 @@ contains
   end subroutine z_sludist_solver_descr
 
   function z_sludist_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_z_sludist_solver_type), intent(in) :: sv

mlprec/mld_z_umf_solver.f90

@@ -107,6 +107,7 @@ contains
 
   subroutine z_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info)
     use psb_base_mod
+    implicit none 
     type(psb_desc_type), intent(in)      :: desc_data
     class(mld_z_umf_solver_type), intent(in) :: sv
     complex(psb_dpk_),intent(inout)         :: x(:)
@@ -272,8 +273,6 @@ contains
 
   subroutine z_umf_solver_seti(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -307,8 +306,6 @@ contains
 
   subroutine z_umf_solver_setc(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -345,8 +342,6 @@ contains
   
   subroutine z_umf_solver_setr(sv,what,val,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -381,8 +376,6 @@ contains
 
   subroutine z_umf_solver_free(sv,info)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -416,8 +409,6 @@ contains
 
   subroutine z_umf_solver_descr(sv,info,iout,coarse)
 
-    use psb_base_mod
-
     Implicit None
 
     ! Arguments
@@ -455,7 +446,7 @@ contains
   end subroutine z_umf_solver_descr
 
   function z_umf_solver_sizeof(sv) result(val)
-    use psb_base_mod
+
     implicit none 
     ! Arguments
     class(mld_z_umf_solver_type), intent(in) :: sv