subroutine update_pcpp_excitgen() call finalize_pcpp_excitgen() call init_pcpp_excitgen() end subroutine update_pcpp_excitgen