diff --git a/base/serial/f03/psb_c_csc_impl.f03 b/base/serial/f03/psb_c_csc_impl.f03
index 34fbb342..8394af00 100644
--- a/base/serial/f03/psb_c_csc_impl.f03
+++ b/base/serial/f03/psb_c_csc_impl.f03
@@ -2823,6 +2823,7 @@ subroutine  psb_c_csc_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_c_csr_impl.f03 b/base/serial/f03/psb_c_csr_impl.f03
index fe8bd83a..f9b487ad 100644
--- a/base/serial/f03/psb_c_csr_impl.f03
+++ b/base/serial/f03/psb_c_csr_impl.f03
@@ -1487,6 +1487,7 @@ subroutine  psb_c_csr_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_d_csc_impl.f03 b/base/serial/f03/psb_d_csc_impl.f03
index 5553b0d5..2a2b9123 100644
--- a/base/serial/f03/psb_d_csc_impl.f03
+++ b/base/serial/f03/psb_d_csc_impl.f03
@@ -2696,6 +2696,7 @@ subroutine  psb_d_csc_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_d_csr_impl.f03 b/base/serial/f03/psb_d_csr_impl.f03
index 2b1e94c8..5b426edb 100644
--- a/base/serial/f03/psb_d_csr_impl.f03
+++ b/base/serial/f03/psb_d_csr_impl.f03
@@ -1537,6 +1537,7 @@ subroutine  psb_d_csr_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_s_csc_impl.f03 b/base/serial/f03/psb_s_csc_impl.f03
index d1550f31..1522d0e1 100644
--- a/base/serial/f03/psb_s_csc_impl.f03
+++ b/base/serial/f03/psb_s_csc_impl.f03
@@ -2461,6 +2461,7 @@ subroutine  psb_s_csc_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_s_csr_impl.f03 b/base/serial/f03/psb_s_csr_impl.f03
index ce1c72eb..a51420e4 100644
--- a/base/serial/f03/psb_s_csr_impl.f03
+++ b/base/serial/f03/psb_s_csr_impl.f03
@@ -1295,6 +1295,7 @@ subroutine  psb_s_csr_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_z_csc_impl.f03 b/base/serial/f03/psb_z_csc_impl.f03
index dab4af3e..8ebe8d34 100644
--- a/base/serial/f03/psb_z_csc_impl.f03
+++ b/base/serial/f03/psb_z_csc_impl.f03
@@ -2824,6 +2824,7 @@ subroutine  psb_z_csc_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)
diff --git a/base/serial/f03/psb_z_csr_impl.f03 b/base/serial/f03/psb_z_csr_impl.f03
index 5abf4112..5e6afc49 100644
--- a/base/serial/f03/psb_z_csr_impl.f03
+++ b/base/serial/f03/psb_z_csr_impl.f03
@@ -1487,6 +1487,7 @@ subroutine  psb_z_csr_allocate_mnnz(m,n,a,nz)
     call a%set_bld()
     call a%set_triangle(.false.)
     call a%set_unit(.false.)
+    call a%set_dupl(psb_dupl_def_)
   end if
 
   call psb_erractionrestore(err_act)