mld2p4

16 years ago · c9fa1ca44b
parent 745a6ccd55
commit c9fa1ca44b
65 changed files with 305 additions and 304 deletions
--- a/1
+++ b/1
@ -1,6 +1,7 @@
 Changelog. A lot less detailed than usual, at least for past
 history. 
 2009/01/28: Changed names from XbaseprcY to XbaseprecY.
 2009/01/27: Changed names from mld_transfer to mld_move_alloc.
 2009/01/13: Repackaged the one-level preconditioners. Reorganized the
--- a/krylov/psb_prec_mod.F90
+++ b/krylov/psb_prec_mod.F90
@ -51,10 +51,10 @@
 module psb_prec_mod
  use mld_prec_mod, &
-       & psb_sbaseprc_type    => mld_sbaseprc_type,&
+       & psb_sbaseprec_type   => mld_sbaseprec_type,&
-       & psb_dbaseprc_type    => mld_dbaseprc_type,&
+       & psb_dbaseprec_type   => mld_dbaseprec_type,&
-       & psb_cbaseprc_type    => mld_cbaseprc_type,&
+       & psb_cbaseprec_type   => mld_cbaseprec_type,&
-       & psb_zbaseprc_type    => mld_zbaseprc_type,&
+       & psb_zbaseprec_type   => mld_zbaseprec_type,&
       & psb_sprec_type       => mld_sprec_type,&
       & psb_dprec_type       => mld_dprec_type,&
       & psb_cprec_type       => mld_cprec_type,&
@ -73,7 +73,7 @@ module psb_prec_mod
  interface psb_sizeof
    module procedure mld_dprec_sizeof, mld_zprec_sizeof, &
-         & mld_dbaseprc_sizeof, mld_zbaseprc_sizeof
+         & mld_dbaseprec_sizeof, mld_zbaseprec_sizeof
  end interface
 end module psb_prec_mod
--- a/mlprec/mld_cas_aply.f90
+++ b/mlprec/mld_cas_aply.f90
@ -54,7 +54,7 @@
 ! Arguments:
 !   alpha      -  real(psb_spk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_dbaseprc_type), input.
+!   prec       -  type(mld_dbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_spk_), dimension(:), input.
@ -83,7 +83,7 @@ subroutine mld_cas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_cbaseprc_type), intent(in) :: prec
+  type(mld_cbaseprec_type), intent(in) :: prec
  complex(psb_spk_),intent(in)         :: x(:)
  complex(psb_spk_),intent(inout)      :: y(:)
  complex(psb_spk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_cas_bld.f90
+++ b/mlprec/mld_cas_bld.f90
@ -54,7 +54,7 @@
 !                  matrix to be preconditioned.
 !    desc_a     -  type(psb_desc_type), input.
 !                  The communication descriptor of the sparse matrix a.
-!    p          -  type(mld_cbaseprc_type), input/output.
+!    p          -  type(mld_cbaseprec_type), input/output.
 !                  The 'base preconditioner' data structure containing the local
 !                  part of the preconditioner or solver to be built.
 !    upd        -  character, input.
@ -76,7 +76,7 @@ subroutine mld_cas_bld(a,desc_a,p,upd,info)
  ! Arguments
  type(psb_cspmat_type), intent(in), target :: a
  Type(psb_desc_type), Intent(in)           :: desc_a 
-  type(mld_cbaseprc_type), intent(inout)    :: p
+  type(mld_cbaseprec_type), intent(inout)    :: p
  character, intent(in)                     :: upd
  integer, intent(out)                      :: info
--- a/mlprec/mld_cbaseprec_aply.f90
+++ b/mlprec/mld_cbaseprec_aply.f90
@ -58,7 +58,7 @@
 ! Arguments:
 !   alpha      -  complex(psb_spk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_cbaseprc_type), input.
+!   prec       -  type(mld_cbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  complex(psb_spk_), dimension(:), input.
@ -87,7 +87,7 @@ subroutine mld_cbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_cbaseprc_type), intent(in) :: prec
+  type(mld_cbaseprec_type), intent(in) :: prec
  complex(psb_spk_),intent(in)      :: x(:)
  complex(psb_spk_),intent(inout)   :: y(:)
  complex(psb_spk_),intent(in)      :: alpha,beta
--- a/mlprec/mld_cbaseprec_bld.f90
+++ b/mlprec/mld_cbaseprec_bld.f90
@ -78,7 +78,7 @@ subroutine mld_cbaseprec_bld(a,desc_a,p,info,upd)
  ! Arguments
  type(psb_cspmat_type), target           :: a
  type(psb_desc_type), intent(in), target :: desc_a
-  type(mld_cbaseprc_type),intent(inout)   :: p
+  type(mld_cbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
  character, intent(in), optional         :: upd
@ -89,7 +89,7 @@ subroutine mld_cbaseprec_bld(a,desc_a,p,info,upd)
  character(len=20)   :: name, ch_err
  if (psb_get_errstatus() /= 0) return 
-  name = 'mld_cbaseprc_bld'
+  name = 'mld_cbaseprec_bld'
  info=0
  err=0
  call psb_erractionsave(err_act)
--- a/mlprec/mld_cdiag_bld.f90
+++ b/mlprec/mld_cdiag_bld.f90
@ -51,7 +51,7 @@
 !               matrix A to be preconditioned.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to the sparse matrix A.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the local 
 !               part of the diagonal preconditioner.
 !    info    -  integer, output.
@ -67,7 +67,7 @@ subroutine mld_cdiag_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_cspmat_type), target           :: a
  type(psb_desc_type), intent(in)         :: desc_a
-  type(mld_cbaseprc_type),intent(inout)   :: p
+  type(mld_cbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
 ! Local variables
--- a/mlprec/mld_cfact_bld.f90
+++ b/mlprec/mld_cfact_bld.f90
@ -118,7 +118,7 @@ subroutine mld_cfact_bld(a,p,upd,info,blck)
 ! Arguments
  type(psb_cspmat_type), intent(in), target :: a
-  type(mld_cbaseprc_type), intent(inout)    :: p
+  type(mld_cbaseprec_type), intent(inout)    :: p
  integer, intent(out)                      :: info
  character, intent(in)                     :: upd
  type(psb_cspmat_type), intent(in), target, optional  :: blck
--- a/mlprec/mld_cilu_bld.f90
+++ b/mlprec/mld_cilu_bld.f90
@ -73,7 +73,7 @@
 !               only the 'original' local part of the distributed matrix,
 !               i.e. the rows of the matrix held by the calling process according
 !               to the initial data distribution.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The 'base preconditioner' data structure. In input, p%iprcparm
 !               contains information on the type of factorization to be computed.
 !               In output, p%av(mld_l_pr_) and p%av(mld_u_pr_) contain the
@ -98,7 +98,7 @@ subroutine mld_cilu_bld(a,p,upd,info,blck)
 ! Arguments                                                     
  type(psb_cspmat_type), intent(in), target   :: a
-  type(mld_cbaseprc_type), intent(inout)      :: p
+  type(mld_cbaseprec_type), intent(inout)      :: p
  character, intent(in)                       :: upd
  integer, intent(out)                        :: info
  type(psb_cspmat_type), intent(in), optional :: blck
--- a/mlprec/mld_cmlprec_aply.f90
+++ b/mlprec/mld_cmlprec_aply.f90
@ -82,7 +82,7 @@
 !                  The array of one-level preconditioner data structures containing the
 !                  local parts of the preconditioners to be applied at each level.
 !      Note that nlev = size(precv) = number of levels.
-!      precv(ilev)%prec  -  type(psb_cbaseprc_type)
+!      precv(ilev)%prec  -  type(psb_cbaseprec_type)
 !                           The "base" preconditioner for the current level
 !      precv(ilev)%ac        -  type(psb_cspmat_type) 
 !                                The local part of the matrix A(ilev).
--- a/mlprec/mld_cprecbld.f90
+++ b/mlprec/mld_cprecbld.f90
@ -40,7 +40,7 @@
 !
 ! Subroutine: mld_cprecbld
 ! Version:    complex
-! Contains:   subroutine init_baseprc_av
+! Contains:   subroutine init_baseprec_av
 !
 !  This routine builds the preconditioner according to the requirements made by
 !  the user trough the subroutines mld_precinit and mld_precset.
@ -154,7 +154,7 @@ subroutine mld_cprecbld(a,desc_a,p,info)
    !
    ! Finest level first; remember to fix base_a and base_desc
    ! 
-    call init_baseprc_av(p%precv(1)%prec,info)
+    call init_baseprec_av(p%precv(1)%prec,info)
    p%precv(1)%base_a    => a
    p%precv(1)%base_desc => desc_a
@ -211,7 +211,7 @@ subroutine mld_cprecbld(a,desc_a,p,info)
      !
      ! Build the mapping between levels (i-1) and (i)
      ! 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
@ -275,7 +275,7 @@ subroutine mld_cprecbld(a,desc_a,p,info)
      i    = iszv 
      call check_coarse_lev(p%precv(i)) 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
      if (info /= 0) then 
@ -328,8 +328,8 @@ subroutine mld_cprecbld(a,desc_a,p,info)
 contains
-  subroutine init_baseprc_av(p,info)
+  subroutine init_baseprec_av(p,info)
-    type(mld_cbaseprc_type), intent(inout) :: p
+    type(mld_cbaseprec_type), intent(inout) :: p
    integer                                :: info
    if (allocated(p%av)) then
      if (size(p%av) /= mld_max_avsz_) then 
@ -345,7 +345,7 @@ contains
      call psb_nullify_sp(p%av(k))
    end do
-  end subroutine init_baseprc_av
+  end subroutine init_baseprec_av
  subroutine check_coarse_lev(prec)
    type(mld_c_interlev_prec_type) :: prec
--- a/mlprec/mld_cslu_bld.f90
+++ b/mlprec/mld_cslu_bld.f90
@ -62,7 +62,7 @@
 !               be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slu_ptr_), to the data structure used by SuperLU
 !               to store the L and U factors.
@ -79,7 +79,7 @@ subroutine mld_cslu_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_cspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_cbaseprc_type), intent(inout) :: p
+  type(mld_cbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_cslud_bld.f90
+++ b/mlprec/mld_cslud_bld.f90
@ -59,7 +59,7 @@
 !               matrix to be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slud_ptr_), to the data structure used by 
 !               SuperLU_DIST to store the L and U factors.
@ -76,7 +76,7 @@ subroutine mld_csludist_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_cspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_cbaseprc_type), intent(inout) :: p
+  type(mld_cbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_csp_renum.f90
+++ b/mlprec/mld_csp_renum.f90
@ -69,7 +69,7 @@
 !               to build an Additive Schwarz base preconditioner with overlap
 !               greater than 0.If the overlap is 0, then blck does not contain
 !               any row.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The base preconditioner data structure containing the local
 !               part of the base preconditioner to be built. In input it 
 !               contains information on the type of reordering to be applied
@ -91,7 +91,7 @@ subroutine mld_csp_renum(a,blck,p,atmp,info)
  ! Arguments                                                    
  type(psb_cspmat_type), intent(in)      :: a,blck
  type(psb_cspmat_type), intent(out)     :: atmp
-  type(mld_cbaseprc_type), intent(inout) :: p
+  type(mld_cbaseprec_type), intent(inout) :: p
  integer, intent(out)   :: info
  ! Local variables
--- a/mlprec/mld_csub_aply.f90
+++ b/mlprec/mld_csub_aply.f90
@ -142,7 +142,7 @@ subroutine mld_csub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)           :: desc_data
-  type(mld_cbaseprc_type), intent(in)       :: prec
+  type(mld_cbaseprec_type), intent(in)       :: prec
  complex(psb_spk_),intent(in)            :: x(:)
  complex(psb_spk_),intent(inout)         :: y(:)
  complex(psb_spk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_csub_solve.f90
+++ b/mlprec/mld_csub_solve.f90
@ -120,7 +120,7 @@ subroutine mld_csub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)           :: desc_data
-  type(mld_cbaseprc_type), intent(in)       :: prec
+  type(mld_cbaseprec_type), intent(in)       :: prec
  complex(psb_spk_),intent(in)            :: x(:)
  complex(psb_spk_),intent(inout)         :: y(:)
  complex(psb_spk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_cumf_bld.f90
+++ b/mlprec/mld_cumf_bld.f90
@ -67,7 +67,7 @@
 !               C code performing the factorization.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_cbaseprc_type), input/output.
