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.
44 lines
1.3 KiB
Fortran
44 lines
1.3 KiB
Fortran
module psb_base_linsolve_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
|
|
|
|
function psb_c_PrintSolverOptions(options)&
|
|
& bind(c,name='psb_c_PrintSolverOptions') result(res)
|
|
implicit none
|
|
type(solveroptions) :: options
|
|
integer(psb_c_ipk_) :: res
|
|
|
|
write(*,*) 'PSBLAS C Interface Solver Options '
|
|
write(*,*) ' Maximum number of iterations :', options%itmax
|
|
write(*,*) ' Tracing :', options%itrace
|
|
write(*,*) ' Stopping Criterion :', options%istop
|
|
write(*,*) ' Restart :', options%irst
|
|
write(*,*) ' EPS (tolerance) :', options%eps
|
|
res = 0
|
|
end function psb_c_PrintSolverOptions
|
|
|
|
|
|
end module psb_base_linsolve_cbind_mod
|