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

Add error handling after CDALL in samples

Browse Source
This commit is contained in:
sfilippone
2025-03-27 12:39:50 +01:00
parent 503c1e575f
commit a3496d8cb5
5 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cd_inloc.f90
+1 -3
View File
@@ -247,7 +247,6 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
if (check_) then
! Sort, eliminate duplicates, then
! scramble back into original position.
ix(1) = -1
if (present(idx)) then
if (size(idx) >= loc_row) then
!$omp parallel do private(i)
@@ -255,8 +254,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)
ix(i) = idx(i)
end do
end if
end if
if (ix(1) == -1) then
else
!$omp parallel do private(i)
do i=1, loc_row
ix(i) = i
test/pdegen/psb_d_pde2d.F90
+3
View File
@@ -281,6 +281,7 @@ contains
! contiguous rows
!
call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -308,6 +309,7 @@ contains
! process that owns it
!
call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -357,6 +359,7 @@ contains
! the set of global indices it owns.
!
call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
!
! Specify process topology
test/pdegen/psb_d_pde3d.F90
+3
View File
@@ -297,6 +297,7 @@ contains
! contiguous rows
!
call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -324,6 +325,7 @@ contains
! process that owns it
!
call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -378,6 +380,7 @@ contains
! the set of global indices it owns.
!
call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
!
! Specify process topology
test/pdegen/psb_s_pde2d.F90
+3
View File
@@ -281,6 +281,7 @@ contains
! contiguous rows
!
call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -308,6 +309,7 @@ contains
! process that owns it
!
call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -357,6 +359,7 @@ contains
! the set of global indices it owns.
!
call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
!
! Specify process topology
test/pdegen/psb_s_pde3d.F90
+3
View File
@@ -297,6 +297,7 @@ contains
! contiguous rows
!
call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -324,6 +325,7 @@ contains
! process that owns it
!
call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices()
nlr = size(myidx)
@@ -378,6 +380,7 @@ contains
! the set of global indices it owns.
!
call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
!
! Specify process topology