+!    p       -  type(mld_cbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointers,
 !               p%iprcparm(mld_umf_symptr_) and p%iprcparm(mld_umf_numptr_),
 !               to the data structures used by UMFPACK for computing the LU
@ -85,7 +85,7 @@ subroutine mld_cumf_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_dspmat_type), intent(inout)      :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_cbaseprc_type), intent(inout) :: p
+  type(mld_cbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_das_aply.f90
+++ b/mlprec/mld_das_aply.f90
@ -54,7 +54,7 @@
 ! Arguments:
 !   alpha      -  real(psb_dpk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_dbaseprc_type), input.
+!   prec       -  type(mld_dbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_dpk_), dimension(:), input.
@ -83,7 +83,7 @@ subroutine mld_das_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_dbaseprc_type), intent(in) :: prec
+  type(mld_dbaseprec_type), intent(in) :: prec
  real(psb_dpk_),intent(in)         :: x(:)
  real(psb_dpk_),intent(inout)      :: y(:)
  real(psb_dpk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_das_bld.f90
+++ b/mlprec/mld_das_bld.f90
@ -54,7 +54,7 @@
 !                  matrix to be preconditioned.
 !    desc_a     -  type(psb_desc_type), input.
 !                  The communication descriptor of the sparse matrix a.
-!    p          -  type(mld_dbaseprc_type), input/output.
+!    p          -  type(mld_dbaseprec_type), input/output.
 !                  The 'base preconditioner' data structure containing the local
 !                  part of the preconditioner or solver to be built.
 !    upd        -  character, input.
@ -76,7 +76,7 @@ subroutine mld_das_bld(a,desc_a,p,upd,info)
  ! Arguments
  type(psb_dspmat_type), intent(in), target :: a
  Type(psb_desc_type), Intent(in)           :: desc_a 
-  type(mld_dbaseprc_type), intent(inout)    :: p
+  type(mld_dbaseprec_type), intent(inout)    :: p
  character, intent(in)                     :: upd
  integer, intent(out)                      :: info
--- a/mlprec/mld_dbaseprec_aply.f90
+++ b/mlprec/mld_dbaseprec_aply.f90
@ -58,7 +58,7 @@
 ! Arguments:
 !   alpha      -  real(psb_dpk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_dbaseprc_type), input.
+!   prec       -  type(mld_dbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_dpk_), dimension(:), input.
@ -87,7 +87,7 @@ subroutine mld_dbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_dbaseprc_type), intent(in) :: prec
+  type(mld_dbaseprec_type), intent(in) :: prec
  real(psb_dpk_),intent(in)         :: x(:)
  real(psb_dpk_),intent(inout)      :: y(:)
  real(psb_dpk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_dbaseprec_bld.f90
+++ b/mlprec/mld_dbaseprec_bld.f90
@ -38,7 +38,7 @@
 !!$
 ! File: mld_dbaseprec_bld.f90
 !
-! Subroutine: mld_dbaseprc_bld
+! Subroutine: mld_dbaseprec_bld
 ! Version:    real
 !
 !  This routine builds a 'base preconditioner' related to a matrix A.
@ -78,7 +78,7 @@ subroutine mld_dbaseprec_bld(a,desc_a,p,info,upd)
  ! Arguments
  type(psb_dspmat_type), target           :: a
  type(psb_desc_type), intent(in), target :: desc_a
-  type(mld_dbaseprc_type),intent(inout)   :: p
+  type(mld_dbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
  character, intent(in), optional         :: upd
@ -89,7 +89,7 @@ subroutine mld_dbaseprec_bld(a,desc_a,p,info,upd)
  character(len=20)   :: name, ch_err
  if (psb_get_errstatus() /= 0) return 
-  name = 'mld_dbaseprc_bld'
+  name = 'mld_dbaseprec_bld'
  info=0
  err=0
  call psb_erractionsave(err_act)
--- a/mlprec/mld_ddiag_bld.f90
+++ b/mlprec/mld_ddiag_bld.f90
@ -51,7 +51,7 @@
 !               matrix A to be preconditioned.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to the sparse matrix A.
-!    p       -  type(mld_dbaseprc_type), input/output.
+!    p       -  type(mld_dbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the local 
 !               part of the diagonal preconditioner.
 !    info    -  integer, output.
@ -67,7 +67,7 @@ subroutine mld_ddiag_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_dspmat_type), target           :: a
  type(psb_desc_type), intent(in)         :: desc_a
-  type(mld_dbaseprc_type),intent(inout)   :: p
+  type(mld_dbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
 ! Local variables
--- a/mlprec/mld_dfact_bld.f90
+++ b/mlprec/mld_dfact_bld.f90
@ -117,7 +117,7 @@ subroutine mld_dfact_bld(a,p,upd,info,blck)
  ! Arguments
  type(psb_dspmat_type), intent(in), target :: a
-  type(mld_dbaseprc_type), intent(inout)    :: p
+  type(mld_dbaseprec_type), intent(inout)    :: p
  integer, intent(out)                      :: info
  character, intent(in)                     :: upd
  type(psb_dspmat_type), intent(in), target, optional  :: blck
--- a/mlprec/mld_dilu_bld.f90
+++ b/mlprec/mld_dilu_bld.f90
@ -73,7 +73,7 @@
 !               only the 'original' local part of the distributed matrix,
 !               i.e. the rows of the matrix held by the calling process according
 !               to the initial data distribution.
-!    p       -  type(mld_dbaseprc_type), input/output.
+!    p       -  type(mld_dbaseprec_type), input/output.
 !               The 'base preconditioner' data structure. In input, p%iprcparm
 !               contains information on the type of factorization to be computed.
 !               In output, p%av(mld_l_pr_) and p%av(mld_u_pr_) contain the
@ -98,7 +98,7 @@ subroutine mld_dilu_bld(a,p,upd,info,blck)
 ! Arguments                                                     
  type(psb_dspmat_type), intent(in), target   :: a
-  type(mld_dbaseprc_type), intent(inout)      :: p
+  type(mld_dbaseprec_type), intent(inout)      :: p
  character, intent(in)                       :: upd
  integer, intent(out)                        :: info
  type(psb_dspmat_type), intent(in), optional :: blck
--- a/mlprec/mld_dmlprec_aply.f90
+++ b/mlprec/mld_dmlprec_aply.f90
@ -82,7 +82,7 @@
 !                  The array of one-level preconditioner data structures containing the
 !                  local parts of the preconditioners to be applied at each level.
 !      Note that nlev = size(precv) = number of levels.
-!      precv(ilev)%prec  -  type(psb_dbaseprc_type)
+!      precv(ilev)%prec  -  type(psb_dbaseprec_type)
 !                           The "base" preconditioner for the current level
 !      precv(ilev)%ac        -  type(psb_dspmat_type) 
 !                                The local part of the matrix A(ilev).
--- a/mlprec/mld_dprecbld.f90
+++ b/mlprec/mld_dprecbld.f90
@ -40,7 +40,7 @@
 !
 ! Subroutine: mld_dprecbld
 ! Version:    real
-! Contains:   subroutine init_baseprc_av
+! Contains:   subroutine init_baseprec_av
 !
 !  This routine builds the preconditioner according to the requirements made by
 !  the user trough the subroutines mld_precinit and mld_precset.
@ -154,7 +154,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
    !
    ! Finest level first; remember to fix base_a and base_desc
    ! 
-    call init_baseprc_av(p%precv(1)%prec,info)
+    call init_baseprec_av(p%precv(1)%prec,info)
    p%precv(1)%base_a    => a
    p%precv(1)%base_desc => desc_a
@ -211,7 +211,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
      !
      ! Build the mapping between levels (i-1) and (i)
      ! 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
@ -275,7 +275,7 @@ subroutine mld_dprecbld(a,desc_a,p,info)
      i    = iszv 
      call check_coarse_lev(p%precv(i)) 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
      if (info /= 0) then 
@ -328,8 +328,8 @@ subroutine mld_dprecbld(a,desc_a,p,info)
 contains
-  subroutine init_baseprc_av(p,info)
+  subroutine init_baseprec_av(p,info)
-    type(mld_dbaseprc_type), intent(inout) :: p
+    type(mld_dbaseprec_type), intent(inout) :: p
    integer                                :: info
    if (allocated(p%av)) then
      if (size(p%av) /= mld_max_avsz_) then 
@ -345,7 +345,7 @@ contains
      call psb_nullify_sp(p%av(k))
    end do
-  end subroutine init_baseprc_av
+  end subroutine init_baseprec_av
  subroutine check_coarse_lev(prec)
    type(mld_d_interlev_prec_type) :: prec
--- a/mlprec/mld_dslu_bld.f90
+++ b/mlprec/mld_dslu_bld.f90
@ -62,7 +62,7 @@
 !               be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_dbaseprc_type), input/output.
+!    p       -  type(mld_dbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slu_ptr_), to the data structure used by SuperLU
 !               to store the L and U factors.
@ -79,7 +79,7 @@ subroutine mld_dslu_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_dspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_dbaseprc_type), intent(inout) :: p
+  type(mld_dbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_dslud_bld.f90
+++ b/mlprec/mld_dslud_bld.f90
@ -59,7 +59,7 @@
 !               matrix to be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!       p       -  type(mld_dbaseprc_type), input/output.
+!       p       -  type(mld_dbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slud_ptr_), to the data structure used by 
 !               SuperLU_DIST to store the L and U factors.
@ -76,7 +76,7 @@ subroutine mld_dsludist_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_dspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_dbaseprc_type), intent(inout) :: p
+  type(mld_dbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_dsp_renum.f90
+++ b/mlprec/mld_dsp_renum.f90
@ -69,7 +69,7 @@
 !               to build an Additive Schwarz base preconditioner with overlap
 !               greater than 0.If the overlap is 0, then blck does not contain
 !               any row.
-!       p    -  type(mld_dbaseprc_type), input/output.
+!       p    -  type(mld_dbaseprec_type), input/output.
 !               The base preconditioner data structure containing the local
 !               part of the base preconditioner to be built. In input it 
 !               contains information on the type of reordering to be applied
@ -91,7 +91,7 @@ subroutine mld_dsp_renum(a,blck,p,atmp,info)
  ! Arguments                                                    
  type(psb_dspmat_type), intent(in)      :: a,blck
  type(psb_dspmat_type), intent(out)     :: atmp
-  type(mld_dbaseprc_type), intent(inout) :: p
+  type(mld_dbaseprec_type), intent(inout) :: p
  integer, intent(out)   :: info
  ! Local variables
--- a/mlprec/mld_dsub_aply.f90
+++ b/mlprec/mld_dsub_aply.f90
@ -141,7 +141,7 @@ subroutine mld_dsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)        :: desc_data
-  type(mld_dbaseprc_type), intent(in)    :: prec
+  type(mld_dbaseprec_type), intent(in)    :: prec
  real(psb_dpk_),intent(in)            :: x(:)
  real(psb_dpk_),intent(inout)         :: y(:)
  real(psb_dpk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_dsub_solve.f90
+++ b/mlprec/mld_dsub_solve.f90
@ -119,7 +119,7 @@ subroutine mld_dsub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)        :: desc_data
-  type(mld_dbaseprc_type), intent(in)    :: prec
+  type(mld_dbaseprec_type), intent(in)    :: prec
  real(psb_dpk_),intent(in)            :: x(:)
  real(psb_dpk_),intent(inout)         :: y(:)
  real(psb_dpk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_dumf_bld.f90
+++ b/mlprec/mld_dumf_bld.f90
@ -67,7 +67,7 @@
 !               C code performing the factorization.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_dbaseprc_type), input/output.
+!    p       -  type(mld_dbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointers,
 !               p%iprcparm(mld_umf_symptr_) and p%iprcparm(mld_umf_numptr_),
 !               to the data structures used by UMFPACK for computing the LU
@ -85,7 +85,7 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_dspmat_type), intent(inout)      :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_dbaseprc_type), intent(inout) :: p
+  type(mld_dbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_inner_mod.f90
+++ b/mlprec/mld_inner_mod.f90
@ -43,9 +43,9 @@ module mld_inner_mod
  interface mld_baseprec_aply
    subroutine mld_sbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_sbaseprc_type), intent(in) :: prec
