Fix printout of global sizes with long integer kind.

mlprec/impl/level/mld_c_base_onelev_descr.f90

@@ -91,7 +91,7 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,ilmin,info,iout)
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
         write(iout_,*) '  Coarse Matrix: Global size: ', &
-             &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
+             &  sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
         write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &

mlprec/impl/level/mld_d_base_onelev_descr.f90

@@ -91,7 +91,7 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,ilmin,info,iout)
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
         write(iout_,*) '  Coarse Matrix: Global size: ', &
-             &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
+             &  sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
         write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &

mlprec/impl/level/mld_s_base_onelev_descr.f90

@@ -91,7 +91,7 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,ilmin,info,iout)
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
         write(iout_,*) '  Coarse Matrix: Global size: ', &
-             &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
+             &  sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
         write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &

mlprec/impl/level/mld_z_base_onelev_descr.f90

@@ -91,7 +91,7 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,ilmin,info,iout)
     if (nl > 1) then 
       if (allocated(lv%map%naggr)) then
         write(iout_,*) '  Coarse Matrix: Global size: ', &
-             &  sum(lv%map%naggr(:)),' Nonzeros: ',lv%ac_nz_tot
+             &  sum((1_psb_lpk_*lv%map%naggr(:))),' Nonzeros: ',lv%ac_nz_tot
         write(iout_,*) '          Local matrix sizes: ', &
              &  lv%map%naggr(:)
         write(iout_,*) '  Aggregation   ratio: ', &

mlprec/mld_c_onelev_mod.f90

@@ -160,7 +160,8 @@ module mld_c_onelev_mod
     class(mld_c_base_aggregator_type), allocatable :: aggr
     type(mld_sml_parms)              :: parms 
     type(psb_cspmat_type)            :: ac
-    integer(psb_ipk_)                :: ac_nz_loc, ac_nz_tot
+    integer(psb_ipk_)                :: ac_nz_loc
+    integer(psb_lpk_)                :: ac_nz_tot
     type(psb_desc_type)              :: desc_ac
     type(psb_cspmat_type), pointer   :: base_a    => null() 
     type(psb_desc_type), pointer     :: base_desc => null() 

mlprec/mld_d_onelev_mod.f90

@@ -160,7 +160,8 @@ module mld_d_onelev_mod
     class(mld_d_base_aggregator_type), allocatable :: aggr
     type(mld_dml_parms)              :: parms 
     type(psb_dspmat_type)            :: ac
-    integer(psb_ipk_)                :: ac_nz_loc, ac_nz_tot
+    integer(psb_ipk_)                :: ac_nz_loc
+    integer(psb_lpk_)                :: ac_nz_tot
     type(psb_desc_type)              :: desc_ac
     type(psb_dspmat_type), pointer   :: base_a    => null() 
     type(psb_desc_type), pointer     :: base_desc => null() 
@@ -421,7 +422,7 @@ contains
     val = val + lv%desc_ac%sizeof()
     val = val + lv%ac%sizeof()
     val = val + lv%tprol%sizeof()
-    val = val + lv%map%sizeof() 
+    val = val + lv%map%sizeof()
     if (allocated(lv%sm))  val = val + lv%sm%sizeof()
     if (allocated(lv%sm2a))  val = val + lv%sm2a%sizeof()
   end function d_base_onelev_sizeof

mlprec/mld_s_onelev_mod.f90

@@ -160,7 +160,8 @@ module mld_s_onelev_mod
     class(mld_s_base_aggregator_type), allocatable :: aggr
     type(mld_sml_parms)              :: parms 
     type(psb_sspmat_type)            :: ac
-    integer(psb_ipk_)                :: ac_nz_loc, ac_nz_tot
+    integer(psb_ipk_)                :: ac_nz_loc
+    integer(psb_lpk_)                :: ac_nz_tot
     type(psb_desc_type)              :: desc_ac
     type(psb_sspmat_type), pointer   :: base_a    => null() 
     type(psb_desc_type), pointer     :: base_desc => null() 

mlprec/mld_z_onelev_mod.f90

@@ -160,7 +160,8 @@ module mld_z_onelev_mod
     class(mld_z_base_aggregator_type), allocatable :: aggr
     type(mld_dml_parms)              :: parms 
     type(psb_zspmat_type)            :: ac
-    integer(psb_ipk_)                :: ac_nz_loc, ac_nz_tot
+    integer(psb_ipk_)                :: ac_nz_loc
+    integer(psb_lpk_)                :: ac_nz_tot
     type(psb_desc_type)              :: desc_ac
     type(psb_zspmat_type), pointer   :: base_a    => null() 
     type(psb_desc_type), pointer     :: base_desc => null()