diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index 23e8f4a8..d9483937 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -2298,7 +2298,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info)
   call move_alloc(b%ja,itemp)
   call move_alloc(b%ia,a%ia)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%icp,info)
+  call psb_realloc(nc+1,a%icp,info)
   call b%free()
 
   a%icp(:) = 0
diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90
index 1490718d..f137b30d 100644
--- a/base/serial/impl/psb_c_csr_impl.f90
+++ b/base/serial/impl/psb_c_csr_impl.f90
@@ -2960,7 +2960,7 @@ subroutine psb_c_cp_csr_from_coo(a,b,info)
     call move_alloc(tmp%ia,itemp)
     call move_alloc(tmp%ja,a%ja)
     call move_alloc(tmp%val,a%val)
-    call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    call psb_realloc(nr+1,a%irp,info)
     call tmp%free()
 
   else
@@ -3129,7 +3129,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info)
   call move_alloc(b%ia,itemp)
   call move_alloc(b%ja,a%ja)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%irp,info)
+  call psb_realloc(nr+1,a%irp,info)
   call b%free()
 
 
diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90
index ef68164d..25085229 100644
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@@ -2298,7 +2298,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info)
   call move_alloc(b%ja,itemp)
   call move_alloc(b%ia,a%ia)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%icp,info)
+  call psb_realloc(nc+1,a%icp,info)
   call b%free()
 
   a%icp(:) = 0
diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90
index 523c1501..c7882d89 100644
--- a/base/serial/impl/psb_d_csr_impl.f90
+++ b/base/serial/impl/psb_d_csr_impl.f90
@@ -2960,7 +2960,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
     call move_alloc(tmp%ia,itemp)
     call move_alloc(tmp%ja,a%ja)
     call move_alloc(tmp%val,a%val)
-    call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    call psb_realloc(nr+1,a%irp,info)
     call tmp%free()
 
   else
@@ -3129,7 +3129,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info)
   call move_alloc(b%ia,itemp)
   call move_alloc(b%ja,a%ja)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%irp,info)
+  call psb_realloc(nr+1,a%irp,info)
   call b%free()
 
 
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index 6318db9d..6eb0d830 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -2298,7 +2298,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info)
   call move_alloc(b%ja,itemp)
   call move_alloc(b%ia,a%ia)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%icp,info)
+  call psb_realloc(nc+1,a%icp,info)
   call b%free()
 
   a%icp(:) = 0
diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90
index 75a6c0cc..da7bfd87 100644
--- a/base/serial/impl/psb_s_csr_impl.f90
+++ b/base/serial/impl/psb_s_csr_impl.f90
@@ -2960,7 +2960,7 @@ subroutine psb_s_cp_csr_from_coo(a,b,info)
     call move_alloc(tmp%ia,itemp)
     call move_alloc(tmp%ja,a%ja)
     call move_alloc(tmp%val,a%val)
-    call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    call psb_realloc(nr+1,a%irp,info)
     call tmp%free()
 
   else
@@ -3129,7 +3129,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info)
   call move_alloc(b%ia,itemp)
   call move_alloc(b%ja,a%ja)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%irp,info)
+  call psb_realloc(nr+1,a%irp,info)
   call b%free()
 
 
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index bd14f8a3..2d0fa913 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -2298,7 +2298,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info)
   call move_alloc(b%ja,itemp)
   call move_alloc(b%ia,a%ia)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%icp,info)
+  call psb_realloc(nc+1,a%icp,info)
   call b%free()
 
   a%icp(:) = 0
diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90
index 6a691d4f..31fb166a 100644
--- a/base/serial/impl/psb_z_csr_impl.f90
+++ b/base/serial/impl/psb_z_csr_impl.f90
@@ -2960,7 +2960,7 @@ subroutine psb_z_cp_csr_from_coo(a,b,info)
     call move_alloc(tmp%ia,itemp)
     call move_alloc(tmp%ja,a%ja)
     call move_alloc(tmp%val,a%val)
-    call psb_realloc(max(nr+1,nc+1),a%irp,info)
+    call psb_realloc(nr+1,a%irp,info)
     call tmp%free()
 
   else
@@ -3129,7 +3129,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info)
   call move_alloc(b%ia,itemp)
   call move_alloc(b%ja,a%ja)
   call move_alloc(b%val,a%val)
-  call psb_realloc(max(nr+1,nc+1),a%irp,info)
+  call psb_realloc(nr+1,a%irp,info)
   call b%free()