fill_adi_caches Subroutine

    subroutine fill_adi_caches()
        implicit none
        integer :: iRef

        call allocate_adi_caches()

        do iRef = 1, nRefs
            call decode_bit_det(nIRef(:, iRef), ilutRefAdi(:, iRef))
            call extract_sign(ilutRefAdi(:, iRef), signsRef(:, iRef))
            exLvlRef(iRef) = FindBitExcitLevel(ilutRef(:, 1), ilutRefAdi(:, iRef))
        end do

        tUseCaches = .true.
    end subroutine fill_adi_caches