PropVec_PCHB_init Subroutine

    subroutine PropVec_PCHB_init(this, indexer, options)
        !! Initialize the PCHB excitation generator.
        !!
        class(PropVec_PCHB_ExcGenerator_t), intent(inout) :: this
        class(PropertyIndexer_t), intent(in) :: indexer
            !!  The PropVec specifications for the excitation generator.
        type(PropVec_PCHB_options_t), intent(in) :: options

        call set_timer(PropVec_PCHB_init_time)

        call options%assert_validity()

        write(stdout, '(A)') 'PropVec PCHB with ' // options%to_str() // ' is used'
        call singles_allocate_and_init(indexer, options%singles, options%use_lookup, this%singles_generator)
        call doubles_allocate_and_init(indexer, options%doubles, options%use_lookup, this%doubles_generator)

        call halt_timer(PropVec_PCHB_init_time)
    end subroutine PropVec_PCHB_init