+      type(mld_sbaseprec_type), intent(in) :: prec
      real(psb_spk_),intent(in)         :: x(:)
      real(psb_spk_),intent(inout)      :: y(:)
      real(psb_spk_),intent(in)         :: alpha,beta
@ -55,9 +55,9 @@ module mld_inner_mod
    end subroutine mld_sbaseprec_aply
    subroutine mld_dbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_dbaseprc_type), intent(in) :: prec
+      type(mld_dbaseprec_type), intent(in) :: prec
      real(psb_dpk_),intent(in)         :: x(:)
      real(psb_dpk_),intent(inout)      :: y(:)
      real(psb_dpk_),intent(in)         :: alpha,beta
@ -67,9 +67,9 @@ module mld_inner_mod
    end subroutine mld_dbaseprec_aply
    subroutine mld_cbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_cbaseprc_type), intent(in) :: prec
+      type(mld_cbaseprec_type), intent(in) :: prec
      complex(psb_spk_),intent(in)      :: x(:)
      complex(psb_spk_),intent(inout)   :: y(:)
      complex(psb_spk_),intent(in)      :: alpha,beta
@ -79,9 +79,9 @@ module mld_inner_mod
    end subroutine mld_cbaseprec_aply
    subroutine mld_zbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_zbaseprc_type), intent(in) :: prec
+      type(mld_zbaseprec_type), intent(in) :: prec
      complex(psb_dpk_),intent(in)      :: x(:)
      complex(psb_dpk_),intent(inout)   :: y(:)
      complex(psb_dpk_),intent(in)      :: alpha,beta
@ -94,9 +94,9 @@ module mld_inner_mod
  interface mld_as_aply
    subroutine mld_sas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_sbaseprc_type), intent(in) :: prec
+      type(mld_sbaseprec_type), intent(in) :: prec
      real(psb_spk_),intent(in)         :: x(:)
      real(psb_spk_),intent(inout)      :: y(:)
      real(psb_spk_),intent(in)         :: alpha,beta
@ -106,9 +106,9 @@ module mld_inner_mod
    end subroutine mld_sas_aply
    subroutine mld_das_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_dbaseprc_type), intent(in) :: prec
+      type(mld_dbaseprec_type), intent(in) :: prec
      real(psb_dpk_),intent(in)         :: x(:)
      real(psb_dpk_),intent(inout)      :: y(:)
      real(psb_dpk_),intent(in)         :: alpha,beta
@ -118,9 +118,9 @@ module mld_inner_mod
    end subroutine mld_das_aply
    subroutine mld_cas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_cbaseprc_type), intent(in) :: prec
+      type(mld_cbaseprec_type), intent(in) :: prec
      complex(psb_spk_),intent(in)      :: x(:)
      complex(psb_spk_),intent(inout)   :: y(:)
      complex(psb_spk_),intent(in)      :: alpha,beta
@ -130,9 +130,9 @@ module mld_inner_mod
    end subroutine mld_cas_aply
    subroutine mld_zas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_desc_type),intent(in)      :: desc_data
-      type(mld_zbaseprc_type), intent(in) :: prec
+      type(mld_zbaseprec_type), intent(in) :: prec
      complex(psb_dpk_),intent(in)      :: x(:)
      complex(psb_dpk_),intent(inout)   :: y(:)
      complex(psb_dpk_),intent(in)      :: alpha,beta
@ -145,7 +145,7 @@ module mld_inner_mod
  interface mld_mlprec_aply
    subroutine mld_smlprec_aply(alpha,precv,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type, mld_s_interlev_prec_type
+      use mld_prec_type, only : mld_sbaseprec_type, mld_s_interlev_prec_type
      type(psb_desc_type),intent(in)      :: desc_data
      type(mld_s_interlev_prec_type), intent(in) :: precv(:)
      real(psb_spk_),intent(in)         :: alpha,beta
@ -157,7 +157,7 @@ module mld_inner_mod
    end subroutine mld_smlprec_aply
    subroutine mld_dmlprec_aply(alpha,precv,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type, mld_d_interlev_prec_type
+      use mld_prec_type, only : mld_dbaseprec_type, mld_d_interlev_prec_type
      type(psb_desc_type),intent(in)      :: desc_data
      type(mld_d_interlev_prec_type), intent(in) :: precv(:)
      real(psb_dpk_),intent(in)         :: alpha,beta
@ -169,7 +169,7 @@ module mld_inner_mod
    end subroutine mld_dmlprec_aply
    subroutine mld_cmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type, mld_c_interlev_prec_type
+      use mld_prec_type, only : mld_cbaseprec_type, mld_c_interlev_prec_type
      type(psb_desc_type),intent(in)      :: desc_data
      type(mld_c_interlev_prec_type), intent(in) :: baseprecv(:)
      complex(psb_spk_),intent(in)      :: alpha,beta
@ -181,7 +181,7 @@ module mld_inner_mod
    end subroutine mld_cmlprec_aply
    subroutine mld_zmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type, mld_z_interlev_prec_type
+      use mld_prec_type, only : mld_zbaseprec_type, mld_z_interlev_prec_type
      type(psb_desc_type),intent(in)      :: desc_data
      type(mld_z_interlev_prec_type), intent(in) :: baseprecv(:)
      complex(psb_dpk_),intent(in)      :: alpha,beta
@ -197,9 +197,9 @@ module mld_inner_mod
  interface mld_sub_aply
    subroutine mld_ssub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_desc_type), intent(in)       :: desc_data
-      type(mld_sbaseprc_type), intent(in)   :: prec
+      type(mld_sbaseprec_type), intent(in)   :: prec
      real(psb_spk_),intent(in)           :: x(:)
      real(psb_spk_),intent(inout)        :: y(:)
      real(psb_spk_),intent(in)           :: alpha,beta
@ -209,9 +209,9 @@ module mld_inner_mod
    end subroutine mld_ssub_aply
    subroutine mld_dsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_desc_type), intent(in)       :: desc_data
-      type(mld_dbaseprc_type), intent(in)   :: prec
+      type(mld_dbaseprec_type), intent(in)   :: prec
      real(psb_dpk_),intent(in)           :: x(:)
      real(psb_dpk_),intent(inout)        :: y(:)
      real(psb_dpk_),intent(in)           :: alpha,beta
@ -221,9 +221,9 @@ module mld_inner_mod
    end subroutine mld_dsub_aply
    subroutine mld_csub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_desc_type), intent(in)          :: desc_data
-      type(mld_cbaseprc_type), intent(in)      :: prec
+      type(mld_cbaseprec_type), intent(in)      :: prec
      complex(psb_spk_),intent(in)           :: x(:)
      complex(psb_spk_),intent(inout)        :: y(:)
      complex(psb_spk_),intent(in)           :: alpha,beta
@ -233,9 +233,9 @@ module mld_inner_mod
    end subroutine mld_csub_aply
    subroutine mld_zsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_desc_type), intent(in)          :: desc_data
-      type(mld_zbaseprc_type), intent(in)      :: prec
+      type(mld_zbaseprec_type), intent(in)      :: prec
      complex(psb_dpk_),intent(in)           :: x(:)
      complex(psb_dpk_),intent(inout)        :: y(:)
      complex(psb_dpk_),intent(in)           :: alpha,beta
@ -249,9 +249,9 @@ module mld_inner_mod
  interface mld_sub_solve
    subroutine mld_ssub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_desc_type), intent(in)       :: desc_data
-      type(mld_sbaseprc_type), intent(in)   :: prec
+      type(mld_sbaseprec_type), intent(in)   :: prec
      real(psb_spk_),intent(in)           :: x(:)
      real(psb_spk_),intent(inout)        :: y(:)
      real(psb_spk_),intent(in)           :: alpha,beta
@ -261,9 +261,9 @@ module mld_inner_mod
    end subroutine mld_ssub_solve
    subroutine mld_dsub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_desc_type), intent(in)       :: desc_data
-      type(mld_dbaseprc_type), intent(in)   :: prec
+      type(mld_dbaseprec_type), intent(in)   :: prec
      real(psb_dpk_),intent(in)           :: x(:)
      real(psb_dpk_),intent(inout)        :: y(:)
      real(psb_dpk_),intent(in)           :: alpha,beta
@ -273,9 +273,9 @@ module mld_inner_mod
    end subroutine mld_dsub_solve
    subroutine mld_csub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_desc_type), intent(in)          :: desc_data
-      type(mld_cbaseprc_type), intent(in)      :: prec
+      type(mld_cbaseprec_type), intent(in)      :: prec
      complex(psb_spk_),intent(in)           :: x(:)
      complex(psb_spk_),intent(inout)        :: y(:)
      complex(psb_spk_),intent(in)           :: alpha,beta
@ -285,9 +285,9 @@ module mld_inner_mod
    end subroutine mld_csub_solve
    subroutine mld_zsub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_desc_type), intent(in)          :: desc_data
-      type(mld_zbaseprc_type), intent(in)      :: prec
+      type(mld_zbaseprec_type), intent(in)      :: prec
      complex(psb_dpk_),intent(in)           :: x(:)
      complex(psb_dpk_),intent(inout)        :: y(:)
      complex(psb_dpk_),intent(in)           :: alpha,beta
@ -301,7 +301,7 @@ module mld_inner_mod
  interface mld_asmat_bld
    Subroutine mld_sasmat_bld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      integer, intent(in)                 :: ptype,novr
      Type(psb_sspmat_type), Intent(in)   ::  a
      Type(psb_sspmat_type), Intent(out)  ::  blk
@ -313,7 +313,7 @@ module mld_inner_mod
    end Subroutine mld_sasmat_bld
    Subroutine mld_dasmat_bld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      integer, intent(in)                 :: ptype,novr
      Type(psb_dspmat_type), Intent(in)   ::  a
      Type(psb_dspmat_type), Intent(out)  ::  blk
