int r_Scales(FILE *mode)
{ int n,err;
char mess[200];
n=fscanf(mode," Renormalization %[^\n] Factorization1 %[^\n] Factorization2 %[^\n] Showering %[^\n]",Rscale_str,F1scale_str,F2scale_str,Sscale_str);
if(n!=4) return 1;
trim(Rscale_str);
trim(F1scale_str);
trim(F2scale_str);
err=initScales(Rscale_str,F1scale_str,F2scale_str,Sscale_str,mess);
if(err) i_Scales();
return 0;
}
void link_process( CalcHEP_interface * interface)
{ int i;
nin_int = interface->nin;
nout_int= interface->nout;
nprc_int= interface->nprc;
nvar_int= interface->nvar;
nfunc_int= interface->nfunc;
pinf_int= interface->pinf;
pinfAux_int= interface->pinfAux;
polarized_int= interface->polarized;
varName_int= interface->varName;
sqme_int= interface->sqme;
calcFunc_int= interface->calcFunc;
BWrange_int= interface->BWrange;
gtwidth_int= interface->gtwidth;
twidth_int= interface->twidth;
gswidth_int= interface->gswidth;
va_int= interface->va;
build_cb_int= interface->build_cb;
destroy_cb_int= interface->destroy_cb;
cb_pow_int= interface->cb_pow;
cb_nc_int= interface->cb_nc;
cb_chains_int= interface->cb_chains;
cb_coeff_int= interface->cb_coeff;
*(interface->aWidth)=&aWidth;
hiddenf=realloc(hiddenf,nfunc_int);
for(i=0; i<nfunc_int; i++) if(va_int[1+i+nvar_int]>0.5)hiddenf[i]=1; else hiddenf[i]=0;
Nsub=1;
wrtprc_();
stdkin_();
i_alphaQCD();
i_Scales();
nSess = 1;
integral.n_it=0;
*BWrange_int=2.7;
*gswidth_int=0;
*gtwidth_int=0;
*twidth_int=0;
if(nin_int==1) inP1=0;
}
