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

Last change on this file since 3359 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
Line 
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.