00001 #ifndef LHAPDFfw_H 00002 #define LHAPDFfw_H 00003 00004 // Forward declarations of signatures of Fortran 00005 // intermediate wrapper functions. 00006 00007 #include "LHAPDF/FortranWrappers.h" 00008 00009 extern "C" { 00010 00011 #define fgetprefixpath FC_FUNC(getprefixpath, GETPREFIXPATH) 00012 void fgetprefixpath(char*, int len); 00013 #define fgetindexpath FC_FUNC(getindexpath, GETINDEXPATH) 00014 void fgetindexpath(char*, int len); 00015 #define fgetdirpath FC_FUNC(getdirpath, GETDIRPATH) 00016 void fgetdirpath(char*, int len); 00017 00018 #define finitlhapdf FC_FUNC(initlhapdf, INITLHAPDF) 00019 void finitlhapdf(); 00020 00021 #define fgetlhapdfversion FC_FUNC(getlhapdfversion, GETLHAPDFVERSION) 00022 void fgetlhapdfversion(char*, int len); 00023 00024 #define finitpdfset FC_FUNC(finitpdfset, FINITPDFSET) 00025 void finitpdfset(char*, int len); 00026 #define finitpdfsetbyname FC_FUNC(finitpdfsetbyname, FINITPDFSETBYNAME) 00027 void finitpdfsetbyname(char*, int len); 00028 #define finitpdf FC_FUNC(finitpdf, FINITPDF) 00029 void finitpdf(int*); 00030 #define fevolvepdf FC_FUNC(fevolvepdf, FEVOLVEPDF) 00031 void fevolvepdf(double*, double *, double*); 00032 #define fevolvepdfp FC_FUNC(fevolvepdfp, FEVOLVEPDFP) 00033 void fevolvepdfp(double*, double *, double*, int*, double*); 00034 #define fevolvepdfa FC_FUNC(fevolvepdfa, FEVOLVEPDFA) 00035 void fevolvepdfa(double*, double *, double *, double*); 00036 #define fevolvepdfphoton FC_FUNC(fevolvepdfphoton, FEVOLVEPDFPHOTON) 00037 void fevolvepdfphoton(double*, double *, double*, double*); 00038 #define fhasphoton FC_FUNC(fhasphoton, FHASPHOTON) 00039 void fhasphoton(int*); 00040 #define fnumberpdf FC_FUNC(fnumberpdf, FNUMBERPDF) 00041 void fnumberpdf(int*); 00042 #define falphaspdf FC_FUNC(falphaspdf, FALPHASPDF) 00043 void falphaspdf(double*, double *); 00044 #define fgetorderpdf FC_FUNC(fgetorderpdf, FGETORDERPDF) 00045 void fgetorderpdf(int*); 00046 #define fgetorderas FC_FUNC(fgetorderas, FGETORDERAS) 00047 void fgetorderas(int*); 00048 #define fgetdesc FC_FUNC(fgetdesc, FGETDESC) 00049 void fgetdesc(); 00050 #define fgetqmass FC_FUNC(fgetqmass, FGETQMASS) 00051 void fgetqmass(int*, double*); 00052 #define fgetthreshold FC_FUNC(fgetthreshold, FGETTHRESHOLD) 00053 void fgetthreshold(int*, double*); 00054 #define fgetnf FC_FUNC(fgetnf, FGETNF) 00055 void fgetnf(int*); 00056 #define fgetlam4 FC_FUNC(fgetlam4, FGETLAM4) 00057 void fgetlam4(int*, double*); 00058 #define fgetlam5 FC_FUNC(fgetlam5, FGETLAM5) 00059 void fgetlam5(int*, double*); 00060 #define fgetxmin FC_FUNC(fgetxmin, FGETXMIN) 00061 void fgetxmin(int*, double*); 00062 #define fgetxmax FC_FUNC(fgetxmax, FGETXMAX) 00063 void fgetxmax(int*, double*); 00064 #define fgetq2min FC_FUNC(fgetq2min, FGETQ2MIN) 00065 void fgetq2min(int*, double*); 00066 #define fgetq2max FC_FUNC(fgetq2max, FGETQ2MAX) 00067 void fgetq2max(int*, double*); 00068 #define fgetminmax FC_FUNC(fgetminmax, FGETMINMAX) 00069 void fgetminmax(int*, double*, double*, double*, double*); 00070 #define fextrapolate FC_FUNC(fextrapolate, FEXTRAPOLATE) 00071 void fextrapolate(); 00072 00073 // v5 subroutines for multiple set initialization 00074 #define finitpdfsetm FC_FUNC(finitpdfsetm, FINITPDFSETM) 00075 void finitpdfsetm(int*, char*, int len); 00076 #define finitpdfsetbynamem FC_FUNC(finitpdfsetbynamem, FINITPDFSETBYNAMEM) 00077 void finitpdfsetbynamem(int*, char*, int len); 00078 #define finitpdfm FC_FUNC(finitpdfm, FINITPDFM) 00079 void finitpdfm(int*, int*); 00080 #define fevolvepdfm FC_FUNC(fevolvepdfm, FEVOLVEPDFM) 00081 void fevolvepdfm(int*, double*, double *, double*); 00082 #define fevolvepdfpm FC_FUNC(fevolvepdfpm, FEVOLVEPDFPM) 00083 void fevolvepdfpm(int*, double*, double *, double*, int*, double*); 00084 #define fevolvepdfam FC_FUNC(fevolvepdfam, FEVOLVEPDFAM) 00085 void fevolvepdfam(int*, double*, double *, double *, double*); 00086 #define fevolvepdfphotonm FC_FUNC(fevolvepdfphotonm, FEVOLVEPDFPHOTONM) 00087 void fevolvepdfphotonm(int*, double*, double *, double*, double*); 00088 #define fnumberpdfm FC_FUNC(fnumberpdfm, FNUMBERPDFM) 00089 void fnumberpdfm(int*, int*); 00090 #define falphaspdfm FC_FUNC(falphaspdfm, FALPHASPDFM) 00091 void falphaspdfm(int*, double*, double *); 00092 #define fgetorderpdfm FC_FUNC(fgetorderpdfm, FGETORDERPDFM) 00093 void fgetorderpdfm(int*, int*); 00094 #define fgetorderasm FC_FUNC(fgetorderasm, FGETORDERASM) 00095 void fgetorderasm(int*, int*); 00096 #define fgetdescm FC_FUNC(fgetdescm, FGETDESCM) 00097 void fgetdescm(int*); 00098 #define fgetqmassm FC_FUNC(fgetqmassm, FGETQMASSM) 00099 void fgetqmassm(int*, int*, double*); 00100 #define fgetthresholdm FC_FUNC(fgetthresholdm, FGETTHRESHOLDM) 00101 void fgetthresholdm(int*, int*, double*); 00102 #define fgetnfm FC_FUNC(fgetnfm, FGETNFM) 00103 void fgetnfm(int*, int*); 00104 #define fgetlam4m FC_FUNC(fgetlam4m, FGETLAM4M) 00105 void fgetlam4m(int*, int*, double*); 00106 #define fgetlam5m FC_FUNC(fgetlam5m, FGETLAM5M) 00107 void fgetlam5m(int*, int*, double*); 00108 #define fgetxminm FC_FUNC(fgetxminm, FGETXMINM) 00109 void fgetxminm(int*, int*, double*); 00110 #define fgetxmaxm FC_FUNC(fgetxmaxm, FGETXMAXM) 00111 void fgetxmaxm(int*, int*, double*); 00112 #define fgetq2minm FC_FUNC(fgetq2minm, FGETQ2MINM) 00113 void fgetq2minm(int*, int*, double*); 00114 #define fgetq2maxm FC_FUNC(fgetq2maxm, FGETQ2MAXM) 00115 void fgetq2maxm(int*, int*, double*); 00116 #define fgetminmaxm FC_FUNC(fgetminmaxm, FGETMINMAXM) 00117 void fgetminmaxm(int*, int*, double*, double*, double*, double*); 00118 #define fextrapolateon FC_FUNC(fextrapolateon, FEXTRAPOLATEON) 00119 void fextrapolateon(); 00120 #define fextrapolateoff FC_FUNC(fextrapolateoff, FEXTRAPOLATEOFF) 00121 void fextrapolateoff(); 00122 #define fsilent FC_FUNC(fsilent, FSILENT) 00123 void fsilent(); 00124 #define flowkey FC_FUNC(flowkey, FLOWKEY) 00125 void flowkey(); 00126 #define fdefaultverb FC_FUNC(fdefaultverb, FDEFAULTVERB) 00127 void fdefaultverb(); 00128 #define fsetpdfpath FC_FUNC(fsetpdfpath, FSETPDFPATH) 00129 void fsetpdfpath(char*, int len); 00130 00131 #define fsetlhaparm FC_FUNC(setlhaparm, SETLHAPARM) 00132 void fsetlhaparm(char*, int len); 00133 00134 00135 } 00136 00137 #endif