From fd86dc61fdc0c256c64e4d0877eeee057ad6d6ba Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 30 Jun 2015 16:02:05 +0000 Subject: [PATCH] psblas3-submodules: base/modules/psb_c_sort_mod.f90 base/modules/psb_d_sort_mod.f90 base/modules/psb_i_sort_mod.f90 base/modules/psb_s_sort_mod.f90 base/modules/psb_z_sort_mod.f90 base/serial/sort/psb_c_hsort_impl.f90 base/serial/sort/psb_c_isort_impl.f90 base/serial/sort/psb_c_msort_impl.f90 base/serial/sort/psb_c_qsort_impl.f90 base/serial/sort/psb_d_hsort_impl.f90 base/serial/sort/psb_d_isort_impl.f90 base/serial/sort/psb_d_msort_impl.f90 base/serial/sort/psb_d_qsort_impl.f90 base/serial/sort/psb_i_hsort_impl.f90 base/serial/sort/psb_i_isort_impl.f90 base/serial/sort/psb_i_msort_impl.f90 base/serial/sort/psb_i_qsort_impl.f90 base/serial/sort/psb_s_hsort_impl.f90 base/serial/sort/psb_s_isort_impl.f90 base/serial/sort/psb_s_msort_impl.f90 base/serial/sort/psb_s_qsort_impl.f90 base/serial/sort/psb_z_hsort_impl.f90 base/serial/sort/psb_z_isort_impl.f90 base/serial/sort/psb_z_msort_impl.f90 base/serial/sort/psb_z_qsort_impl.f90 test/kernel/Makefile Fixes for all types on SORT modules. --- base/modules/psb_c_sort_mod.f90 | 1 - base/modules/psb_d_sort_mod.f90 | 1 - base/modules/psb_i_sort_mod.f90 | 1 - base/modules/psb_s_sort_mod.f90 | 1 - base/modules/psb_z_sort_mod.f90 | 1 - 5 files changed, 5 deletions(-) diff --git a/base/modules/psb_c_sort_mod.f90 b/base/modules/psb_c_sort_mod.f90 index c22e439dd..19ebd517a 100644 --- a/base/modules/psb_c_sort_mod.f90 +++ b/base/modules/psb_c_sort_mod.f90 @@ -118,7 +118,6 @@ module psb_c_sort_mod integer(psb_ipk_) :: l(0:n+1) end subroutine psi_c_amsort_dw end interface - module interface psb_qsort module subroutine psb_cqsort(x,ix,dir,flag) diff --git a/base/modules/psb_d_sort_mod.f90 b/base/modules/psb_d_sort_mod.f90 index 007b71e89..dbe6f0e8f 100644 --- a/base/modules/psb_d_sort_mod.f90 +++ b/base/modules/psb_d_sort_mod.f90 @@ -106,7 +106,6 @@ module psb_d_sort_mod integer(psb_ipk_) :: l(0:n+1) end subroutine psi_d_amsort_dw end interface - module interface psb_qsort module subroutine psb_dqsort(x,ix,dir,flag) diff --git a/base/modules/psb_i_sort_mod.f90 b/base/modules/psb_i_sort_mod.f90 index 43af87dd7..47f8dc689 100644 --- a/base/modules/psb_i_sort_mod.f90 +++ b/base/modules/psb_i_sort_mod.f90 @@ -143,7 +143,6 @@ module psb_i_sort_mod integer(psb_ipk_) :: l(0:n+1) end subroutine psi_i_amsort_dw end interface - module interface psb_qsort module subroutine psb_iqsort(x,ix,dir,flag) diff --git a/base/modules/psb_s_sort_mod.f90 b/base/modules/psb_s_sort_mod.f90 index fb0a1a3c7..efe5d10cd 100644 --- a/base/modules/psb_s_sort_mod.f90 +++ b/base/modules/psb_s_sort_mod.f90 @@ -106,7 +106,6 @@ module psb_s_sort_mod integer(psb_ipk_) :: l(0:n+1) end subroutine psi_s_amsort_dw end interface - module interface psb_qsort module subroutine psb_sqsort(x,ix,dir,flag) diff --git a/base/modules/psb_z_sort_mod.f90 b/base/modules/psb_z_sort_mod.f90 index c2bcbc49d..6af7380b2 100644 --- a/base/modules/psb_z_sort_mod.f90 +++ b/base/modules/psb_z_sort_mod.f90 @@ -118,7 +118,6 @@ module psb_z_sort_mod integer(psb_ipk_) :: l(0:n+1) end subroutine psi_z_amsort_dw end interface - module interface psb_qsort module subroutine psb_zqsort(x,ix,dir,flag)