diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index d9483937..6491636e 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -2570,8 +2570,7 @@ subroutine  psb_c_csc_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ia,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(max(nz,a%get_nrows()+1,&
-       & a%get_ncols()+1), a%icp,info)
+  if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index f137b30d..4e820d73 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -1710,8 +1710,7 @@ subroutine  psb_c_csr_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ja,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(&
-       & max(nz,a%get_nrows()+1,a%get_ncols()+1),a%irp,info)
+  if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
@@ -2978,7 +2977,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
     call psb_safe_ab_cpy(b%ia,itemp,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info)
-    if (info == psb_success_) call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    if (info == psb_success_) call psb_realloc(nr+1,a%irp,info)
     
   endif
 
diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index 25085229..39fb8ff5 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -2570,8 +2570,7 @@ subroutine  psb_d_csc_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ia,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(max(nz,a%get_nrows()+1,&
-       & a%get_ncols()+1), a%icp,info)
+  if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index c7882d89..85cd1970 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -1710,8 +1710,7 @@ subroutine  psb_d_csr_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ja,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(&
-       & max(nz,a%get_nrows()+1,a%get_ncols()+1),a%irp,info)
+  if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
@@ -2978,7 +2977,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
     call psb_safe_ab_cpy(b%ia,itemp,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info)
-    if (info == psb_success_) call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    if (info == psb_success_) call psb_realloc(nr+1,a%irp,info)
     
   endif
 
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index 6eb0d830..a28f3f76 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -2570,8 +2570,7 @@ subroutine  psb_s_csc_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ia,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(max(nz,a%get_nrows()+1,&
-       & a%get_ncols()+1), a%icp,info)
+  if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index da7bfd87..19a765ff 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -1710,8 +1710,7 @@ subroutine  psb_s_csr_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ja,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(&
-       & max(nz,a%get_nrows()+1,a%get_ncols()+1),a%irp,info)
+  if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
@@ -2978,7 +2977,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
     call psb_safe_ab_cpy(b%ia,itemp,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info)
-    if (info == psb_success_) call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    if (info == psb_success_) call psb_realloc(nr+1,a%irp,info)
     
   endif
 
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index 2d0fa913..149d3f54 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -2570,8 +2570,7 @@ subroutine  psb_z_csc_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ia,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(max(nz,a%get_nrows()+1,&
-       & a%get_ncols()+1), a%icp,info)
+  if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index 31fb166a..f6c3bcc1 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -1710,8 +1710,7 @@ subroutine  psb_z_csr_reallocate_nz(nz,a)
 
   call psb_realloc(max(nz,ione),a%ja,info)
   if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info)
-  if (info == psb_success_) call psb_realloc(&
-       & max(nz,a%get_nrows()+1,a%get_ncols()+1),a%irp,info)
+  if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info)
   if (info /= psb_success_) then 
     call psb_errpush(psb_err_alloc_dealloc_,name)
     goto 9999
@@ -2978,7 +2977,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
     call psb_safe_ab_cpy(b%ia,itemp,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info)
     if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info)
-    if (info == psb_success_) call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    if (info == psb_success_) call psb_realloc(nr+1,a%irp,info)
     
   endif