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

Add error handling after CDALL in samples

Browse Source
cmake
sfilippone 1 year ago
parent aa03a1cafd
commit a983f95fc2
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File

6
samples/advanced/pdegen/amg_d_genpde_mod.F90
Unescape Escape 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

6
samples/advanced/pdegen/amg_s_genpde_mod.F90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save