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; }