init_ciCoeff Subroutine

public subroutine init_ciCoeff()

Arguments

None

Source Code

    subroutine init_ciCoeff
        integer, parameter :: hash_table_ciCoeff_size = 500000
        nCyc = 0
        first_free_entry = 0
        allocate (hash_table_ciCoeff(hash_table_ciCoeff_size))
        call init_hash_table(hash_table_ciCoeff)
        allocate (ciCoeff_storage(0:NIfTot, hash_table_ciCoeff_size))
        allocate (totEntCoeff(n_store_ci_level, 2))
    end subroutine init_ciCoeff