init_pcpp_excitgen Subroutine

    subroutine init_pcpp_excitgen()
        implicit none

        if (.not. allocated(refDet)) allocate(refDet(nel))
        refDet = projEDet(:, 1)

        call init_pcpp_doubles_excitgen()
        call init_pcpp_singles_excitgen()

    end subroutine init_pcpp_excitgen