fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_sort_mod.f90
 base/serial/psb_sort_impl.f90
 prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_prec_type_impl.f90
 prec/impl/psb_cprecbld.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_prec_type_impl.f90
 prec/impl/psb_dprecbld.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_prec_type_impl.f90
 prec/impl/psb_sprecbld.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_prec_type_impl.f90
 prec/impl/psb_zprecbld.f90
 prec/psb_c_base_prec_mod.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_z_base_prec_mod.f90

1. Changed internal naming scheme for heaps.
2. Fixes for long integers in PREC.
This commit is contained in:
Salvatore Filippone
2012-12-06 14:23:52 +00:00
parent 3940831888
commit 2bf2843f7a
18 changed files with 226 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_sort_mod.f90
+62 -62
View File
@@ -64,16 +64,16 @@ module psb_sort_mod
integer(psb_ipk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:)
end type psb_int_idx_heap
type psb_real_idx_heap
type psb_sreal_idx_heap
integer(psb_ipk_) :: last, dir
real(psb_spk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:)
end type psb_real_idx_heap
type psb_double_idx_heap
end type psb_sreal_idx_heap
type psb_dreal_idx_heap
integer(psb_ipk_) :: last, dir
real(psb_dpk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:)
end type psb_double_idx_heap
end type psb_dreal_idx_heap
type psb_scomplex_idx_heap
integer(psb_ipk_) :: last, dir
complex(psb_spk_), allocatable :: keys(:)
@@ -239,18 +239,18 @@ module psb_sort_mod
type(psb_int_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_int_heap
end function psb_howmany_int_heap
function psb_howmany_real_idx_heap(heap)
function psb_howmany_sreal_idx_heap(heap)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_real_idx_heap
type(psb_real_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_real_idx_heap
end function psb_howmany_real_idx_heap
function psb_howmany_double_idx_heap(heap)
import :: psb_sreal_idx_heap
type(psb_sreal_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_sreal_idx_heap
end function psb_howmany_sreal_idx_heap
function psb_howmany_dreal_idx_heap(heap)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_double_idx_heap
type(psb_double_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_double_idx_heap
end function psb_howmany_double_idx_heap
import :: psb_dreal_idx_heap
type(psb_dreal_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_dreal_idx_heap
end function psb_howmany_dreal_idx_heap
function psb_howmany_int_idx_heap(heap)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_int_idx_heap
@@ -280,13 +280,13 @@ module psb_sort_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
end subroutine psb_init_int_heap
subroutine psb_init_real_idx_heap(heap,info,dir)
subroutine psb_init_sreal_idx_heap(heap,info,dir)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_real_idx_heap
type(psb_real_idx_heap), intent(inout) :: heap
import :: psb_sreal_idx_heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
end subroutine psb_init_real_idx_heap
end subroutine psb_init_sreal_idx_heap
subroutine psb_init_int_idx_heap(heap,info,dir)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_int_idx_heap
@@ -308,13 +308,13 @@ module psb_sort_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
end subroutine psb_init_dcomplex_idx_heap
subroutine psb_init_double_idx_heap(heap,info,dir)
subroutine psb_init_dreal_idx_heap(heap,info,dir)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_double_idx_heap
type(psb_double_idx_heap), intent(inout) :: heap
import :: psb_dreal_idx_heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
end subroutine psb_init_double_idx_heap
end subroutine psb_init_dreal_idx_heap
end interface
@@ -326,20 +326,20 @@ module psb_sort_mod
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in) :: iout
end subroutine psb_dump_int_heap
subroutine psb_dump_real_idx_heap(iout,heap,info)
subroutine psb_dump_sreal_idx_heap(iout,heap,info)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_real_idx_heap
type(psb_real_idx_heap), intent(in) :: heap
import :: psb_sreal_idx_heap
type(psb_sreal_idx_heap), intent(in) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in) :: iout
end subroutine psb_dump_real_idx_heap
subroutine psb_dump_double_idx_heap(iout,heap,info)
end subroutine psb_dump_sreal_idx_heap
subroutine psb_dump_dreal_idx_heap(iout,heap,info)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_double_idx_heap
type(psb_double_idx_heap), intent(in) :: heap
import :: psb_dreal_idx_heap
type(psb_dreal_idx_heap), intent(in) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in) :: iout
end subroutine psb_dump_double_idx_heap
end subroutine psb_dump_dreal_idx_heap
subroutine psb_dump_int_idx_heap(iout,heap,info)
import :: psb_ipk_, psb_spk_, psb_dpk_
import :: psb_int_idx_heap
@@ -378,20 +378,20 @@ module psb_sort_mod
type(psb_int_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
end subroutine psb_insert_int_idx_heap
subroutine psb_insert_real_idx_heap(key,index,heap,info)
import :: psb_spk_, psb_real_idx_heap, psb_ipk_
subroutine psb_insert_sreal_idx_heap(key,index,heap,info)
import :: psb_spk_, psb_sreal_idx_heap, psb_ipk_
real(psb_spk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index
type(psb_real_idx_heap), intent(inout) :: heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
end subroutine psb_insert_real_idx_heap
subroutine psb_insert_double_idx_heap(key,index,heap,info)
import :: psb_dpk_, psb_double_idx_heap, psb_ipk_
end subroutine psb_insert_sreal_idx_heap
subroutine psb_insert_dreal_idx_heap(key,index,heap,info)
import :: psb_dpk_, psb_dreal_idx_heap, psb_ipk_
real(psb_dpk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index
type(psb_double_idx_heap), intent(inout) :: heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
end subroutine psb_insert_double_idx_heap
end subroutine psb_insert_dreal_idx_heap
subroutine psb_insert_scomplex_idx_heap(key,index,heap,info)
import :: psb_spk_, psb_scomplex_idx_heap, psb_ipk_
complex(psb_spk_), intent(in) :: key
@@ -420,18 +420,18 @@ module psb_sort_mod
integer(psb_ipk_), intent(out) :: index,info
integer(psb_ipk_), intent(out) :: key
end subroutine psb_int_idx_heap_get_first
subroutine psb_real_idx_heap_get_first(key,index,heap,info)
import :: psb_spk_, psb_real_idx_heap, psb_ipk_
type(psb_real_idx_heap), intent(inout) :: heap
subroutine psb_sreal_idx_heap_get_first(key,index,heap,info)
import :: psb_spk_, psb_sreal_idx_heap, psb_ipk_
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: index,info
real(psb_spk_), intent(out) :: key
end subroutine psb_real_idx_heap_get_first
subroutine psb_double_idx_heap_get_first(key,index,heap,info)
import :: psb_dpk_, psb_double_idx_heap, psb_ipk_
type(psb_double_idx_heap), intent(inout) :: heap
end subroutine psb_sreal_idx_heap_get_first
subroutine psb_dreal_idx_heap_get_first(key,index,heap,info)
import :: psb_dpk_, psb_dreal_idx_heap, psb_ipk_
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: index,info
real(psb_dpk_), intent(out) :: key
end subroutine psb_double_idx_heap_get_first
end subroutine psb_dreal_idx_heap_get_first
subroutine psb_scomplex_idx_heap_get_first(key,index,heap,info)
import :: psb_spk_, psb_scomplex_idx_heap, psb_ipk_
type(psb_scomplex_idx_heap), intent(inout) :: heap
@@ -588,47 +588,47 @@ module psb_sort_mod
end interface
interface
subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info)
subroutine psi_insert_sreal_idx_heap(key,index,last,heap,idxs,dir,info)
import :: psb_spk_, psb_ipk_
real(psb_spk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index,dir
real(psb_spk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(inout) :: idxs(:),last
integer(psb_ipk_), intent(out) :: info
end subroutine psi_insert_real_idx_heap
end subroutine psi_insert_sreal_idx_heap
end interface
interface
subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
subroutine psi_sreal_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
import :: psb_spk_, psb_ipk_
real(psb_spk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(out) :: index,info
integer(psb_ipk_), intent(inout) :: last,idxs(:)
integer(psb_ipk_), intent(in) :: dir
real(psb_spk_), intent(out) :: key
end subroutine psi_real_idx_heap_get_first
end subroutine psi_sreal_idx_heap_get_first
end interface
interface
subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info)
subroutine psi_insert_dreal_idx_heap(key,index,last,heap,idxs,dir,info)
import :: psb_dpk_, psb_ipk_
real(psb_dpk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index,dir
real(psb_dpk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(inout) :: idxs(:),last
integer(psb_ipk_), intent(out) :: info
end subroutine psi_insert_double_idx_heap
end subroutine psi_insert_dreal_idx_heap
end interface
interface
subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
subroutine psi_dreal_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
import :: psb_dpk_, psb_ipk_
real(psb_dpk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(out) :: index,info
integer(psb_ipk_), intent(inout) :: last,idxs(:)
integer(psb_ipk_), intent(in) :: dir
real(psb_dpk_), intent(out) :: key
end subroutine psi_double_idx_heap_get_first
end subroutine psi_dreal_idx_heap_get_first
end interface
interface
@@ -678,8 +678,8 @@ module psb_sort_mod
interface psb_free_heap
module procedure psb_free_int_heap, psb_free_int_idx_heap,&
& psb_free_real_idx_heap, psb_free_scomplex_idx_heap, &
& psb_free_double_idx_heap, psb_free_dcomplex_idx_heap
& psb_free_sreal_idx_heap, psb_free_scomplex_idx_heap, &
& psb_free_dreal_idx_heap, psb_free_dcomplex_idx_heap
end interface
contains
@@ -694,27 +694,27 @@ contains
end subroutine psb_free_int_heap
subroutine psb_free_real_idx_heap(heap,info)
subroutine psb_free_sreal_idx_heap(heap,info)
implicit none
type(psb_real_idx_heap), intent(inout) :: heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
info=psb_success_
if (allocated(heap%keys)) deallocate(heap%keys,stat=info)
if ((info == psb_success_).and.(allocated(heap%idxs))) deallocate(heap%idxs,stat=info)
end subroutine psb_free_real_idx_heap
end subroutine psb_free_sreal_idx_heap
subroutine psb_free_double_idx_heap(heap,info)
subroutine psb_free_dreal_idx_heap(heap,info)
implicit none
type(psb_double_idx_heap), intent(inout) :: heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
info=psb_success_
if (allocated(heap%keys)) deallocate(heap%keys,stat=info)
if ((info == psb_success_).and.(allocated(heap%idxs))) deallocate(heap%idxs,stat=info)
end subroutine psb_free_double_idx_heap
end subroutine psb_free_dreal_idx_heap
subroutine psb_free_int_idx_heap(heap,info)
implicit none
base/serial/psb_sort_impl.f90
+64 -64
View File
@@ -1175,13 +1175,13 @@ subroutine shsort(x,ix,dir,flag)
do i=1, n
key = x(i)
index = ix(i)
call psi_insert_real_idx_heap(key,index,l,x,ix,dir_,info)
call psi_insert_sreal_idx_heap(key,index,l,x,ix,dir_,info)
if (l /= i) then
write(psb_err_unit,*) 'Mismatch while heapifying ! '
end if
end do
do i=n, 2, -1
call psi_real_idx_heap_get_first(key,index,l,x,ix,dir_,info)
call psi_sreal_idx_heap_get_first(key,index,l,x,ix,dir_,info)
if (l /= i-1) then
write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i
end if
@@ -1288,13 +1288,13 @@ subroutine dhsort(x,ix,dir,flag)
do i=1, n
key = x(i)
index = ix(i)
call psi_insert_double_idx_heap(key,index,l,x,ix,dir_,info)
call psi_insert_dreal_idx_heap(key,index,l,x,ix,dir_,info)
if (l /= i) then
write(psb_err_unit,*) 'Mismatch while heapifying ! '
end if
end do
do i=n, 2, -1
call psi_double_idx_heap_get_first(key,index,l,x,ix,dir_,info)
call psi_dreal_idx_heap_get_first(key,index,l,x,ix,dir_,info)
if (l /= i-1) then
write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i
end if
@@ -1659,19 +1659,19 @@ subroutine psb_int_heap_get_first(key,heap,info)
end subroutine psb_int_heap_get_first
function psb_howmany_real_idx_heap(heap)
use psb_sort_mod, psb_protect_name => psb_howmany_real_idx_heap
function psb_howmany_sreal_idx_heap(heap)
use psb_sort_mod, psb_protect_name => psb_howmany_sreal_idx_heap
implicit none
type(psb_real_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_real_idx_heap
psb_howmany_real_idx_heap = heap%last
end function psb_howmany_real_idx_heap
type(psb_sreal_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_sreal_idx_heap
psb_howmany_sreal_idx_heap = heap%last
end function psb_howmany_sreal_idx_heap
subroutine psb_init_real_idx_heap(heap,info,dir)
use psb_sort_mod, psb_protect_name => psb_init_real_idx_heap
subroutine psb_init_sreal_idx_heap(heap,info,dir)
use psb_sort_mod, psb_protect_name => psb_init_sreal_idx_heap
use psb_realloc_mod
implicit none
type(psb_real_idx_heap), intent(inout) :: heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
@@ -1693,12 +1693,12 @@ subroutine psb_init_real_idx_heap(heap,info,dir)
call psb_ensure_size(psb_heap_resize,heap%keys,info)
call psb_ensure_size(psb_heap_resize,heap%idxs,info)
return
end subroutine psb_init_real_idx_heap
end subroutine psb_init_sreal_idx_heap
subroutine psb_dump_real_idx_heap(iout,heap,info)
use psb_sort_mod, psb_protect_name => psb_dump_real_idx_heap
subroutine psb_dump_sreal_idx_heap(iout,heap,info)
use psb_sort_mod, psb_protect_name => psb_dump_sreal_idx_heap
implicit none
type(psb_real_idx_heap), intent(in) :: heap
type(psb_sreal_idx_heap), intent(in) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in) :: iout
@@ -1723,16 +1723,16 @@ subroutine psb_dump_real_idx_heap(iout,heap,info)
write(iout,*) heap%idxs(1:heap%last)
end if
end if
end subroutine psb_dump_real_idx_heap
end subroutine psb_dump_sreal_idx_heap
subroutine psb_insert_real_idx_heap(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_insert_real_idx_heap
subroutine psb_insert_sreal_idx_heap(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_insert_sreal_idx_heap
use psb_realloc_mod
implicit none
real(psb_spk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index
type(psb_real_idx_heap), intent(inout) :: heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
info = psb_success_
@@ -1751,42 +1751,42 @@ subroutine psb_insert_real_idx_heap(key,index,heap,info)
return
end if
call psi_insert_real_idx_heap(key,index,&
call psi_insert_sreal_idx_heap(key,index,&
& heap%last,heap%keys,heap%idxs,heap%dir,info)
return
end subroutine psb_insert_real_idx_heap
end subroutine psb_insert_sreal_idx_heap
subroutine psb_real_idx_heap_get_first(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_real_idx_heap_get_first
subroutine psb_sreal_idx_heap_get_first(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_sreal_idx_heap_get_first
implicit none
type(psb_real_idx_heap), intent(inout) :: heap
type(psb_sreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: index,info
real(psb_spk_), intent(out) :: key
info = psb_success_
call psi_real_idx_heap_get_first(key,index,&
call psi_sreal_idx_heap_get_first(key,index,&
& heap%last,heap%keys,heap%idxs,heap%dir,info)
return
end subroutine psb_real_idx_heap_get_first
end subroutine psb_sreal_idx_heap_get_first
function psb_howmany_double_idx_heap(heap)
use psb_sort_mod, psb_protect_name => psb_howmany_double_idx_heap
function psb_howmany_dreal_idx_heap(heap)
use psb_sort_mod, psb_protect_name => psb_howmany_dreal_idx_heap
implicit none
type(psb_double_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_double_idx_heap
psb_howmany_double_idx_heap = heap%last
end function psb_howmany_double_idx_heap
type(psb_dreal_idx_heap), intent(in) :: heap
integer(psb_ipk_) :: psb_howmany_dreal_idx_heap
psb_howmany_dreal_idx_heap = heap%last
end function psb_howmany_dreal_idx_heap
subroutine psb_init_double_idx_heap(heap,info,dir)
use psb_sort_mod, psb_protect_name => psb_init_double_idx_heap
subroutine psb_init_dreal_idx_heap(heap,info,dir)
use psb_sort_mod, psb_protect_name => psb_init_dreal_idx_heap
use psb_realloc_mod
implicit none
type(psb_double_idx_heap), intent(inout) :: heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: dir
@@ -1808,12 +1808,12 @@ subroutine psb_init_double_idx_heap(heap,info,dir)
call psb_ensure_size(psb_heap_resize,heap%keys,info)
call psb_ensure_size(psb_heap_resize,heap%idxs,info)
return
end subroutine psb_init_double_idx_heap
end subroutine psb_init_dreal_idx_heap
subroutine psb_dump_double_idx_heap(iout,heap,info)
use psb_sort_mod, psb_protect_name => psb_dump_double_idx_heap
subroutine psb_dump_dreal_idx_heap(iout,heap,info)
use psb_sort_mod, psb_protect_name => psb_dump_dreal_idx_heap
implicit none
type(psb_double_idx_heap), intent(in) :: heap
type(psb_dreal_idx_heap), intent(in) :: heap
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in) :: iout
@@ -1838,16 +1838,16 @@ subroutine psb_dump_double_idx_heap(iout,heap,info)
write(iout,*) heap%idxs(1:heap%last)
end if
end if
end subroutine psb_dump_double_idx_heap
end subroutine psb_dump_dreal_idx_heap
subroutine psb_insert_double_idx_heap(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_insert_double_idx_heap
subroutine psb_insert_dreal_idx_heap(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_insert_dreal_idx_heap
use psb_realloc_mod
implicit none
real(psb_dpk_), intent(in) :: key
integer(psb_ipk_), intent(in) :: index
type(psb_double_idx_heap), intent(inout) :: heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: info
info = psb_success_
@@ -1866,27 +1866,27 @@ subroutine psb_insert_double_idx_heap(key,index,heap,info)
return
end if
call psi_insert_double_idx_heap(key,index,&
call psi_insert_dreal_idx_heap(key,index,&
& heap%last,heap%keys,heap%idxs,heap%dir,info)
return
end subroutine psb_insert_double_idx_heap
end subroutine psb_insert_dreal_idx_heap
subroutine psb_double_idx_heap_get_first(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_double_idx_heap_get_first
subroutine psb_dreal_idx_heap_get_first(key,index,heap,info)
use psb_sort_mod, psb_protect_name => psb_dreal_idx_heap_get_first
implicit none
type(psb_double_idx_heap), intent(inout) :: heap
type(psb_dreal_idx_heap), intent(inout) :: heap
integer(psb_ipk_), intent(out) :: index,info
real(psb_dpk_), intent(out) :: key
info = psb_success_
call psi_double_idx_heap_get_first(key,index,&
call psi_dreal_idx_heap_get_first(key,index,&
& heap%last,heap%keys,heap%idxs,heap%dir,info)
return
end subroutine psb_double_idx_heap_get_first
end subroutine psb_dreal_idx_heap_get_first
function psb_howmany_int_idx_heap(heap)
use psb_sort_mod, psb_protect_name => psb_howmany_int_idx_heap
@@ -3655,8 +3655,8 @@ subroutine psi_int_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
return
end subroutine psi_int_idx_heap_get_first
subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_insert_real_idx_heap
subroutine psi_insert_sreal_idx_heap(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_insert_sreal_idx_heap
implicit none
!
@@ -3775,10 +3775,10 @@ subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info)
end select
return
end subroutine psi_insert_real_idx_heap
end subroutine psi_insert_sreal_idx_heap
subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_real_idx_heap_get_first
subroutine psi_sreal_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_sreal_idx_heap_get_first
implicit none
real(psb_spk_), intent(inout) :: heap(:)
@@ -3912,11 +3912,11 @@ subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
end select
return
end subroutine psi_real_idx_heap_get_first
end subroutine psi_sreal_idx_heap_get_first
subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_insert_double_idx_heap
subroutine psi_insert_dreal_idx_heap(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_insert_dreal_idx_heap
implicit none
!
@@ -4035,10 +4035,10 @@ subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info)
end select
return
end subroutine psi_insert_double_idx_heap
end subroutine psi_insert_dreal_idx_heap
subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_double_idx_heap_get_first
subroutine psi_dreal_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
use psb_sort_mod, psb_protect_name => psi_dreal_idx_heap_get_first
implicit none
real(psb_dpk_), intent(inout) :: heap(:)
@@ -4172,7 +4172,7 @@ subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
end select
return
end subroutine psi_double_idx_heap_get_first
end subroutine psi_dreal_idx_heap_get_first
subroutine psi_insert_scomplex_idx_heap(key,index,last,heap,idxs,dir,info)