double slhavalformat_(char * Block, double *Q, char * format,int len1,int len2)
{ char cBlock[1000], cFormat[1000];
double res;
fName2c(Block, cBlock, len1);
fName2c(format,cFormat,len2);
res=slhaValFormat(cBlock, *Q, cFormat);
return res;
}
int system2_(char *format, char*path, int len1,int len2)
{
char c_name1[200],c_name2[200];
int res;
fName2c(format,c_name1,len1);
fName2c(path,c_name2,len2);
res=System(c_name1,c_name2);
ferror_.ferror=FError;
return res;
}
double onechannel_(double *Xf,double *Beps,char*fn1,char*fn2,char*fn3,char*fn4,
int len1,int len2,int len3,int len4)
{
char n1[20], n2[20], n3[20], n4[20];
fName2c(fn1,n1,len1);
fName2c(fn2,n2,len2);
fName2c(fn3,n3,len3);
fName2c(fn4,n4,len4);
return oneChannel(*Xf,*Beps,n1,n2,n3,n4);
}
int slhastrformat_(char * Block, char * format, char * fRes, int len1,int len2,int len3)
{ char cBlock[1000], cFormat[1000], cRes[1000];
int res;
fName2c(Block, cBlock, len1);
fName2c(format,cFormat,len2);
res=slhaSTRFormat(cBlock, cFormat,cRes);
if(res!=0) return res;
cName2f(cRes,fRes,len3);
return 0;
}
void displayfunc_(double (*F)(double*),double *x1,double *x2,char *fmess,int len)
{
char cmess[200];
fName2c(fmess,cmess, len);
dFdF_displayFunc=F;
displayFunc(dFdC_displayFunc,*x1,*x2,cmess);
}
int readvarrhnm_(char * f_name,int len)
{
char c_name[100];
fName2c(f_name,c_name,len);
return readVarRHNM(c_name);
}
int readvarmssm_(char * f_name,int len)
{
char c_name[100];
fName2c(f_name,c_name,len);
return readVarMSSM(c_name);
}
int openappend_(char *fileName,int len)
{ int res;
char c_name[200];
fName2c(fileName,c_name,len);
res= openAppend(c_name);
ferror_.ferror=FError;
return res;
}
Complex cslhaval3_(char * Block, double *Q, int *k1,int*k2,int*k3, int len)
{ char c_name[200];
Complex res;
fName2c(Block,c_name,len);
res=cslhaVal(c_name, *Q, 3,*k1,*k2,*k3);
ferror_.ferror=FError;
return res;
}
double slhaval2_(char * Block, double *Q, int *k1,int*k2, int len)
{ char c_name[200];
double res;
fName2c(Block,c_name,len);
res=slhaVal(c_name, *Q, 2,*k1,*k2);
ferror_.ferror=FError;
return res;
}
int qnumbers_(char*pname, int *spin2,int*charge3,int*cdim,int len)
{ char cName[20];
int pdg;
fName2c(pname,cName,len);
pdg=qNumbers(cName, spin2, charge3, cdim);
return pdg;
}
double complex cslhaval1_(char * Block, double *Q, int *k1, int len)
{ char c_name[200];
double complex res;
fName2c(Block,c_name,len);
res= cslhaVal(c_name, *Q, 1,*k1);
ferror_.ferror=FError;
return res;
}
int readvar_(char *fname, int len)
{ int err;
char * cname=malloc(len+1);
fName2c(fname,cname,len);
err=readVar(cname);
free(cname);
return err;
}
int readlesh_(char *fname, int *SMtb, int len)
{ char * cname=malloc(len+2);
int err;
fName2c(fname,cname,len);
err= readLesH(cname, *SMtb);
free(cname);
return err;
}
int writelesh_(char *fname, int len)
{ char * cname=malloc(len+2);
int err;
fName2c(fname,cname,len);
err= slhaWrite(cname);
free(cname);
return err;
}
int lilithmdlf_(char*fname,int len)
{
char * cname=malloc(len+2);
int err;
fName2c(fname,cname,len);
err= LilithMDL(cname);
free(cname);
return err;
}
int system1_(char *command, int len)
{
char c_name[200];
int res;
fName2c(command,c_name,len);
res=System(c_name);
ferror_.ferror=FError;
return res;
}
int slharead_(char * fname, int * mode, int len)
{ char c_name[200];
int err;
fName2c(fname,c_name,len);
ferror_.ferror=0;
err=slhaRead(c_name,*mode);
ferror_.ferror=FError;
return err;
}
int hbblocks_(char * fname,int len)
{
char * cname=malloc(len+2);
int err;
fName2c(fname,cname,len);
err=HBblocks(cname);
free(cname);
return err;
}
int hbblocksmdl_(char *fname, int * nHch,int len)
{
char * cname=malloc(len+2);
int nHiggs;
fName2c(fname,cname,len);
nHiggs= hbBlocksMDL(cname,nHch);
free(cname);
return nHiggs;
}
int leshinput_(char *fname, int len)
{
char * cname=malloc(len+2);
int err;
fName2c(fname,cname,len);
err=lesHinput(cname);
free(cname);
return err;
}
int slhareadstream_(int *N, int *mode, char * end, int len )
{
char end_[100];
int err,anydate=0;
fName2c(end,end_,len);
_N_=*N;
err=slhaBasicReader(*mode,readLnC,&anydate,end_);
if((err==0 || err==-1) && anydate==0) {FError=ferror_.ferror=1; return -3;}
if(err==-1) err=0;
if(err) FError=ferror_.ferror=1;
return err;
}
int slhadecayprint_(char * pname,int*dVirt,int *Nch,int len)
{ double res;
char cname[20];
char fname[20];
FILE*f;
sprintf(fname,"%d.tmptxt",getpid());
f=fopen(fname,"w");
fName2c(pname,cname,len);
res=slhaDecayPrint(cname,*dVirt,f);
fclose(f);
fortreread_(Nch,fname,strlen(fname));
unlink(fname);
return res;
}
double decay2info_(char * pname, int *Nch, int len)
{ double res;
char cname[20];
char fname[20];
FILE*f;
sprintf(fname,"%d.tmptxt",getpid());
f=fopen(fname,"w");
fName2c(pname,cname,len);
res=decay2Info(cname,f);
fclose(f);
fortreread_(Nch,fname,strlen(fname));
unlink(fname);
return res;
}
int assignval_(char * f_name, double * val, int len)
{ char buff[20];
fName2c(f_name,buff,len);
return assignVal(buff, *val);
}
double pmass_(char * pName, int len)
{ char c_name[20];
fName2c(pName,c_name,len);
return pMass(c_name);
}
int findval_(char*f_name, double*val, int len)
{
char c_name[20];
fName2c(f_name,c_name,len);
return findVal(c_name,val);
}
void assignvalw_(char* f_name, double * val, int len)
{ char buff[20];
fName2c(f_name,buff,len);
assignValW(buff, *val);
}
int displayrecoilplot_(double * tab, char * text, double *E1, double *E2,int len)
{
char c_name[200];
fName2c(text,c_name,len);
return displayRecoilPlot(tab, c_name, *E1, *E2);
}
double findvalw_(char*f_name, int len) /*FORTRAN*/
{
char c_name[20];
fName2c(f_name,c_name,len);
return findValW(c_name);
}
