From 9b39e26a99477072954641302c9f88b62ab6fd4c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 19 Nov 2010 10:38:53 +0000 Subject: [PATCH] psblas3: psb_c_csc_impl.f03 psb_c_csr_impl.f03 psb_d_csc_impl.f03 psb_d_csr_impl.f03 psb_s_csc_impl.f03 psb_s_csr_impl.f03 psb_z_csc_impl.f03 psb_z_csr_impl.f03 Fixed use module for missing initialization of debug_unit in some methods. --- 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 2cceb2c3..abaaaad0 100644 --- a/base/serial/f03/psb_c_csc_impl.f03 +++ b/base/serial/f03/psb_c_csc_impl.f03 @@ -2354,6 +2354,7 @@ end subroutine psb_c_mv_csc_to_coo subroutine psb_c_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_mv_csc_from_coo implicit none diff --git a/base/serial/f03/psb_c_csr_impl.f03 b/base/serial/f03/psb_c_csr_impl.f03 index dc08e1d5..281349e0 100644 --- a/base/serial/f03/psb_c_csr_impl.f03 +++ b/base/serial/f03/psb_c_csr_impl.f03 @@ -2518,6 +2518,7 @@ end subroutine psb_c_mv_csr_to_coo subroutine psb_c_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_mv_csr_from_coo implicit none diff --git a/base/serial/f03/psb_d_csc_impl.f03 b/base/serial/f03/psb_d_csc_impl.f03 index 9626ba6e..55ff2105 100644 --- a/base/serial/f03/psb_d_csc_impl.f03 +++ b/base/serial/f03/psb_d_csc_impl.f03 @@ -2227,6 +2227,7 @@ end subroutine psb_d_mv_csc_to_coo subroutine psb_d_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_mv_csc_from_coo implicit none diff --git a/base/serial/f03/psb_d_csr_impl.f03 b/base/serial/f03/psb_d_csr_impl.f03 index 08ed1738..4829eb82 100644 --- a/base/serial/f03/psb_d_csr_impl.f03 +++ b/base/serial/f03/psb_d_csr_impl.f03 @@ -2568,6 +2568,7 @@ end subroutine psb_d_mv_csr_to_coo subroutine psb_d_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_mv_csr_from_coo implicit none diff --git a/base/serial/f03/psb_s_csc_impl.f03 b/base/serial/f03/psb_s_csc_impl.f03 index a28b3999..5cfc5937 100644 --- a/base/serial/f03/psb_s_csc_impl.f03 +++ b/base/serial/f03/psb_s_csc_impl.f03 @@ -1992,6 +1992,7 @@ end subroutine psb_s_mv_csc_to_coo subroutine psb_s_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_mv_csc_from_coo implicit none diff --git a/base/serial/f03/psb_s_csr_impl.f03 b/base/serial/f03/psb_s_csr_impl.f03 index d64f8978..b4095d16 100644 --- a/base/serial/f03/psb_s_csr_impl.f03 +++ b/base/serial/f03/psb_s_csr_impl.f03 @@ -2326,6 +2326,7 @@ end subroutine psb_s_mv_csr_to_coo subroutine psb_s_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_mv_csr_from_coo implicit none diff --git a/base/serial/f03/psb_z_csc_impl.f03 b/base/serial/f03/psb_z_csc_impl.f03 index d3eb3c75..3f88aa19 100644 --- a/base/serial/f03/psb_z_csc_impl.f03 +++ b/base/serial/f03/psb_z_csc_impl.f03 @@ -2355,6 +2355,7 @@ end subroutine psb_z_mv_csc_to_coo subroutine psb_z_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_mv_csc_from_coo implicit none diff --git a/base/serial/f03/psb_z_csr_impl.f03 b/base/serial/f03/psb_z_csr_impl.f03 index b921dfd6..d6d51434 100644 --- a/base/serial/f03/psb_z_csr_impl.f03 +++ b/base/serial/f03/psb_z_csr_impl.f03 @@ -2519,6 +2519,7 @@ end subroutine psb_z_mv_csr_to_coo subroutine psb_z_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod + use psb_error_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_mv_csr_from_coo implicit none