fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 06:34: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:40:31 +01:00
parent aa03a1cafd
commit a983f95fc2
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_genpde_mod.F90
+6
View File
@@ -227,6 +227,7 @@ contains
! contiguous rows ! contiguous rows
! !
call psb_cdall(ctxt,desc_a,info,nl=nr) call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -254,6 +255,7 @@ contains
! process that owns it ! process that owns it
! !
call psb_cdall(ctxt,desc_a,info,vg=iv) call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -308,6 +310,7 @@ contains
! the set of global indices it owns. ! the set of global indices it owns.
! !
call psb_cdall(ctxt,desc_a,info,vl=myidx) call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
! !
! Specify process topology ! Specify process topology
@@ -691,6 +694,7 @@ contains
! contiguous rows ! contiguous rows
! !
call psb_cdall(ctxt,desc_a,info,nl=nr) call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -718,6 +722,7 @@ contains
! process that owns it ! process that owns it
! !
call psb_cdall(ctxt,desc_a,info,vg=iv) call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -767,6 +772,7 @@ contains
! the set of global indices it owns. ! the set of global indices it owns.
! !
call psb_cdall(ctxt,desc_a,info,vl=myidx) call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
! !
! Specify process topology ! Specify process topology
samples/advanced/pdegen/amg_s_genpde_mod.F90
+6
View File
@@ -227,6 +227,7 @@ contains
! contiguous rows ! contiguous rows
! !
call psb_cdall(ctxt,desc_a,info,nl=nr) call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -254,6 +255,7 @@ contains
! process that owns it ! process that owns it
! !
call psb_cdall(ctxt,desc_a,info,vg=iv) call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -308,6 +310,7 @@ contains
! the set of global indices it owns. ! the set of global indices it owns.
! !
call psb_cdall(ctxt,desc_a,info,vl=myidx) call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
! !
! Specify process topology ! Specify process topology
@@ -691,6 +694,7 @@ contains
! contiguous rows ! contiguous rows
! !
call psb_cdall(ctxt,desc_a,info,nl=nr) call psb_cdall(ctxt,desc_a,info,nl=nr)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -718,6 +722,7 @@ contains
! process that owns it ! process that owns it
! !
call psb_cdall(ctxt,desc_a,info,vg=iv) call psb_cdall(ctxt,desc_a,info,vg=iv)
if (info /=0) goto 9999
myidx = desc_a%get_global_indices() myidx = desc_a%get_global_indices()
nlr = size(myidx) nlr = size(myidx)
@@ -767,6 +772,7 @@ contains
! the set of global indices it owns. ! the set of global indices it owns.
! !
call psb_cdall(ctxt,desc_a,info,vl=myidx) call psb_cdall(ctxt,desc_a,info,vl=myidx)
if (info /=0) goto 9999
! !
! Specify process topology ! Specify process topology