fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 06:34:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix poly%clone allocation of poly_beta

Browse Source
This commit is contained in:
sfilippone
2026-07-11 12:27:03 +02:00
parent 8a66a7b214
commit b7ac77da69
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/smoother/amg_d_poly_smoother_clone_settings.f90
+6 -1
View File
@@ -61,7 +61,12 @@ subroutine amg_d_poly_smoother_clone_settings(sm,smout,info)
smout%rho_ba = sm%rho_ba
smout%rho_estimate = sm%rho_estimate
smout%rho_estimate_iterations = sm%rho_estimate_iterations
smout%poly_beta = sm%poly_beta
if (allocated(sm%poly_beta)) then
smout%poly_beta = sm%poly_beta
else
if (allocated(smout%poly_beta)) deallocate(smout%poly_beta)
end if
if (allocated(smout%sv)) then
if (.not.same_type_as(sm%sv,smout%sv)) then
amgprec/impl/smoother/amg_s_poly_smoother_clone_settings.f90
+6 -1
View File
@@ -61,7 +61,12 @@ subroutine amg_s_poly_smoother_clone_settings(sm,smout,info)
smout%rho_ba = sm%rho_ba
smout%rho_estimate = sm%rho_estimate
smout%rho_estimate_iterations = sm%rho_estimate_iterations
smout%poly_beta = sm%poly_beta
if (allocated(sm%poly_beta)) then
smout%poly_beta = sm%poly_beta
else
if (allocated(smout%poly_beta)) deallocate(smout%poly_beta)
end if
if (allocated(smout%sv)) then
if (.not.same_type_as(sm%sv,smout%sv)) then