Fixed USE of module(s) containing interface of USEing subroutine.

src/prec/psb_dbaseprc_bld.f90

@@ -46,7 +46,8 @@ subroutine psb_dbaseprc_bld(a,desc_a,p,info,upd)
   use psb_psblas_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, &
+       & psb_slu_bld,psb_umf_bld
 
   Implicit None
 

src/prec/psb_dilu_bld.f90

@@ -60,7 +60,7 @@ subroutine psb_dilu_bld(a,desc_a,p,upd,info)
   use psb_error_mod
   use psb_realloc_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct
   implicit none
   !                                                                               
   !     .. Scalar Arguments ..                                                    

src/prec/psb_dmlprc_bld.f90

@@ -43,7 +43,7 @@ subroutine psb_dmlprc_bld(a,desc_a,p,info)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld
   implicit none 
 
   type(psb_dspmat_type), intent(in), target :: a

src/prec/psb_dprc_aply.f90

@@ -43,7 +43,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply
   implicit none
 
   type(psb_desc_type),intent(in)      :: desc_data
@@ -166,9 +166,22 @@ subroutine psb_dprc_aply1(prec,x,desc_data,info,trans)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  implicit none
+  interface psb_prc_aply
+    subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
+      use psb_serial_mod
+      use psb_descriptor_type
+      use psb_prec_type
       implicit none
       
+      type(psb_desc_type),intent(in)      :: desc_data
+      type(psb_dprec_type), intent(in)    :: prec
+      real(kind(0.d0)),intent(inout)      :: x(:), y(:)
+      integer, intent(out)                :: info
+      character(len=1), optional          :: trans
+      real(kind(0.d0)), optional, target  :: work(:)
+    end subroutine psb_dprc_aply
+  end interface
   type(psb_desc_type),intent(in)    :: desc_data
   type(psb_dprec_type), intent(in)  :: prec
   real(kind(0.d0)),intent(inout)    :: x(:)

src/prec/psb_dprecbld.f90

@@ -46,7 +46,7 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd)
   use psb_psblas_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld
   Implicit None
 
   type(psb_dspmat_type), target           :: a

src/prec/psb_dslu_bld.f90

@@ -41,7 +41,7 @@ subroutine psb_dslu_bld(a,desc_a,p,info)
   use psb_tools_mod
   use psb_const_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_as_matbld
   implicit none 
 
   type(psb_dspmat_type), intent(inout)      :: a

src/prec/psb_dumf_bld.f90

@@ -41,7 +41,7 @@ subroutine psb_dumf_bld(a,desc_a,p,info)
   use psb_tools_mod
   use psb_const_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_as_matbld
   implicit none 
 
   type(psb_dspmat_type), intent(inout)      :: a

src/prec/psb_zbaseprc_bld.f90

@@ -46,7 +46,8 @@ subroutine psb_zbaseprc_bld(a,desc_a,p,info,upd)
   use psb_psblas_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, &
+       & psb_slu_bld,psb_umf_bld
   Implicit None
 
   type(psb_zspmat_type), target           :: a

src/prec/psb_zilu_bld.f90

@@ -60,7 +60,7 @@ subroutine psb_zilu_bld(a,desc_a,p,upd,info)
   use psb_error_mod
   use psb_realloc_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct
   implicit none
   !                                                                               
   !     .. Scalar Arguments ..                                                    

src/prec/psb_zmlprc_bld.f90

@@ -43,7 +43,7 @@ subroutine psb_zmlprc_bld(a,desc_a,p,info)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld
   implicit none 
 
   type(psb_zspmat_type), intent(in), target :: a

src/prec/psb_zprc_aply.f90

@@ -43,7 +43,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply
   implicit none
 
   type(psb_desc_type),intent(in)      :: desc_data
@@ -166,9 +166,22 @@ subroutine psb_zprc_aply1(prec,x,desc_data,info,trans)
   use psb_const_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  implicit none
+  interface psb_prc_aply
+    subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
+      use psb_serial_mod
+      use psb_descriptor_type
+      use psb_prec_type
       implicit none
       
+      type(psb_desc_type),intent(in)      :: desc_data
+      type(psb_zprec_type), intent(in)    :: prec
+      complex(kind(0.d0)),intent(inout)      :: x(:), y(:)
+      integer, intent(out)                :: info
+      character(len=1), optional          :: trans
+      complex(kind(0.d0)), optional, target  :: work(:)
+    end subroutine psb_zprc_aply
+  end interface
   type(psb_desc_type),intent(in)    :: desc_data
   type(psb_zprec_type), intent(in)  :: prec
   complex(kind(0.d0)),intent(inout) :: x(:)

src/prec/psb_zprecbld.f90

@@ -46,7 +46,7 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd)
   use psb_psblas_mod
   use psb_error_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld
   Implicit None
 
   type(psb_zspmat_type), target              :: a

src/prec/psb_zslu_bld.f90

@@ -41,7 +41,7 @@ subroutine psb_zslu_bld(a,desc_a,p,info)
   use psb_tools_mod
   use psb_const_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_as_matbld
   implicit none 
 
   type(psb_zspmat_type), intent(inout)      :: a

src/prec/psb_zumf_bld.f90

@@ -41,7 +41,7 @@ subroutine psb_zumf_bld(a,desc_a,p,info)
   use psb_tools_mod
   use psb_const_mod
   use psb_penv_mod
-  use psb_prec_mod
+  use psb_prec_mod, only: psb_as_matbld
   implicit none 
 
   type(psb_zspmat_type), intent(inout)      :: a

src/tools/psb_cdall.f90

@@ -384,7 +384,7 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info)
     call psb_errpush(err,name)
     Goto 9999
   endif
-  ! At this point overlap is OK.
+  ! At this point overlap_elem is OK. 
   desc_a%matrix_data(psb_ovl_state_) = psb_cd_ovl_asb_
 
   ! set fields in desc_a%MATRIX_DATA....