@ -325,7 +325,7 @@ module mld_inner_mod
    end Subroutine mld_dasmat_bld
    Subroutine mld_casmat_bld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      integer, intent(in)                 :: ptype,novr
      Type(psb_cspmat_type), Intent(in)   ::  a
      Type(psb_cspmat_type), Intent(out)  ::  blk
@ -337,7 +337,7 @@ module mld_inner_mod
    end Subroutine mld_casmat_bld
    Subroutine mld_zasmat_bld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      integer, intent(in)                 :: ptype,novr
      Type(psb_zspmat_type), Intent(in)   ::  a
      Type(psb_zspmat_type), Intent(out)  ::  blk
@ -352,34 +352,34 @@ module mld_inner_mod
  interface mld_sp_renum
    subroutine mld_ssp_renum(a,blck,p,atmp,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), intent(in)      :: a,blck
      type(psb_sspmat_type), intent(out)     :: atmp
-      type(mld_sbaseprc_type), intent(inout) :: p
+      type(mld_sbaseprec_type), intent(inout) :: p
      integer, intent(out)   :: info
    end subroutine mld_ssp_renum
    subroutine mld_dsp_renum(a,blck,p,atmp,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), intent(in)      :: a,blck
      type(psb_dspmat_type), intent(out)     :: atmp
-      type(mld_dbaseprc_type), intent(inout) :: p
+      type(mld_dbaseprec_type), intent(inout) :: p
      integer, intent(out)   :: info
    end subroutine mld_dsp_renum
    subroutine mld_csp_renum(a,blck,p,atmp,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), intent(in)      :: a,blck
      type(psb_cspmat_type), intent(out)     :: atmp
-      type(mld_cbaseprc_type), intent(inout) :: p
+      type(mld_cbaseprec_type), intent(inout) :: p
      integer, intent(out)   :: info
    end subroutine mld_csp_renum
    subroutine mld_zsp_renum(a,blck,p,atmp,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), intent(in)      :: a,blck
      type(psb_zspmat_type), intent(out)     :: atmp
-      type(mld_zbaseprc_type), intent(inout) :: p
+      type(mld_zbaseprec_type), intent(inout) :: p
      integer, intent(out)   :: info
    end subroutine mld_zsp_renum
  end interface
@ -387,7 +387,7 @@ module mld_inner_mod
  interface mld_aggr_bld
    subroutine mld_saggr_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type, mld_s_interlev_prec_type
+      use mld_prec_type, only : mld_sbaseprec_type, mld_s_interlev_prec_type
      type(psb_sspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_s_interlev_prec_type), intent(inout), target :: p
@ -395,7 +395,7 @@ module mld_inner_mod
    end subroutine mld_saggr_bld
    subroutine mld_daggr_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type, mld_d_interlev_prec_type
+      use mld_prec_type, only : mld_dbaseprec_type, mld_d_interlev_prec_type
      type(psb_dspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_d_interlev_prec_type), intent(inout), target :: p
@ -403,7 +403,7 @@ module mld_inner_mod
    end subroutine mld_daggr_bld
    subroutine mld_caggr_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type, mld_c_interlev_prec_type
+      use mld_prec_type, only : mld_cbaseprec_type, mld_c_interlev_prec_type
      type(psb_cspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_c_interlev_prec_type), intent(inout), target :: p
@ -411,7 +411,7 @@ module mld_inner_mod
    end subroutine mld_caggr_bld
    subroutine mld_zaggr_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type, mld_z_interlev_prec_type
+      use mld_prec_type, only : mld_zbaseprec_type, mld_z_interlev_prec_type
      type(psb_zspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_z_interlev_prec_type), intent(inout), target :: p
@ -422,7 +422,7 @@ module mld_inner_mod
  interface mld_aggrmap_bld
    subroutine mld_saggrmap_bld(aggr_type,theta,a,desc_a,nlaggr,ilaggr,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      integer, intent(in)               :: aggr_type
      real(psb_spk_), intent(in)        :: theta
      type(psb_sspmat_type), intent(in) :: a
@ -432,7 +432,7 @@ module mld_inner_mod
    end subroutine mld_saggrmap_bld
    subroutine mld_daggrmap_bld(aggr_type,theta,a,desc_a,nlaggr,ilaggr,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      integer, intent(in)               :: aggr_type
      real(psb_dpk_), intent(in)        :: theta
      type(psb_dspmat_type), intent(in) :: a
@ -442,7 +442,7 @@ module mld_inner_mod
    end subroutine mld_daggrmap_bld
    subroutine mld_caggrmap_bld(aggr_type,theta,a,desc_a,nlaggr,ilaggr,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      integer, intent(in)               :: aggr_type
      real(psb_spk_), intent(in)        :: theta
      type(psb_cspmat_type), intent(in) :: a
@ -452,7 +452,7 @@ module mld_inner_mod
    end subroutine mld_caggrmap_bld
    subroutine mld_zaggrmap_bld(aggr_type,theta,a,desc_a,nlaggr,ilaggr,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      integer, intent(in)               :: aggr_type
      real(psb_dpk_), intent(in)        :: theta
      type(psb_zspmat_type), intent(in) :: a
@ -465,7 +465,7 @@ module mld_inner_mod
  interface mld_aggrmat_asb
    subroutine mld_saggrmat_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type, mld_s_interlev_prec_type
+      use mld_prec_type, only : mld_sbaseprec_type, mld_s_interlev_prec_type
      type(psb_sspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_s_interlev_prec_type), intent(inout), target :: p
@ -473,7 +473,7 @@ module mld_inner_mod
    end subroutine mld_saggrmat_asb
    subroutine mld_daggrmat_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type, mld_d_interlev_prec_type
+      use mld_prec_type, only : mld_dbaseprec_type, mld_d_interlev_prec_type
      type(psb_dspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_d_interlev_prec_type), intent(inout), target :: p
@ -481,7 +481,7 @@ module mld_inner_mod
    end subroutine mld_daggrmat_asb
    subroutine mld_caggrmat_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type, mld_c_interlev_prec_type
+      use mld_prec_type, only : mld_cbaseprec_type, mld_c_interlev_prec_type
      type(psb_cspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_c_interlev_prec_type), intent(inout), target :: p
@ -489,7 +489,7 @@ module mld_inner_mod
    end subroutine mld_caggrmat_asb
    subroutine mld_zaggrmat_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type, mld_z_interlev_prec_type
+      use mld_prec_type, only : mld_zbaseprec_type, mld_z_interlev_prec_type
      type(psb_zspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_z_interlev_prec_type), intent(inout), target :: p
@ -500,7 +500,7 @@ module mld_inner_mod
  interface mld_aggrmat_raw_asb
    subroutine mld_saggrmat_raw_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type, mld_s_interlev_prec_type
+      use mld_prec_type, only : mld_sbaseprec_type, mld_s_interlev_prec_type
      type(psb_sspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_s_interlev_prec_type), intent(inout), target :: p
@ -508,7 +508,7 @@ module mld_inner_mod
    end subroutine mld_saggrmat_raw_asb
    subroutine mld_daggrmat_raw_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type, mld_d_interlev_prec_type
+      use mld_prec_type, only : mld_dbaseprec_type, mld_d_interlev_prec_type
      type(psb_dspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_d_interlev_prec_type), intent(inout), target :: p
@ -516,7 +516,7 @@ module mld_inner_mod
    end subroutine mld_daggrmat_raw_asb
    subroutine mld_caggrmat_raw_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type, mld_c_interlev_prec_type
+      use mld_prec_type, only : mld_cbaseprec_type, mld_c_interlev_prec_type
      type(psb_cspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_c_interlev_prec_type), intent(inout), target :: p
@ -524,7 +524,7 @@ module mld_inner_mod
    end subroutine mld_caggrmat_raw_asb
    subroutine mld_zaggrmat_raw_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type, mld_z_interlev_prec_type
+      use mld_prec_type, only : mld_zbaseprec_type, mld_z_interlev_prec_type
      type(psb_zspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_z_interlev_prec_type), intent(inout), target :: p
@ -535,7 +535,7 @@ module mld_inner_mod
  interface mld_aggrmat_smth_asb
    subroutine mld_saggrmat_smth_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type, mld_s_interlev_prec_type
+      use mld_prec_type, only : mld_sbaseprec_type, mld_s_interlev_prec_type
      type(psb_sspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_s_interlev_prec_type), intent(inout), target :: p
@ -543,7 +543,7 @@ module mld_inner_mod
    end subroutine mld_saggrmat_smth_asb
    subroutine mld_daggrmat_smth_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type, mld_d_interlev_prec_type
+      use mld_prec_type, only : mld_dbaseprec_type, mld_d_interlev_prec_type
      type(psb_dspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_d_interlev_prec_type), intent(inout), target :: p
@ -551,7 +551,7 @@ module mld_inner_mod
    end subroutine mld_daggrmat_smth_asb
    subroutine mld_caggrmat_smth_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type, mld_c_interlev_prec_type
+      use mld_prec_type, only : mld_cbaseprec_type, mld_c_interlev_prec_type
      type(psb_cspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_c_interlev_prec_type), intent(inout), target :: p
@ -559,7 +559,7 @@ module mld_inner_mod
    end subroutine mld_caggrmat_smth_asb
    subroutine mld_zaggrmat_smth_asb(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type, mld_z_interlev_prec_type
+      use mld_prec_type, only : mld_zbaseprec_type, mld_z_interlev_prec_type
      type(psb_zspmat_type), intent(in)              :: a
      type(psb_desc_type), intent(in)                :: desc_a
      type(mld_z_interlev_prec_type), intent(inout), target :: p
@ -570,37 +570,37 @@ module mld_inner_mod
  interface mld_baseprec_bld
    subroutine mld_sbaseprec_bld(a,desc_a,p,info,upd)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), target              :: a
      type(psb_desc_type), intent(in), target    :: desc_a
-      type(mld_sbaseprc_type),intent(inout)      :: p
+      type(mld_sbaseprec_type),intent(inout)      :: p
      integer, intent(out)                       :: info
      character, intent(in), optional            :: upd
    end subroutine mld_sbaseprec_bld
    subroutine mld_dbaseprec_bld(a,desc_a,p,info,upd)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), target              :: a
      type(psb_desc_type), intent(in), target    :: desc_a
-      type(mld_dbaseprc_type),intent(inout)      :: p
+      type(mld_dbaseprec_type),intent(inout)      :: p
      integer, intent(out)                       :: info
      character, intent(in), optional            :: upd
    end subroutine mld_dbaseprec_bld
    subroutine mld_cbaseprec_bld(a,desc_a,p,info,upd)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), target              :: a
      type(psb_desc_type), intent(in), target    :: desc_a
-      type(mld_cbaseprc_type),intent(inout)      :: p
+      type(mld_cbaseprec_type),intent(inout)      :: p
      integer, intent(out)                       :: info
      character, intent(in), optional            :: upd
    end subroutine mld_cbaseprec_bld
    subroutine mld_zbaseprec_bld(a,desc_a,p,info,upd)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), target              :: a
      type(psb_desc_type), intent(in), target    :: desc_a
-      type(mld_zbaseprc_type),intent(inout)      :: p
+      type(mld_zbaseprec_type),intent(inout)      :: p
      integer, intent(out)                       :: info
      character, intent(in), optional            :: upd
    end subroutine mld_zbaseprec_bld
@ -609,37 +609,37 @@ module mld_inner_mod
  interface mld_as_bld
    subroutine mld_sas_bld(a,desc_a,p,upd,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), target           :: a
      type(psb_desc_type), intent(in), target :: desc_a
-      type(mld_sbaseprc_type),intent(inout)   :: p
+      type(mld_sbaseprec_type),intent(inout)   :: p
      character, intent(in)                   :: upd
      integer, intent(out)                    :: info
    end subroutine mld_sas_bld
    subroutine mld_das_bld(a,desc_a,p,upd,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), target           :: a
      type(psb_desc_type), intent(in), target :: desc_a
-      type(mld_dbaseprc_type),intent(inout)   :: p
+      type(mld_dbaseprec_type),intent(inout)   :: p
      character, intent(in)                   :: upd
      integer, intent(out)                    :: info
    end subroutine mld_das_bld
    subroutine mld_cas_bld(a,desc_a,p,upd,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), target           :: a
      type(psb_desc_type), intent(in), target :: desc_a
-      type(mld_cbaseprc_type),intent(inout)   :: p
+      type(mld_cbaseprec_type),intent(inout)   :: p
      character, intent(in)                   :: upd
      integer, intent(out)                    :: info
    end subroutine mld_cas_bld
    subroutine mld_zas_bld(a,desc_a,p,upd,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), target           :: a
      type(psb_desc_type), intent(in), target :: desc_a
-      type(mld_zbaseprc_type),intent(inout)   :: p
+      type(mld_zbaseprec_type),intent(inout)   :: p
      character, intent(in)                   :: upd
      integer, intent(out)                    :: info
    end subroutine mld_zas_bld
@ -648,71 +648,71 @@ module mld_inner_mod
  interface mld_diag_bld
    subroutine mld_sdiag_bld(a,desc_data,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      integer, intent(out) :: info
      type(psb_sspmat_type), intent(in), target :: a
      type(psb_desc_type),intent(in)            :: desc_data
-      type(mld_sbaseprc_type), intent(inout)    :: p
+      type(mld_sbaseprec_type), intent(inout)    :: p
    end subroutine mld_sdiag_bld
    subroutine mld_ddiag_bld(a,desc_data,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      integer, intent(out) :: info
      type(psb_dspmat_type), intent(in), target :: a
      type(psb_desc_type),intent(in)            :: desc_data
-      type(mld_dbaseprc_type), intent(inout)    :: p
+      type(mld_dbaseprec_type), intent(inout)    :: p
    end subroutine mld_ddiag_bld
    subroutine mld_cdiag_bld(a,desc_data,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      integer, intent(out) :: info
      type(psb_cspmat_type), intent(in), target :: a
      type(psb_desc_type),intent(in)            :: desc_data
-      type(mld_cbaseprc_type), intent(inout)    :: p
+      type(mld_cbaseprec_type), intent(inout)    :: p
    end subroutine mld_cdiag_bld
    subroutine mld_zdiag_bld(a,desc_data,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      integer, intent(out) :: info
      type(psb_zspmat_type), intent(in), target :: a
      type(psb_desc_type),intent(in)            :: desc_data
-      type(mld_zbaseprc_type), intent(inout)    :: p
+      type(mld_zbaseprec_type), intent(inout)    :: p
    end subroutine mld_zdiag_bld
  end interface
  interface mld_fact_bld
    subroutine mld_sfact_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), intent(in), target :: a
-      type(mld_sbaseprc_type), intent(inout)    :: p
+      type(mld_sbaseprec_type), intent(inout)    :: p
      integer, intent(out)                      :: info
      character, intent(in)                     :: upd
      type(psb_sspmat_type), intent(in), target, optional  :: blck
    end subroutine mld_sfact_bld
    subroutine mld_dfact_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), intent(in), target :: a
-      type(mld_dbaseprc_type), intent(inout)    :: p
+      type(mld_dbaseprec_type), intent(inout)    :: p
      integer, intent(out)                      :: info
      character, intent(in)                     :: upd
      type(psb_dspmat_type), intent(in), target, optional  :: blck
    end subroutine mld_dfact_bld
    subroutine mld_cfact_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), intent(in), target :: a
-      type(mld_cbaseprc_type), intent(inout)    :: p
+      type(mld_cbaseprec_type), intent(inout)    :: p
      integer, intent(out)                      :: info
      character, intent(in)                     :: upd
      type(psb_cspmat_type), intent(in), target, optional  :: blck
    end subroutine mld_cfact_bld
    subroutine mld_zfact_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), intent(in), target :: a
-      type(mld_zbaseprc_type), intent(inout)    :: p
+      type(mld_zbaseprec_type), intent(inout)    :: p
      integer, intent(out)                      :: info
      character, intent(in)                     :: upd
      type(psb_zspmat_type), intent(in), target, optional  :: blck
@ -722,37 +722,37 @@ module mld_inner_mod
  interface mld_ilu_bld
    subroutine mld_silu_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      integer, intent(out) :: info
      type(psb_sspmat_type), intent(in), target :: a
-      type(mld_sbaseprc_type), intent(inout)    :: p
+      type(mld_sbaseprec_type), intent(inout)    :: p
      character, intent(in)                     :: upd
      type(psb_sspmat_type), intent(in), optional :: blck
    end subroutine mld_silu_bld
    subroutine mld_dilu_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      integer, intent(out) :: info
      type(psb_dspmat_type), intent(in), target :: a
-      type(mld_dbaseprc_type), intent(inout)    :: p
+      type(mld_dbaseprec_type), intent(inout)    :: p
      character, intent(in)                     :: upd
      type(psb_dspmat_type), intent(in), optional :: blck
    end subroutine mld_dilu_bld
    subroutine mld_cilu_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      integer, intent(out) :: info
      type(psb_cspmat_type), intent(in), target :: a
-      type(mld_cbaseprc_type), intent(inout)    :: p
+      type(mld_cbaseprec_type), intent(inout)    :: p
      character, intent(in)                     :: upd
      type(psb_cspmat_type), intent(in), optional :: blck
    end subroutine mld_cilu_bld
    subroutine mld_zilu_bld(a,p,upd,info,blck)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      integer, intent(out) :: info
      type(psb_zspmat_type), intent(in), target :: a
-      type(mld_zbaseprc_type), intent(inout)    :: p
+      type(mld_zbaseprec_type), intent(inout)    :: p
      character, intent(in)                     :: upd
      type(psb_zspmat_type), intent(in), optional :: blck
    end subroutine mld_zilu_bld
@ -761,34 +761,34 @@ module mld_inner_mod
  interface mld_sludist_bld
    subroutine mld_ssludist_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_sbaseprc_type), intent(inout) :: p
