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_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_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_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_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_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_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_QPropWGFArg (VML *vmls, char *name,QPropWGFArg *objp)
{
vml_class_begin(vmls,"QPropWGFArg",name);
if (!vml_int (vmls, "gauge_fix_src", &objp->gauge_fix_src))
return FALSE;
vml_class_end(vmls,"QPropWGFArg",name);
return TRUE;
}
bool_t
vml_IntArray (VML *vmls, char *name,IntArray *objp)
{
vml_class_begin(vmls,"IntArray",name);
if (!vml_array (vmls, "v", (char **)&objp->v.v_val, (u_int *) &objp->v.v_len, ~0,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
vml_class_end(vmls,"IntArray",name);
return TRUE;
}
bool_t
vml_FloatArray (VML *vmls, char *name,FloatArray *objp)
{
vml_class_begin(vmls,"FloatArray",name);
if (!vml_array (vmls, "Floats", (char **)&objp->Floats.Floats_val, (u_int *) &objp->Floats.Floats_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
vml_class_end(vmls,"FloatArray",name);
return TRUE;
}
bool_t
vml_ParamArray (VML *vmls, char *name,ParamArray *objp)
{
vml_class_begin(vmls,"ParamArray",name);
if (!vml_array (vmls, "params", (char **)&objp->params.params_val, (u_int *) &objp->params.params_len, ~0,
sizeof (ParamArg), (vmlproc_t) vml_ParamArg))
return FALSE;
vml_class_end(vmls,"ParamArray",name);
return TRUE;
}
bool_t
vml_ActionRationalSplitArg (VML *vmls, char *name,ActionRationalSplitArg *objp)
{
vml_class_begin(vmls,"ActionRationalSplitArg",name);
if (!vml_array (vmls, "fractionSplit", (char **)&objp->fractionSplit.fractionSplit_val, (u_int *) &objp->fractionSplit.fractionSplit_len, ~0,
sizeof (SplitRange), (vmlproc_t) vml_SplitRange))
return FALSE;
vml_class_end(vmls,"ActionRationalSplitArg",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_ActionArg (VML *vmls, char *name,ActionArg *objp)
{
vml_class_begin(vmls,"ActionArg",name);
if (!vml_ForceMeasure (vmls, "force_measure", &objp->force_measure))
return FALSE;
if (!vml_string (vmls, "force_label", &objp->force_label, ~0))
return FALSE;
vml_class_end(vmls,"ActionArg",name);
return TRUE;
}
bool_t
vml_ActionGaugeArg (VML *vmls, char *name,ActionGaugeArg *objp)
{
vml_class_begin(vmls,"ActionGaugeArg",name);
if (!vml_GclassType (vmls, "gluon", &objp->gluon))
return FALSE;
if (!vml_ActionArg (vmls, "action_arg", &objp->action_arg))
return FALSE;
vml_class_end(vmls,"ActionGaugeArg",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_SplitRange (VML *vmls, char *name,SplitRange *objp)
{
vml_class_begin(vmls,"SplitRange",name);
if (!vml_int (vmls, "split_low", &objp->split_low))
return FALSE;
if (!vml_int (vmls, "split_high", &objp->split_high))
return FALSE;
vml_class_end(vmls,"SplitRange",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_QPropWSlabArg (VML *vmls, char *name,QPropWSlabArg *objp)
{
vml_class_begin(vmls,"QPropWSlabArg",name);
if (!vml_QPropWRandArg (vmls, "rand_arg", &objp->rand_arg))
return FALSE;
if (!vml_int (vmls, "slab_width", &objp->slab_width))
return FALSE;
vml_class_end(vmls,"QPropWSlabArg",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_QPropWRandArg (VML *vmls, char *name,QPropWRandArg *objp)
{
vml_class_begin(vmls,"QPropWRandArg",name);
if (!vml_RandomType (vmls, "rng", &objp->rng))
return FALSE;
if (!vml_int (vmls, "seed", &objp->seed))
return FALSE;
vml_class_end(vmls,"QPropWRandArg",name);
return TRUE;
}
bool_t
vml_ActionFermionArg (VML *vmls, char *name,ActionFermionArg *objp)
{
vml_class_begin(vmls,"ActionFermionArg",name);
if (!vml_ActionBilinearArg (vmls, "bi_arg", &objp->bi_arg))
return FALSE;
if (!vml_array (vmls, "fermions", (char **)&objp->fermions.fermions_val, (u_int *) &objp->fermions.fermions_len, ~0,
sizeof (FermionDescr), (vmlproc_t) vml_FermionDescr))
return FALSE;
vml_class_end(vmls,"ActionFermionArg",name);
return TRUE;
}
bool_t
vml_ActionQuotientArg (VML *vmls, char *name,ActionQuotientArg *objp)
{
vml_class_begin(vmls,"ActionQuotientArg",name);
if (!vml_ActionBilinearArg (vmls, "bi_arg", &objp->bi_arg))
return FALSE;
if (!vml_array (vmls, "quotients", (char **)&objp->quotients.quotients_val, (u_int *) &objp->quotients.quotients_len, ~0,
sizeof (QuotientDescr), (vmlproc_t) vml_QuotientDescr))
return FALSE;
vml_class_end(vmls,"ActionQuotientArg",name);
return TRUE;
}
bool_t
vml_MeasTask (VML *vmls, char *name,MeasTask *objp)
{
vml_class_begin(vmls,"MeasTask",name);
if (!vml_MeasType (vmls, "Measurement", &objp->Measurement))
return FALSE;
if (!vml_string (vmls, "ArgFilename", &objp->ArgFilename, ~0))
return FALSE;
if (!vml_string (vmls, "OutputFilestem", &objp->OutputFilestem, ~0))
return FALSE;
vml_class_end(vmls,"MeasTask",name);
return TRUE;
}
bool_t
vml_QPropWPointArg (VML *vmls, char *name,QPropWPointArg *objp)
{
vml_class_begin(vmls,"QPropWPointArg",name);
if (!vml_int (vmls, "x", &objp->x))
return FALSE;
if (!vml_int (vmls, "y", &objp->y))
return FALSE;
if (!vml_int (vmls, "z", &objp->z))
return FALSE;
vml_class_end(vmls,"QPropWPointArg",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_QPropWBoxArg (VML *vmls, char *name,QPropWBoxArg *objp)
{
vml_class_begin(vmls,"QPropWBoxArg",name);
if (!vml_int (vmls, "box_start", &objp->box_start))
return FALSE;
if (!vml_int (vmls, "box_end", &objp->box_end))
return FALSE;
if (!vml_int (vmls, "use_xyz_offset", &objp->use_xyz_offset))
return FALSE;
vml_class_end(vmls,"QPropWBoxArg",name);
return TRUE;
}
bool_t
vml_QPropWArg (VML *vmls, char *name,QPropWArg *objp)
{
vml_class_begin(vmls,"QPropWArg",name);
if (!vml_CgArg (vmls, "cg", &objp->cg))
return FALSE;
if (!vml_string (vmls, "file", &objp->file, ~0))
return FALSE;
if (!vml_int (vmls, "x", &objp->x))
return FALSE;
if (!vml_int (vmls, "y", &objp->y))
return FALSE;
if (!vml_int (vmls, "z", &objp->z))
return FALSE;
if (!vml_int (vmls, "t", &objp->t))
return FALSE;
if (!vml_int (vmls, "gauge_fix_src", &objp->gauge_fix_src))
return FALSE;
if (!vml_int (vmls, "gauge_fix_snk", &objp->gauge_fix_snk))
return FALSE;
if (!vml_int (vmls, "smeared_src", &objp->smeared_src))
return FALSE;
if (!vml_int (vmls, "smeared_snk", &objp->smeared_snk))
return FALSE;
if (!vml_int (vmls, "store_midprop", &objp->store_midprop))
return FALSE;
if (!vml_int (vmls, "save_prop", &objp->save_prop))
return FALSE;
if (!vml_int (vmls, "save_ls_prop", &objp->save_ls_prop))
return FALSE;
if (!vml_int (vmls, "do_half_fermion", &objp->do_half_fermion))
return FALSE;
if (!vml_SourceType (vmls, "SeqSmearSink", &objp->SeqSmearSink))
return FALSE;
if (!vml_string (vmls, "ensemble_label", &objp->ensemble_label, ~0))
return FALSE;
if (!vml_string (vmls, "ensemble_id", &objp->ensemble_id, ~0))
return FALSE;
if (!vml_int (vmls, "seqNum", &objp->seqNum))
return FALSE;
if (!vml_int (vmls, "StartSrcSpin", &objp->StartSrcSpin))
return FALSE;
if (!vml_int (vmls, "EndSrcSpin", &objp->EndSrcSpin))
return FALSE;
if (!vml_int (vmls, "StartSrcColor", &objp->StartSrcColor))
return FALSE;
if (!vml_int (vmls, "EndSrcColor", &objp->EndSrcColor))
return FALSE;
vml_class_end(vmls,"QPropWArg",name);
return TRUE;
}
bool_t
vml_MatrixPolynomialArg (VML *vmls, char *name,MatrixPolynomialArg *objp)
{
vml_class_begin(vmls,"MatrixPolynomialArg",name);
if (!vml_int (vmls, "Npol", &objp->Npol))
return FALSE;
if (!vml_array (vmls, "params", (char **)&objp->params.params_val, (u_int *) &objp->params.params_len, ~0,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
if (!vml_Pointer (vmls, "tmp1", &objp->tmp1))
return FALSE;
if (!vml_Pointer (vmls, "tmp2", &objp->tmp2))
return FALSE;
vml_class_end(vmls,"MatrixPolynomialArg",name);
return TRUE;
}
