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