|
|
@ -154,7 +154,7 @@ Module mld_krylov_mod
|
|
|
|
end interface
|
|
|
|
end interface
|
|
|
|
|
|
|
|
|
|
|
|
interface psb_rgmres
|
|
|
|
interface psb_rgmres
|
|
|
|
Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,&
|
|
|
|
Subroutine psb_drgmres(a,prec,b,x,eps,desc_a,info,&
|
|
|
|
&itmax,iter,err,itrace,irst,istop)
|
|
|
|
&itmax,iter,err,itrace,irst,istop)
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_prec_mod
|
|
|
|
use psb_prec_mod
|
|
|
@ -168,8 +168,8 @@ Module mld_krylov_mod
|
|
|
|
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
|
|
|
|
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
|
|
|
|
Integer, Optional, Intent(out) :: iter
|
|
|
|
Integer, Optional, Intent(out) :: iter
|
|
|
|
Real(Kind(1.d0)), Optional, Intent(out) :: err
|
|
|
|
Real(Kind(1.d0)), Optional, Intent(out) :: err
|
|
|
|
end subroutine psb_dgmresr
|
|
|
|
end subroutine psb_drgmres
|
|
|
|
Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,&
|
|
|
|
Subroutine psb_zrgmres(a,prec,b,x,eps,desc_a,info,&
|
|
|
|
&itmax,iter,err,itrace,irst,istop)
|
|
|
|
&itmax,iter,err,itrace,irst,istop)
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_base_mod
|
|
|
|
use psb_prec_mod
|
|
|
|
use psb_prec_mod
|
|
|
@ -183,7 +183,7 @@ Module mld_krylov_mod
|
|
|
|
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
|
|
|
|
Integer, Optional, Intent(in) :: itmax, itrace, irst,istop
|
|
|
|
Integer, Optional, Intent(out) :: iter
|
|
|
|
Integer, Optional, Intent(out) :: iter
|
|
|
|
Real(Kind(1.d0)), Optional, Intent(out) :: err
|
|
|
|
Real(Kind(1.d0)), Optional, Intent(out) :: err
|
|
|
|
end subroutine psb_zgmresr
|
|
|
|
end subroutine psb_zrgmres
|
|
|
|
end interface
|
|
|
|
end interface
|
|
|
|
|
|
|
|
|
|
|
|
interface psb_cgs
|
|
|
|
interface psb_cgs
|
|
|
|