mld2p4-2:

mlprec/impl/mld_c_dec_map_bld.f90
 mlprec/impl/mld_d_dec_map_bld.f90
 mlprec/impl/mld_s_dec_map_bld.f90
 mlprec/impl/mld_z_dec_map_bld.f90
 mlprec/impl/solver/mld_d_mumps_solver_apply.F90
 mlprec/impl/solver/mld_d_mumps_solver_bld.F90
 mlprec/mld_base_prec_type.F90

Fixed bug in decoupled aggregation  (how did it survive so long???)
Mumps integration

mlprec/impl/mld_c_dec_map_bld.f90

@@ -54,7 +54,7 @@ subroutine mld_c_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
   ! Local variables
   integer(psb_ipk_), allocatable  :: ils(:), neigh(:), irow(:), icol(:)
   complex(psb_spk_), allocatable  :: val(:), diag(:)
-  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz
+  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz, ilg
   real(psb_spk_)  :: cpling, tcl
   logical :: recovery
   integer(psb_ipk_) :: debug_level, debug_unit,err_act
@@ -125,7 +125,8 @@ subroutine mld_c_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
 
         do k=1, nz
           j = icol(k)
-          if ((1<=j).and.(j<=nr).and.(i /= j)) then 
+          ilg = ilaggr(j)
+          if ((ilg<0).and.(1<=j).and.(j<=nr).and.(i /= j)) then 
             if (abs(val(k)) > theta*sqrt(abs(diag(i)*diag(j)))) then 
               ilaggr(j) = naggr
             else 

mlprec/impl/mld_d_dec_map_bld.f90

@@ -54,7 +54,7 @@ subroutine mld_d_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
   ! Local variables
   integer(psb_ipk_), allocatable  :: ils(:), neigh(:), irow(:), icol(:)
   real(psb_dpk_), allocatable  :: val(:), diag(:)
-  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz
+  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz, ilg
   real(psb_dpk_)  :: cpling, tcl
   logical :: recovery
   integer(psb_ipk_) :: debug_level, debug_unit,err_act
@@ -125,7 +125,8 @@ subroutine mld_d_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
 
         do k=1, nz
           j = icol(k)
-          if ((1<=j).and.(j<=nr).and.(i /= j)) then 
+          ilg = ilaggr(j)
+          if ((ilg<0).and.(1<=j).and.(j<=nr).and.(i /= j)) then 
             if (abs(val(k)) > theta*sqrt(abs(diag(i)*diag(j)))) then 
               ilaggr(j) = naggr
             else 

mlprec/impl/mld_s_dec_map_bld.f90

@@ -54,7 +54,7 @@ subroutine mld_s_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
   ! Local variables
   integer(psb_ipk_), allocatable  :: ils(:), neigh(:), irow(:), icol(:)
   real(psb_spk_), allocatable  :: val(:), diag(:)
-  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz
+  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz, ilg
   real(psb_spk_)  :: cpling, tcl
   logical :: recovery
   integer(psb_ipk_) :: debug_level, debug_unit,err_act
@@ -125,7 +125,8 @@ subroutine mld_s_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
 
         do k=1, nz
           j = icol(k)
-          if ((1<=j).and.(j<=nr).and.(i /= j)) then 
+          ilg = ilaggr(j)
+          if ((ilg<0).and.(1<=j).and.(j<=nr).and.(i /= j)) then 
             if (abs(val(k)) > theta*sqrt(abs(diag(i)*diag(j)))) then 
               ilaggr(j) = naggr
             else 

mlprec/impl/mld_z_dec_map_bld.f90

@@ -54,7 +54,7 @@ subroutine mld_z_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
   ! Local variables
   integer(psb_ipk_), allocatable  :: ils(:), neigh(:), irow(:), icol(:)
   complex(psb_dpk_), allocatable  :: val(:), diag(:)
-  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz
+  integer(psb_ipk_) :: icnt,nlp,k,n,ia,isz,nr, naggr,i,j,m, nz, ilg
   real(psb_dpk_)  :: cpling, tcl
   logical :: recovery
   integer(psb_ipk_) :: debug_level, debug_unit,err_act
@@ -125,7 +125,8 @@ subroutine mld_z_dec_map_bld(theta,a,desc_a,nlaggr,ilaggr,info)
 
         do k=1, nz
           j = icol(k)
-          if ((1<=j).and.(j<=nr).and.(i /= j)) then 
+          ilg = ilaggr(j)
+          if ((ilg<0).and.(1<=j).and.(j<=nr).and.(i /= j)) then 
             if (abs(val(k)) > theta*sqrt(abs(diag(i)*diag(j)))) then 
               ilaggr(j) = naggr
             else