psblas3:

base/serial/f03/psb_c_csc_impl.f03
 base/serial/f03/psb_c_csr_impl.f03
 base/serial/f03/psb_d_csc_impl.f03
 base/serial/f03/psb_d_csr_impl.f03
 base/serial/f03/psb_s_csc_impl.f03
 base/serial/f03/psb_s_csr_impl.f03
 base/serial/f03/psb_z_csc_impl.f03
 base/serial/f03/psb_z_csr_impl.f03

Fixed default setting for DUPL.

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)

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)

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)

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)

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)

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)

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)

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)