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.
psblas3/cbind/krylov/psb_base_krylov_cbind_mod.f90

30 lines
674 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