# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

sorcering <- function(A = NULL, tsteps = "monthly", C0 = NULL, N0 = NULL, Cin = NULL, Nin = NULL, Cin_wood = NULL, Nin_wood = NULL, wood_diam = NULL, xi = NULL, env_in = NULL, site = NULL, theta = NULL, theta_unc = NULL, theta_n_unc = 1L, meas_data = NULL, A_sl = NULL, C0_sl = NULL, N0_sl = NULL, Cin_sl = NULL, Nin_sl = NULL, Cin_wood_sl = NULL, Nin_wood_sl = NULL, wood_diam_sl = NULL, xi_sl = NULL, env_in_sl = NULL, site_sl = NULL, sitelist = NULL, meas_data_sl = NULL, calcN = FALSE, calcNbalance = FALSE, calcN0 = FALSE, calcC0 = FALSE, calcCN_fast_init = FALSE, CTool_input_raw = FALSE, RothC_Cin4C0 = FALSE, RothC_dpmrpm = 1.439024, C0_fracts = NULL, multisite = FALSE, pooltypes = NULL, CN_fast_init = 40L, CN_bio = 9L, CN_spin = NULL, CN_fast_init_sl = NULL, CN_bio_sl = NULL, CN_spin_sl = NULL, init_info = FALSE, model = "", spinup = FALSE, t_spin = 2L, t_spin_sl = 2L) {
    .Call(`_sorcering_sorcering`, A, tsteps, C0, N0, Cin, Nin, Cin_wood, Nin_wood, wood_diam, xi, env_in, site, theta, theta_unc, theta_n_unc, meas_data, A_sl, C0_sl, N0_sl, Cin_sl, Nin_sl, Cin_wood_sl, Nin_wood_sl, wood_diam_sl, xi_sl, env_in_sl, site_sl, sitelist, meas_data_sl, calcN, calcNbalance, calcN0, calcC0, calcCN_fast_init, CTool_input_raw, RothC_Cin4C0, RothC_dpmrpm, C0_fracts, multisite, pooltypes, CN_fast_init, CN_bio, CN_spin, CN_fast_init_sl, CN_bio_sl, CN_spin_sl, init_info, model, spinup, t_spin, t_spin_sl)
}

