Modify sorting with REORD. Document same.

Author: sfilippone

base/modules/auxil/psb_c_hsort_mod.f90

@@ -44,10 +44,10 @@ module psb_c_hsort_mod
  use psb_const_mod
 
  interface psb_hsort
- subroutine psb_chsort(x,ix,dir,flag)
+ subroutine psb_chsort(x,ix,dir,flag,reord)
  import 
  complex(psb_spk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_chsort
  end interface psb_hsort

base/modules/auxil/psb_c_isort_mod.f90

@@ -44,10 +44,10 @@ module psb_c_isort_mod
  use psb_const_mod
 
  interface psb_isort
- subroutine psb_cisort(x,ix,dir,flag)
+ subroutine psb_cisort(x,ix,dir,flag,reord)
  import 
  complex(psb_spk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_cisort
  end interface psb_isort

base/modules/auxil/psb_c_msort_mod.f90

@@ -55,10 +55,10 @@ end subroutine psb_cmsort_u
 
 
  interface psb_msort
- subroutine psb_cmsort(x,ix,dir,flag)
+ subroutine psb_cmsort(x,ix,dir,flag,reord)
  import 
  complex(psb_spk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag, reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_cmsort
  end interface psb_msort

base/modules/auxil/psb_c_qsort_mod.f90

@@ -45,10 +45,10 @@ module psb_c_qsort_mod
 
 
  interface psb_qsort
- subroutine psb_cqsort(x,ix,dir,flag)
+ subroutine psb_cqsort(x,ix,dir,flag,reord)
  import 
  complex(psb_spk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_cqsort
  end interface psb_qsort

base/modules/auxil/psb_d_hsort_mod.f90

@@ -44,10 +44,10 @@ module psb_d_hsort_mod
  use psb_const_mod
 
  interface psb_hsort
- subroutine psb_dhsort(x,ix,dir,flag)
+ subroutine psb_dhsort(x,ix,dir,flag,reord)
  import 
  real(psb_dpk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_dhsort
  end interface psb_hsort

base/modules/auxil/psb_d_isort_mod.f90

@@ -44,10 +44,10 @@ module psb_d_isort_mod
  use psb_const_mod
 
  interface psb_isort
- subroutine psb_disort(x,ix,dir,flag)
+ subroutine psb_disort(x,ix,dir,flag,reord)
  import 
  real(psb_dpk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_disort
  end interface psb_isort

base/modules/auxil/psb_d_msort_mod.f90

@@ -55,10 +55,10 @@ end subroutine psb_dmsort_u
 
 
  interface psb_msort
- subroutine psb_dmsort(x,ix,dir,flag)
+ subroutine psb_dmsort(x,ix,dir,flag,reord)
  import 
  real(psb_dpk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag, reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_dmsort
  end interface psb_msort

base/modules/auxil/psb_d_qsort_mod.f90

@@ -64,10 +64,10 @@ end function psb_dssrch
  end interface psb_ssrch
 
  interface psb_qsort
- subroutine psb_dqsort(x,ix,dir,flag)
+ subroutine psb_dqsort(x,ix,dir,flag,reord)
  import 
  real(psb_dpk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_ipk_), optional, intent(inout) :: ix(:)
  end subroutine psb_dqsort
  end interface psb_qsort

base/modules/auxil/psb_e_hsort_mod.f90

@@ -44,10 +44,10 @@ module psb_e_hsort_mod
  use psb_const_mod
 
  interface psb_hsort
- subroutine psb_ehsort(x,ix,dir,flag)
+ subroutine psb_ehsort(x,ix,dir,flag,reord)
  import 
  integer(psb_epk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_epk_), optional, intent(inout) :: ix(:)
  end subroutine psb_ehsort
  end interface psb_hsort

base/modules/auxil/psb_e_isort_mod.f90

@@ -44,10 +44,10 @@ module psb_e_isort_mod
  use psb_const_mod
 
  interface psb_isort
- subroutine psb_eisort(x,ix,dir,flag)
+ subroutine psb_eisort(x,ix,dir,flag,reord)
  import 
  integer(psb_epk_), intent(inout) :: x(:) 
- integer(psb_ipk_), optional, intent(in) :: dir, flag
+ integer(psb_ipk_), optional, intent(in) :: dir, flag,reord
  integer(psb_epk_), optional, intent(inout) :: ix(:)
  end subroutine psb_eisort
  end interface psb_isort