+      type(mld_sbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_ssludist_bld
    subroutine mld_dsludist_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_dbaseprc_type), intent(inout) :: p
+      type(mld_dbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_dsludist_bld
    subroutine mld_csludist_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_cbaseprc_type), intent(inout) :: p
+      type(mld_cbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_csludist_bld
    subroutine mld_zsludist_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_zbaseprc_type), intent(inout) :: p
+      type(mld_zbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_zsludist_bld
  end interface
@ -796,34 +796,34 @@ module mld_inner_mod
  interface mld_slu_bld
    subroutine mld_sslu_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), intent(inout)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_sbaseprc_type), intent(inout) :: p
+      type(mld_sbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_sslu_bld
    subroutine mld_dslu_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), intent(inout)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_dbaseprc_type), intent(inout) :: p
+      type(mld_dbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_dslu_bld
    subroutine mld_cslu_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_cbaseprc_type), intent(inout) :: p
+      type(mld_cbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_cslu_bld
    subroutine mld_zslu_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), intent(inout)   :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_zbaseprc_type), intent(inout) :: p
+      type(mld_zbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_zslu_bld
  end interface
@ -831,34 +831,34 @@ module mld_inner_mod
  interface mld_umf_bld
    subroutine mld_sumf_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_sbaseprc_type
+      use mld_prec_type, only : mld_sbaseprec_type
      type(psb_sspmat_type), intent(inout)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_sbaseprc_type), intent(inout) :: p
+      type(mld_sbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_sumf_bld
    subroutine mld_dumf_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_dbaseprc_type
+      use mld_prec_type, only : mld_dbaseprec_type
      type(psb_dspmat_type), intent(inout)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_dbaseprc_type), intent(inout) :: p
+      type(mld_dbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_dumf_bld
    subroutine mld_cumf_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
-      use mld_prec_type, only : mld_cbaseprc_type
+      use mld_prec_type, only : mld_cbaseprec_type
      type(psb_cspmat_type), intent(in)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_cbaseprc_type), intent(inout) :: p
