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_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_QPropW4DBoxArg (VML *vmls, char *name,QPropW4DBoxArg *objp)
{
vml_class_begin(vmls,"QPropW4DBoxArg",name);
int i;
if (!vml_vector (vmls, "box_start", (char *)objp->box_start, 4,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
if (!vml_vector (vmls, "box_size", (char *)objp->box_size, 4,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
if (!vml_vector (vmls, "mom", (char *)objp->mom, 4,
sizeof (Float), (vmlproc_t) vml_Float))
return FALSE;
vml_class_end(vmls,"QPropW4DBoxArg",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_MomArg (VML *vmls, char *name,MomArg *objp)
{
vml_class_begin(vmls,"MomArg",name);
int i;
if (!vml_int (vmls, "no_of_momenta", &objp->no_of_momenta))
return FALSE;
if (!vml_int (vmls, "deg", &objp->deg))
return FALSE;
if (!vml_int (vmls, "dir", &objp->dir))
return FALSE;
if (!vml_vector (vmls, "src_begin", (char *)objp->src_begin, 4,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
if (!vml_vector (vmls, "src_end", (char *)objp->src_end, 4,
sizeof (int), (vmlproc_t) vml_int))
return FALSE;
vml_class_end(vmls,"MomArg",name);
return TRUE;
}
