From bfc1198db3647d39dda1f955b6218824e61b7941 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 17 Oct 2014 11:08:52 +0000 Subject: [PATCH] psblas3: base/modules/psb_c_base_mat_mod.f90 base/modules/psb_d_base_mat_mod.f90 base/modules/psb_s_base_mat_mod.f90 base/modules/psb_z_base_mat_mod.f90 Take out spurious private statement. --- base/modules/psb_c_base_mat_mod.f90 | 4 ---- base/modules/psb_d_base_mat_mod.f90 | 4 ---- base/modules/psb_s_base_mat_mod.f90 | 4 ---- base/modules/psb_z_base_mat_mod.f90 | 4 ---- 4 files changed, 16 deletions(-) diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90 index ba8e6125..cffb6455 100644 --- a/base/modules/psb_c_base_mat_mod.f90 +++ b/base/modules/psb_c_base_mat_mod.f90 @@ -114,10 +114,6 @@ module psb_c_base_mat_mod procedure, pass(a) :: aclsum => psb_c_base_aclsum end type psb_c_base_sparse_mat - private :: c_base_mat_sync, c_base_mat_is_host, c_base_mat_is_dev, & - & c_base_mat_is_sync, c_base_mat_set_host, c_base_mat_set_dev,& - & c_base_mat_set_sync - !> \namespace psb_base_mod \class psb_c_coo_sparse_mat !! \extends psb_c_base_mat_mod::psb_c_base_sparse_mat !! diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90 index 5ad67dc9..4cede13b 100644 --- a/base/modules/psb_d_base_mat_mod.f90 +++ b/base/modules/psb_d_base_mat_mod.f90 @@ -114,10 +114,6 @@ module psb_d_base_mat_mod procedure, pass(a) :: aclsum => psb_d_base_aclsum end type psb_d_base_sparse_mat - private :: d_base_mat_sync, d_base_mat_is_host, d_base_mat_is_dev, & - & d_base_mat_is_sync, d_base_mat_set_host, d_base_mat_set_dev,& - & d_base_mat_set_sync - !> \namespace psb_base_mod \class psb_d_coo_sparse_mat !! \extends psb_d_base_mat_mod::psb_d_base_sparse_mat !! diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90 index dd670de8..caccad77 100644 --- a/base/modules/psb_s_base_mat_mod.f90 +++ b/base/modules/psb_s_base_mat_mod.f90 @@ -114,10 +114,6 @@ module psb_s_base_mat_mod procedure, pass(a) :: aclsum => psb_s_base_aclsum end type psb_s_base_sparse_mat - private :: s_base_mat_sync, s_base_mat_is_host, s_base_mat_is_dev, & - & s_base_mat_is_sync, s_base_mat_set_host, s_base_mat_set_dev,& - & s_base_mat_set_sync - !> \namespace psb_base_mod \class psb_s_coo_sparse_mat !! \extends psb_s_base_mat_mod::psb_s_base_sparse_mat !! diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90 index 88cb796e..0ef6a021 100644 --- a/base/modules/psb_z_base_mat_mod.f90 +++ b/base/modules/psb_z_base_mat_mod.f90 @@ -114,10 +114,6 @@ module psb_z_base_mat_mod procedure, pass(a) :: aclsum => psb_z_base_aclsum end type psb_z_base_sparse_mat - private :: z_base_mat_sync, z_base_mat_is_host, z_base_mat_is_dev, & - & z_base_mat_is_sync, z_base_mat_set_host, z_base_mat_set_dev,& - & z_base_mat_set_sync - !> \namespace psb_base_mod \class psb_z_coo_sparse_mat !! \extends psb_z_base_mat_mod::psb_z_base_sparse_mat !!