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

Cleanup hash_map using new indx_map%set_lc

Browse Source
This commit is contained in:
sfilippone
2024-05-09 12:30:06 +02:00
parent 7ec394ce1c
commit d8ed01218d
1 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/desc/psb_hash_map_mod.F90
+13 -15
View File
@@ -660,7 +660,7 @@ contains
logical, intent(in), optional :: mask(:)
integer(psb_ipk_), intent(in), optional :: lidx(:)
integer(psb_ipk_) :: i, is, lip, nrow, ncol, inxt,&
integer(psb_ipk_) :: i, is, lip, nrow, ncol,&
& err_act
integer(psb_lpk_) :: mglob, ip, nxt, tlip
type(psb_ctxt_type) :: ctxt
@@ -706,7 +706,7 @@ contains
if (present(mask)) then
!$omp parallel do default(none) schedule(dynamic) &
!$omp shared(lidx,mask,name,me,is,idx,ins_lck,mglob,idxmap,ncol,nrow,laddsz) &
!$omp private(i,ip,lip,tlip,nxt,inxt,info) &
!$omp private(i,ip,lip,tlip,nxt,info) &
!$omp reduction(.AND.:isLoopValid)
do i = 1, is
if (mask(i)) then
@@ -746,8 +746,8 @@ contains
isLoopValid = .false.
end if
idxmap%loc_to_glob(nxt) = ip
inxt = max(ncol,nxt)
call idxmap%set_lc(inxt)
nxt = max(ncol,nxt)
call idxmap%set_lc(nxt)
endif
idx(i) = lip
info = psb_success_
@@ -770,7 +770,7 @@ contains
!$omp parallel do default(none) schedule(dynamic) &
!$omp shared(lidx,name,me,is,idx,ins_lck,mglob,idxmap,ncol,nrow,laddsz) &
!$omp private(i,ip,lip,tlip,nxt,inxt,info) &
!$omp private(i,ip,lip,tlip,nxt,info) &
!$omp reduction(.AND.:isLoopValid)
do i = 1, is
ip = idx(i)
@@ -809,8 +809,8 @@ contains
isLoopValid = .false.
end if
idxmap%loc_to_glob(nxt) = ip
inxt = max(ncol,nxt)
call idxmap%set_lc(inxt)
nxt = max(ncol,nxt)
call idxmap%set_lc(nxt)
endif
idx(i) = lip
info = psb_success_
@@ -832,7 +832,7 @@ contains
if (present(mask)) then
!$omp parallel do default(none) schedule(dynamic) &
!$omp shared(mask,name,me,is,idx,ins_lck,mglob,idxmap,ncol,nrow,laddsz) &
!$omp private(i,ip,lip,tlip,nxt,inxt,info) &
!$omp private(i,ip,lip,tlip,nxt,info) &
!$omp reduction(.AND.:isLoopValid)
do i = 1, is
if (mask(i)) then
@@ -868,9 +868,8 @@ contains
& a_err='psb_ensure_size',i_err=(/info/))
isLoopValid = .false.
end if
inxt = nxt
idxmap%loc_to_glob(inxt) = ip
call idxmap%set_lc(inxt)
idxmap%loc_to_glob(nxt) = ip
call idxmap%set_lc(nxt)
endif
idx(i) = lip
info = psb_success_
@@ -892,7 +891,7 @@ contains
!$omp parallel do default(none) schedule(dynamic) &
!$omp shared(name,me,is,idx,ins_lck,mglob,idxmap,ncol,nrow,laddsz) &
!$omp private(i,ip,lip,tlip,nxt,inxt,info) &
!$omp private(i,ip,lip,tlip,nxt,info) &
!$omp reduction(.AND.:isLoopValid)
do i = 1, is
ip = idx(i)
@@ -927,9 +926,8 @@ contains
& a_err='psb_ensure_size',i_err=(/info/))
isLoopValid = .false.
end if
inxt = nxt
idxmap%loc_to_glob(inxt) = ip
call idxmap%set_lc(inxt)
idxmap%loc_to_glob(nxt) = ip
call idxmap%set_lc(nxt)
endif
idx(i) = lip
info = psb_success_