You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
676 B
Fortran
30 lines
676 B
Fortran
module psb_base_krylov_cbind_mod
|
|
|
|
use iso_c_binding
|
|
use psb_objhandle_mod
|
|
|
|
type, bind(c) :: solveroptions
|
|
integer(psb_c_ipk_) :: iter, itmax, itrace, irst, istop
|
|
real(c_double) :: eps, err
|
|
end type solveroptions
|
|
|
|
contains
|
|
|
|
function psb_c_DefaultSolverOptions(options)&
|
|
& bind(c,name='psb_c_DefaultSolverOptions') result(res)
|
|
implicit none
|
|
type(solveroptions) :: options
|
|
integer(psb_c_ipk_) :: res
|
|
|
|
options%itmax = 1000
|
|
options%itrace = 0
|
|
options%istop = 2
|
|
options%irst = 10
|
|
options%eps = 1.d-6
|
|
|
|
res = 0
|
|
end function psb_c_DefaultSolverOptions
|
|
|
|
|
|
end module psb_base_krylov_cbind_mod
|