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

added SCHUR_SOLVE=SELFP / SELF option and stokes problem test

Browse Source 
update for self/selfp
This commit is contained in:
jalmerol
2026-07-03 12:19:55 +02:00
parent 0c9d295264
commit 6004643a7b
11 changed files with 1235 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files
linsolve/impl/psb_crgmres.f90
+1
View File
@@ -248,6 +248,7 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,&
if (info == psb_success_) call psb_geasb(w,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(w1,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(xt,desc_a,info,mold=x%v)
if (info == psb_success_) allocate(h(nl+1,nl), c(nl), s(nl), rs(nl+1), rst(nl+1), stat=info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_non_
call psb_errpush(info,name)
linsolve/impl/psb_drgmres.f90
+1
View File
@@ -248,6 +248,7 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,&
if (info == psb_success_) call psb_geasb(w,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(w1,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(xt,desc_a,info,mold=x%v)
if (info == psb_success_) allocate(h(nl+1,nl), c(nl), s(nl), rs(nl+1), rst(nl+1), stat=info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_non_
call psb_errpush(info,name)
linsolve/impl/psb_srgmres.f90
+1
View File
@@ -248,6 +248,7 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,&
if (info == psb_success_) call psb_geasb(w,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(w1,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(xt,desc_a,info,mold=x%v)
if (info == psb_success_) allocate(h(nl+1,nl), c(nl), s(nl), rs(nl+1), rst(nl+1), stat=info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_non_
call psb_errpush(info,name)
linsolve/impl/psb_zrgmres.f90
+1
View File
@@ -248,6 +248,7 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,&
if (info == psb_success_) call psb_geasb(w,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(w1,desc_a,info,mold=x%v)
if (info == psb_success_) call psb_geasb(xt,desc_a,info,mold=x%v)
if (info == psb_success_) allocate(h(nl+1,nl), c(nl), s(nl), rs(nl+1), rst(nl+1), stat=info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_non_
call psb_errpush(info,name)