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)