initialize_corespace_construction Subroutine

    subroutine initialize_corespace_construction
        use hash, only: init_hash_table
        use FciMCData, only: nWalkerHashes, MaxWalkersPart
        use real_time_data, only: ssht, core_space_buf, csbuf_size
        implicit none
        integer :: ierr

        ! allocate the buffer for the corespace
        allocate(core_space_buf(0:niftot, MaxWalkersPart), stat=ierr)
        ! set the position to 0
        csbuf_size = 0
        ! setup the buffer hashtable
        allocate(ssht(nWalkerHashes), stat=ierr)
        call init_hash_table(ssht)

    end subroutine initialize_corespace_construction