mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-18 20:02:27 +00:00
New stop criterion
This commit is contained in:
@@ -31,7 +31,7 @@ contains
|
||||
|
||||
function psb_c_ckrylov_opt(methd,&
|
||||
& ah,ph,bh,xh,eps,cdh,itmax,iter,&
|
||||
& err,itrace,irst,istops1,s2) bind(c) result(res)
|
||||
& err,itrace,irst,istop,s1,s2) bind(c) result(res)
|
||||
use psb_base_mod
|
||||
use psb_error_mod
|
||||
use psb_prec_mod
|
||||
|
||||
@@ -31,7 +31,7 @@ contains
|
||||
|
||||
function psb_c_dkrylov_opt(methd,&
|
||||
& ah,ph,bh,xh,eps,cdh,itmax,iter,&
|
||||
& err,itrace,irst,istops1,s2) bind(c) result(res)
|
||||
& err,itrace,irst,istop,s1,s2) bind(c) result(res)
|
||||
use psb_base_mod
|
||||
use psb_error_mod
|
||||
use psb_prec_mod
|
||||
|
||||
@@ -31,7 +31,7 @@ contains
|
||||
|
||||
function psb_c_skrylov_opt(methd,&
|
||||
& ah,ph,bh,xh,eps,cdh,itmax,iter,&
|
||||
& err,itrace,irst,istops1,s2) bind(c) result(res)
|
||||
& err,itrace,irst,istop,s1,s2) bind(c) result(res)
|
||||
use psb_base_mod
|
||||
use psb_error_mod
|
||||
use psb_prec_mod
|
||||
|
||||
@@ -31,7 +31,7 @@ contains
|
||||
|
||||
function psb_c_zkrylov_opt(methd,&
|
||||
& ah,ph,bh,xh,eps,cdh,itmax,iter,&
|
||||
& err,itrace,irst,istops1,s2) bind(c) result(res)
|
||||
& err,itrace,irst,istop,s1,s2) bind(c) result(res)
|
||||
use psb_base_mod
|
||||
use psb_error_mod
|
||||
use psb_prec_mod
|
||||
|
||||
Reference in New Issue
Block a user