bool_t
vml_LanczosArg (VML *vmls, char *name,LanczosArg *objp)
{
vml_class_begin(vmls,"LanczosArg",name);
if (!vml_RitzMatType (vmls, "RitzMat_lanczos", &objp->RitzMat_lanczos))
return FALSE;
if (!vml_RitzMatType (vmls, "RitzMat_convcheck", &objp->RitzMat_convcheck))
return FALSE;
if (!vml_Float (vmls, "mass", &objp->mass))
return FALSE;
if (!vml_int (vmls, "nk_lanczos_vectors", &objp->nk_lanczos_vectors))
return FALSE;
if (!vml_int (vmls, "np_lanczos_vectors", &objp->np_lanczos_vectors))
return FALSE;
if (!vml_Float (vmls, "eigen_shift", &objp->eigen_shift))
return FALSE;
if (!vml_Float (vmls, "stop_residual", &objp->stop_residual))
return FALSE;
if (!vml_int (vmls, "maxiters", &objp->maxiters))
return FALSE;
if (!vml_int (vmls, "save", &objp->save))
return FALSE;
if (!vml_int (vmls, "conv_check", &objp->conv_check))
return FALSE;
if (!vml_string (vmls, "results", &objp->results, ~0))
return FALSE;
if (!vml_string (vmls, "file", &objp->file, ~0))
return FALSE;
if (!vml_MatrixPolynomialArg (vmls, "matpoly_arg", &objp->matpoly_arg))
return FALSE;
vml_class_end(vmls,"LanczosArg",name);
return TRUE;
}
bool_t
vml_PbpArg (VML *vmls, char *name,PbpArg *objp)
{
vml_class_begin(vmls,"PbpArg",name);
int i;
if (!vml_PatternType (vmls, "pattern_kind", &objp->pattern_kind))
return FALSE;
if (!vml_int (vmls, "n_masses", &objp->n_masses))
return FALSE;
if (!vml_Float (vmls, "mass_start", &objp->mass_start))
return FALSE;
if (!vml_Float (vmls, "mass_step", &objp->mass_step))
return FALSE;
if (!vml_vector (vmls, "mass", (char *)objp->mass, MAX_PBP_MASSES,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_int (vmls, "max_num_iter", &objp->max_num_iter))
return FALSE;
if (!vml_Float (vmls, "stop_rsd", &objp->stop_rsd))
return FALSE;
if (!vml_int (vmls, "src_u_s", &objp->src_u_s))
return FALSE;
if (!vml_int (vmls, "src_l_s", &objp->src_l_s))
return FALSE;
if (!vml_int (vmls, "snk_u_s", &objp->snk_u_s))
return FALSE;
if (!vml_int (vmls, "snk_l_s", &objp->snk_l_s))
return FALSE;
if (!vml_int (vmls, "snk_loop", &objp->snk_loop))
return FALSE;
vml_class_end(vmls,"PbpArg",name);
return TRUE;
}
bool_t
vml_MdwfTuningInitArg (VML *vmls, char *name,MdwfTuningInitArg *objp)
{
vml_class_begin(vmls,"MdwfTuningInitArg",name);
if (!vml_int (vmls, "ls_min", &objp->ls_min))
return FALSE;
if (!vml_int (vmls, "ls_max", &objp->ls_max))
return FALSE;
if (!vml_int (vmls, "rc_max", &objp->rc_max))
return FALSE;
if (!vml_int (vmls, "use_mdwf_for_dwf", &objp->use_mdwf_for_dwf))
return FALSE;
if (!vml_int (vmls, "use_single_precision", &objp->use_single_precision))
return FALSE;
if (!vml_Float (vmls, "c5_range", &objp->c5_range))
return FALSE;
if (!vml_Float (vmls, "rsd_granularity", &objp->rsd_granularity))
return FALSE;
if (!vml_string (vmls, "tuning_fn", &objp->tuning_fn, ~0))
return FALSE;
if (!vml_string (vmls, "tuning_record_fn", &objp->tuning_record_fn, ~0))
return FALSE;
vml_class_end(vmls,"MdwfTuningInitArg",name);
return TRUE;
}
bool_t
vml_QPropWGaussArg (VML *vmls, char *name,QPropWGaussArg *objp)
{
vml_class_begin(vmls,"QPropWGaussArg",name);
int i;
if (!vml_int (vmls, "gauss_N", &objp->gauss_N))
return FALSE;
if (!vml_Float (vmls, "gauss_W", &objp->gauss_W))
return FALSE;
if (!vml_int (vmls, "nt", &objp->nt))
return FALSE;
if (!vml_vector (vmls, "mt", (char *)objp->mt, 5,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
if (!vml_GaussianKernelLinkSmearType (vmls, "gauss_link_smear_type", &objp->gauss_link_smear_type))
return FALSE;
if (!vml_int (vmls, "gauss_link_smear_N", &objp->gauss_link_smear_N))
return FALSE;
if (!vml_Float (vmls, "gauss_link_smear_coeff", &objp->gauss_link_smear_coeff))
return FALSE;
//Begin QUDA-CPS
if (!vml_int (vmls, "gauss_link_smear_ortho", &objp->gauss_link_smear_ortho))
return FALSE;
//Begin QUDA-CPS
vml_class_end(vmls,"QPropWGaussArg",name);
return TRUE;
}
bool_t
vml_BosonDescr (VML *vmls, char *name,BosonDescr *objp)
{
vml_class_begin(vmls,"BosonDescr",name);
if (!vml_Float (vmls, "epsilon", &objp->epsilon))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_hb", &objp->stop_rsd_hb))
return FALSE;
vml_class_end(vmls,"BosonDescr",name);
return TRUE;
}
bool_t
vml_QPropWExpArg (VML *vmls, char *name,QPropWExpArg *objp)
{
vml_class_begin(vmls,"QPropWExpArg",name);
if (!vml_Float (vmls, "exp_A", &objp->exp_A))
return FALSE;
if (!vml_Float (vmls, "exp_B", &objp->exp_B))
return FALSE;
if (!vml_Float (vmls, "exp_C", &objp->exp_C))
return FALSE;
vml_class_end(vmls,"QPropWExpArg",name);
return TRUE;
}
bool_t
vml_QuotientDescr (VML *vmls, char *name,QuotientDescr *objp)
{
vml_class_begin(vmls,"QuotientDescr",name);
if (!vml_Float (vmls, "bsn_mass", &objp->bsn_mass))
return FALSE;
if (!vml_Float (vmls, "bsn_mass_epsilon", &objp->bsn_mass_epsilon))
return FALSE;
if (!vml_Float (vmls, "frm_mass", &objp->frm_mass))
return FALSE;
if (!vml_Float (vmls, "frm_mass_epsilon", &objp->frm_mass_epsilon))
return FALSE;
if (!vml_int (vmls, "chrono", &objp->chrono))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_hb", &objp->stop_rsd_hb))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_fg_mult", &objp->stop_rsd_fg_mult))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_md", &objp->stop_rsd_md))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_mc", &objp->stop_rsd_mc))
return FALSE;
vml_class_end(vmls,"QuotientDescr",name);
return TRUE;
}
bool_t
vml_ActionRationalQuotientArg (VML *vmls, char *name,ActionRationalQuotientArg *objp)
{
vml_class_begin(vmls,"ActionRationalQuotientArg",name);
if (!vml_ActionBilinearArg (vmls, "bi_arg", &objp->bi_arg))
return FALSE;
if (!vml_Float (vmls, "spread", &objp->spread))
return FALSE;
if (!vml_int (vmls, "remez_generate", &objp->remez_generate))
return FALSE;
if (!vml_string (vmls, "rat_poles_file", &objp->rat_poles_file, ~0))
return FALSE;
if (!vml_array (vmls, "bsn_mass", (char **)&objp->bsn_mass.bsn_mass_val, (u_int *) &objp->bsn_mass.bsn_mass_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_array (vmls, "frm_mass", (char **)&objp->frm_mass.frm_mass_val, (u_int *) &objp->frm_mass.frm_mass_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_array (vmls, "bosons", (char **)&objp->bosons.bosons_val, (u_int *) &objp->bosons.bosons_len, ~0,
sizeof (RationalDescr), (vmlproc_t) vml_RationalDescr))
return FALSE;
if (!vml_array (vmls, "fermions", (char **)&objp->fermions.fermions_val, (u_int *) &objp->fermions.fermions_len, ~0,
sizeof (RationalDescr), (vmlproc_t) vml_RationalDescr))
return FALSE;
if (!vml_EigenDescr (vmls, "eigen", &objp->eigen))
return FALSE;
vml_class_end(vmls,"ActionRationalQuotientArg",name);
return TRUE;
}
bool_t
vml_QudaArg (VML *vmls, char *name,QudaArg *objp)
{
vml_class_begin(vmls,"QudaArg",name);
if (!vml_CudaPrecision (vmls, "gauge_prec", &objp->gauge_prec))
return FALSE;
if (!vml_CudaPrecision (vmls, "spinor_prec", &objp->spinor_prec))
return FALSE;
if (!vml_CudaReconstructType (vmls, "reconstruct", &objp->reconstruct))
return FALSE;
if (!vml_CudaPrecision (vmls, "gauge_prec_sloppy", &objp->gauge_prec_sloppy))
return FALSE;
if (!vml_CudaPrecision (vmls, "spinor_prec_sloppy", &objp->spinor_prec_sloppy))
return FALSE;
if (!vml_CudaReconstructType (vmls, "reconstruct_sloppy", &objp->reconstruct_sloppy))
return FALSE;
if (!vml_Float (vmls, "reliable_delta", &objp->reliable_delta))
return FALSE;
if (!vml_int (vmls, "max_restart", &objp->max_restart))
return FALSE;
if (!vml_int (vmls, "device", &objp->device))
return FALSE;
vml_class_end(vmls,"QudaArg",name);
return TRUE;
}
bool_t
vml_FermionDescr (VML *vmls, char *name,FermionDescr *objp)
{
vml_class_begin(vmls,"FermionDescr",name);
if (!vml_Float (vmls, "epsilon", &objp->epsilon))
return FALSE;
if (!vml_int (vmls, "chrono", &objp->chrono))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_fg_mult", &objp->stop_rsd_fg_mult))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_md", &objp->stop_rsd_md))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_mc", &objp->stop_rsd_mc))
return FALSE;
vml_class_end(vmls,"FermionDescr",name);
return TRUE;
}
bool_t
vml_ApproxDescr (VML *vmls, char *name,ApproxDescr *objp)
{
vml_class_begin(vmls,"ApproxDescr",name);
if (!vml_RationalApproxType (vmls, "approx_type", &objp->approx_type))
return FALSE;
if (!vml_RationalBoundsType (vmls, "bounds_type", &objp->bounds_type))
return FALSE;
if (!vml_Float (vmls, "lambda_low", &objp->lambda_low))
return FALSE;
if (!vml_Float (vmls, "lambda_high", &objp->lambda_high))
return FALSE;
if (!vml_array (vmls, "stop_rsd", (char **)&objp->stop_rsd.stop_rsd_val, (u_int *) &objp->stop_rsd.stop_rsd_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
vml_class_end(vmls,"ApproxDescr",name);
return TRUE;
}
bool_t
vml_DensArg (VML *vmls, char *name,DensArg *objp)
{
vml_class_begin(vmls,"DensArg",name);
int i;
if (!vml_int (vmls, "n_src", &objp->n_src))
return FALSE;
if (!vml_int (vmls, "max_deri", &objp->max_deri))
return FALSE;
if (!vml_int (vmls, "max_save", &objp->max_save))
return FALSE;
if (!vml_int (vmls, "n_obs", &objp->n_obs))
return FALSE;
if (!vml_vector (vmls, "obs", (char *)objp->obs, MAX_DENS_OBS,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
if (!vml_PatternType (vmls, "pattern_kind", &objp->pattern_kind))
return FALSE;
if (!vml_int (vmls, "n_masses", &objp->n_masses))
return FALSE;
if (!vml_Float (vmls, "mass_start", &objp->mass_start))
return FALSE;
if (!vml_Float (vmls, "mass_step", &objp->mass_step))
return FALSE;
if (!vml_vector (vmls, "mass", (char *)objp->mass, MAX_DENS_MASSES,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_int (vmls, "max_num_iter", &objp->max_num_iter))
return FALSE;
if (!vml_Float (vmls, "stop_rsd", &objp->stop_rsd))
return FALSE;
if (!vml_int (vmls, "src_u_s", &objp->src_u_s))
return FALSE;
if (!vml_int (vmls, "src_l_s", &objp->src_l_s))
return FALSE;
if (!vml_int (vmls, "snk_u_s", &objp->snk_u_s))
return FALSE;
if (!vml_int (vmls, "snk_l_s", &objp->snk_l_s))
return FALSE;
if (!vml_int (vmls, "snk_loop", &objp->snk_loop))
return FALSE;
vml_class_end(vmls,"DensArg",name);
return TRUE;
}
bool_t
vml_ParamArg (VML *vmls, char *name,ParamArg *objp)
{
vml_class_begin(vmls,"ParamArg",name);
if (!vml_string (vmls, "name", &objp->name, ~0))
return FALSE;
if (!vml_Float (vmls, "val", &objp->val))
return FALSE;
vml_class_end(vmls,"ParamArg",name);
return TRUE;
}
bool_t
vml_BilinearDescr (VML *vmls, char *name,BilinearDescr *objp)
{
vml_class_begin(vmls,"BilinearDescr",name);
if (!vml_Float (vmls, "mass", &objp->mass))
return FALSE;
if (!vml_int (vmls, "max_num_iter", &objp->max_num_iter))
return FALSE;
vml_class_end(vmls,"BilinearDescr",name);
return TRUE;
}
bool_t
vml_C5State (VML *vmls, char *name,C5State *objp)
{
vml_class_begin(vmls,"C5State",name);
if (!vml_Float (vmls, "val", &objp->val))
return FALSE;
if (!vml_int (vmls, "dwf_cg", &objp->dwf_cg))
return FALSE;
vml_class_end(vmls,"C5State",name);
return TRUE;
}
bool_t
vml_CgArg (VML *vmls, char *name,CgArg *objp)
{
vml_class_begin(vmls,"CgArg",name);
if (!vml_Float (vmls, "mass", &objp->mass))
return FALSE;
if (!vml_Float (vmls, "epsilon", &objp->epsilon))
return FALSE;
if (!vml_int (vmls, "max_num_iter", &objp->max_num_iter))
return FALSE;
if (!vml_Float (vmls, "stop_rsd", &objp->stop_rsd))
return FALSE;
if (!vml_Float (vmls, "true_rsd", &objp->true_rsd))
return FALSE;
if (!vml_RitzMatType (vmls, "RitzMatOper", &objp->RitzMatOper))
return FALSE;
if (!vml_InverterType (vmls, "Inverter", &objp->Inverter))
return FALSE;
if (!vml_int (vmls, "bicgstab_n", &objp->bicgstab_n))
return FALSE;
if (!vml_string (vmls, "fname_eigen", &objp->fname_eigen, ~0))
return FALSE;
if (!vml_int (vmls, "neig", &objp->neig))
return FALSE;
if (!vml_Float (vmls, "eigen_shift", &objp->eigen_shift))
return FALSE;
if (!vml_Float (vmls, "ama_stop_rsd", &objp->ama_stop_rsd))
return FALSE;
vml_class_end(vmls,"CgArg",name);
return TRUE;
}
bool_t
vml_RationalDescr (VML *vmls, char *name,RationalDescr *objp)
{
vml_class_begin(vmls,"RationalDescr",name);
if (!vml_FieldType (vmls, "field_type", &objp->field_type))
return FALSE;
if (!vml_int (vmls, "power_num", &objp->power_num))
return FALSE;
if (!vml_int (vmls, "power_den", &objp->power_den))
return FALSE;
if (!vml_long (vmls, "precision", &objp->precision))
return FALSE;
if (!vml_Float (vmls, "stop_rsd_fg_mult", &objp->stop_rsd_fg_mult))
return FALSE;
if (!vml_ApproxDescr (vmls, "md_approx", &objp->md_approx))
return FALSE;
if (!vml_ApproxDescr (vmls, "mc_approx", &objp->mc_approx))
return FALSE;
if (!vml_Float (vmls, "stag_bsn_mass", &objp->stag_bsn_mass))
return FALSE;
vml_class_end(vmls,"RationalDescr",name);
return TRUE;
}
bool_t
vml_EigenDescr (VML *vmls, char *name,EigenDescr *objp)
{
vml_class_begin(vmls,"EigenDescr",name);
if (!vml_EigenMeasure (vmls, "eigen_measure", &objp->eigen_measure))
return FALSE;
if (!vml_Float (vmls, "stop_rsd", &objp->stop_rsd))
return FALSE;
if (!vml_int (vmls, "max_num_iter", &objp->max_num_iter))
return FALSE;
if (!vml_string (vmls, "eig_lo_stem", &objp->eig_lo_stem, ~0))
return FALSE;
if (!vml_string (vmls, "eig_hi_stem", &objp->eig_hi_stem, ~0))
return FALSE;
vml_class_end(vmls,"EigenDescr",name);
return TRUE;
}
bool_t
vml_IntABArg (VML *vmls, char *name,IntABArg *objp)
{
vml_class_begin(vmls,"IntABArg",name);
if (!vml_IntegratorType (vmls, "type", &objp->type))
return FALSE;
if (!vml_int (vmls, "A_steps", &objp->A_steps))
return FALSE;
if (!vml_int (vmls, "B_steps", &objp->B_steps))
return FALSE;
if (!vml_IntegratorLevel (vmls, "level", &objp->level))
return FALSE;
if (!vml_Float (vmls, "lambda", &objp->lambda))
return FALSE;
vml_class_end(vmls,"IntABArg",name);
return TRUE;
}
bool_t
vml_HmcArg (VML *vmls, char *name,HmcArg *objp)
{
vml_class_begin(vmls,"HmcArg",name);
if (!vml_int (vmls, "steps_per_traj", &objp->steps_per_traj))
return FALSE;
if (!vml_Float (vmls, "step_size", &objp->step_size))
return FALSE;
if (!vml_MetropolisType (vmls, "metropolis", &objp->metropolis))
return FALSE;
if (!vml_ReunitarizeType (vmls, "reunitarize", &objp->reunitarize))
return FALSE;
if (!vml_ReverseTest (vmls, "reverse", &objp->reverse))
return FALSE;
if (!vml_ReproduceTest (vmls, "reproduce", &objp->reproduce))
return FALSE;
if (!vml_int (vmls, "reproduce_attempt_limit", &objp->reproduce_attempt_limit))
return FALSE;
if (!vml_bool (vmls, "wfm_md_sloppy", &objp->wfm_md_sloppy))
return FALSE;
vml_class_end(vmls,"HmcArg",name);
return TRUE;
}
bool_t
vml_MdwfArg (VML *vmls, char *name,MdwfArg *objp)
{
vml_class_begin(vmls,"MdwfArg",name);
if (!vml_array (vmls, "b5", (char **)&objp->b5.b5_val, (u_int *) &objp->b5.b5_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_array (vmls, "c5", (char **)&objp->c5.c5_val, (u_int *) &objp->c5.c5_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_Float (vmls, "M5", &objp->M5))
return FALSE;
if (!vml_CgArg (vmls, "cg_arg", &objp->cg_arg))
return FALSE;
if (!vml_array (vmls, "rsd_vec", (char **)&objp->rsd_vec.rsd_vec_val, (u_int *) &objp->rsd_vec.rsd_vec_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_int (vmls, "use_single_precision", &objp->use_single_precision))
return FALSE;
if (!vml_int (vmls, "use_mdwf_for_dwf", &objp->use_mdwf_for_dwf))
return FALSE;
vml_class_end(vmls,"MdwfArg",name);
return TRUE;
}
bool_t
vml_MdwfTuning (VML *vmls, char *name,MdwfTuning *objp)
{
vml_class_begin(vmls,"MdwfTuning",name);
if (!vml_int (vmls, "stage", &objp->stage))
return FALSE;
if (!vml_int (vmls, "ls_min", &objp->ls_min))
return FALSE;
if (!vml_int (vmls, "ls_max", &objp->ls_max))
return FALSE;
if (!vml_int (vmls, "index", &objp->index))
return FALSE;
if (!vml_int (vmls, "opti_index", &objp->opti_index))
return FALSE;
if (!vml_Float (vmls, "opti_time", &objp->opti_time))
return FALSE;
if (!vml_array (vmls, "mdwf_arg", (char **)&objp->mdwf_arg.mdwf_arg_val, (u_int *) &objp->mdwf_arg.mdwf_arg_len, ~0,
sizeof (MdwfArg), (vmlproc_t) vml_MdwfArg))
return FALSE;
if (!vml_array (vmls, "c5", (char **)&objp->c5.c5_val, (u_int *) &objp->c5.c5_len, ~0,
sizeof (C5State), (vmlproc_t) vml_C5State))
return FALSE;
if (!vml_Float (vmls, "rsd_val", &objp->rsd_val))
return FALSE;
if (!vml_Float (vmls, "rsd_time", &objp->rsd_time))
return FALSE;
if (!vml_Float (vmls, "rsd_granularity", &objp->rsd_granularity))
return FALSE;
if (!vml_Float (vmls, "c5_range", &objp->c5_range))
return FALSE;
if (!vml_int (vmls, "rc_max", &objp->rc_max))
return FALSE;
if (!vml_int (vmls, "rc_val", &objp->rc_val))
return FALSE;
if (!vml_Float (vmls, "rc_time", &objp->rc_time))
return FALSE;
vml_class_end(vmls,"MdwfTuning",name);
return TRUE;
}
