diff --git a/src/PROPERTIES/properties_general.irp.f b/src/PROPERTIES/properties_general.irp.f index 3ef9e2f..b6c0ae9 100644 --- a/src/PROPERTIES/properties_general.irp.f +++ b/src/PROPERTIES/properties_general.irp.f @@ -47,18 +47,6 @@ BEGIN_PROVIDER [ double precision, wf_extension ] SOFT_TOUCH wf_extension_min wf_extension_max END_PROVIDER -BEGIN_PROVIDER [ double precision, srmc_pop_weight ] - implicit none - BEGIN_DOC - ! Weight of the SRMC population - END_DOC - srmc_pop_weight = pop_weight_mult - srmc_pop_weight_min = min(srmc_pop_weight,srmc_pop_weight_min) - srmc_pop_weight_max = max(srmc_pop_weight,srmc_pop_weight_max) - SOFT_TOUCH srmc_pop_weight_min srmc_pop_weight_max - -END_PROVIDER - BEGIN_PROVIDER [ double precision, drift_mod, (size_drift_mod) ] implicit none diff --git a/src/SAMPLING/srmc_step.irp.f b/src/SAMPLING/srmc_step.irp.f index 5e06331..836ddae 100644 --- a/src/SAMPLING/srmc_step.irp.f +++ b/src/SAMPLING/srmc_step.irp.f @@ -188,7 +188,7 @@ END_SHELL elec_coord(elec_num+1,1) += p*time_step elec_coord(elec_num+1,2) = E_loc - elec_coord(elec_num+1,3) = srmc_weight(i_walk) * pop_weight_mult + elec_coord(elec_num+1,3) = srmc_weight(i_walk) * srmc_pop_weight_mult do l=1,3 do i=1,elec_num+1 @@ -359,7 +359,7 @@ BEGIN_PROVIDER [ double precision, srmc_pop_weight_mult ] BEGIN_DOC ! Population weight of SRMC END_DOC - pop_weight_mult = pop_weight(srmc_projection) + srmc_pop_weight_mult = srmc_pop_weight(srmc_projection) END_PROVIDER BEGIN_PROVIDER [ integer, srmc_projection ]