diff --git a/base/psblas/psb_cgetmatinfo.F90 b/base/psblas/psb_cgetmatinfo.F90
index fdfb0cba..b560fb60 100644
--- a/base/psblas/psb_cgetmatinfo.F90
+++ b/base/psblas/psb_cgetmatinfo.F90
@@ -54,7 +54,6 @@ function  psb_cget_nnz(a,desc_a,info) result(res)
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me,&
        & err_act, iia, jja
-  integer(psb_lpk_) :: localnnz
   character(len=20) :: name, ch_err
   !
   name='psb_cget_nnz'
@@ -72,9 +71,9 @@ function  psb_cget_nnz(a,desc_a,info) result(res)
     goto 9999
   endif
 
-  localnnz = a%get_nzeros()
+  res = a%get_nzeros()
 
-  call psb_sum(ctxt,localnnz)
+  call psb_sum(ctxt,res)
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/psblas/psb_dgetmatinfo.F90 b/base/psblas/psb_dgetmatinfo.F90
index 16a1d3ca..abc50d36 100644
--- a/base/psblas/psb_dgetmatinfo.F90
+++ b/base/psblas/psb_dgetmatinfo.F90
@@ -54,7 +54,6 @@ function  psb_dget_nnz(a,desc_a,info) result(res)
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me,&
        & err_act, iia, jja
-  integer(psb_lpk_) :: localnnz
   character(len=20) :: name, ch_err
   !
   name='psb_dget_nnz'
@@ -72,9 +71,9 @@ function  psb_dget_nnz(a,desc_a,info) result(res)
     goto 9999
   endif
 
-  localnnz = a%get_nzeros()
+  res = a%get_nzeros()
 
-  call psb_sum(ctxt,localnnz)
+  call psb_sum(ctxt,res)
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/psblas/psb_sgetmatinfo.F90 b/base/psblas/psb_sgetmatinfo.F90
index abf1210c..8b54318d 100644
--- a/base/psblas/psb_sgetmatinfo.F90
+++ b/base/psblas/psb_sgetmatinfo.F90
@@ -54,7 +54,6 @@ function  psb_sget_nnz(a,desc_a,info) result(res)
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me,&
        & err_act, iia, jja
-  integer(psb_lpk_) :: localnnz
   character(len=20) :: name, ch_err
   !
   name='psb_sget_nnz'
@@ -72,9 +71,9 @@ function  psb_sget_nnz(a,desc_a,info) result(res)
     goto 9999
   endif
 
-  localnnz = a%get_nzeros()
+  res = a%get_nzeros()
 
-  call psb_sum(ctxt,localnnz)
+  call psb_sum(ctxt,res)
 
   call psb_erractionrestore(err_act)
   return
diff --git a/base/psblas/psb_zgetmatinfo.F90 b/base/psblas/psb_zgetmatinfo.F90
index fab395f2..999ed1a6 100644
--- a/base/psblas/psb_zgetmatinfo.F90
+++ b/base/psblas/psb_zgetmatinfo.F90
@@ -54,7 +54,6 @@ function  psb_zget_nnz(a,desc_a,info) result(res)
   type(psb_ctxt_type) :: ctxt
   integer(psb_ipk_) :: np, me,&
        & err_act, iia, jja
-  integer(psb_lpk_) :: localnnz
   character(len=20) :: name, ch_err
   !
   name='psb_zget_nnz'
@@ -72,9 +71,9 @@ function  psb_zget_nnz(a,desc_a,info) result(res)
     goto 9999
   endif
 
-  localnnz = a%get_nzeros()
+  res = a%get_nzeros()
 
-  call psb_sum(ctxt,localnnz)
+  call psb_sum(ctxt,res)
 
   call psb_erractionrestore(err_act)
   return