|
|
|
@ -67,6 +67,7 @@ module mld_c_slu_solver
|
|
|
|
|
procedure, pass(sv) :: apply_a => c_slu_solver_apply
|
|
|
|
|
procedure, pass(sv) :: apply_v => c_slu_solver_apply_vect
|
|
|
|
|
procedure, pass(sv) :: free => c_slu_solver_free
|
|
|
|
|
procedure, pass(sv) :: clear_data => c_slu_solver_clear_data
|
|
|
|
|
procedure, pass(sv) :: descr => c_slu_solver_descr
|
|
|
|
|
procedure, pass(sv) :: sizeof => c_slu_solver_sizeof
|
|
|
|
|
procedure, nopass :: get_fmt => c_slu_solver_get_fmt
|
|
|
|
@ -80,7 +81,8 @@ module mld_c_slu_solver
|
|
|
|
|
private :: c_slu_solver_bld, c_slu_solver_apply, &
|
|
|
|
|
& c_slu_solver_free, c_slu_solver_descr, &
|
|
|
|
|
& c_slu_solver_sizeof, c_slu_solver_apply_vect, &
|
|
|
|
|
& c_slu_solver_get_fmt, c_slu_solver_get_id
|
|
|
|
|
& c_slu_solver_get_fmt, c_slu_solver_get_id, &
|
|
|
|
|
& c_slu_solver_clear_data
|
|
|
|
|
#if defined(HAVE_FINAL)
|
|
|
|
|
private :: c_slu_solver_finalize
|
|
|
|
|
#endif
|
|
|
|
@ -332,6 +334,31 @@ contains
|
|
|
|
|
|
|
|
|
|
call psb_erractionsave(err_act)
|
|
|
|
|
|
|
|
|
|
info = psb_success_
|
|
|
|
|
|
|
|
|
|
call sv%clear_data(info)
|
|
|
|
|
|
|
|
|
|
if (info /= psb_success_) goto 9999
|
|
|
|
|
|
|
|
|
|
call psb_erractionrestore(err_act)
|
|
|
|
|
return
|
|
|
|
|
|
|
|
|
|
9999 call psb_error_handler(err_act)
|
|
|
|
|
return
|
|
|
|
|
end subroutine c_slu_solver_free
|
|
|
|
|
|
|
|
|
|
subroutine c_slu_solver_clear_data(sv,info)
|
|
|
|
|
|
|
|
|
|
Implicit None
|
|
|
|
|
|
|
|
|
|
! Arguments
|
|
|
|
|
class(mld_c_slu_solver_type), intent(inout) :: sv
|
|
|
|
|
integer, intent(out) :: info
|
|
|
|
|
Integer :: err_act
|
|
|
|
|
character(len=20) :: name='c_slu_solver_clear_data'
|
|
|
|
|
|
|
|
|
|
call psb_erractionsave(err_act)
|
|
|
|
|
|
|
|
|
|
info = psb_success_
|
|
|
|
|
if (c_associated(sv%lufactors)) info = mld_cslu_free(sv%lufactors)
|
|
|
|
|
sv%lufactors = c_null_ptr
|
|
|
|
@ -342,7 +369,7 @@ contains
|
|
|
|
|
|
|
|
|
|
9999 call psb_error_handler(err_act)
|
|
|
|
|
return
|
|
|
|
|
end subroutine c_slu_solver_free
|
|
|
|
|
end subroutine c_slu_solver_clear_data
|
|
|
|
|
|
|
|
|
|
#if defined(HAVE_FINAL)
|
|
|
|
|
subroutine c_slu_solver_finalize(sv)
|
|
|
|
|