source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/lepto62.h

Last change on this file was 2403, checked in by cmv, 22 years ago

Creation du module de code source de MINUIT (CERNLIB) extrait par CMV

cmv 11/06/2003

File size: 6.3 KB
RevLine 
[2403]1PROTOCCALLSFFUN2(FLOAT,DCROSS,dcross,FLOAT,FLOAT)
2#define DCROSS(A2,A3) CCALLSFFUN2(DCROSS,dcross,FLOAT,FLOAT,A2,A3)
3
4PROTOCCALLSFFUN2(DOUBLE,DFUN,dfun,INT,DOUBLEV)
5#define DFUN(A2,A3) CCALLSFFUN2(DFUN,dfun,INT,DOUBLEV,A2,A3)
6
7PROTOCCALLSFFUN1(FLOAT,DLOWER,dlower,FLOAT)
8#define DLOWER(A2) CCALLSFFUN1(DLOWER,dlower,FLOAT,A2)
9
10PROTOCCALLSFFUN6(FLOAT,DQCD,dqcd,INT,INT,INT,FLOAT,FLOAT,FLOAT)
11#define DQCD(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(DQCD,dqcd,INT,INT,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7)
12
13PROTOCCALLSFFUN5(FLOAT,DQCDI,dqcdi,INT,INT,FLOAT,FLOAT,FLOAT)
14#define DQCDI(A2,A3,A4,A5,A6) CCALLSFFUN5(DQCDI,dqcdi,INT,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
15
16PROTOCCALLSFFUN1(FLOAT,DSIGMA,dsigma,FLOAT)
17#define DSIGMA(A2) CCALLSFFUN1(DSIGMA,dsigma,FLOAT,A2)
18
19PROTOCCALLSFFUN1(FLOAT,DUPPER,dupper,FLOAT)
20#define DUPPER(A2) CCALLSFFUN1(DUPPER,dupper,FLOAT,A2)
21
22PROTOCCALLSFFUN1(FLOAT,FLGINT,flgint,FLOAT)
23#define FLGINT(A2) CCALLSFFUN1(FLGINT,flgint,FLOAT,A2)
24
25PROTOCCALLSFFUN1(FLOAT,FLQINT,flqint,FLOAT)
26#define FLQINT(A2) CCALLSFFUN1(FLQINT,flqint,FLOAT,A2)
27
28PROTOCCALLSFFUN1(FLOAT,FLTINT,fltint,FLOAT)
29#define FLTINT(A2) CCALLSFFUN1(FLTINT,fltint,FLOAT,A2)
30
31PROTOCCALLSFFUN5(FLOAT,GADAPF,gadapf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT)
32#define GADAPF(A2,A3,A4,A5,A6) CCALLSFFUN5(GADAPF,gadapf,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A2,A3,A4,A5,A6)
33
34PROTOCCALLSFFUN1(INT,LKINEM,lkinem,INT)
35#define LKINEM(A2) CCALLSFFUN1(LKINEM,lkinem,INT,A2)
36
37PROTOCCALLSFFUN2(FLOAT,LMPINT,lmpint,PFLOAT,INT)
38#define LMPINT(A2,A3) CCALLSFFUN2(LMPINT,lmpint,PFLOAT,INT,A2,A3)
39
40PROTOCCALLSFFUN5(INT,LQMCUT,lqmcut,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT)
41#define LQMCUT(A2,A3,A4,A5,A6) CCALLSFFUN5(LQMCUT,lqmcut,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5,A6)
42
43PROTOCCALLSFFUN1(DOUBLE,RIWFUN,riwfun,DOUBLEV)
44#define RIWFUN(A2) CCALLSFFUN1(RIWFUN,riwfun,DOUBLEV,A2)
45
46PROTOCCALLSFSUB0(DVNOPT,dvnopt)
47#define DVNOPT() CCALLSFSUB0(DVNOPT,dvnopt)
48
49PROTOCCALLSFSUB3(FLINTG,flintg,FLOAT,FLOAT,FLOAT)
50#define FLINTG(A1,A2,A3) CCALLSFSUB3(FLINTG,flintg,FLOAT,FLOAT,FLOAT,A1,A2,A3)
51
52PROTOCCALLSFSUB3(FLIPOL,flipol,PFLOAT,PFLOAT,PFLOAT)
53#define FLIPOL(A1,A2,A3) CCALLSFSUB3(FLIPOL,flipol,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3)
54
55PROTOCCALLSFSUB0(FLTABL,fltabl)
56#define FLTABL() CCALLSFSUB0(FLTABL,fltabl)
57
58PROTOCCALLSFSUB5(GADAP,gadap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
59#define GADAP(A1,A2,A3,A4,A5) CCALLSFSUB5(GADAP,gadap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
60
61PROTOCCALLSFSUB7(GADAP2,gadap2,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT)
62#define GADAP2(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GADAP2,gadap2,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
63
64PROTOCCALLSFSUB2(LAZIMU,lazimu,FLOAT,FLOAT)
65#define LAZIMU(A1,A2) CCALLSFSUB2(LAZIMU,lazimu,FLOAT,FLOAT,A1,A2)
66
67PROTOCCALLSFSUB0(LEPTO,lepto)
68#define LEPTO() CCALLSFSUB0(LEPTO,lepto)
69
70PROTOCCALLSFSUB0(LEPTOX,leptox)
71#define LEPTOX() CCALLSFSUB0(LEPTOX,leptox)
72
73PROTOCCALLSFSUB2(LFLAV,lflav,PINT,PINT)
74#define LFLAV(A1,A2) CCALLSFSUB2(LFLAV,lflav,PINT,PINT,A1,A2)
75
76PROTOCCALLSFSUB2(LFRAME,lframe,INT,INT)
77#define LFRAME(A1,A2) CCALLSFSUB2(LFRAME,lframe,INT,INT,A1,A2)
78
79PROTOCCALLSFSUB5(LINIT,linit,INT,INT,FLOAT,FLOAT,INT)
80#define LINIT(A1,A2,A3,A4,A5) CCALLSFSUB5(LINIT,linit,INT,INT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5)
81
82PROTOCCALLSFSUB0(LMCMND,lmcmnd)
83#define LMCMND() CCALLSFSUB0(LMCMND,lmcmnd)
84
85PROTOCCALLSFSUB0(LMEPS,lmeps)
86#define LMEPS() CCALLSFSUB0(LMEPS,lmeps)
87
88PROTOCCALLSFSUB0(LMIDA2,lmida2)
89#define LMIDA2() CCALLSFSUB0(LMIDA2,lmida2)
90
91PROTOCCALLSFSUB0(LMIDAT,lmidat)
92#define LMIDAT() CCALLSFSUB0(LMIDAT,lmidat)
93
94PROTOCCALLSFSUB0(LMINEW,lminew)
95#define LMINEW() CCALLSFSUB0(LMINEW,lminew)
96
97PROTOCCALLSFSUB1(LMINTO,lminto,FLOATV)
98#define LMINTO(A1) CCALLSFSUB1(LMINTO,lminto,FLOATV,A1)
99
100PROTOCCALLSFSUB2(LMPRIN,lmprin,INT,FLOAT)
101#define LMPRIN(A1,A2) CCALLSFSUB2(LMPRIN,lmprin,INT,FLOAT,A1,A2)
102
103PROTOCCALLSFSUB2(LMRAZZ,lmrazz,FLOAT,FLOATV)
104#define LMRAZZ(A1,A2) CCALLSFSUB2(LMRAZZ,lmrazz,FLOAT,FLOATV,A1,A2)
105
106PROTOCCALLSFSUB0(LMSIMP,lmsimp)
107#define LMSIMP() CCALLSFSUB0(LMSIMP,lmsimp)
108
109PROTOCCALLSFSUB3(LNSTRF,lnstrf,FLOAT,FLOAT,PFLOAT)
110#define LNSTRF(A1,A2,A3) CCALLSFSUB3(LNSTRF,lnstrf,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
111
112PROTOCCALLSFSUB3(LPRIKT,lprikt,FLOAT,PFLOAT,PFLOAT)
113#define LPRIKT(A1,A2,A3) CCALLSFSUB3(LPRIKT,lprikt,FLOAT,PFLOAT,PFLOAT,A1,A2,A3)
114
115PROTOCCALLSFSUB1(LPRWTS,lprwts,INT)
116#define LPRWTS(A1) CCALLSFSUB1(LPRWTS,lprwts,INT,A1)
117
118PROTOCCALLSFSUB2(LQCDPR,lqcdpr,PFLOAT,PFLOAT)
119#define LQCDPR(A1,A2) CCALLSFSUB2(LQCDPR,lqcdpr,PFLOAT,PFLOAT,A1,A2)
120
121PROTOCCALLSFSUB2(LQEVAR,lqevar,INT,INT)
122#define LQEVAR(A1,A2) CCALLSFSUB2(LQEVAR,lqevar,INT,INT,A1,A2)
123
124PROTOCCALLSFSUB0(LQEV,lqev)
125#define LQEV() CCALLSFSUB0(LQEV,lqev)
126
127PROTOCCALLSFSUB0(LQGEV,lqgev)
128#define LQGEV() CCALLSFSUB0(LQGEV,lqgev)
129
130PROTOCCALLSFSUB0(LQQBEV,lqqbev)
131#define LQQBEV() CCALLSFSUB0(LQQBEV,lqqbev)
132
133PROTOCCALLSFSUB5(LREMH,lremh,INT,FLOAT,PINT,INT,PFLOAT)
134#define LREMH(A1,A2,A3,A4,A5) CCALLSFSUB5(LREMH,lremh,INT,FLOAT,PINT,INT,PFLOAT,A1,A2,A3,A4,A5)
135
136PROTOCCALLSFSUB2(LSCALE,lscale,INT,PFLOAT)
137#define LSCALE(A1,A2) CCALLSFSUB2(LSCALE,lscale,INT,PFLOAT,A1,A2)
138
139PROTOCCALLSFSUB1(LSHOWR,lshowr,INT)
140#define LSHOWR(A1) CCALLSFSUB1(LSHOWR,lshowr,INT,A1)
141
142PROTOCCALLSFSUB5(LSIGMX,lsigmx,INT,FLOATV,PFLOAT,FLOATV,INT)
143#define LSIGMX(A1,A2,A3,A4,A5) CCALLSFSUB5(LSIGMX,lsigmx,INT,FLOATV,PFLOAT,FLOATV,INT,A1,A2,A3,A4,A5)
144
145PROTOCCALLSFSUB1(LTIMEX,ltimex,PFLOAT)
146#define LTIMEX(A1) CCALLSFSUB1(LTIMEX,ltimex,PFLOAT,A1)
147
148PROTOCCALLSFSUB1(LWBB,lwbb,PFLOAT)
149#define LWBB(A1) CCALLSFSUB1(LWBB,lwbb,PFLOAT,A1)
150
151PROTOCCALLSFSUB1(LWEITS,lweits,INT)
152#define LWEITS(A1) CCALLSFSUB1(LWEITS,lweits,INT,A1)
153
154PROTOCCALLSFSUB2(LXP,lxp,PFLOAT,PINT)
155#define LXP(A1,A2) CCALLSFSUB2(LXP,lxp,PFLOAT,PINT,A1,A2)
156
157PROTOCCALLSFSUB0(LXSECT,lxsect)
158#define LXSECT() CCALLSFSUB0(LXSECT,lxsect)
159
160PROTOCCALLSFSUB2(LYREMN,lyremn,INT,INT)
161#define LYREMN(A1,A2) CCALLSFSUB2(LYREMN,lyremn,INT,INT,A1,A2)
162
163PROTOCCALLSFSUB4(LYSPLI,lyspli,INT,INT,PINT,PINT)
164#define LYSPLI(A1,A2,A3,A4) CCALLSFSUB4(LYSPLI,lyspli,INT,INT,PINT,PINT,A1,A2,A3,A4)
165
166PROTOCCALLSFSUB2(LYSSPA,lysspa,INT,INT)
167#define LYSSPA(A1,A2) CCALLSFSUB2(LYSSPA,lysspa,INT,INT,A1,A2)
168
169PROTOCCALLSFSUB4(LYSTFU,lystfu,INT,FLOAT,FLOAT,PFLOAT)
170#define LYSTFU(A1,A2,A3,A4) CCALLSFSUB4(LYSTFU,lystfu,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
171
172PROTOCCALLSFSUB3(LZP,lzp,FLOAT,PFLOAT,PINT)
173#define LZP(A1,A2,A3) CCALLSFSUB3(LZP,lzp,FLOAT,PFLOAT,PINT,A1,A2,A3)
174
175PROTOCCALLSFSUB0(RIWIBD,riwibd)
176#define RIWIBD() CCALLSFSUB0(RIWIBD,riwibd)
Note: See TracBrowser for help on using the repository browser.