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

psblas-submodules:

Browse Source 
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

INTENT mismatch fixed.
psblas3-submodules
Salvatore Filippone 10 years ago
parent 0888e3b7b4
commit 0ed792f1f7
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/psb_c_sort_mod.f90
Unescape Escape View File

@ -200,7 +200,7 @@ module psb_c_sort_mod
interface
module subroutine psi_c_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
complex(psb_spk_), intent(inout) :: key
complex(psb_spk_), intent(out) :: key
integer(psb_ipk_), intent(out) :: index
complex(psb_spk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(in) :: dir

2
base/modules/psb_d_sort_mod.f90
Unescape Escape View File

@ -188,7 +188,7 @@ module psb_d_sort_mod
interface
module subroutine psi_d_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
real(psb_dpk_), intent(inout) :: key
real(psb_dpk_), intent(out) :: key
integer(psb_ipk_), intent(out) :: index
real(psb_dpk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(in) :: dir

2
base/modules/psb_i_sort_mod.f90
Unescape Escape View File

@ -225,7 +225,7 @@ module psb_i_sort_mod
interface
module subroutine psi_i_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
integer(psb_ipk_), intent(inout) :: key
integer(psb_ipk_), intent(out) :: key
integer(psb_ipk_), intent(out) :: index
integer(psb_ipk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(in) :: dir

2
base/modules/psb_s_sort_mod.f90
Unescape Escape View File

@ -188,7 +188,7 @@ module psb_s_sort_mod
interface
module subroutine psi_s_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
real(psb_spk_), intent(inout) :: key
real(psb_spk_), intent(out) :: key
integer(psb_ipk_), intent(out) :: index
real(psb_spk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(in) :: dir

2
base/modules/psb_z_sort_mod.f90
Unescape Escape View File

@ -200,7 +200,7 @@ module psb_z_sort_mod
interface
module subroutine psi_z_idx_heap_get_first(key,index,last,heap,idxs,dir,info)
complex(psb_dpk_), intent(inout) :: key
complex(psb_dpk_), intent(out) :: key
integer(psb_ipk_), intent(out) :: index
complex(psb_dpk_), intent(inout) :: heap(:)
integer(psb_ipk_), intent(in) :: dir

Write Preview
Loading…
Cancel
Save