+      type(mld_cbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_cumf_bld
    subroutine mld_zumf_bld(a,desc_a,p,info)
      use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
-      use mld_prec_type, only : mld_zbaseprc_type
+      use mld_prec_type, only : mld_zbaseprec_type
      type(psb_zspmat_type), intent(in)      :: a
      type(psb_desc_type), intent(in)        :: desc_a
-      type(mld_zbaseprc_type), intent(inout) :: p
+      type(mld_zbaseprec_type), intent(inout) :: p
      integer, intent(out)                   :: info
    end subroutine mld_zumf_bld
  end interface
--- a/mlprec/mld_move_alloc_mod.F90
+++ b/mlprec/mld_move_alloc_mod.F90
@ -49,7 +49,7 @@
 !    data structure (see below).
 !
 !  It contains:
-!  - mld_dprec_sizeof, mld_dbaseprc_sizeof, mld_out_prec_descr, mld_file_prec_descr,
+!  - mld_dprec_sizeof, mld_dbaseprec_sizeof, mld_out_prec_descr, mld_file_prec_descr,
 !    mld_icheck_def, mld_dcheck_def, mld_dbase_precfree, mld_nullify_dbaseprec,
 !    is_legal_..._..., and their complex versions (if applicable).
 !  These routines check if the preconditioner is correctly defined,      print a
@ -77,7 +77,7 @@ contains
  subroutine mld_sbaseprec_move_alloc(a, b,info)
    use psb_base_mod
    implicit none
-    type(mld_sbaseprc_type), intent(inout) :: a, b
+    type(mld_sbaseprec_type), intent(inout) :: a, b
    integer, intent(out) :: info 
    integer :: i, isz
@ -172,7 +172,7 @@ contains
  subroutine mld_dbaseprec_move_alloc(a, b,info)
    use psb_base_mod
    implicit none
-    type(mld_dbaseprc_type), intent(inout) :: a, b
+    type(mld_dbaseprec_type), intent(inout) :: a, b
    integer, intent(out) :: info 
    integer :: i, isz
@ -267,7 +267,7 @@ contains
  subroutine mld_cbaseprec_move_alloc(a, b,info)
    use psb_base_mod
    implicit none
-    type(mld_cbaseprc_type), intent(inout) :: a, b
+    type(mld_cbaseprec_type), intent(inout) :: a, b
    integer, intent(out) :: info 
    integer :: i, isz
@ -362,7 +362,7 @@ contains
  subroutine mld_zbaseprec_move_alloc(a, b,info)
    use psb_base_mod
    implicit none
-    type(mld_zbaseprc_type), intent(inout) :: a, b
+    type(mld_zbaseprec_type), intent(inout) :: a, b
    integer, intent(out) :: info 
    integer :: i, isz
--- a/mlprec/mld_prec_type.f90
+++ b/mlprec/mld_prec_type.f90
@ -49,7 +49,7 @@
 !    data structure (see below).
 !
 !  It contains:
-!  - mld_dprec_sizeof, mld_dbaseprc_sizeof, mld_out_prec_descr, mld_file_prec_descr,
+!  - mld_dprec_sizeof, mld_dbaseprec_sizeof, mld_out_prec_descr, mld_file_prec_descr,
 !    mld_icheck_def, mld_dcheck_def, mld_dbase_precfree, mld_nullify_dbaseprec,
 !    is_legal_..._..., and their complex versions (if applicable).
 !  These routines check if the preconditioner is correctly defined,      print a
@ -101,7 +101,7 @@ module mld_prec_type
  ! Type: mld_X_interlev_prec_type.
  !       The data type containing necessary items for the current level.
  !
-  !   type(mld_Xbaseprc_type) -  prec
+  !   type(mld_Xbaseprec_type) -  prec
  !                   The current level preconditioner (aka smoother).
  !   ac           -  The local part of the matrix A(ilev).
  !   desc_ac      -  type(psb_desc_type).
@ -128,7 +128,7 @@ module mld_prec_type
  !   base_desc    -  type(psb_desc_type), pointer.
  !                   Pointer to the communication descriptor associated to the sparse
  !                   matrix pointed by base_a. 
-  ! Type: mld_Xbaseprc_type  
+  ! Type: mld_Xbaseprec_type  
  !       The smoother. 
  !
  !    av         -  type(psb_Xspmat_type), dimension(:), allocatable(:).
@ -166,17 +166,17 @@ module mld_prec_type
  !   prec%iprcparm(mld_umf_ptr) or prec%iprcparm(mld_slu_ptr), respectively.
  !
-  type mld_sbaseprc_type
+  type mld_sbaseprec_type
    type(psb_sspmat_type), allocatable :: av(:) 
    real(psb_spk_), allocatable        :: d(:)  
    type(psb_desc_type)                :: desc_data
    integer, allocatable               :: iprcparm(:) 
    real(psb_spk_), allocatable        :: rprcparm(:) 
    integer, allocatable               :: perm(:),  invperm(:) 
-  end type mld_sbaseprc_type
+  end type mld_sbaseprec_type
  type mld_s_interlev_prec_type
-    type(mld_sbaseprc_type)            :: prec
+    type(mld_sbaseprec_type)            :: prec
    integer, allocatable               :: iprcparm(:) 
    real(psb_spk_), allocatable        :: rprcparm(:) 
    type(psb_sspmat_type)              :: ac
@ -191,17 +191,17 @@ module mld_prec_type
    type(mld_s_interlev_prec_type), allocatable :: precv(:) 
  end type mld_sprec_type
-  type mld_dbaseprc_type
+  type mld_dbaseprec_type
    type(psb_dspmat_type), allocatable :: av(:) 
    real(psb_dpk_), allocatable        :: d(:)  
    type(psb_desc_type)                :: desc_data
    integer, allocatable               :: iprcparm(:) 
    real(psb_dpk_), allocatable        :: rprcparm(:) 
    integer, allocatable               :: perm(:),  invperm(:) 
-  end type mld_dbaseprc_type
+  end type mld_dbaseprec_type
  type mld_d_interlev_prec_type
-    type(mld_dbaseprc_type)            :: prec
+    type(mld_dbaseprec_type)            :: prec
    integer, allocatable               :: iprcparm(:) 
    real(psb_dpk_), allocatable        :: rprcparm(:) 
    type(psb_dspmat_type)              :: ac
@ -217,17 +217,17 @@ module mld_prec_type
  end type mld_dprec_type
-  type mld_cbaseprc_type
+  type mld_cbaseprec_type
    type(psb_cspmat_type), allocatable :: av(:) 
    complex(psb_spk_), allocatable     :: d(:)  
    type(psb_desc_type)                :: desc_data
    integer, allocatable               :: iprcparm(:) 
    real(psb_spk_), allocatable        :: rprcparm(:) 
    integer, allocatable               :: perm(:),  invperm(:) 
-  end type mld_cbaseprc_type
+  end type mld_cbaseprec_type
  type mld_c_interlev_prec_type
-    type(mld_cbaseprc_type)            :: prec
+    type(mld_cbaseprec_type)            :: prec
    integer, allocatable               :: iprcparm(:) 
    real(psb_spk_), allocatable        :: rprcparm(:) 
    type(psb_cspmat_type)              :: ac
@ -242,17 +242,17 @@ module mld_prec_type
    type(mld_c_interlev_prec_type), allocatable :: precv(:) 
  end type mld_cprec_type
-  type mld_zbaseprc_type
+  type mld_zbaseprec_type
    type(psb_zspmat_type), allocatable :: av(:) 
    complex(psb_dpk_), allocatable     :: d(:)  
    type(psb_desc_type)                :: desc_data
    integer, allocatable               :: iprcparm(:) 
    real(psb_dpk_), allocatable        :: rprcparm(:) 
    integer, allocatable               :: perm(:),  invperm(:) 
-  end type mld_zbaseprc_type
+  end type mld_zbaseprec_type
  type mld_z_interlev_prec_type
-    type(mld_zbaseprc_type)            :: prec
+    type(mld_zbaseprec_type)            :: prec
    integer, allocatable               :: iprcparm(:) 
    real(psb_dpk_), allocatable        :: rprcparm(:) 
    type(psb_zspmat_type)              :: ac
@ -449,8 +449,8 @@ module mld_prec_type
  interface mld_sizeof
    module procedure mld_sprec_sizeof, mld_cprec_sizeof, &
         & mld_dprec_sizeof, mld_zprec_sizeof, &
-         & mld_sbaseprc_sizeof, mld_cbaseprc_sizeof,&
+         & mld_sbaseprec_sizeof, mld_cbaseprec_sizeof,&
-         & mld_dbaseprc_sizeof, mld_zbaseprc_sizeof, &
+         & mld_dbaseprec_sizeof, mld_zbaseprec_sizeof, &
         & mld_s_onelev_prec_sizeof, mld_d_onelev_prec_sizeof,&
         & mld_c_onelev_prec_sizeof, mld_z_onelev_prec_sizeof
  end interface
@ -612,12 +612,12 @@ contains
  end function mld_zprec_sizeof
  !
-  ! Function returning the size of the mld_baseprc_type data structure
+  ! Function returning the size of the mld_baseprec_type data structure
  !
-  function mld_sbaseprc_sizeof(prec) result(val)
+  function mld_sbaseprec_sizeof(prec) result(val)
    implicit none 
-    type(mld_sbaseprc_type), intent(in) :: prec
+    type(mld_sbaseprec_type), intent(in) :: prec
    integer(psb_long_int_k_) :: val
    integer             :: i
@ -647,11 +647,11 @@ contains
      end do
    end if
-  end function mld_sbaseprc_sizeof
+  end function mld_sbaseprec_sizeof
-  function mld_dbaseprc_sizeof(prec) result(val)
+  function mld_dbaseprec_sizeof(prec) result(val)
    implicit none 
-    type(mld_dbaseprc_type), intent(in) :: prec
+    type(mld_dbaseprec_type), intent(in) :: prec
    integer(psb_long_int_k_) :: val
    integer             :: i
@ -682,11 +682,11 @@ contains
    end if
-  end function mld_dbaseprc_sizeof
+  end function mld_dbaseprec_sizeof
-  function mld_cbaseprc_sizeof(prec) result(val)
+  function mld_cbaseprec_sizeof(prec) result(val)
    implicit none 
-    type(mld_cbaseprc_type), intent(in) :: prec
+    type(mld_cbaseprec_type), intent(in) :: prec
    integer(psb_long_int_k_) :: val
    integer             :: i
@ -716,11 +716,11 @@ contains
      end do
    end if
-  end function mld_cbaseprc_sizeof
+  end function mld_cbaseprec_sizeof
-  function mld_zbaseprc_sizeof(prec) result(val)
+  function mld_zbaseprec_sizeof(prec) result(val)
    implicit none 
-    type(mld_zbaseprc_type), intent(in) :: prec
+    type(mld_zbaseprec_type), intent(in) :: prec
    integer(psb_long_int_k_) :: val
    integer             :: i
@ -750,7 +750,7 @@ contains
      end do
    end if
-  end function mld_zbaseprc_sizeof
+  end function mld_zbaseprec_sizeof
  function mld_s_onelev_prec_sizeof(prec) result(val)
    implicit none 
@ -1816,7 +1816,7 @@ contains
  subroutine mld_sbase_precfree(p,info)
    implicit none 
-    type(mld_sbaseprc_type), intent(inout) :: p
+    type(mld_sbaseprec_type), intent(inout) :: p
    integer, intent(out)                :: info
    integer :: i
@ -1925,7 +1925,7 @@ contains
  subroutine mld_nullify_sbaseprec(p)
    implicit none 
-    type(mld_sbaseprc_type), intent(inout) :: p
+    type(mld_sbaseprec_type), intent(inout) :: p
 !!$    nullify(p%base_a) 
 !!$    nullify(p%base_desc) 
@ -1936,7 +1936,7 @@ contains
  subroutine mld_dbase_precfree(p,info)
    implicit none 
-    type(mld_dbaseprc_type), intent(inout) :: p
+    type(mld_dbaseprec_type), intent(inout) :: p
    integer, intent(out)                :: info
    integer :: i
@ -2039,7 +2039,7 @@ contains
  subroutine mld_nullify_dbaseprec(p)
    implicit none 
-    type(mld_dbaseprc_type), intent(inout) :: p
+    type(mld_dbaseprec_type), intent(inout) :: p
 !!$
 !!$    nullify(p%base_a) 
 !!$    nullify(p%base_desc) 
@ -2058,7 +2058,7 @@ contains
  subroutine mld_cbase_precfree(p,info)
    implicit none 
-    type(mld_cbaseprc_type), intent(inout) :: p
+    type(mld_cbaseprec_type), intent(inout) :: p
    integer, intent(out)                :: info
    integer :: i
@ -2161,7 +2161,7 @@ contains
  subroutine mld_nullify_cbaseprec(p)
    implicit none 
-    type(mld_cbaseprc_type), intent(inout) :: p
+    type(mld_cbaseprec_type), intent(inout) :: p
 !!$    nullify(p%base_a) 
 !!$    nullify(p%base_desc) 
@ -2170,7 +2170,7 @@ contains
  subroutine mld_zbase_precfree(p,info)
    implicit none 
-    type(mld_zbaseprc_type), intent(inout) :: p
+    type(mld_zbaseprec_type), intent(inout) :: p
    integer, intent(out)                :: info
    integer :: i
@ -2278,7 +2278,7 @@ contains
  subroutine mld_nullify_zbaseprec(p)
    implicit none 
-    type(mld_zbaseprc_type), intent(inout) :: p
+    type(mld_zbaseprec_type), intent(inout) :: p
 !!$    nullify(p%base_a) 
 !!$    nullify(p%base_desc) 
--- a/mlprec/mld_sas_aply.f90
+++ b/mlprec/mld_sas_aply.f90
@ -54,7 +54,7 @@
 ! Arguments:
 !   alpha      -  real(psb_spk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_sbaseprc_type), input.
+!   prec       -  type(mld_sbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_spk_), dimension(:), input.
@ -83,7 +83,7 @@ subroutine mld_sas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_sbaseprc_type), intent(in) :: prec
+  type(mld_sbaseprec_type), intent(in) :: prec
  real(psb_spk_),intent(in)         :: x(:)
  real(psb_spk_),intent(inout)      :: y(:)
  real(psb_spk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_sas_bld.f90
+++ b/mlprec/mld_sas_bld.f90
@ -54,7 +54,7 @@
 !                  matrix to be preconditioned.
 !    desc_a     -  type(psb_desc_type), input.
 !                  The communication descriptor of the sparse matrix a.
-!    p          -  type(mld_sbaseprc_type), input/output.
+!    p          -  type(mld_sbaseprec_type), input/output.
 !                  The 'base preconditioner' data structure containing the local
 !                  part of the preconditioner or solver to be built.
 !    upd        -  character, input.
@ -76,7 +76,7 @@ subroutine mld_sas_bld(a,desc_a,p,upd,info)
  ! Arguments
  type(psb_sspmat_type), intent(in), target :: a
  Type(psb_desc_type), Intent(in)           :: desc_a 
-  type(mld_sbaseprc_type), intent(inout)    :: p
+  type(mld_sbaseprec_type), intent(inout)    :: p
  character, intent(in)                     :: upd
  integer, intent(out)                      :: info
--- a/mlprec/mld_sbaseprec_aply.f90
+++ b/mlprec/mld_sbaseprec_aply.f90
@ -58,7 +58,7 @@
 ! Arguments:
 !   alpha      -  real(psb_spk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_sbaseprc_type), input.
+!   prec       -  type(mld_sbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_spk_), dimension(:), input.
@ -87,7 +87,7 @@ subroutine mld_sbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_sbaseprc_type), intent(in) :: prec
+  type(mld_sbaseprec_type), intent(in) :: prec
  real(psb_spk_),intent(in)         :: x(:)
  real(psb_spk_),intent(inout)      :: y(:)
  real(psb_spk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_sbaseprec_bld.f90
+++ b/mlprec/mld_sbaseprec_bld.f90
@ -78,7 +78,7 @@ subroutine mld_sbaseprec_bld(a,desc_a,p,info,upd)
  ! Arguments
  type(psb_sspmat_type), target           :: a
  type(psb_desc_type), intent(in), target :: desc_a
-  type(mld_sbaseprc_type),intent(inout)   :: p
+  type(mld_sbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
  character, intent(in), optional         :: upd
@ -89,7 +89,7 @@ subroutine mld_sbaseprec_bld(a,desc_a,p,info,upd)
  character(len=20)   :: name, ch_err
  if (psb_get_errstatus() /= 0) return 
-  name = 'mld_sbaseprc_bld'
+  name = 'mld_sbaseprec_bld'
  info=0
  err=0
  call psb_erractionsave(err_act)
--- a/mlprec/mld_sdiag_bld.f90
+++ b/mlprec/mld_sdiag_bld.f90
@ -51,7 +51,7 @@
 !               matrix A to be preconditioned.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to the sparse matrix A.
-!    p       -  type(mld_sbaseprc_type), input/output.
+!    p       -  type(mld_sbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the local 
 !               part of the diagonal preconditioner.
 !    info    -  integer, output.
@ -67,7 +67,7 @@ subroutine mld_sdiag_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_sspmat_type), target           :: a
  type(psb_desc_type), intent(in)         :: desc_a
-  type(mld_sbaseprc_type),intent(inout)   :: p
+  type(mld_sbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
 ! Local variables
--- a/mlprec/mld_sfact_bld.f90
+++ b/mlprec/mld_sfact_bld.f90
@ -117,7 +117,7 @@ subroutine mld_sfact_bld(a,p,upd,info,blck)
  ! Arguments
  type(psb_sspmat_type), intent(in), target :: a
-  type(mld_sbaseprc_type), intent(inout)    :: p
+  type(mld_sbaseprec_type), intent(inout)    :: p
  integer, intent(out)                      :: info
  character, intent(in)                     :: upd
  type(psb_sspmat_type), intent(in), target, optional  :: blck
--- a/mlprec/mld_silu_bld.f90
+++ b/mlprec/mld_silu_bld.f90
@ -73,7 +73,7 @@
 !               only the 'original' local part of the distributed matrix,
 !               i.e. the rows of the matrix held by the calling process according
 !               to the initial data distribution.
-!    p       -  type(mld_sbaseprc_type), input/output.
+!    p       -  type(mld_sbaseprec_type), input/output.
 !               The 'base preconditioner' data structure. In input, p%iprcparm
 !               contains information on the type of factorization to be computed.
 !               In output, p%av(mld_l_pr_) and p%av(mld_u_pr_) contain the
@ -98,7 +98,7 @@ subroutine mld_silu_bld(a,p,upd,info,blck)
 ! Arguments                                                     
  type(psb_sspmat_type), intent(in), target   :: a
-  type(mld_sbaseprc_type), intent(inout)      :: p
+  type(mld_sbaseprec_type), intent(inout)      :: p
  character, intent(in)                       :: upd
  integer, intent(out)                        :: info
  type(psb_sspmat_type), intent(in), optional :: blck
--- a/mlprec/mld_smlprec_aply.f90
+++ b/mlprec/mld_smlprec_aply.f90
@ -82,7 +82,7 @@
 !                  The array of one-level preconditioner data structures containing the
 !                  local parts of the preconditioners to be applied at each level.
 !      Note that nlev = size(precv) = number of levels.
-!      precv(ilev)%prec  -  type(psb_sbaseprc_type)
+!      precv(ilev)%prec  -  type(psb_sbaseprec_type)
 !                           The "base" preconditioner for the current level
 !      precv(ilev)%ac        -  type(psb_sspmat_type) 
 !                                The local part of the matrix A(ilev).
--- a/mlprec/mld_sprecbld.f90
+++ b/mlprec/mld_sprecbld.f90
@ -40,7 +40,7 @@
 !
 ! Subroutine: mld_sprecbld
 ! Version:    real
-! Contains:   subroutine init_baseprc_av
+! Contains:   subroutine init_baseprec_av
 !
 !  This routine builds the preconditioner according to the requirements made by
 !  the user trough the subroutines mld_precinit and mld_precset.
@ -154,7 +154,7 @@ subroutine mld_sprecbld(a,desc_a,p,info)
    !
    ! Finest level first; remember to fix base_a and base_desc
    ! 
-    call init_baseprc_av(p%precv(1)%prec,info)
+    call init_baseprec_av(p%precv(1)%prec,info)
    p%precv(1)%base_a    => a
    p%precv(1)%base_desc => desc_a
@ -211,7 +211,7 @@ subroutine mld_sprecbld(a,desc_a,p,info)
      !
      ! Build the mapping between levels (i-1) and (i)
      ! 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
@ -275,7 +275,7 @@ subroutine mld_sprecbld(a,desc_a,p,info)
      i    = iszv 
      call check_coarse_lev(p%precv(i)) 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
      if (info /= 0) then 
@ -328,8 +328,8 @@ subroutine mld_sprecbld(a,desc_a,p,info)
 contains
-  subroutine init_baseprc_av(p,info)
+  subroutine init_baseprec_av(p,info)
-    type(mld_sbaseprc_type), intent(inout) :: p
+    type(mld_sbaseprec_type), intent(inout) :: p
    integer                                :: info
    if (allocated(p%av)) then
      if (size(p%av) /= mld_max_avsz_) then 
@ -345,7 +345,7 @@ contains
      call psb_nullify_sp(p%av(k))
    end do
-  end subroutine init_baseprc_av
+  end subroutine init_baseprec_av
  subroutine check_coarse_lev(prec)
    type(mld_s_interlev_prec_type) :: prec
--- a/mlprec/mld_sslu_bld.f90
+++ b/mlprec/mld_sslu_bld.f90
@ -62,7 +62,7 @@
 !               be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_sbaseprc_type), input/output.
+!    p       -  type(mld_sbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slu_ptr_), to the data structure used by SuperLU
 !               to store the L and U factors.
@ -79,7 +79,7 @@ subroutine mld_sslu_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_sspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_sbaseprc_type), intent(inout) :: p
+  type(mld_sbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_sslud_bld.f90
+++ b/mlprec/mld_sslud_bld.f90
@ -59,7 +59,7 @@
 !               matrix to be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!       p       -  type(mld_sbaseprc_type), input/output.
+!       p       -  type(mld_sbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slud_ptr_), to the data structure used by 
 !               SuperLU_DIST to store the L and U factors.
@ -76,7 +76,7 @@ subroutine mld_ssludist_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_sspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_sbaseprc_type), intent(inout) :: p
+  type(mld_sbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_ssp_renum.f90
+++ b/mlprec/mld_ssp_renum.f90
@ -69,7 +69,7 @@
 !               to build an Additive Schwarz base preconditioner with overlap
 !               greater than 0.If the overlap is 0, then blck does not contain
 !               any row.
-!       p    -  type(mld_sbaseprc_type), input/output.
+!       p    -  type(mld_sbaseprec_type), input/output.
 !               The base preconditioner data structure containing the local
 !               part of the base preconditioner to be built. In input it 
 !               contains information on the type of reordering to be applied
@ -91,7 +91,7 @@ subroutine mld_ssp_renum(a,blck,p,atmp,info)
  ! Arguments                                                    
  type(psb_sspmat_type), intent(in)      :: a,blck
  type(psb_sspmat_type), intent(out)     :: atmp
-  type(mld_sbaseprc_type), intent(inout) :: p
+  type(mld_sbaseprec_type), intent(inout) :: p
  integer, intent(out)   :: info
  ! Local variables
--- a/mlprec/mld_ssub_aply.f90
+++ b/mlprec/mld_ssub_aply.f90
@ -141,7 +141,7 @@ subroutine mld_ssub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)        :: desc_data
-  type(mld_sbaseprc_type), intent(in)    :: prec
+  type(mld_sbaseprec_type), intent(in)    :: prec
  real(psb_spk_),intent(in)            :: x(:)
  real(psb_spk_),intent(inout)         :: y(:)
  real(psb_spk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_ssub_solve.f90
+++ b/mlprec/mld_ssub_solve.f90
@ -119,7 +119,7 @@ subroutine mld_ssub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)        :: desc_data
-  type(mld_sbaseprc_type), intent(in)    :: prec
+  type(mld_sbaseprec_type), intent(in)    :: prec
  real(psb_spk_),intent(in)            :: x(:)
  real(psb_spk_),intent(inout)         :: y(:)
  real(psb_spk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_sumf_bld.f90
+++ b/mlprec/mld_sumf_bld.f90
@ -67,7 +67,7 @@
 !               C code performing the factorization.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_sbaseprc_type), input/output.
+!    p       -  type(mld_sbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointers,
 !               p%iprcparm(mld_umf_symptr_) and p%iprcparm(mld_umf_numptr_),
 !               to the data structures used by UMFPACK for computing the LU
@ -85,7 +85,7 @@ subroutine mld_sumf_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_sspmat_type), intent(inout)      :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_sbaseprc_type), intent(inout) :: p
+  type(mld_sbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_zas_aply.f90
+++ b/mlprec/mld_zas_aply.f90
@ -54,7 +54,7 @@
 ! Arguments:
 !   alpha      -  real(psb_dpk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_dbaseprc_type), input.
+!   prec       -  type(mld_dbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  real(psb_dpk_), dimension(:), input.
@ -83,7 +83,7 @@ subroutine mld_zas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_zbaseprc_type), intent(in) :: prec
+  type(mld_zbaseprec_type), intent(in) :: prec
  complex(psb_dpk_),intent(in)         :: x(:)
  complex(psb_dpk_),intent(inout)      :: y(:)
  complex(psb_dpk_),intent(in)         :: alpha,beta
--- a/mlprec/mld_zas_bld.f90
+++ b/mlprec/mld_zas_bld.f90
@ -54,7 +54,7 @@
 !                  matrix to be preconditioned.
 !    desc_a     -  type(psb_desc_type), input.
 !                  The communication descriptor of the sparse matrix a.
-!    p          -  type(mld_zbaseprc_type), input/output.
+!    p          -  type(mld_zbaseprec_type), input/output.
 !                  The 'base preconditioner' data structure containing the local
 !                  part of the preconditioner or solver to be built.
 !    upd        -  character, input.
@ -76,7 +76,7 @@ subroutine mld_zas_bld(a,desc_a,p,upd,info)
  ! Arguments
  type(psb_zspmat_type), intent(in), target :: a
  Type(psb_desc_type), Intent(in)           :: desc_a 
-  type(mld_zbaseprc_type), intent(inout)    :: p
+  type(mld_zbaseprec_type), intent(inout)    :: p
  character, intent(in)                     :: upd
  integer, intent(out)                      :: info
--- a/mlprec/mld_zbaseprec_aply.f90
+++ b/mlprec/mld_zbaseprec_aply.f90
@ -58,7 +58,7 @@
 ! Arguments:
 !   alpha      -  complex(psb_dpk_), input.
 !                 The scalar alpha.
-!   prec       -  type(mld_zbaseprc_type), input.
+!   prec       -  type(mld_zbaseprec_type), input.
 !                 The base preconditioner data structure containing the local part
 !                 of the preconditioner K.
 !   x          -  complex(psb_dpk_), dimension(:), input.
@ -87,7 +87,7 @@ subroutine mld_zbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type),intent(in)      :: desc_data
-  type(mld_zbaseprc_type), intent(in) :: prec
+  type(mld_zbaseprec_type), intent(in) :: prec
  complex(psb_dpk_),intent(in)      :: x(:)
  complex(psb_dpk_),intent(inout)   :: y(:)
  complex(psb_dpk_),intent(in)      :: alpha,beta
