extract_bit_rep_avsign_no_rdm Subroutine

    subroutine extract_bit_rep_avsign_no_rdm(rdm_defs, iLutnI, j, nI, SignI, FlagsI, IterRDMStartI, AvSignI, store)

        ! This is just the standard extract_bit_rep routine for when we're not
        ! calculating the RDMs.

        use FciMCData, only: excit_gen_store_type
        use global_det_data, only: len_av_sgn_tot, len_iter_occ_tot
        use rdm_data, only: rdm_definitions_t

        type(rdm_definitions_t), intent(in) :: rdm_defs
        integer(n_int), intent(in) :: iLutnI(0:nIfTot)
        integer, intent(in) :: j
        integer, intent(out) :: nI(nel), FlagsI
        real(dp), intent(out) :: SignI(lenof_sign)
        real(dp), intent(out) :: IterRDMStartI(len_iter_occ_tot), AvSignI(len_av_sgn_tot)
        type(excit_gen_store_type), intent(inout), optional :: store

        unused_var(j); unused_var(rdm_defs)

        ! This extracts everything.
        call extract_bit_rep(iLutnI, nI, SignI, FlagsI, j, store)

        IterRDMStartI = 0.0_dp
        AvSignI = 0.0_dp
    end subroutine extract_bit_rep_avsign_no_rdm