transfer_stochastic_rdm_info Subroutine

    pure subroutine transfer_stochastic_rdm_info(ilutG, ilutN, &
                                                 BitIndex_from, BitIndex_to)
        ! I need to keep this general with BitIndex unfortunately because
        ! i have to perform this on ilut with niftot and on parent arrays..
        integer(n_int), intent(in) :: ilutG(0:)
        integer(n_int), intent(inout) :: ilutN(0:)
        type(BitRep_t), intent(in), optional :: BitIndex_from, BitIndex_to

        type(BitRep_t) :: from, to

        def_default(from, BitIndex_from, GugaBits)
        def_default(to, BitIndex_to, IlutBits)

        ! here i now I get a GUGA ilut, but could be that I have to
        ! transfer to Parent array? I dont think so..

        call encode_stochastic_rdm_info(to, ilutN, &
                                        rdm_ind=extract_stochastic_rdm_ind(from, ilutG), &
                                        x0=extract_stochastic_rdm_x0(from, ilutG), &
                                        x1=extract_stochastic_rdm_x1(from, ilutG))

    end subroutine transfer_stochastic_rdm_info