From c7ac41d437c4d180c019ad91bbe3edbfc0eff66d Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 27 Aug 2010 13:03:24 +0000
Subject: [PATCH] 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 | 1 +
base/serial/f03/psb_c_csr_impl.f03 | 1 +
base/serial/f03/psb_d_csc_impl.f03 | 1 +
base/serial/f03/psb_d_csr_impl.f03 | 1 +
base/serial/f03/psb_s_csc_impl.f03 | 1 +
base/serial/f03/psb_s_csr_impl.f03 | 1 +
base/serial/f03/psb_z_csc_impl.f03 | 1 +
base/serial/f03/psb_z_csr_impl.f03 | 1 +
8 files changed, 8 insertions(+)
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)