fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psbals3:

Browse Source 
cosmetic changes to sort_mod
psblas3-final
Salvatore Filippone 12 years ago
parent 21cb8304d8
commit 764cf2d293
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File

12
base/modules/psb_sort_mod.f90
Unescape Escape View File

@ -66,23 +66,23 @@ module psb_sort_mod
end type psb_int_idx_heap end type psb_int_idx_heap
type psb_sreal_idx_heap type psb_sreal_idx_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
real(psb_spk_), allocatable :: keys(:) real(psb_spk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:) integer(psb_ipk_), allocatable :: idxs(:)
end type psb_sreal_idx_heap end type psb_sreal_idx_heap
type psb_dreal_idx_heap type psb_dreal_idx_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
real(psb_dpk_), allocatable :: keys(:) real(psb_dpk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:) integer(psb_ipk_), allocatable :: idxs(:)
end type psb_dreal_idx_heap end type psb_dreal_idx_heap
type psb_scomplex_idx_heap type psb_scomplex_idx_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
complex(psb_spk_), allocatable :: keys(:) complex(psb_spk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:) integer(psb_ipk_), allocatable :: idxs(:)
end type psb_scomplex_idx_heap end type psb_scomplex_idx_heap
type psb_dcomplex_idx_heap type psb_dcomplex_idx_heap
integer(psb_ipk_) :: last, dir integer(psb_ipk_) :: last, dir
complex(psb_dpk_), allocatable :: keys(:) complex(psb_dpk_), allocatable :: keys(:)
integer(psb_ipk_), allocatable :: idxs(:) integer(psb_ipk_), allocatable :: idxs(:)
end type psb_dcomplex_idx_heap end type psb_dcomplex_idx_heap

Write Preview
Loading…
Cancel
Save