--- a/mlprec/mld_zbaseprec_bld.f90
+++ b/mlprec/mld_zbaseprec_bld.f90
@ -78,7 +78,7 @@ subroutine mld_zbaseprec_bld(a,desc_a,p,info,upd)
  ! Arguments
  type(psb_zspmat_type), target           :: a
  type(psb_desc_type), intent(in), target :: desc_a
-  type(mld_zbaseprc_type),intent(inout)   :: p
+  type(mld_zbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
  character, intent(in), optional         :: upd
--- a/mlprec/mld_zdiag_bld.f90
+++ b/mlprec/mld_zdiag_bld.f90
@ -51,7 +51,7 @@
 !               matrix A to be preconditioned.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to the sparse matrix A.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the local 
 !               part of the diagonal preconditioner.
 !    info    -  integer, output.
@ -67,7 +67,7 @@ subroutine mld_zdiag_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_zspmat_type), target           :: a
  type(psb_desc_type), intent(in)         :: desc_a
-  type(mld_zbaseprc_type),intent(inout)   :: p
+  type(mld_zbaseprec_type),intent(inout)   :: p
  integer, intent(out)                    :: info
 ! Local variables
--- a/mlprec/mld_zfact_bld.f90
+++ b/mlprec/mld_zfact_bld.f90
@ -118,7 +118,7 @@ subroutine mld_zfact_bld(a,p,upd,info,blck)
 ! Arguments
  type(psb_zspmat_type), intent(in), target :: a
