|
|
@ -188,6 +188,8 @@ contains
|
|
|
|
agnext%n_sweeps = ag%n_sweeps
|
|
|
|
agnext%n_sweeps = ag%n_sweeps
|
|
|
|
agnext%max_csize = ag%max_csize
|
|
|
|
agnext%max_csize = ag%max_csize
|
|
|
|
agnext%max_nlevels = ag%max_nlevels
|
|
|
|
agnext%max_nlevels = ag%max_nlevels
|
|
|
|
|
|
|
|
! Is this going to generate shallow copies/memory leaks/double frees?
|
|
|
|
|
|
|
|
! To be investigated further.
|
|
|
|
agnext%w_par = ag%w_par
|
|
|
|
agnext%w_par = ag%w_par
|
|
|
|
end select
|
|
|
|
end select
|
|
|
|
info = 0
|
|
|
|
info = 0
|
|
|
|