fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Make base_solver_free a noop, check for error in level_setsv.

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 6632e01e97
commit 3fd565bc99
8 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File

4
mlprec/impl/level/mld_c_base_onelev_setsv.F90
Unescape Escape View File

@ -72,7 +72,7 @@ subroutine mld_c_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm%sv)) then if (allocated(lev%sm%sv)) then
if (.not.same_type_as(lev%sm%sv,val)) then if (.not.same_type_as(lev%sm%sv,val)) then
call lev%sm%sv%free(info) call lev%sm%sv%free(info)
deallocate(lev%sm%sv,stat=info) if (info == 0) deallocate(lev%sm%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return
@ -117,7 +117,7 @@ subroutine mld_c_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm2a%sv)) then if (allocated(lev%sm2a%sv)) then
if (.not.same_type_as(lev%sm2a%sv,val)) then if (.not.same_type_as(lev%sm2a%sv,val)) then
call lev%sm2a%sv%free(info) call lev%sm2a%sv%free(info)
deallocate(lev%sm2a%sv,stat=info) if (info == 0) deallocate(lev%sm2a%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return

4
mlprec/impl/level/mld_d_base_onelev_setsv.F90
Unescape Escape View File

@ -72,7 +72,7 @@ subroutine mld_d_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm%sv)) then if (allocated(lev%sm%sv)) then
if (.not.same_type_as(lev%sm%sv,val)) then if (.not.same_type_as(lev%sm%sv,val)) then
call lev%sm%sv%free(info) call lev%sm%sv%free(info)
deallocate(lev%sm%sv,stat=info) if (info == 0) deallocate(lev%sm%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return
@ -117,7 +117,7 @@ subroutine mld_d_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm2a%sv)) then if (allocated(lev%sm2a%sv)) then
if (.not.same_type_as(lev%sm2a%sv,val)) then if (.not.same_type_as(lev%sm2a%sv,val)) then
call lev%sm2a%sv%free(info) call lev%sm2a%sv%free(info)
deallocate(lev%sm2a%sv,stat=info) if (info == 0) deallocate(lev%sm2a%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return

4
mlprec/impl/level/mld_s_base_onelev_setsv.F90
Unescape Escape View File

@ -72,7 +72,7 @@ subroutine mld_s_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm%sv)) then if (allocated(lev%sm%sv)) then
if (.not.same_type_as(lev%sm%sv,val)) then if (.not.same_type_as(lev%sm%sv,val)) then
call lev%sm%sv%free(info) call lev%sm%sv%free(info)
deallocate(lev%sm%sv,stat=info) if (info == 0) deallocate(lev%sm%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return
@ -117,7 +117,7 @@ subroutine mld_s_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm2a%sv)) then if (allocated(lev%sm2a%sv)) then
if (.not.same_type_as(lev%sm2a%sv,val)) then if (.not.same_type_as(lev%sm2a%sv,val)) then
call lev%sm2a%sv%free(info) call lev%sm2a%sv%free(info)
deallocate(lev%sm2a%sv,stat=info) if (info == 0) deallocate(lev%sm2a%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return

4
mlprec/impl/level/mld_z_base_onelev_setsv.F90
Unescape Escape View File

@ -72,7 +72,7 @@ subroutine mld_z_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm%sv)) then if (allocated(lev%sm%sv)) then
if (.not.same_type_as(lev%sm%sv,val)) then if (.not.same_type_as(lev%sm%sv,val)) then
call lev%sm%sv%free(info) call lev%sm%sv%free(info)
deallocate(lev%sm%sv,stat=info) if (info == 0) deallocate(lev%sm%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return
@ -117,7 +117,7 @@ subroutine mld_z_base_onelev_setsv(lev,val,info,pos)
if (allocated(lev%sm2a%sv)) then if (allocated(lev%sm2a%sv)) then
if (.not.same_type_as(lev%sm2a%sv,val)) then if (.not.same_type_as(lev%sm2a%sv,val)) then
call lev%sm2a%sv%free(info) call lev%sm2a%sv%free(info)
deallocate(lev%sm2a%sv,stat=info) if (info == 0) deallocate(lev%sm2a%sv,stat=info)
if (info /= 0) then if (info /= 0) then
info = 3111 info = 3111
return return

5
mlprec/impl/solver/mld_c_base_solver_free.f90
Unescape Escape View File

@ -48,9 +48,8 @@ subroutine mld_c_base_solver_free(sv,info)
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_err_missing_override_method_ ! Do nothing
call psb_errpush(info,name) info = psb_success_
goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

5
mlprec/impl/solver/mld_d_base_solver_free.f90
Unescape Escape View File

@ -48,9 +48,8 @@ subroutine mld_d_base_solver_free(sv,info)
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_err_missing_override_method_ ! Do nothing
call psb_errpush(info,name) info = psb_success_
goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

5
mlprec/impl/solver/mld_s_base_solver_free.f90
Unescape Escape View File

@ -48,9 +48,8 @@ subroutine mld_s_base_solver_free(sv,info)
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_err_missing_override_method_ ! Do nothing
call psb_errpush(info,name) info = psb_success_
goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

5
mlprec/impl/solver/mld_z_base_solver_free.f90
Unescape Escape View File

@ -48,9 +48,8 @@ subroutine mld_z_base_solver_free(sv,info)
call psb_erractionsave(err_act) call psb_erractionsave(err_act)
info = psb_err_missing_override_method_ ! Do nothing
call psb_errpush(info,name) info = psb_success_
goto 9999
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

Write Preview
Loading…
Cancel
Save