-  type(mld_zbaseprc_type), intent(inout)    :: p
+  type(mld_zbaseprec_type), intent(inout)    :: p
  integer, intent(out)                      :: info
  character, intent(in)                     :: upd
  type(psb_zspmat_type), intent(in), target, optional  :: blck
--- a/mlprec/mld_zilu_bld.f90
+++ b/mlprec/mld_zilu_bld.f90
@ -73,7 +73,7 @@
 !               only the 'original' local part of the distributed matrix,
 !               i.e. the rows of the matrix held by the calling process according
 !               to the initial data distribution.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The 'base preconditioner' data structure. In input, p%iprcparm
 !               contains information on the type of factorization to be computed.
 !               In output, p%av(mld_l_pr_) and p%av(mld_u_pr_) contain the
@ -98,7 +98,7 @@ subroutine mld_zilu_bld(a,p,upd,info,blck)
 ! Arguments                                                     
  type(psb_zspmat_type), intent(in), target   :: a
-  type(mld_zbaseprc_type), intent(inout)      :: p
+  type(mld_zbaseprec_type), intent(inout)      :: p
  character, intent(in)                       :: upd
  integer, intent(out)                        :: info
  type(psb_zspmat_type), intent(in), optional :: blck
--- a/mlprec/mld_zmlprec_aply.f90
+++ b/mlprec/mld_zmlprec_aply.f90
@ -82,7 +82,7 @@
 !                  The array of one-level preconditioner data structures containing the
 !                  local parts of the preconditioners to be applied at each level.
 !      Note that nlev = size(precv) = number of levels.
-!      precv(ilev)%prec  -  type(psb_zbaseprc_type)
+!      precv(ilev)%prec  -  type(psb_zbaseprec_type)
 !                           The "base" preconditioner for the current level
 !      precv(ilev)%ac        -  type(psb_zspmat_type) 
 !                                The local part of the matrix A(ilev).
--- a/mlprec/mld_zprecbld.f90
+++ b/mlprec/mld_zprecbld.f90
@ -40,7 +40,7 @@
 !
 ! Subroutine: mld_zprecbld
 ! Version:    complex
-! Contains:   subroutine init_baseprc_av
+! Contains:   subroutine init_baseprec_av
 !
 !  This routine builds the preconditioner according to the requirements made by
 !  the user trough the subroutines mld_precinit and mld_precset.
@ -154,7 +154,7 @@ subroutine mld_zprecbld(a,desc_a,p,info)
    !
    ! Finest level first; remember to fix base_a and base_desc
    ! 
-    call init_baseprc_av(p%precv(1)%prec,info)
+    call init_baseprec_av(p%precv(1)%prec,info)
    p%precv(1)%base_a    => a
    p%precv(1)%base_desc => desc_a
@ -211,7 +211,7 @@ subroutine mld_zprecbld(a,desc_a,p,info)
      !
      ! Build the mapping between levels (i-1) and (i)
      ! 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
@ -275,7 +275,7 @@ subroutine mld_zprecbld(a,desc_a,p,info)
      i    = iszv 
      call check_coarse_lev(p%precv(i)) 
-      call init_baseprc_av(p%precv(i)%prec,info)
+      call init_baseprec_av(p%precv(i)%prec,info)
      if (info == 0) call mld_aggr_bld(p%precv(i-1)%base_a,&
           & p%precv(i-1)%base_desc, p%precv(i),info)
      if (info /= 0) then 
@ -328,8 +328,8 @@ subroutine mld_zprecbld(a,desc_a,p,info)
 contains
-  subroutine init_baseprc_av(p,info)
+  subroutine init_baseprec_av(p,info)
-    type(mld_zbaseprc_type), intent(inout) :: p
+    type(mld_zbaseprec_type), intent(inout) :: p
    integer                                :: info
    if (allocated(p%av)) then
      if (size(p%av) /= mld_max_avsz_) then 
@ -345,7 +345,7 @@ contains
      call psb_nullify_sp(p%av(k))
    end do
-  end subroutine init_baseprc_av
+  end subroutine init_baseprec_av
  subroutine check_coarse_lev(prec)
    type(mld_z_interlev_prec_type) :: prec
--- a/mlprec/mld_zslu_bld.f90
+++ b/mlprec/mld_zslu_bld.f90
@ -62,7 +62,7 @@
 !               be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slu_ptr_), to the data structure used by SuperLU
 !               to store the L and U factors.
@ -79,7 +79,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_zspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_zbaseprc_type), intent(inout) :: p
+  type(mld_zbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_zslud_bld.f90
+++ b/mlprec/mld_zslud_bld.f90
@ -59,7 +59,7 @@
 !               matrix to be factorized.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointer, 
 !               p%iprcparm(mld_slud_ptr_), to the data structure used by 
 !               SuperLU_DIST to store the L and U factors.
@ -76,7 +76,7 @@ subroutine mld_zsludist_bld(a,desc_a,p,info)
  ! Arguments
  type(psb_zspmat_type), intent(inout)   :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_zbaseprc_type), intent(inout) :: p
+  type(mld_zbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables
--- a/mlprec/mld_zsp_renum.f90
+++ b/mlprec/mld_zsp_renum.f90
@ -69,7 +69,7 @@
 !               to build an Additive Schwarz base preconditioner with overlap
 !               greater than 0.If the overlap is 0, then blck does not contain
 !               any row.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The base preconditioner data structure containing the local
 !               part of the base preconditioner to be built. In input it 
 !               contains information on the type of reordering to be applied
@ -91,7 +91,7 @@ subroutine mld_zsp_renum(a,blck,p,atmp,info)
  ! Arguments                                                    
  type(psb_zspmat_type), intent(in)      :: a,blck
  type(psb_zspmat_type), intent(out)     :: atmp
-  type(mld_zbaseprc_type), intent(inout) :: p
+  type(mld_zbaseprec_type), intent(inout) :: p
  integer, intent(out)   :: info
  ! Local variables
--- a/mlprec/mld_zsub_aply.f90
+++ b/mlprec/mld_zsub_aply.f90
@ -142,7 +142,7 @@ subroutine mld_zsub_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)           :: desc_data
-  type(mld_zbaseprc_type), intent(in)       :: prec
+  type(mld_zbaseprec_type), intent(in)       :: prec
  complex(psb_dpk_),intent(in)            :: x(:)
  complex(psb_dpk_),intent(inout)         :: y(:)
  complex(psb_dpk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_zsub_solve.f90
+++ b/mlprec/mld_zsub_solve.f90
@ -120,7 +120,7 @@ subroutine mld_zsub_solve(alpha,prec,x,beta,y,desc_data,trans,work,info)
  ! Arguments
  type(psb_desc_type), intent(in)           :: desc_data
-  type(mld_zbaseprc_type), intent(in)       :: prec
+  type(mld_zbaseprec_type), intent(in)       :: prec
  complex(psb_dpk_),intent(in)            :: x(:)
  complex(psb_dpk_),intent(inout)         :: y(:)
  complex(psb_dpk_),intent(in)            :: alpha,beta
--- a/mlprec/mld_zumf_bld.f90
+++ b/mlprec/mld_zumf_bld.f90
@ -67,7 +67,7 @@
 !               C code performing the factorization.
 !    desc_a  -  type(psb_desc_type), input.
 !               The communication descriptor associated to a.
-!    p       -  type(mld_zbaseprc_type), input/output.
+!    p       -  type(mld_zbaseprec_type), input/output.
 !               The 'base preconditioner' data structure containing the pointers,
 !               p%iprcparm(mld_umf_symptr_) and p%iprcparm(mld_umf_numptr_),
 !               to the data structures used by UMFPACK for computing the LU
@ -85,7 +85,7 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
 ! Arguments
  type(psb_dspmat_type), intent(inout)      :: a
  type(psb_desc_type), intent(in)        :: desc_a
-  type(mld_zbaseprc_type), intent(inout) :: p
+  type(mld_zbaseprec_type), intent(inout) :: p
  integer, intent(out)                   :: info
  ! Local variables