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

Fix AS%FREE()

Browse Source
savebcmatch
Salvatore Filippone 4 years ago
parent 6dddaaa77b
commit 1fa94d0372
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
amgprec/impl/smoother/amg_c_as_smoother_free.f90
Unescape Escape View File

@ -61,6 +61,7 @@ subroutine amg_c_as_smoother_free(sm,info)
end if end if
end if end if
call sm%nd%free() call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

1
amgprec/impl/smoother/amg_d_as_smoother_free.f90
Unescape Escape View File

@ -61,6 +61,7 @@ subroutine amg_d_as_smoother_free(sm,info)
end if end if
end if end if
call sm%nd%free() call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

1
amgprec/impl/smoother/amg_s_as_smoother_free.f90
Unescape Escape View File

@ -61,6 +61,7 @@ subroutine amg_s_as_smoother_free(sm,info)
end if end if
end if end if
call sm%nd%free() call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

1
amgprec/impl/smoother/amg_z_as_smoother_free.f90
Unescape Escape View File

@ -61,6 +61,7 @@ subroutine amg_z_as_smoother_free(sm,info)
end if end if
end if end if
call sm%nd%free() call sm%nd%free()
call sm%desc_data%free(info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return

Write Preview
Loading…
Cancel
Save