source: Sophya/trunk/SophyaExt/CodeMinuit/cfortran/geant315.h@ 3891

Last change on this file since 3891 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: 213.6 KB
RevLine 
[2403]1/*------------------------------------------------------------------
2fortran filename : /cern/new/src/cfs/geant315/abbrch.f
3------------------------------------------------------------------*/
4
5#define ABBRCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35) CCALLSFSUB35(ABBRCH,abbrch,INT,INT,PINT,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PDOUBLE,PINT,PINT,PINT,PINT,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35)
6
7/*------------------------------------------------------------------
8fortran filename : /cern/new/src/cfs/geant315/ainel.f
9------------------------------------------------------------------*/
10
11 PROTOCCALLSFFUN5(DOUBLE,AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE)
12#define AINEL(A2,A3,A4,A5,A6) CCALLSFFUN5(AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6)
13
14/*------------------------------------------------------------------
15fortran filename : /cern/new/src/cfs/geant315/akeka.f
16------------------------------------------------------------------*/
17
18 PROTOCCALLSFFUN3(DOUBLE,AKEKA,akeka,INT,DOUBLE,DOUBLE)
19#define AKEKA(A2,A3,A4) CCALLSFFUN3(AKEKA,akeka,INT,DOUBLE,DOUBLE,A2,A3,A4)
20
21/*------------------------------------------------------------------
22fortran filename : /cern/new/src/cfs/geant315/altra.f
23------------------------------------------------------------------*/
24
25#define ALTRA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(ALTRA,altra,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
26
27/*------------------------------------------------------------------
28fortran filename : /cern/new/src/cfs/geant315/altraf.f
29------------------------------------------------------------------*/
30
31#define ALTRAF(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(ALTRAF,altraf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
32
33/*------------------------------------------------------------------
34fortran filename : /cern/new/src/cfs/geant315/amga.f
35------------------------------------------------------------------*/
36
37 PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT)
38#define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2)
39
40/*------------------------------------------------------------------
41fortran filename : /cern/new/src/cfs/geant315/ankeka.f
42------------------------------------------------------------------*/
43
44 PROTOCCALLSFFUN4(DOUBLE,ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE)
45#define ANKEKA(A2,A3,A4,A5) CCALLSFFUN4(ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
46
47/*------------------------------------------------------------------
48fortran filename : /cern/new/src/cfs/geant315/atomas.f
49------------------------------------------------------------------*/
50
51 PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT)
52#define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3)
53
54/*------------------------------------------------------------------
55fortran filename : /cern/new/src/cfs/geant315/bamjet.f
56------------------------------------------------------------------*/
57
58#define BAMJET(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(BAMJET,bamjet,PINT,INT,INT,INT,INT,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7)
59
60/*------------------------------------------------------------------
61fortran filename : /cern/new/src/cfs/geant315/bamjev.f
62------------------------------------------------------------------*/
63
64#define BAMJEV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(BAMJEV,bamjev,PINT,INT,INT,INT,INT,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7)
65
66/*------------------------------------------------------------------
67fortran filename : /cern/new/src/cfs/geant315/bekeka.f
68------------------------------------------------------------------*/
69
70 PROTOCCALLSFFUN4(DOUBLE,BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE)
71#define BEKEKA(A2,A3,A4,A5) CCALLSFFUN4(BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
72
73/*------------------------------------------------------------------
74fortran filename : /cern/new/src/cfs/geant315/berttp.f
75------------------------------------------------------------------*/
76
77#define BERTTP() CCALLSFSUB0(BERTTP,berttp)
78
79/*------------------------------------------------------------------
80fortran filename : /cern/new/src/cfs/geant315/beta.f
81------------------------------------------------------------------*/
82
83 PROTOCCALLSFFUN3(DOUBLE,BETA,beta,DOUBLE,DOUBLE,DOUBLE)
84#define BETA(A2,A3,A4) CCALLSFFUN3(BETA,beta,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
85
86/*------------------------------------------------------------------
87fortran filename : /cern/new/src/cfs/geant315/betarn.f
88------------------------------------------------------------------*/
89
90 PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE)
91#define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3)
92
93/*------------------------------------------------------------------
94fortran filename : /cern/new/src/cfs/geant315/betrst.f
95------------------------------------------------------------------*/
96
97 PROTOCCALLSFFUN4(DOUBLE,BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
98#define BETRST(A2,A3,A4,A5) CCALLSFFUN4(BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5)
99
100/*------------------------------------------------------------------
101fortran filename : /cern/new/src/cfs/geant315/bkeka.f
102------------------------------------------------------------------*/
103
104 PROTOCCALLSFFUN3(DOUBLE,BKEKA,bkeka,INT,DOUBLE,DOUBLE)
105#define BKEKA(A2,A3,A4) CCALLSFFUN3(BKEKA,bkeka,INT,DOUBLE,DOUBLE,A2,A3,A4)
106
107/*------------------------------------------------------------------
108fortran filename : /cern/new/src/cfs/geant315/bklass.f
109------------------------------------------------------------------*/
110
111#define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5)
112
113/*------------------------------------------------------------------
114fortran filename : /cern/new/src/cfs/geant315/bnkeka.f
115------------------------------------------------------------------*/
116
117 PROTOCCALLSFFUN4(DOUBLE,BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE)
118#define BNKEKA(A2,A3,A4,A5) CCALLSFFUN4(BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
119
120/*------------------------------------------------------------------
121fortran filename : /cern/new/src/cfs/geant315/calumo.f
122------------------------------------------------------------------*/
123
124#define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2)
125
126/*------------------------------------------------------------------
127fortran filename : /cern/new/src/cfs/geant315/calumv.f
128------------------------------------------------------------------*/
129
130#define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2)
131
132/*------------------------------------------------------------------
133fortran filename : /cern/new/src/cfs/geant315/captur.f
134------------------------------------------------------------------*/
135
136#define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1)
137
138/*------------------------------------------------------------------
139fortran filename : /cern/new/src/cfs/geant315/casal0.f
140------------------------------------------------------------------*/
141
142#define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3)
143
144/*------------------------------------------------------------------
145fortran filename : /cern/new/src/cfs/geant315/casaom.f
146------------------------------------------------------------------*/
147
148#define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3)
149
150/*------------------------------------------------------------------
151fortran filename : /cern/new/src/cfs/geant315/casasm.f
152------------------------------------------------------------------*/
153
154#define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3)
155
156/*------------------------------------------------------------------
157fortran filename : /cern/new/src/cfs/geant315/casasp.f
158------------------------------------------------------------------*/
159
160#define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3)
161
162/*------------------------------------------------------------------
163fortran filename : /cern/new/src/cfs/geant315/casax0.f
164------------------------------------------------------------------*/
165
166#define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3)
167
168/*------------------------------------------------------------------
169fortran filename : /cern/new/src/cfs/geant315/casaxm.f
170------------------------------------------------------------------*/
171
172#define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3)
173
174/*------------------------------------------------------------------
175fortran filename : /cern/new/src/cfs/geant315/casfrg.f
176------------------------------------------------------------------*/
177
178#define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3)
179
180/*------------------------------------------------------------------
181fortran filename : /cern/new/src/cfs/geant315/cask0.f
182------------------------------------------------------------------*/
183
184#define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3)
185
186/*------------------------------------------------------------------
187fortran filename : /cern/new/src/cfs/geant315/cask0b.f
188------------------------------------------------------------------*/
189
190#define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3)
191
192/*------------------------------------------------------------------
193fortran filename : /cern/new/src/cfs/geant315/caskm.f
194------------------------------------------------------------------*/
195
196#define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3)
197
198/*------------------------------------------------------------------
199fortran filename : /cern/new/src/cfs/geant315/caskp.f
200------------------------------------------------------------------*/
201
202#define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3)
203
204/*------------------------------------------------------------------
205fortran filename : /cern/new/src/cfs/geant315/casl0.f
206------------------------------------------------------------------*/
207
208#define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3)
209
210/*------------------------------------------------------------------
211fortran filename : /cern/new/src/cfs/geant315/casn.f
212------------------------------------------------------------------*/
213
214#define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3)
215
216/*------------------------------------------------------------------
217fortran filename : /cern/new/src/cfs/geant315/casnb.f
218------------------------------------------------------------------*/
219
220#define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3)
221
222/*------------------------------------------------------------------
223fortran filename : /cern/new/src/cfs/geant315/casom.f
224------------------------------------------------------------------*/
225
226#define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3)
227
228/*------------------------------------------------------------------
229fortran filename : /cern/new/src/cfs/geant315/casp.f
230------------------------------------------------------------------*/
231
232#define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3)
233
234/*------------------------------------------------------------------
235fortran filename : /cern/new/src/cfs/geant315/caspb.f
236------------------------------------------------------------------*/
237
238#define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3)
239
240/*------------------------------------------------------------------
241fortran filename : /cern/new/src/cfs/geant315/caspim.f
242------------------------------------------------------------------*/
243
244#define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3)
245
246/*------------------------------------------------------------------
247fortran filename : /cern/new/src/cfs/geant315/caspip.f
248------------------------------------------------------------------*/
249
250#define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3)
251
252/*------------------------------------------------------------------
253fortran filename : /cern/new/src/cfs/geant315/cassm.f
254------------------------------------------------------------------*/
255
256#define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3)
257
258/*------------------------------------------------------------------
259fortran filename : /cern/new/src/cfs/geant315/cassp.f
260------------------------------------------------------------------*/
261
262#define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3)
263
264/*------------------------------------------------------------------
265fortran filename : /cern/new/src/cfs/geant315/casx0.f
266------------------------------------------------------------------*/
267
268#define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3)
269
270/*------------------------------------------------------------------
271fortran filename : /cern/new/src/cfs/geant315/casxm.f
272------------------------------------------------------------------*/
273
274#define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3)
275
276/*------------------------------------------------------------------
277fortran filename : /cern/new/src/cfs/geant315/cgaffi.f
278------------------------------------------------------------------*/
279
280#define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2)
281
282/*------------------------------------------------------------------
283fortran filename : /cern/new/src/cfs/geant315/cgbfit.f
284------------------------------------------------------------------*/
285
286#define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3)
287
288/*------------------------------------------------------------------
289fortran filename : /cern/new/src/cfs/geant315/cgbint.f
290------------------------------------------------------------------*/
291
292#define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5)
293
294/*------------------------------------------------------------------
295fortran filename : /cern/new/src/cfs/geant315/cgbmmt.f
296------------------------------------------------------------------*/
297
298#define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3)
299
300/*------------------------------------------------------------------
301fortran filename : /cern/new/src/cfs/geant315/cgbool.f
302------------------------------------------------------------------*/
303
304#define CGBOOL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBOOL,cgbool,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
305
306/*------------------------------------------------------------------
307fortran filename : /cern/new/src/cfs/geant315/cgbox.f
308------------------------------------------------------------------*/
309
310#define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
311
312/*------------------------------------------------------------------
313fortran filename : /cern/new/src/cfs/geant315/cgbrik.f
314------------------------------------------------------------------*/
315
316#define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5)
317
318/*------------------------------------------------------------------
319fortran filename : /cern/new/src/cfs/geant315/cgbsea.f
320------------------------------------------------------------------*/
321
322#define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4)
323
324/*------------------------------------------------------------------
325fortran filename : /cern/new/src/cfs/geant315/cgbsec.f
326------------------------------------------------------------------*/
327
328#define CGBSEC(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGBSEC,cgbsec,FLOATV,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
329
330/*------------------------------------------------------------------
331fortran filename : /cern/new/src/cfs/geant315/cgbsor.f
332------------------------------------------------------------------*/
333
334#define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2)
335
336/*------------------------------------------------------------------
337fortran filename : /cern/new/src/cfs/geant315/cgbsub.f
338------------------------------------------------------------------*/
339
340#define CGBSUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBSUB,cgbsub,INT,FLOATV,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
341
342/*------------------------------------------------------------------
343fortran filename : /cern/new/src/cfs/geant315/cgbtef.f
344------------------------------------------------------------------*/
345
346#define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5)
347
348/*------------------------------------------------------------------
349fortran filename : /cern/new/src/cfs/geant315/cgbtfp.f
350------------------------------------------------------------------*/
351
352#define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
353
354/*------------------------------------------------------------------
355fortran filename : /cern/new/src/cfs/geant315/cgbttt.f
356------------------------------------------------------------------*/
357/*
358#define cgbttt_ELEMS_1 ZTRINGV_NUM(1)
359#define cgbttt_ELEMLEN_1 ZTRINGV_NUM(2)
360*/
361
362#define CGBTTT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTTT,cgbttt,STRING,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5)
363
364/*------------------------------------------------------------------
365fortran filename : /cern/new/src/cfs/geant315/cgcev.f
366------------------------------------------------------------------*/
367
368#define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2)
369
370/*------------------------------------------------------------------
371fortran filename : /cern/new/src/cfs/geant315/cgcopy.f
372------------------------------------------------------------------*/
373
374#define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3)
375
376/*------------------------------------------------------------------
377fortran filename : /cern/new/src/cfs/geant315/cgelli.f
378------------------------------------------------------------------*/
379
380#define CGELLI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGELLI,cgelli,FLOAT,FLOAT,FLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
381
382/*------------------------------------------------------------------
383fortran filename : /cern/new/src/cfs/geant315/cgfac2.f
384------------------------------------------------------------------*/
385
386#define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4)
387
388/*------------------------------------------------------------------
389fortran filename : /cern/new/src/cfs/geant315/cgfaco.f
390------------------------------------------------------------------*/
391
392#define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5)
393
394/*------------------------------------------------------------------
395fortran filename : /cern/new/src/cfs/geant315/cgfare.f
396------------------------------------------------------------------*/
397
398#define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4)
399
400/*------------------------------------------------------------------
401fortran filename : /cern/new/src/cfs/geant315/cgfvis.f
402------------------------------------------------------------------*/
403
404#define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4)
405
406/*------------------------------------------------------------------
407fortran filename : /cern/new/src/cfs/geant315/cghcre.f
408------------------------------------------------------------------*/
409
410#define CGHCRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHCRE,cghcre,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
411
412/*------------------------------------------------------------------
413fortran filename : /cern/new/src/cfs/geant315/cghdfa.f
414------------------------------------------------------------------*/
415
416#define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5)
417
418/*------------------------------------------------------------------
419fortran filename : /cern/new/src/cfs/geant315/cghend.f
420------------------------------------------------------------------*/
421
422#define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3)
423
424/*------------------------------------------------------------------
425fortran filename : /cern/new/src/cfs/geant315/cgheva.f
426------------------------------------------------------------------*/
427
428#define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2)
429
430/*------------------------------------------------------------------
431fortran filename : /cern/new/src/cfs/geant315/cghins.f
432------------------------------------------------------------------*/
433
434#define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3)
435
436/*------------------------------------------------------------------
437fortran filename : /cern/new/src/cfs/geant315/cghmov.f
438------------------------------------------------------------------*/
439
440#define CGHMOV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGHMOV,cghmov,PFLOAT,PFLOAT,INT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7)
441
442/*------------------------------------------------------------------
443fortran filename : /cern/new/src/cfs/geant315/cghpla.f
444------------------------------------------------------------------*/
445
446#define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3)
447
448/*------------------------------------------------------------------
449fortran filename : /cern/new/src/cfs/geant315/cghren.f
450------------------------------------------------------------------*/
451
452#define CGHREN(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CGHREN,cghren,INT,INT,INT,INT,PFLOAT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
453
454/*------------------------------------------------------------------
455fortran filename : /cern/new/src/cfs/geant315/cghshi.f
456------------------------------------------------------------------*/
457
458#define CGHSHI(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHSHI,cghshi,INT,PINT,PINT,INTV,PINT,PINT,A1,A2,A3,A4,A5,A6)
459
460/*------------------------------------------------------------------
461fortran filename : /cern/new/src/cfs/geant315/cghsiz.f
462------------------------------------------------------------------*/
463
464#define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5)
465
466/*------------------------------------------------------------------
467fortran filename : /cern/new/src/cfs/geant315/cghtre.f
468------------------------------------------------------------------*/
469
470#define CGHTRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHTRE,cghtre,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
471
472/*------------------------------------------------------------------
473fortran filename : /cern/new/src/cfs/geant315/cginve.f
474------------------------------------------------------------------*/
475
476#define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1)
477
478/*------------------------------------------------------------------
479fortran filename : /cern/new/src/cfs/geant315/cgmnmx.f
480------------------------------------------------------------------*/
481
482#define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3)
483
484/*------------------------------------------------------------------
485fortran filename : /cern/new/src/cfs/geant315/cgrifl.f
486------------------------------------------------------------------*/
487
488#define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2)
489
490/*------------------------------------------------------------------
491fortran filename : /cern/new/src/cfs/geant315/cgsaan.f
492------------------------------------------------------------------*/
493
494#define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5)
495
496/*------------------------------------------------------------------
497fortran filename : /cern/new/src/cfs/geant315/cgscop.f
498------------------------------------------------------------------*/
499
500#define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4)
501
502/*------------------------------------------------------------------
503fortran filename : /cern/new/src/cfs/geant315/cgshel.f
504------------------------------------------------------------------*/
505
506#define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4)
507
508/*------------------------------------------------------------------
509fortran filename : /cern/new/src/cfs/geant315/cgshif.f
510------------------------------------------------------------------*/
511
512#define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4)
513
514/*------------------------------------------------------------------
515fortran filename : /cern/new/src/cfs/geant315/cgsize.f
516------------------------------------------------------------------*/
517
518 PROTOCCALLSFFUN4(FLOAT,CGSIZE,cgsize,INT,INT,INTV,INTV)
519#define CGSIZE(A2,A3,A4,A5) CCALLSFFUN4(CGSIZE,cgsize,INT,INT,INTV,INTV,A2,A3,A4,A5)
520
521/*------------------------------------------------------------------
522fortran filename : /cern/new/src/cfs/geant315/cgslic.f
523------------------------------------------------------------------*/
524
525#define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
526
527/*------------------------------------------------------------------
528fortran filename : /cern/new/src/cfs/geant315/cgsnor.f
529------------------------------------------------------------------*/
530
531#define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1)
532
533/*------------------------------------------------------------------
534fortran filename : /cern/new/src/cfs/geant315/cgsphe.f
535------------------------------------------------------------------*/
536
537#define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
538
539/*------------------------------------------------------------------
540fortran filename : /cern/new/src/cfs/geant315/cgsub.f
541------------------------------------------------------------------*/
542
543#define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4)
544
545/*------------------------------------------------------------------
546fortran filename : /cern/new/src/cfs/geant315/cgtset.f
547------------------------------------------------------------------*/
548
549#define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3)
550
551/*------------------------------------------------------------------
552fortran filename : /cern/new/src/cfs/geant315/cgtstr.f
553------------------------------------------------------------------*/
554
555#define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2)
556
557/*------------------------------------------------------------------
558fortran filename : /cern/new/src/cfs/geant315/cgvedg.f
559------------------------------------------------------------------*/
560
561#define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4)
562
563/*------------------------------------------------------------------
564fortran filename : /cern/new/src/cfs/geant315/cgvhed.f
565------------------------------------------------------------------*/
566
567#define CGVHED(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CGVHED,cgvhed,PFLOAT,INTV,INTV,PFLOAT,PINT,PINT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7,A8)
568
569/*------------------------------------------------------------------
570fortran filename : /cern/new/src/cfs/geant315/cgvtef.f
571------------------------------------------------------------------*/
572
573#define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3)
574
575/*------------------------------------------------------------------
576fortran filename : /cern/new/src/cfs/geant315/cgvtin.f
577------------------------------------------------------------------*/
578
579#define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3)
580
581/*------------------------------------------------------------------
582fortran filename : /cern/new/src/cfs/geant315/cgwire.f
583------------------------------------------------------------------*/
584
585#define CGWIRE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(CGWIRE,cgwire,FLOATV,INT,INT,INT,PFLOAT,INT,INTV,A1,A2,A3,A4,A5,A6,A7)
586
587/*------------------------------------------------------------------
588fortran filename : /cern/new/src/cfs/geant315/cgwsor.f
589------------------------------------------------------------------*/
590
591#define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2)
592
593/*------------------------------------------------------------------
594fortran filename : /cern/new/src/cfs/geant315/cgzre.f
595------------------------------------------------------------------*/
596
597#define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3)
598
599/*------------------------------------------------------------------
600fortran filename : /cern/new/src/cfs/geant315/cgzrev.f
601------------------------------------------------------------------*/
602
603#define CGZREV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGZREV,cgzrev,PFLOAT,FLOAT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
604
605/*------------------------------------------------------------------
606fortran filename : /cern/new/src/cfs/geant315/chanwt.f
607------------------------------------------------------------------*/
608
609#define CHANWT() CCALLSFSUB0(CHANWT,chanwt)
610
611/*------------------------------------------------------------------
612fortran filename : /cern/new/src/cfs/geant315/cinema.f
613------------------------------------------------------------------*/
614
615 PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT)
616#define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2)
617
618/*------------------------------------------------------------------
619fortran filename : /cern/new/src/cfs/geant315/compo.f
620------------------------------------------------------------------*/
621
622#define COMPO() CCALLSFSUB0(COMPO,compo)
623
624/*------------------------------------------------------------------
625fortran filename : /cern/new/src/cfs/geant315/coranh.f
626------------------------------------------------------------------*/
627
628#define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2)
629
630/*------------------------------------------------------------------
631fortran filename : /cern/new/src/cfs/geant315/corevt.f
632------------------------------------------------------------------*/
633
634#define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5)
635
636/*------------------------------------------------------------------
637fortran filename : /cern/new/src/cfs/geant315/corrin.f
638------------------------------------------------------------------*/
639
640#define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5)
641
642/*------------------------------------------------------------------
643fortran filename : /cern/new/src/cfs/geant315/coscat.f
644------------------------------------------------------------------*/
645
646#define COSCAT() CCALLSFSUB0(COSCAT,coscat)
647
648/*------------------------------------------------------------------
649fortran filename : /cern/new/src/cfs/geant315/datar3.f
650------------------------------------------------------------------*/
651
652#define DATAR3() CCALLSFSUB0(DATAR3,datar3)
653
654/*------------------------------------------------------------------
655fortran filename : /cern/new/src/cfs/geant315/datesh.f
656------------------------------------------------------------------*/
657
658#define DATESH() CCALLSFSUB0(DATESH,datesh)
659
660/*------------------------------------------------------------------
661fortran filename : /cern/new/src/cfs/geant315/decaux.f
662------------------------------------------------------------------*/
663
664#define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2)
665
666/*------------------------------------------------------------------
667fortran filename : /cern/new/src/cfs/geant315/defs1.f
668------------------------------------------------------------------*/
669
670#define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3)
671
672/*------------------------------------------------------------------
673fortran filename : /cern/new/src/cfs/geant315/difevv.f
674------------------------------------------------------------------*/
675
676#define DIFEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DIFEVV,difevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
677
678/*------------------------------------------------------------------
679fortran filename : /cern/new/src/cfs/geant315/dlpnuc.f
680------------------------------------------------------------------*/
681
682#define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2)
683
684/*------------------------------------------------------------------
685fortran filename : /cern/new/src/cfs/geant315/dlpsor.f
686------------------------------------------------------------------*/
687
688#define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2)
689
690/*------------------------------------------------------------------
691fortran filename : /cern/new/src/cfs/geant315/dost.f
692------------------------------------------------------------------*/
693
694 PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE)
695#define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3)
696
697/*------------------------------------------------------------------
698fortran filename : /cern/new/src/cfs/geant315/dotes2.f
699------------------------------------------------------------------*/
700
701#define DOTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTES2,dotes2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6)
702
703/*------------------------------------------------------------------
704fortran filename : /cern/new/src/cfs/geant315/dotnuc.f
705------------------------------------------------------------------*/
706
707#define DOTNUC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTNUC,dotnuc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6)
708
709/*------------------------------------------------------------------
710fortran filename : /cern/new/src/cfs/geant315/dpdnuc.f
711------------------------------------------------------------------*/
712
713 PROTOCCALLSFFUN3(DOUBLE,DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE)
714#define DPDNUC(A2,A3,A4) CCALLSFFUN3(DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
715
716/*------------------------------------------------------------------
717fortran filename : /cern/new/src/cfs/geant315/drelab.f
718------------------------------------------------------------------*/
719
720#define DRELAB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(DRELAB,drelab,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
721
722/*------------------------------------------------------------------
723fortran filename : /cern/new/src/cfs/geant315/dresf.f
724------------------------------------------------------------------*/
725
726#define DRESF(A1,A2,A3,A4,A5) CCALLSFSUB5(DRESF,dresf,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5)
727
728/*------------------------------------------------------------------
729fortran filename : /cern/new/src/cfs/geant315/eexi.f
730------------------------------------------------------------------*/
731
732 PROTOCCALLSFFUN3(DOUBLE,EEXI,eexi,INT,DOUBLE,DOUBLE)
733#define EEXI(A2,A3,A4) CCALLSFFUN3(EEXI,eexi,INT,DOUBLE,DOUBLE,A2,A3,A4)
734
735/*------------------------------------------------------------------
736fortran filename : /cern/new/src/cfs/geant315/ekeka.f
737------------------------------------------------------------------*/
738
739 PROTOCCALLSFFUN4(DOUBLE,EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE)
740#define EKEKA(A2,A3,A4,A5) CCALLSFFUN4(EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
741
742/*------------------------------------------------------------------
743fortran filename : /cern/new/src/cfs/geant315/energi.f
744------------------------------------------------------------------*/
745
746#define ENERGI(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(ENERGI,energi,INT,INT,INT,INTV,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
747
748/*------------------------------------------------------------------
749fortran filename : /cern/new/src/cfs/geant315/enrg.f
750------------------------------------------------------------------*/
751
752 PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE)
753#define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3)
754
755/*------------------------------------------------------------------
756fortran filename : /cern/new/src/cfs/geant315/evdeex.f
757------------------------------------------------------------------*/
758
759#define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1)
760
761/*------------------------------------------------------------------
762fortran filename : /cern/new/src/cfs/geant315/eventv.f
763------------------------------------------------------------------*/
764
765#define EVENTV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(EVENTV,eventv,INT,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8)
766
767/*------------------------------------------------------------------
768fortran filename : /cern/new/src/cfs/geant315/evevap.f
769------------------------------------------------------------------*/
770
771#define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1)
772
773/*------------------------------------------------------------------
774fortran filename : /cern/new/src/cfs/geant315/evvini.f
775------------------------------------------------------------------*/
776/*
777#define evvini_ELEMS_2 ZTRINGV_NUM(1)
778#define evvini_ELEMLEN_2 ZTRINGV_NUM(8)
779*/
780
781#define EVVINI(A1,A2) CCALLSFSUB2(EVVINI,evvini,DOUBLEV,STRING,A1,A2)
782
783/*------------------------------------------------------------------
784fortran filename : /cern/new/src/cfs/geant315/exnu.f
785------------------------------------------------------------------*/
786
787 PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT)
788#define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2)
789
790/*------------------------------------------------------------------
791fortran filename : /cern/new/src/cfs/geant315/fcount.f
792------------------------------------------------------------------*/
793
794#define FCOUNT() CCALLSFSUB0(FCOUNT,fcount)
795
796/*------------------------------------------------------------------
797fortran filename : /cern/new/src/cfs/geant315/fctcos.f
798------------------------------------------------------------------*/
799
800 PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT)
801#define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2)
802
803/*------------------------------------------------------------------
804fortran filename : /cern/new/src/cfs/geant315/fdevap.f
805------------------------------------------------------------------*/
806
807#define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap)
808
809/*------------------------------------------------------------------
810fortran filename : /cern/new/src/cfs/geant315/fdnopt.f
811------------------------------------------------------------------*/
812
813#define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt)
814
815/*------------------------------------------------------------------
816fortran filename : /cern/new/src/cfs/geant315/ferevv.f
817------------------------------------------------------------------*/
818
819#define FEREVV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(FEREVV,ferevv,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
820
821/*------------------------------------------------------------------
822fortran filename : /cern/new/src/cfs/geant315/ferhad.f
823------------------------------------------------------------------*/
824
825#define FERHAD(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FERHAD,ferhad,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
826
827/*------------------------------------------------------------------
828fortran filename : /cern/new/src/cfs/geant315/ferhav.f
829------------------------------------------------------------------*/
830
831#define FERHAV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FERHAV,ferhav,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
832
833/*------------------------------------------------------------------
834fortran filename : /cern/new/src/cfs/geant315/fermi.f
835------------------------------------------------------------------*/
836
837 PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT)
838#define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2)
839
840/*------------------------------------------------------------------
841fortran filename : /cern/new/src/cfs/geant315/fissio.f
842------------------------------------------------------------------*/
843
844 PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT)
845#define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2)
846
847/*------------------------------------------------------------------
848fortran filename : /cern/new/src/cfs/geant315/fkdeca.f
849------------------------------------------------------------------*/
850
851#define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2)
852
853/*------------------------------------------------------------------
854fortran filename : /cern/new/src/cfs/geant315/fkdres.f
855------------------------------------------------------------------*/
856
857#define FKDRES(A1,A2,A3,A4,A5) CCALLSFSUB5(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
858
859/*------------------------------------------------------------------
860fortran filename : /cern/new/src/cfs/geant315/fkener.f
861------------------------------------------------------------------*/
862
863 PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE)
864#define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3)
865
866/*------------------------------------------------------------------
867fortran filename : /cern/new/src/cfs/geant315/fkerro.f
868------------------------------------------------------------------*/
869
870#define FKERRO() CCALLSFSUB0(FKERRO,fkerro)
871
872/*------------------------------------------------------------------
873fortran filename : /cern/new/src/cfs/geant315/fkerup.f
874------------------------------------------------------------------*/
875
876#define FKERUP() CCALLSFSUB0(FKERUP,fkerup)
877
878/*------------------------------------------------------------------
879fortran filename : /cern/new/src/cfs/geant315/fkflav.f
880------------------------------------------------------------------*/
881
882#define FKFLAV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(FKFLAV,fkflav,INT,INT,INT,DOUBLE,INTV,DOUBLEV,PINT,PINT,INT,DOUBLE,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
883
884/*------------------------------------------------------------------
885fortran filename : /cern/new/src/cfs/geant315/fkimpu.f
886------------------------------------------------------------------*/
887
888#define FKIMPU(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FKIMPU,fkimpu,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,INT,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
889
890/*------------------------------------------------------------------
891fortran filename : /cern/new/src/cfs/geant315/fkpoli.f
892------------------------------------------------------------------*/
893
894#define FKPOLI(A1,A2) CCALLSFSUB2(FKPOLI,fkpoli,PDOUBLE,PDOUBLE,A1,A2)
895
896/*------------------------------------------------------------------
897fortran filename : /cern/new/src/cfs/geant315/fksigi.f
898------------------------------------------------------------------*/
899
900#define FKSIGI(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(FKSIGI,fksigi,INT,DOUBLE,INT,PINT,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
901
902/*------------------------------------------------------------------
903fortran filename : /cern/new/src/cfs/geant315/fkvert.f
904------------------------------------------------------------------*/
905
906#define FKVERT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(FKVERT,fkvert,INT,INT,INT,INT,DOUBLE,PINT,DOUBLEV,INTV,INTV,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
907
908/*------------------------------------------------------------------
909fortran filename : /cern/new/src/cfs/geant315/fkzero.f
910------------------------------------------------------------------*/
911
912#define FKZERO() CCALLSFSUB0(FKZERO,fkzero)
913
914/*------------------------------------------------------------------
915fortran filename : /cern/new/src/cfs/geant315/fldist.f
916------------------------------------------------------------------*/
917
918#define FLDIST() CCALLSFSUB0(FLDIST,fldist)
919
920/*------------------------------------------------------------------
921fortran filename : /cern/new/src/cfs/geant315/flinit.f
922------------------------------------------------------------------*/
923
924#define FLINIT() CCALLSFSUB0(FLINIT,flinit)
925
926/*------------------------------------------------------------------
927fortran filename : /cern/new/src/cfs/geant315/flkdt1.f
928------------------------------------------------------------------*/
929
930#define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1)
931
932/*------------------------------------------------------------------
933fortran filename : /cern/new/src/cfs/geant315/flkdt2.f
934------------------------------------------------------------------*/
935
936#define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2)
937
938/*------------------------------------------------------------------
939fortran filename : /cern/new/src/cfs/geant315/flkdt3.f
940------------------------------------------------------------------*/
941
942#define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3)
943
944/*------------------------------------------------------------------
945fortran filename : /cern/new/src/cfs/geant315/flkdt4.f
946------------------------------------------------------------------*/
947
948#define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4)
949
950/*------------------------------------------------------------------
951fortran filename : /cern/new/src/cfs/geant315/flkdt5.f
952------------------------------------------------------------------*/
953
954#define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5)
955
956/*------------------------------------------------------------------
957fortran filename : /cern/new/src/cfs/geant315/flkdt6.f
958------------------------------------------------------------------*/
959
960#define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6)
961
962/*------------------------------------------------------------------
963fortran filename : /cern/new/src/cfs/geant315/flkdt7.f
964------------------------------------------------------------------*/
965
966#define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7)
967
968/*------------------------------------------------------------------
969fortran filename : /cern/new/src/cfs/geant315/flufin.f
970------------------------------------------------------------------*/
971
972#define FLUFIN() CCALLSFSUB0(FLUFIN,flufin)
973
974/*------------------------------------------------------------------
975fortran filename : /cern/new/src/cfs/geant315/frmic.f
976------------------------------------------------------------------*/
977
978#define FRMIC(A1) CCALLSFSUB1(FRMIC,frmic,PDOUBLE,A1)
979
980/*------------------------------------------------------------------
981fortran filename : /cern/new/src/cfs/geant315/gamrn.f
982------------------------------------------------------------------*/
983
984 PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE)
985#define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3)
986
987/*------------------------------------------------------------------
988fortran filename : /cern/new/src/cfs/geant315/ganni.f
989------------------------------------------------------------------*/
990
991#define GANNI() CCALLSFSUB0(GANNI,ganni)
992
993/*------------------------------------------------------------------
994fortran filename : /cern/new/src/cfs/geant315/ganni2.f
995------------------------------------------------------------------*/
996
997#define GANNI2() CCALLSFSUB0(GANNI2,ganni2)
998
999/*------------------------------------------------------------------
1000fortran filename : /cern/new/src/cfs/geant315/gannii.f
1001------------------------------------------------------------------*/
1002
1003#define GANNII() CCALLSFSUB0(GANNII,gannii)
1004
1005/*------------------------------------------------------------------
1006fortran filename : /cern/new/src/cfs/geant315/gannir.f
1007------------------------------------------------------------------*/
1008
1009#define GANNIR() CCALLSFSUB0(GANNIR,gannir)
1010
1011/*------------------------------------------------------------------
1012fortran filename : /cern/new/src/cfs/geant315/garndm.f
1013------------------------------------------------------------------*/
1014
1015 PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT)
1016#define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2)
1017
1018/*------------------------------------------------------------------
1019fortran filename : /cern/new/src/cfs/geant315/gbhsta.f
1020------------------------------------------------------------------*/
1021
1022#define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta)
1023
1024/*------------------------------------------------------------------
1025fortran filename : /cern/new/src/cfs/geant315/gbirk.f
1026------------------------------------------------------------------*/
1027
1028#define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1)
1029
1030/*------------------------------------------------------------------
1031fortran filename : /cern/new/src/cfs/geant315/gbrela.f
1032------------------------------------------------------------------*/
1033
1034#define GBRELA() CCALLSFSUB0(GBRELA,gbrela)
1035
1036/*------------------------------------------------------------------
1037fortran filename : /cern/new/src/cfs/geant315/gbrele.f
1038------------------------------------------------------------------*/
1039
1040 PROTOCCALLSFFUN3(FLOAT,GBRELE,gbrele,FLOAT,FLOAT,FLOAT)
1041#define GBRELE(A2,A3,A4) CCALLSFFUN3(GBRELE,gbrele,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1042
1043/*------------------------------------------------------------------
1044fortran filename : /cern/new/src/cfs/geant315/gbrelm.f
1045------------------------------------------------------------------*/
1046
1047 PROTOCCALLSFFUN3(FLOAT,GBRELM,gbrelm,FLOAT,FLOAT,FLOAT)
1048#define GBRELM(A2,A3,A4) CCALLSFFUN3(GBRELM,gbrelm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1049
1050/*------------------------------------------------------------------
1051fortran filename : /cern/new/src/cfs/geant315/gbreme.f
1052------------------------------------------------------------------*/
1053
1054#define GBREME() CCALLSFSUB0(GBREME,gbreme)
1055
1056/*------------------------------------------------------------------
1057fortran filename : /cern/new/src/cfs/geant315/gbremm.f
1058------------------------------------------------------------------*/
1059
1060#define GBREMM() CCALLSFSUB0(GBREMM,gbremm)
1061
1062/*------------------------------------------------------------------
1063fortran filename : /cern/new/src/cfs/geant315/gbrsga.f
1064------------------------------------------------------------------*/
1065
1066#define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga)
1067
1068/*------------------------------------------------------------------
1069fortran filename : /cern/new/src/cfs/geant315/gbrsge.f
1070------------------------------------------------------------------*/
1071
1072 PROTOCCALLSFFUN3(FLOAT,GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT)
1073#define GBRSGE(A2,A3,A4) CCALLSFFUN3(GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1074
1075/*------------------------------------------------------------------
1076fortran filename : /cern/new/src/cfs/geant315/gbrsgm.f
1077------------------------------------------------------------------*/
1078
1079 PROTOCCALLSFFUN3(FLOAT,GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT)
1080#define GBRSGM(A2,A3,A4) CCALLSFFUN3(GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1081
1082/*------------------------------------------------------------------
1083fortran filename : /cern/new/src/cfs/geant315/gbstat.f
1084------------------------------------------------------------------*/
1085
1086#define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat)
1087
1088/*------------------------------------------------------------------
1089fortran filename : /cern/new/src/cfs/geant315/gcderr.f
1090------------------------------------------------------------------*/
1091
1092#define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3)
1093
1094/*------------------------------------------------------------------
1095fortran filename : /cern/new/src/cfs/geant315/gcdrif.f
1096------------------------------------------------------------------*/
1097
1098#define GCDRIF(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GCDRIF,gcdrif,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6)
1099
1100/*------------------------------------------------------------------
1101fortran filename : /cern/new/src/cfs/geant315/gcent.f
1102------------------------------------------------------------------*/
1103
1104#define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2)
1105
1106/*------------------------------------------------------------------
1107fortran filename : /cern/new/src/cfs/geant315/gclose.f
1108------------------------------------------------------------------*/
1109
1110#define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2)
1111
1112/*------------------------------------------------------------------
1113fortran filename : /cern/new/src/cfs/geant315/gcmwpc.f
1114------------------------------------------------------------------*/
1115
1116#define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3)
1117
1118/*------------------------------------------------------------------
1119fortran filename : /cern/new/src/cfs/geant315/gcoeff.f
1120------------------------------------------------------------------*/
1121
1122#define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff)
1123
1124/*------------------------------------------------------------------
1125fortran filename : /cern/new/src/cfs/geant315/gcomp.f
1126------------------------------------------------------------------*/
1127
1128#define GCOMP() CCALLSFSUB0(GCOMP,gcomp)
1129
1130/*------------------------------------------------------------------
1131fortran filename : /cern/new/src/cfs/geant315/gcompi.f
1132------------------------------------------------------------------*/
1133
1134#define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi)
1135
1136/*------------------------------------------------------------------
1137fortran filename : /cern/new/src/cfs/geant315/gcubs.f
1138------------------------------------------------------------------*/
1139
1140#define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1141
1142/*------------------------------------------------------------------
1143fortran filename : /cern/new/src/cfs/geant315/gd16v.f
1144------------------------------------------------------------------*/
1145
1146#define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2)
1147
1148/*------------------------------------------------------------------
1149fortran filename : /cern/new/src/cfs/geant315/gd3d3d.f
1150------------------------------------------------------------------*/
1151
1152#define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4)
1153
1154/*------------------------------------------------------------------
1155fortran filename : /cern/new/src/cfs/geant315/gdahit.f
1156------------------------------------------------------------------*/
1157
1158#define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5)
1159
1160/*------------------------------------------------------------------
1161fortran filename : /cern/new/src/cfs/geant315/gdarc.f
1162------------------------------------------------------------------*/
1163
1164#define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
1165
1166/*------------------------------------------------------------------
1167fortran filename : /cern/new/src/cfs/geant315/gdarr.f
1168------------------------------------------------------------------*/
1169/*
1170#define gdarr_ELEMS_6 ZTRINGV_NUM(1)
1171#define gdarr_ELEMLEN_6 ZTRINGV_NUM(255)
1172*/
1173
1174#define GDARR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDARR,gdarr,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6)
1175
1176/*------------------------------------------------------------------
1177fortran filename : /cern/new/src/cfs/geant315/gdaxis.f
1178------------------------------------------------------------------*/
1179
1180#define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
1181
1182/*------------------------------------------------------------------
1183fortran filename : /cern/new/src/cfs/geant315/gdbomb.f
1184------------------------------------------------------------------*/
1185
1186#define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2)
1187
1188/*------------------------------------------------------------------
1189fortran filename : /cern/new/src/cfs/geant315/gdcgcl.f
1190------------------------------------------------------------------*/
1191
1192#define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1)
1193
1194/*------------------------------------------------------------------
1195fortran filename : /cern/new/src/cfs/geant315/gdcgem.f
1196------------------------------------------------------------------*/
1197
1198#define GDCGEM(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GDCGEM,gdcgem,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
1199
1200/*------------------------------------------------------------------
1201fortran filename : /cern/new/src/cfs/geant315/gdcger.f
1202------------------------------------------------------------------*/
1203
1204#define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1)
1205
1206/*------------------------------------------------------------------
1207fortran filename : /cern/new/src/cfs/geant315/gdcghi.f
1208------------------------------------------------------------------*/
1209
1210#define GDCGHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDCGHI,gdcghi,INT,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
1211
1212/*------------------------------------------------------------------
1213fortran filename : /cern/new/src/cfs/geant315/gdcgob.f
1214------------------------------------------------------------------*/
1215
1216#define GDCGOB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDCGOB,gdcgob,INT,PINT,FLOATV,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
1217
1218/*------------------------------------------------------------------
1219fortran filename : /cern/new/src/cfs/geant315/gdcgpr.f
1220------------------------------------------------------------------*/
1221
1222#define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr)
1223
1224/*------------------------------------------------------------------
1225fortran filename : /cern/new/src/cfs/geant315/gdcgrs.f
1226------------------------------------------------------------------*/
1227
1228#define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs)
1229
1230/*------------------------------------------------------------------
1231fortran filename : /cern/new/src/cfs/geant315/gdcgsl.f
1232------------------------------------------------------------------*/
1233
1234#define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2)
1235
1236/*------------------------------------------------------------------
1237fortran filename : /cern/new/src/cfs/geant315/gdcgvw.f
1238------------------------------------------------------------------*/
1239
1240#define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2)
1241
1242/*------------------------------------------------------------------
1243fortran filename : /cern/new/src/cfs/geant315/gdcgwv.f
1244------------------------------------------------------------------*/
1245
1246#define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1)
1247
1248/*------------------------------------------------------------------
1249fortran filename : /cern/new/src/cfs/geant315/gdchit.f
1250------------------------------------------------------------------*/
1251/*
1252#define gdchit_ELEMS_1 ZTRINGV_NUM(1)
1253#define gdchit_ELEMLEN_1 ZTRINGV_NUM(4)
1254#define gdchit_ELEMS_2 ZTRINGV_NUM(1)
1255#define gdchit_ELEMLEN_2 ZTRINGV_NUM(4)
1256*/
1257
1258#define GDCHIT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDCHIT,gdchit,STRING,STRING,INT,INT,FLOAT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1259
1260/*------------------------------------------------------------------
1261fortran filename : /cern/new/src/cfs/geant315/gdcirc.f
1262------------------------------------------------------------------*/
1263
1264#define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2)
1265
1266/*------------------------------------------------------------------
1267fortran filename : /cern/new/src/cfs/geant315/gdcirr.f
1268------------------------------------------------------------------*/
1269
1270#define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2)
1271
1272/*------------------------------------------------------------------
1273fortran filename : /cern/new/src/cfs/geant315/gdciry.f
1274------------------------------------------------------------------*/
1275
1276#define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2)
1277
1278/*------------------------------------------------------------------
1279fortran filename : /cern/new/src/cfs/geant315/gdclos.f
1280------------------------------------------------------------------*/
1281
1282#define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos)
1283
1284/*------------------------------------------------------------------
1285fortran filename : /cern/new/src/cfs/geant315/gdcol.f
1286------------------------------------------------------------------*/
1287
1288#define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1)
1289
1290/*------------------------------------------------------------------
1291fortran filename : /cern/new/src/cfs/geant315/gdcol1.f
1292------------------------------------------------------------------*/
1293
1294#define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1)
1295
1296/*------------------------------------------------------------------
1297fortran filename : /cern/new/src/cfs/geant315/gdcota.f
1298------------------------------------------------------------------*/
1299
1300#define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota)
1301
1302/*------------------------------------------------------------------
1303fortran filename : /cern/new/src/cfs/geant315/gdcurs.f
1304------------------------------------------------------------------*/
1305
1306#define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3)
1307
1308/*------------------------------------------------------------------
1309fortran filename : /cern/new/src/cfs/geant315/gdcut.f
1310------------------------------------------------------------------*/
1311
1312#define GDCUT() CCALLSFSUB0(GDCUT,gdcut)
1313
1314/*------------------------------------------------------------------
1315fortran filename : /cern/new/src/cfs/geant315/gdcxyz.f
1316------------------------------------------------------------------*/
1317
1318#define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz)
1319
1320/*------------------------------------------------------------------
1321fortran filename : /cern/new/src/cfs/geant315/gdebug.f
1322------------------------------------------------------------------*/
1323
1324#define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug)
1325
1326/*------------------------------------------------------------------
1327fortran filename : /cern/new/src/cfs/geant315/gdeca2.f
1328------------------------------------------------------------------*/
1329
1330#define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
1331
1332/*------------------------------------------------------------------
1333fortran filename : /cern/new/src/cfs/geant315/gdeca3.f
1334------------------------------------------------------------------*/
1335
1336#define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1337
1338/*------------------------------------------------------------------
1339fortran filename : /cern/new/src/cfs/geant315/gdecay.f
1340------------------------------------------------------------------*/
1341
1342#define GDECAY() CCALLSFSUB0(GDECAY,gdecay)
1343
1344/*------------------------------------------------------------------
1345fortran filename : /cern/new/src/cfs/geant315/gdelet.f
1346------------------------------------------------------------------*/
1347
1348#define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1)
1349
1350/*------------------------------------------------------------------
1351fortran filename : /cern/new/src/cfs/geant315/gdeltu.f
1352------------------------------------------------------------------*/
1353
1354#define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3)
1355
1356/*------------------------------------------------------------------
1357fortran filename : /cern/new/src/cfs/geant315/gdfr3d.f
1358------------------------------------------------------------------*/
1359
1360#define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4)
1361
1362/*------------------------------------------------------------------
1363fortran filename : /cern/new/src/cfs/geant315/gdfspc.f
1364------------------------------------------------------------------*/
1365/*
1366#define gdfspc_ELEMS_1 ZTRINGV_NUM(1)
1367#define gdfspc_ELEMLEN_1 ZTRINGV_NUM(4)
1368*/
1369
1370#define GDFSPC(A1,A2,A3) CCALLSFSUB3(GDFSPC,gdfspc,STRING,INT,INT,A1,A2,A3)
1371
1372/*------------------------------------------------------------------
1373fortran filename : /cern/new/src/cfs/geant315/gdgirl.f
1374------------------------------------------------------------------*/
1375
1376#define GDGIRL(A1,A2) CCALLSFSUB2(GDGIRL,gdgirl,FLOAT,FLOAT,A1,A2)
1377
1378/*------------------------------------------------------------------
1379fortran filename : /cern/new/src/cfs/geant315/gdhead.f
1380------------------------------------------------------------------*/
1381/*
1382#define gdhead_ELEMS_2 ZTRINGV_NUM(1)
1383#define gdhead_ELEMLEN_2 ZTRINGV_NUM(255)
1384*/
1385
1386#define GDHEAD(A1,A2,A3) CCALLSFSUB3(GDHEAD,gdhead,INT,STRING,FLOAT,A1,A2,A3)
1387
1388/*------------------------------------------------------------------
1389fortran filename : /cern/new/src/cfs/geant315/gdhits.f
1390------------------------------------------------------------------*/
1391/*
1392#define gdhits_ELEMS_1 ZTRINGV_NUM(1)
1393#define gdhits_ELEMLEN_1 ZTRINGV_NUM(4)
1394#define gdhits_ELEMS_2 ZTRINGV_NUM(1)
1395#define gdhits_ELEMLEN_2 ZTRINGV_NUM(4)
1396*/
1397
1398#define GDHITS(A1,A2,A3,A4,A5) CCALLSFSUB5(GDHITS,gdhits,STRING,STRING,INT,INT,FLOAT,A1,A2,A3,A4,A5)
1399
1400/*------------------------------------------------------------------
1401fortran filename : /cern/new/src/cfs/geant315/gdinit.f
1402------------------------------------------------------------------*/
1403
1404#define GDINIT() CCALLSFSUB0(GDINIT,gdinit)
1405
1406/*------------------------------------------------------------------
1407fortran filename : /cern/new/src/cfs/geant315/gdlcyl.f
1408------------------------------------------------------------------*/
1409
1410#define GDLCYL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDLCYL,gdlcyl,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
1411
1412/*------------------------------------------------------------------
1413fortran filename : /cern/new/src/cfs/geant315/gdlens.f
1414------------------------------------------------------------------*/
1415/*
1416#define gdlens_ELEMS_2 ZTRINGV_NUM(1)
1417#define gdlens_ELEMLEN_2 ZTRINGV_NUM(4)
1418*/
1419
1420#define GDLENS(A1,A2) CCALLSFSUB2(GDLENS,gdlens,INT,STRING,A1,A2)
1421
1422/*------------------------------------------------------------------
1423fortran filename : /cern/new/src/cfs/geant315/gdline.f
1424------------------------------------------------------------------*/
1425
1426#define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2)
1427
1428/*------------------------------------------------------------------
1429fortran filename : /cern/new/src/cfs/geant315/gdlw.f
1430------------------------------------------------------------------*/
1431
1432#define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1)
1433
1434/*------------------------------------------------------------------
1435fortran filename : /cern/new/src/cfs/geant315/gdlw1.f
1436------------------------------------------------------------------*/
1437
1438#define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1)
1439
1440/*------------------------------------------------------------------
1441fortran filename : /cern/new/src/cfs/geant315/gdman.f
1442------------------------------------------------------------------*/
1443
1444#define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2)
1445
1446/*------------------------------------------------------------------
1447fortran filename : /cern/new/src/cfs/geant315/gdnson.f
1448------------------------------------------------------------------*/
1449/*
1450#define gdnson_ELEMS_1 ZTRINGV_NUM(1)
1451#define gdnson_ELEMLEN_1 ZTRINGV_NUM(4)
1452*/
1453
1454#define GDNSON(A1,A2,A3) CCALLSFSUB3(GDNSON,gdnson,STRING,PINT,PINT,A1,A2,A3)
1455
1456/*------------------------------------------------------------------
1457fortran filename : /cern/new/src/cfs/geant315/gdopen.f
1458------------------------------------------------------------------*/
1459
1460#define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1)
1461
1462/*------------------------------------------------------------------
1463fortran filename : /cern/new/src/cfs/geant315/gdopt.f
1464------------------------------------------------------------------*/
1465/*
1466#define gdopt_ELEMS_1 ZTRINGV_NUM(1)
1467#define gdopt_ELEMLEN_1 ZTRINGV_NUM(4)
1468#define gdopt_ELEMS_2 ZTRINGV_NUM(1)
1469#define gdopt_ELEMLEN_2 ZTRINGV_NUM(4)
1470*/
1471
1472#define GDOPT(A1,A2) CCALLSFSUB2(GDOPT,gdopt,STRING,STRING,A1,A2)
1473
1474/*------------------------------------------------------------------
1475fortran filename : /cern/new/src/cfs/geant315/gdpart.f
1476------------------------------------------------------------------*/
1477
1478#define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3)
1479
1480/*------------------------------------------------------------------
1481fortran filename : /cern/new/src/cfs/geant315/gdpdk.f
1482------------------------------------------------------------------*/
1483
1484 PROTOCCALLSFFUN3(DOUBLE,GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE)
1485#define GDPDK(A2,A3,A4) CCALLSFFUN3(GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
1486
1487/*------------------------------------------------------------------
1488fortran filename : /cern/new/src/cfs/geant315/gdplst.f
1489------------------------------------------------------------------*/
1490/*
1491#define gdplst_ELEMS_2 ZTRINGV_NUM(1)
1492#define gdplst_ELEMLEN_2 ZTRINGV_NUM(4)
1493*/
1494
1495#define GDPLST(A1,A2,A3,A4) CCALLSFSUB4(GDPLST,gdplst,INT,PSTRING,INT,INT,A1,A2,A3,A4)
1496
1497/*------------------------------------------------------------------
1498fortran filename : /cern/new/src/cfs/geant315/gdprtr.f
1499------------------------------------------------------------------*/
1500/*
1501#define gdprtr_ELEMS_1 ZTRINGV_NUM(1)
1502#define gdprtr_ELEMLEN_1 ZTRINGV_NUM(4)
1503*/
1504
1505#define GDPRTR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GDPRTR,gdprtr,STRING,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1506
1507/*------------------------------------------------------------------
1508fortran filename : /cern/new/src/cfs/geant315/gdraw.f
1509------------------------------------------------------------------*/
1510/*
1511#define gdraw_ELEMS_1 ZTRINGV_NUM(1)
1512#define gdraw_ELEMLEN_1 ZTRINGV_NUM(4)
1513*/
1514
1515#define GDRAW(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDRAW,gdraw,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1516
1517/*------------------------------------------------------------------
1518fortran filename : /cern/new/src/cfs/geant315/gdrawc.f
1519------------------------------------------------------------------*/
1520/*
1521#define gdrawc_ELEMS_1 ZTRINGV_NUM(1)
1522#define gdrawc_ELEMLEN_1 ZTRINGV_NUM(4)
1523*/
1524
1525#define GDRAWC(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRAWC,gdrawc,STRING,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1526
1527/*------------------------------------------------------------------
1528fortran filename : /cern/new/src/cfs/geant315/gdrawp.f
1529------------------------------------------------------------------*/
1530
1531#define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3)
1532
1533/*------------------------------------------------------------------
1534fortran filename : /cern/new/src/cfs/geant315/gdraws.f
1535------------------------------------------------------------------*/
1536
1537#define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2)
1538
1539/*------------------------------------------------------------------
1540fortran filename : /cern/new/src/cfs/geant315/gdrawt.f
1541------------------------------------------------------------------*/
1542/*
1543#define gdrawt_ELEMS_3 ZTRINGV_NUM(1)
1544#define gdrawt_ELEMLEN_3 ZTRINGV_NUM(255)
1545*/
1546
1547#define GDRAWT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRAWT,gdrawt,FLOAT,FLOAT,STRING,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
1548
1549/*------------------------------------------------------------------
1550fortran filename : /cern/new/src/cfs/geant315/gdrawv.f
1551------------------------------------------------------------------*/
1552
1553#define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3)
1554
1555/*------------------------------------------------------------------
1556fortran filename : /cern/new/src/cfs/geant315/gdrawx.f
1557------------------------------------------------------------------*/
1558/*
1559#define gdrawx_ELEMS_1 ZTRINGV_NUM(1)
1560#define gdrawx_ELEMLEN_1 ZTRINGV_NUM(4)
1561*/
1562
1563#define GDRAWX(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GDRAWX,gdrawx,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1564
1565/*------------------------------------------------------------------
1566fortran filename : /cern/new/src/cfs/geant315/gdray.f
1567------------------------------------------------------------------*/
1568
1569#define GDRAY() CCALLSFSUB0(GDRAY,gdray)
1570
1571/*------------------------------------------------------------------
1572fortran filename : /cern/new/src/cfs/geant315/gdrcut.f
1573------------------------------------------------------------------*/
1574
1575#define GDRCUT(A1,A2,A3,A4) CCALLSFSUB4(GDRCUT,gdrcut,INT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4)
1576
1577/*------------------------------------------------------------------
1578fortran filename : /cern/new/src/cfs/geant315/gdrect.f
1579------------------------------------------------------------------*/
1580
1581#define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
1582
1583/*------------------------------------------------------------------
1584fortran filename : /cern/new/src/cfs/geant315/gdrela.f
1585------------------------------------------------------------------*/
1586
1587#define GDRELA() CCALLSFSUB0(GDRELA,gdrela)
1588
1589/*------------------------------------------------------------------
1590fortran filename : /cern/new/src/cfs/geant315/gdrele.f
1591------------------------------------------------------------------*/
1592
1593#define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4)
1594
1595/*------------------------------------------------------------------
1596fortran filename : /cern/new/src/cfs/geant315/gdrelm.f
1597------------------------------------------------------------------*/
1598
1599#define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1600
1601/*------------------------------------------------------------------
1602fortran filename : /cern/new/src/cfs/geant315/gdrelp.f
1603------------------------------------------------------------------*/
1604
1605#define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1606
1607/*------------------------------------------------------------------
1608fortran filename : /cern/new/src/cfs/geant315/gdrot.f
1609------------------------------------------------------------------*/
1610
1611#define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1612
1613/*------------------------------------------------------------------
1614fortran filename : /cern/new/src/cfs/geant315/gdrprt.f
1615------------------------------------------------------------------*/
1616
1617#define GDRPRT(A1,A2,A3) CCALLSFSUB3(GDRPRT,gdrprt,INT,INT,FLOAT,A1,A2,A3)
1618
1619/*------------------------------------------------------------------
1620fortran filename : /cern/new/src/cfs/geant315/gdrsga.f
1621------------------------------------------------------------------*/
1622
1623#define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga)
1624
1625/*------------------------------------------------------------------
1626fortran filename : /cern/new/src/cfs/geant315/gdrvol.f
1627------------------------------------------------------------------*/
1628
1629#define GDRVOL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GDRVOL,gdrvol,INT,INTV,INTV,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
1630
1631/*------------------------------------------------------------------
1632fortran filename : /cern/new/src/cfs/geant315/gdrwsc.f
1633------------------------------------------------------------------*/
1634
1635#define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2)
1636
1637/*------------------------------------------------------------------
1638fortran filename : /cern/new/src/cfs/geant315/gdsarc.f
1639------------------------------------------------------------------*/
1640
1641#define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5)
1642
1643/*------------------------------------------------------------------
1644fortran filename : /cern/new/src/cfs/geant315/gdscal.f
1645------------------------------------------------------------------*/
1646
1647#define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2)
1648
1649/*------------------------------------------------------------------
1650fortran filename : /cern/new/src/cfs/geant315/gdshad.f
1651------------------------------------------------------------------*/
1652
1653#define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2)
1654
1655/*------------------------------------------------------------------
1656fortran filename : /cern/new/src/cfs/geant315/gdshif.f
1657------------------------------------------------------------------*/
1658
1659#define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2)
1660
1661/*------------------------------------------------------------------
1662fortran filename : /cern/new/src/cfs/geant315/gdshow.f
1663------------------------------------------------------------------*/
1664
1665#define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1)
1666
1667/*------------------------------------------------------------------
1668fortran filename : /cern/new/src/cfs/geant315/gdson.f
1669------------------------------------------------------------------*/
1670/*
1671#define gdson_ELEMS_2 ZTRINGV_NUM(1)
1672#define gdson_ELEMLEN_2 ZTRINGV_NUM(4)
1673#define gdson_ELEMS_3 ZTRINGV_NUM(1)
1674#define gdson_ELEMLEN_3 ZTRINGV_NUM(4)
1675*/
1676
1677#define GDSON(A1,A2,A3) CCALLSFSUB3(GDSON,gdson,INT,STRING,PSTRING,A1,A2,A3)
1678
1679/*------------------------------------------------------------------
1680fortran filename : /cern/new/src/cfs/geant315/gdspec.f
1681------------------------------------------------------------------*/
1682/*
1683#define gdspec_ELEMS_1 ZTRINGV_NUM(1)
1684#define gdspec_ELEMLEN_1 ZTRINGV_NUM(4)
1685*/
1686
1687#define GDSPEC(A1) CCALLSFSUB1(GDSPEC,gdspec,STRING,A1)
1688
1689/*------------------------------------------------------------------
1690fortran filename : /cern/new/src/cfs/geant315/gdssur.f
1691------------------------------------------------------------------*/
1692
1693#define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
1694
1695/*------------------------------------------------------------------
1696fortran filename : /cern/new/src/cfs/geant315/gdsurf.f
1697------------------------------------------------------------------*/
1698
1699#define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1)
1700
1701/*------------------------------------------------------------------
1702fortran filename : /cern/new/src/cfs/geant315/gdthrz.f
1703------------------------------------------------------------------*/
1704
1705#define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1)
1706
1707/*------------------------------------------------------------------
1708fortran filename : /cern/new/src/cfs/geant315/gdtom.f
1709------------------------------------------------------------------*/
1710
1711#define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3)
1712
1713/*------------------------------------------------------------------
1714fortran filename : /cern/new/src/cfs/geant315/gdtr0.f
1715------------------------------------------------------------------*/
1716
1717#define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4)
1718
1719/*------------------------------------------------------------------
1720fortran filename : /cern/new/src/cfs/geant315/gdtr1.f
1721------------------------------------------------------------------*/
1722
1723#define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4)
1724
1725/*------------------------------------------------------------------
1726fortran filename : /cern/new/src/cfs/geant315/gdtr10.f
1727------------------------------------------------------------------*/
1728
1729#define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1)
1730
1731/*------------------------------------------------------------------
1732fortran filename : /cern/new/src/cfs/geant315/gdtr11.f
1733------------------------------------------------------------------*/
1734
1735#define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3)
1736
1737/*------------------------------------------------------------------
1738fortran filename : /cern/new/src/cfs/geant315/gdtr12.f
1739------------------------------------------------------------------*/
1740
1741#define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1)
1742
1743/*------------------------------------------------------------------
1744fortran filename : /cern/new/src/cfs/geant315/gdtr2.f
1745------------------------------------------------------------------*/
1746
1747#define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4)
1748
1749/*------------------------------------------------------------------
1750fortran filename : /cern/new/src/cfs/geant315/gdtr3.f
1751------------------------------------------------------------------*/
1752
1753#define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1)
1754
1755/*------------------------------------------------------------------
1756fortran filename : /cern/new/src/cfs/geant315/gdtr4.f
1757------------------------------------------------------------------*/
1758
1759#define GDTR4() CCALLSFSUB0(GDTR4,gdtr4)
1760
1761/*------------------------------------------------------------------
1762fortran filename : /cern/new/src/cfs/geant315/gdtr5.f
1763------------------------------------------------------------------*/
1764
1765#define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1)
1766
1767/*------------------------------------------------------------------
1768fortran filename : /cern/new/src/cfs/geant315/gdtr6.f
1769------------------------------------------------------------------*/
1770
1771#define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1)
1772
1773/*------------------------------------------------------------------
1774fortran filename : /cern/new/src/cfs/geant315/gdtr8.f
1775------------------------------------------------------------------*/
1776/*
1777#define gdtr8_ELEMS_1 ZTRINGV_NUM(1)
1778#define gdtr8_ELEMLEN_1 ZTRINGV_NUM(4)
1779#define gdtr8_ELEMS_2 ZTRINGV_NUM(1)
1780#define gdtr8_ELEMLEN_2 ZTRINGV_NUM(4)
1781*/
1782
1783#define GDTR8(A1,A2,A3) CCALLSFSUB3(GDTR8,gdtr8,STRING,STRING,PINT,A1,A2,A3)
1784
1785/*------------------------------------------------------------------
1786fortran filename : /cern/new/src/cfs/geant315/gdtr99.f
1787------------------------------------------------------------------*/
1788
1789#define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1)
1790
1791/*------------------------------------------------------------------
1792fortran filename : /cern/new/src/cfs/geant315/gdtrak.f
1793------------------------------------------------------------------*/
1794/*
1795#define gdtrak_ELEMS_1 ZTRINGV_NUM(1)
1796#define gdtrak_ELEMLEN_1 ZTRINGV_NUM(255)
1797*/
1798
1799#define GDTRAK(A1) CCALLSFSUB1(GDTRAK,gdtrak,STRING,A1)
1800
1801/*------------------------------------------------------------------
1802fortran filename : /cern/new/src/cfs/geant315/gdtree.f
1803------------------------------------------------------------------*/
1804/*
1805#define gdtree_ELEMS_1 ZTRINGV_NUM(1)
1806#define gdtree_ELEMLEN_1 ZTRINGV_NUM(4)
1807*/
1808
1809#define GDTREE(A1,A2,A3) CCALLSFSUB3(GDTREE,gdtree,PSTRING,INT,INT,A1,A2,A3)
1810
1811/*------------------------------------------------------------------
1812fortran filename : /cern/new/src/cfs/geant315/gdxyz.f
1813------------------------------------------------------------------*/
1814
1815#define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1)
1816
1817/*------------------------------------------------------------------
1818fortran filename : /cern/new/src/cfs/geant315/gdxzoo.f
1819------------------------------------------------------------------*/
1820
1821#define GDXZOO(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDXZOO,gdxzoo,INT,FLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
1822
1823/*------------------------------------------------------------------
1824fortran filename : /cern/new/src/cfs/geant315/gdzoom.f
1825------------------------------------------------------------------*/
1826
1827#define GDZOOM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDZOOM,gdzoom,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
1828
1829/*------------------------------------------------------------------
1830fortran filename : /cern/new/src/cfs/geant315/geamon.f
1831------------------------------------------------------------------*/
1832/*
1833#define geamon_ELEMS_2 ZTRINGV_NUM(1)
1834#define geamon_ELEMLEN_2 ZTRINGV_NUM(255)
1835*/
1836
1837#define GEAMON(A1,A2) CCALLSFSUB2(GEAMON,geamon,INT,STRING,A1,A2)
1838
1839/*------------------------------------------------------------------
1840fortran filename : /cern/new/src/cfs/geant315/geditv.f
1841------------------------------------------------------------------*/
1842
1843#define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1)
1844
1845/*------------------------------------------------------------------
1846fortran filename : /cern/new/src/cfs/geant315/gekbin.f
1847------------------------------------------------------------------*/
1848
1849#define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin)
1850
1851/*------------------------------------------------------------------
1852fortran filename : /cern/new/src/cfs/geant315/genxpt.f
1853------------------------------------------------------------------*/
1854
1855#define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3)
1856
1857/*------------------------------------------------------------------
1858fortran filename : /cern/new/src/cfs/geant315/getnum.f
1859------------------------------------------------------------------*/
1860
1861#define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2)
1862
1863/*------------------------------------------------------------------
1864fortran filename : /cern/new/src/cfs/geant315/getver.f
1865------------------------------------------------------------------*/
1866/*
1867#define getver_ELEMS_1 ZTRINGV_NUM(1)
1868#define getver_ELEMLEN_1 ZTRINGV_NUM(8)
1869*/
1870
1871#define GETVER(A1,A2) CCALLSFSUB2(GETVER,getver,PSTRING,PFLOAT,A1,A2)
1872
1873/*------------------------------------------------------------------
1874fortran filename : /cern/new/src/cfs/geant315/gevkev.f
1875------------------------------------------------------------------*/
1876/*
1877#define gevkev_ELEMS_3 ZTRINGV_NUM(1)
1878#define gevkev_ELEMLEN_3 ZTRINGV_NUM(4)
1879*/
1880
1881#define GEVKEV(A1,A2,A3) CCALLSFSUB3(GEVKEV,gevkev,FLOAT,PFLOAT,PSTRING,A1,A2,A3)
1882
1883/*------------------------------------------------------------------
1884fortran filename : /cern/new/src/cfs/geant315/gfatt.f
1885------------------------------------------------------------------*/
1886/*
1887#define gfatt_ELEMS_1 ZTRINGV_NUM(1)
1888#define gfatt_ELEMLEN_1 ZTRINGV_NUM(4)
1889#define gfatt_ELEMS_2 ZTRINGV_NUM(1)
1890#define gfatt_ELEMLEN_2 ZTRINGV_NUM(4)
1891*/
1892
1893#define GFATT(A1,A2,A3) CCALLSFSUB3(GFATT,gfatt,STRING,STRING,PINT,A1,A2,A3)
1894
1895/*------------------------------------------------------------------
1896fortran filename : /cern/new/src/cfs/geant315/gfclim.f
1897------------------------------------------------------------------*/
1898
1899#define GFCLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCLIM,gfclim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
1900
1901/*------------------------------------------------------------------
1902fortran filename : /cern/new/src/cfs/geant315/gfcoor.f
1903------------------------------------------------------------------*/
1904
1905#define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3)
1906
1907/*------------------------------------------------------------------
1908fortran filename : /cern/new/src/cfs/geant315/gfcord.f
1909------------------------------------------------------------------*/
1910
1911#define GFCORD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCORD,gfcord,INT,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
1912
1913/*------------------------------------------------------------------
1914fortran filename : /cern/new/src/cfs/geant315/gfcoul.f
1915------------------------------------------------------------------*/
1916
1917 PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT)
1918#define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2)
1919
1920/*------------------------------------------------------------------
1921fortran filename : /cern/new/src/cfs/geant315/gfcvol.f
1922------------------------------------------------------------------*/
1923
1924#define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol)
1925
1926/*------------------------------------------------------------------
1927fortran filename : /cern/new/src/cfs/geant315/gfdet.f
1928------------------------------------------------------------------*/
1929/*
1930#define gfdet_ELEMS_1 ZTRINGV_NUM(1)
1931#define gfdet_ELEMLEN_1 ZTRINGV_NUM(4)
1932#define gfdet_ELEMS_2 ZTRINGV_NUM(1)
1933#define gfdet_ELEMLEN_2 ZTRINGV_NUM(4)
1934#define gfdet_ELEMS_4 ZTRINGV_NUM(1)
1935#define gfdet_ELEMLEN_4 ZTRINGV_NUM(4)
1936*/
1937
1938#define GFDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GFDET,gfdet,STRING,STRING,PINT,STRINGV,PINT,INT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
1939
1940/*------------------------------------------------------------------
1941fortran filename : /cern/new/src/cfs/geant315/gfdeta.f
1942------------------------------------------------------------------*/
1943/*
1944#define gfdeta_ELEMS_1 ZTRINGV_NUM(1)
1945#define gfdeta_ELEMLEN_1 ZTRINGV_NUM(4)
1946#define gfdeta_ELEMS_2 ZTRINGV_NUM(1)
1947#define gfdeta_ELEMLEN_2 ZTRINGV_NUM(4)
1948*/
1949
1950#define GFDETA(A1,A2,A3) CCALLSFSUB3(GFDETA,gfdeta,STRING,STRING,INT,A1,A2,A3)
1951
1952/*------------------------------------------------------------------
1953fortran filename : /cern/new/src/cfs/geant315/gfdetd.f
1954------------------------------------------------------------------*/
1955/*
1956#define gfdetd_ELEMS_1 ZTRINGV_NUM(1)
1957#define gfdetd_ELEMLEN_1 ZTRINGV_NUM(4)
1958#define gfdetd_ELEMS_2 ZTRINGV_NUM(1)
1959#define gfdetd_ELEMLEN_2 ZTRINGV_NUM(4)
1960#define gfdetd_ELEMS_4 ZTRINGV_NUM(1)
1961#define gfdetd_ELEMLEN_4 ZTRINGV_NUM(4)
1962*/
1963
1964#define GFDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETD,gfdetd,STRING,STRING,PINT,STRINGV,PINT,A1,A2,A3,A4,A5)
1965
1966/*------------------------------------------------------------------
1967fortran filename : /cern/new/src/cfs/geant315/gfdeth.f
1968------------------------------------------------------------------*/
1969/*
1970#define gfdeth_ELEMS_1 ZTRINGV_NUM(1)
1971#define gfdeth_ELEMLEN_1 ZTRINGV_NUM(4)
1972#define gfdeth_ELEMS_2 ZTRINGV_NUM(1)
1973#define gfdeth_ELEMLEN_2 ZTRINGV_NUM(4)
1974#define gfdeth_ELEMS_4 ZTRINGV_NUM(1)
1975#define gfdeth_ELEMLEN_4 ZTRINGV_NUM(4)
1976*/
1977
1978#define GFDETH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFDETH,gfdeth,STRING,STRING,PINT,STRINGV,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1979
1980/*------------------------------------------------------------------
1981fortran filename : /cern/new/src/cfs/geant315/gfdetu.f
1982------------------------------------------------------------------*/
1983/*
1984#define gfdetu_ELEMS_1 ZTRINGV_NUM(1)
1985#define gfdetu_ELEMLEN_1 ZTRINGV_NUM(4)
1986#define gfdetu_ELEMS_2 ZTRINGV_NUM(1)
1987#define gfdetu_ELEMLEN_2 ZTRINGV_NUM(4)
1988*/
1989
1990#define GFDETU(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETU,gfdetu,STRING,STRING,INT,PINT,FLOATV,A1,A2,A3,A4,A5)
1991
1992/*------------------------------------------------------------------
1993fortran filename : /cern/new/src/cfs/geant315/gfdigi.f
1994------------------------------------------------------------------*/
1995/*
1996#define gfdigi_ELEMS_1 ZTRINGV_NUM(1)
1997#define gfdigi_ELEMLEN_1 ZTRINGV_NUM(4)
1998#define gfdigi_ELEMS_2 ZTRINGV_NUM(1)
1999#define gfdigi_ELEMLEN_2 ZTRINGV_NUM(4)
2000*/
2001
2002#define GFDIGI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(GFDIGI,gfdigi,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
2003
2004/*------------------------------------------------------------------
2005fortran filename : /cern/new/src/cfs/geant315/gffgo.f
2006------------------------------------------------------------------*/
2007
2008#define GFFGO() CCALLSFSUB0(GFFGO,gffgo)
2009
2010/*------------------------------------------------------------------
2011fortran filename : /cern/new/src/cfs/geant315/gfhits.f
2012------------------------------------------------------------------*/
2013/*
2014#define gfhits_ELEMS_1 ZTRINGV_NUM(1)
2015#define gfhits_ELEMLEN_1 ZTRINGV_NUM(4)
2016#define gfhits_ELEMS_2 ZTRINGV_NUM(1)
2017#define gfhits_ELEMLEN_2 ZTRINGV_NUM(4)
2018*/
2019
2020#define GFHITS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GFHITS,gfhits,STRING,STRING,INT,INT,INT,INT,INTV,PINT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
2021
2022/*------------------------------------------------------------------
2023fortran filename : /cern/new/src/cfs/geant315/gfhsta.f
2024------------------------------------------------------------------*/
2025
2026#define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta)
2027
2028/*------------------------------------------------------------------
2029fortran filename : /cern/new/src/cfs/geant315/gfin.f
2030------------------------------------------------------------------*/
2031/*
2032#define gfin_ELEMS_2 ZTRINGV_NUM(#@#)
2033#define gfin_ELEMLEN_2 ZTRINGV_NUM(4)
2034#define gfin_ELEMS_5 ZTRINGV_NUM(1)
2035#define gfin_ELEMLEN_5 ZTRINGV_NUM(255)
2036*/
2037
2038#define GFIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFIN,gfin,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6)
2039
2040/*------------------------------------------------------------------
2041fortran filename : /cern/new/src/cfs/geant315/gfinds.f
2042------------------------------------------------------------------*/
2043
2044#define GFINDS() CCALLSFSUB0(GFINDS,gfinds)
2045
2046/*------------------------------------------------------------------
2047fortran filename : /cern/new/src/cfs/geant315/gfipar.f
2048------------------------------------------------------------------*/
2049
2050#define GFIPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFIPAR,gfipar,INT,INT,INT,PINT,PINT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7)
2051
2052/*------------------------------------------------------------------
2053fortran filename : /cern/new/src/cfs/geant315/gfkine.f
2054------------------------------------------------------------------*/
2055
2056#define GFKINE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFKINE,gfkine,INT,PFLOAT,PFLOAT,PINT,PINT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
2057
2058/*------------------------------------------------------------------
2059fortran filename : /cern/new/src/cfs/geant315/gflcar.f
2060------------------------------------------------------------------*/
2061
2062#define GFLCAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLCAR,gflcar,INT,INT,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
2063
2064/*------------------------------------------------------------------
2065fortran filename : /cern/new/src/cfs/geant315/gflphi.f
2066------------------------------------------------------------------*/
2067
2068#define GFLPHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLPHI,gflphi,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
2069
2070/*------------------------------------------------------------------
2071fortran filename : /cern/new/src/cfs/geant315/gflrad.f
2072------------------------------------------------------------------*/
2073
2074#define GFLRAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFLRAD,gflrad,INT,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
2075
2076/*------------------------------------------------------------------
2077fortran filename : /cern/new/src/cfs/geant315/gflthe.f
2078------------------------------------------------------------------*/
2079
2080#define GFLTHE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFLTHE,gflthe,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
2081
2082/*------------------------------------------------------------------
2083fortran filename : /cern/new/src/cfs/geant315/gfmate.f
2084------------------------------------------------------------------*/
2085
2086#define GFMATE(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GFMATE,gfmate,INT,BYTE,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
2087
2088/*------------------------------------------------------------------
2089fortran filename : /cern/new/src/cfs/geant315/gfmoth.f
2090------------------------------------------------------------------*/
2091/*
2092#define gfmoth_ELEMS_1 ZTRINGV_NUM(1)
2093#define gfmoth_ELEMLEN_1 ZTRINGV_NUM(4)
2094#define gfmoth_ELEMS_2 ZTRINGV_NUM(1)
2095#define gfmoth_ELEMLEN_2 ZTRINGV_NUM(4)
2096*/
2097
2098#define GFMOTH(A1,A2,A3) CCALLSFSUB3(GFMOTH,gfmoth,STRING,PSTRING,PINT,A1,A2,A3)
2099
2100/*------------------------------------------------------------------
2101fortran filename : /cern/new/src/cfs/geant315/gfndig.f
2102------------------------------------------------------------------*/
2103/*
2104#define gfndig_ELEMS_1 ZTRINGV_NUM(1)
2105#define gfndig_ELEMLEN_1 ZTRINGV_NUM(4)
2106#define gfndig_ELEMS_2 ZTRINGV_NUM(1)
2107#define gfndig_ELEMLEN_2 ZTRINGV_NUM(4)
2108*/
2109
2110#define GFNDIG(A1,A2,A3) CCALLSFSUB3(GFNDIG,gfndig,STRING,STRING,PINT,A1,A2,A3)
2111
2112/*------------------------------------------------------------------
2113fortran filename : /cern/new/src/cfs/geant315/gfnhit.f
2114------------------------------------------------------------------*/
2115/*
2116#define gfnhit_ELEMS_1 ZTRINGV_NUM(1)
2117#define gfnhit_ELEMLEN_1 ZTRINGV_NUM(4)
2118#define gfnhit_ELEMS_2 ZTRINGV_NUM(1)
2119#define gfnhit_ELEMLEN_2 ZTRINGV_NUM(4)
2120*/
2121
2122#define GFNHIT(A1,A2,A3) CCALLSFSUB3(GFNHIT,gfnhit,STRING,STRING,PINT,A1,A2,A3)
2123
2124/*------------------------------------------------------------------
2125fortran filename : /cern/new/src/cfs/geant315/gfout.f
2126------------------------------------------------------------------*/
2127/*
2128#define gfout_ELEMS_2 ZTRINGV_NUM(#@#)
2129#define gfout_ELEMLEN_2 ZTRINGV_NUM(4)
2130#define gfout_ELEMS_5 ZTRINGV_NUM(1)
2131#define gfout_ELEMLEN_5 ZTRINGV_NUM(255)
2132*/
2133
2134#define GFOUT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFOUT,gfout,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6)
2135
2136/*------------------------------------------------------------------
2137fortran filename : /cern/new/src/cfs/geant315/gfpara.f
2138------------------------------------------------------------------*/
2139/*
2140#define gfpara_ELEMS_1 ZTRINGV_NUM(1)
2141#define gfpara_ELEMLEN_1 ZTRINGV_NUM(4)
2142*/
2143
2144#define GFPARA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFPARA,gfpara,STRING,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6,A7)
2145
2146/*------------------------------------------------------------------
2147fortran filename : /cern/new/src/cfs/geant315/gfpart.f
2148------------------------------------------------------------------*/
2149/*
2150#define gfpart_ELEMS_2 ZTRINGV_NUM(1)
2151#define gfpart_ELEMLEN_2 ZTRINGV_NUM(20)
2152*/
2153
2154#define GFPART(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFPART,gfpart,INT,STRING,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
2155
2156/*------------------------------------------------------------------
2157fortran filename : /cern/new/src/cfs/geant315/gfpath.f
2158------------------------------------------------------------------*/
2159
2160#define GFPATH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFPATH,gfpath,INT,INT,INTV,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
2161
2162/*------------------------------------------------------------------
2163fortran filename : /cern/new/src/cfs/geant315/gfstat.f
2164------------------------------------------------------------------*/
2165
2166#define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1)
2167
2168/*------------------------------------------------------------------
2169fortran filename : /cern/new/src/cfs/geant315/gftitl.f
2170------------------------------------------------------------------*/
2171
2172#define GFTITL(A1,A2) CCALLSFSUB2(GFTITL,gftitl,INTV,INTV,A1,A2)
2173
2174/*------------------------------------------------------------------
2175fortran filename : /cern/new/src/cfs/geant315/gftmat.f
2176------------------------------------------------------------------*/
2177/*
2178#define gftmat_ELEMS_3 ZTRINGV_NUM(1)
2179#define gftmat_ELEMLEN_3 ZTRINGV_NUM(4)
2180*/
2181
2182#define GFTMAT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFTMAT,gftmat,INT,INT,STRING,INT,FLOATV,PFLOAT,FLOATV,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
2183
2184/*------------------------------------------------------------------
2185fortran filename : /cern/new/src/cfs/geant315/gftmed.f
2186------------------------------------------------------------------*/
2187/*
2188#define gftmed_ELEMS_2 ZTRINGV_NUM(1)
2189#define gftmed_ELEMLEN_2 ZTRINGV_NUM(20)
2190*/
2191
2192#define GFTMED(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GFTMED,gftmed,INT,STRING,PINT,PINT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
2193
2194/*------------------------------------------------------------------
2195fortran filename : /cern/new/src/cfs/geant315/gftrac.f
2196------------------------------------------------------------------*/
2197
2198#define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac)
2199
2200/*------------------------------------------------------------------
2201fortran filename : /cern/new/src/cfs/geant315/gfupar.f
2202------------------------------------------------------------------*/
2203
2204#define GFUPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFUPAR,gfupar,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6)
2205
2206/*------------------------------------------------------------------
2207fortran filename : /cern/new/src/cfs/geant315/gfvert.f
2208------------------------------------------------------------------*/
2209
2210#define GFVERT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFVERT,gfvert,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
2211
2212/*------------------------------------------------------------------
2213fortran filename : /cern/new/src/cfs/geant315/ggcave.f
2214------------------------------------------------------------------*/
2215
2216#define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave)
2217
2218/*------------------------------------------------------------------
2219fortran filename : /cern/new/src/cfs/geant315/ggclos.f
2220------------------------------------------------------------------*/
2221
2222#define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos)
2223
2224/*------------------------------------------------------------------
2225fortran filename : /cern/new/src/cfs/geant315/ggdetv.f
2226------------------------------------------------------------------*/
2227
2228#define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2)
2229
2230/*------------------------------------------------------------------
2231fortran filename : /cern/new/src/cfs/geant315/ggdpar.f
2232------------------------------------------------------------------*/
2233
2234#define GGDPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGDPAR,ggdpar,INT,INT,INT,INTV,INT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2235
2236/*------------------------------------------------------------------
2237fortran filename : /cern/new/src/cfs/geant315/ggdspe.f
2238------------------------------------------------------------------*/
2239
2240#define GGDSPE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGDSPE,ggdspe,INT,INT,FLOATV,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2241
2242/*------------------------------------------------------------------
2243fortran filename : /cern/new/src/cfs/geant315/ggdvlp.f
2244------------------------------------------------------------------*/
2245
2246#define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp)
2247
2248/*------------------------------------------------------------------
2249fortran filename : /cern/new/src/cfs/geant315/gget.f
2250------------------------------------------------------------------*/
2251/*
2252#define gget_ELEMS_2 ZTRINGV_NUM(1)
2253#define gget_ELEMLEN_2 ZTRINGV_NUM(4)
2254*/
2255
2256#define GGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GGET,gget,INT,STRINGV,INT,PINT,PINT,A1,A2,A3,A4,A5)
2257
2258/*------------------------------------------------------------------
2259fortran filename : /cern/new/src/cfs/geant315/ggnlev.f
2260------------------------------------------------------------------*/
2261
2262#define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev)
2263
2264/*------------------------------------------------------------------
2265fortran filename : /cern/new/src/cfs/geant315/ggord.f
2266------------------------------------------------------------------*/
2267
2268#define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1)
2269
2270/*------------------------------------------------------------------
2271fortran filename : /cern/new/src/cfs/geant315/ggordq.f
2272------------------------------------------------------------------*/
2273
2274#define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1)
2275
2276/*------------------------------------------------------------------
2277fortran filename : /cern/new/src/cfs/geant315/ggppar.f
2278------------------------------------------------------------------*/
2279
2280#define GGPPAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GGPPAR,ggppar,INT,INT,INT,INTV,INT,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2281
2282/*------------------------------------------------------------------
2283fortran filename : /cern/new/src/cfs/geant315/ggvchk.f
2284------------------------------------------------------------------*/
2285
2286#define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4)
2287
2288/*------------------------------------------------------------------
2289fortran filename : /cern/new/src/cfs/geant315/ghadro.f
2290------------------------------------------------------------------*/
2291
2292#define GHADRO(A1,A2,A3,A4) CCALLSFSUB4(GHADRO,ghadro,FLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4)
2293
2294/*------------------------------------------------------------------
2295fortran filename : /cern/new/src/cfs/geant315/ghangl.f
2296------------------------------------------------------------------*/
2297
2298#define GHANGL(A1,A2,A3,A4,A5) CCALLSFSUB5(GHANGL,ghangl,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
2299
2300/*------------------------------------------------------------------
2301fortran filename : /cern/new/src/cfs/geant315/ghclos.f
2302------------------------------------------------------------------*/
2303
2304#define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos)
2305
2306/*------------------------------------------------------------------
2307fortran filename : /cern/new/src/cfs/geant315/ghdca2.f
2308------------------------------------------------------------------*/
2309
2310#define GHDCA2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHDCA2,ghdca2,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
2311
2312/*------------------------------------------------------------------
2313fortran filename : /cern/new/src/cfs/geant315/ghdca3.f
2314------------------------------------------------------------------*/
2315
2316#define GHDCA3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHDCA3,ghdca3,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2317
2318/*------------------------------------------------------------------
2319fortran filename : /cern/new/src/cfs/geant315/gheini.f
2320------------------------------------------------------------------*/
2321
2322#define GHEINI() CCALLSFSUB0(GHEINI,gheini)
2323
2324/*------------------------------------------------------------------
2325fortran filename : /cern/new/src/cfs/geant315/gheish.f
2326------------------------------------------------------------------*/
2327
2328#define GHEISH() CCALLSFSUB0(GHEISH,gheish)
2329
2330/*------------------------------------------------------------------
2331fortran filename : /cern/new/src/cfs/geant315/ghelix.f
2332------------------------------------------------------------------*/
2333
2334#define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
2335
2336/*------------------------------------------------------------------
2337fortran filename : /cern/new/src/cfs/geant315/ghelx3.f
2338------------------------------------------------------------------*/
2339
2340#define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
2341
2342/*------------------------------------------------------------------
2343fortran filename : /cern/new/src/cfs/geant315/ghesig.f
2344------------------------------------------------------------------*/
2345
2346 PROTOCCALLSFFUN10(FLOAT,GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT)
2347#define GHESIG(A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFFUN10(GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
2348
2349/*------------------------------------------------------------------
2350fortran filename : /cern/new/src/cfs/geant315/ghfacf.f
2351------------------------------------------------------------------*/
2352
2353#define GHFACF() CCALLSFSUB0(GHFACF,ghfacf)
2354
2355/*------------------------------------------------------------------
2356fortran filename : /cern/new/src/cfs/geant315/ghfake.f
2357------------------------------------------------------------------*/
2358
2359 PROTOCCALLSFFUN3(FLOAT,GHFAKE,ghfake,INT,FLOAT,FLOAT)
2360#define GHFAKE(A2,A3,A4) CCALLSFFUN3(GHFAKE,ghfake,INT,FLOAT,FLOAT,A2,A3,A4)
2361
2362/*------------------------------------------------------------------
2363fortran filename : /cern/new/src/cfs/geant315/ghfalt.f
2364------------------------------------------------------------------*/
2365
2366#define GHFALT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(GHFALT,ghfalt,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
2367
2368/*------------------------------------------------------------------
2369fortran filename : /cern/new/src/cfs/geant315/ghfamg.f
2370------------------------------------------------------------------*/
2371
2372 PROTOCCALLSFFUN1(FLOAT,GHFAMG,ghfamg,INT)
2373#define GHFAMG(A2) CCALLSFFUN1(GHFAMG,ghfamg,INT,A2)
2374
2375/*------------------------------------------------------------------
2376fortran filename : /cern/new/src/cfs/geant315/ghfank.f
2377------------------------------------------------------------------*/
2378
2379 PROTOCCALLSFFUN4(FLOAT,GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT)
2380#define GHFANK(A2,A3,A4,A5) CCALLSFFUN4(GHFANK,ghfank,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
2381
2382/*------------------------------------------------------------------
2383fortran filename : /cern/new/src/cfs/geant315/ghfcal.f
2384------------------------------------------------------------------*/
2385
2386#define GHFCAL(A1,A2) CCALLSFSUB2(GHFCAL,ghfcal,INT,INT,A1,A2)
2387
2388/*------------------------------------------------------------------
2389fortran filename : /cern/new/src/cfs/geant315/ghfcha.f
2390------------------------------------------------------------------*/
2391
2392#define GHFCHA() CCALLSFSUB0(GHFCHA,ghfcha)
2393
2394/*------------------------------------------------------------------
2395fortran filename : /cern/new/src/cfs/geant315/ghfcos.f
2396------------------------------------------------------------------*/
2397
2398#define GHFCOS(A1,A2) CCALLSFSUB2(GHFCOS,ghfcos,PFLOAT,PFLOAT,A1,A2)
2399
2400/*------------------------------------------------------------------
2401fortran filename : /cern/new/src/cfs/geant315/ghfeex.f
2402------------------------------------------------------------------*/
2403
2404 PROTOCCALLSFFUN3(FLOAT,GHFEEX,ghfeex,INT,FLOAT,FLOAT)
2405#define GHFEEX(A2,A3,A4) CCALLSFFUN3(GHFEEX,ghfeex,INT,FLOAT,FLOAT,A2,A3,A4)
2406
2407/*------------------------------------------------------------------
2408fortran filename : /cern/new/src/cfs/geant315/ghfeke.f
2409------------------------------------------------------------------*/
2410
2411 PROTOCCALLSFFUN4(FLOAT,GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT)
2412#define GHFEKE(A2,A3,A4,A5) CCALLSFFUN4(GHFEKE,ghfeke,INT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
2413
2414/*------------------------------------------------------------------
2415fortran filename : /cern/new/src/cfs/geant315/ghffer.f
2416------------------------------------------------------------------*/
2417
2418#define GHFFER(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFFER,ghffer,FLOAT,FLOAT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2419
2420/*------------------------------------------------------------------
2421fortran filename : /cern/new/src/cfs/geant315/ghffrm.f
2422------------------------------------------------------------------*/
2423
2424#define GHFFRM(A1) CCALLSFSUB1(GHFFRM,ghffrm,PFLOAT,A1)
2425
2426/*------------------------------------------------------------------
2427fortran filename : /cern/new/src/cfs/geant315/ghfhad.f
2428------------------------------------------------------------------*/
2429
2430#define GHFHAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFHAD,ghfhad,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
2431
2432/*------------------------------------------------------------------
2433fortran filename : /cern/new/src/cfs/geant315/ghfhdi.f
2434------------------------------------------------------------------*/
2435
2436#define GHFHDI() CCALLSFSUB0(GHFHDI,ghfhdi)
2437
2438/*------------------------------------------------------------------
2439fortran filename : /cern/new/src/cfs/geant315/ghfhdn.f
2440------------------------------------------------------------------*/
2441
2442#define GHFHDN(A1,A2,A3,A4) CCALLSFSUB4(GHFHDN,ghfhdn,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4)
2443
2444/*------------------------------------------------------------------
2445fortran filename : /cern/new/src/cfs/geant315/ghfhyp.f
2446------------------------------------------------------------------*/
2447
2448#define GHFHYP(A1,A2,A3,A4) CCALLSFSUB4(GHFHYP,ghfhyp,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4)
2449
2450/*------------------------------------------------------------------
2451fortran filename : /cern/new/src/cfs/geant315/ghfief.f
2452------------------------------------------------------------------*/
2453
2454 PROTOCCALLSFFUN2(INT,GHFIEF,ghfief,FLOAT,INT)
2455#define GHFIEF(A2,A3) CCALLSFFUN2(GHFIEF,ghfief,FLOAT,INT,A2,A3)
2456
2457/*------------------------------------------------------------------
2458fortran filename : /cern/new/src/cfs/geant315/ghfkin.f
2459------------------------------------------------------------------*/
2460
2461#define GHFKIN(A1,A2,A3) CCALLSFSUB3(GHFKIN,ghfkin,FLOATV,FLOATV,FLOAT,A1,A2,A3)
2462
2463/*------------------------------------------------------------------
2464fortran filename : /cern/new/src/cfs/geant315/ghfnuc.f
2465------------------------------------------------------------------*/
2466
2467#define GHFNUC(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFNUC,ghfnuc,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
2468
2469/*------------------------------------------------------------------
2470fortran filename : /cern/new/src/cfs/geant315/ghfpof.f
2471------------------------------------------------------------------*/
2472
2473 PROTOCCALLSFFUN2(FLOAT,GHFPOF,ghfpof,FLOAT,INT)
2474#define GHFPOF(A2,A3) CCALLSFFUN2(GHFPOF,ghfpof,FLOAT,INT,A2,A3)
2475
2476/*------------------------------------------------------------------
2477fortran filename : /cern/new/src/cfs/geant315/ghfpol.f
2478------------------------------------------------------------------*/
2479
2480#define GHFPOL(A1,A2) CCALLSFSUB2(GHFPOL,ghfpol,FLOAT,PFLOAT,A1,A2)
2481
2482/*------------------------------------------------------------------
2483fortran filename : /cern/new/src/cfs/geant315/ghfrag.f
2484------------------------------------------------------------------*/
2485
2486#define GHFRAG(A1) CCALLSFSUB1(GHFRAG,ghfrag,PFLOAT,A1)
2487
2488/*------------------------------------------------------------------
2489fortran filename : /cern/new/src/cfs/geant315/ghfrak.f
2490------------------------------------------------------------------*/
2491
2492#define GHFRAK(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GHFRAK,ghfrak,INT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
2493
2494/*------------------------------------------------------------------
2495fortran filename : /cern/new/src/cfs/geant315/ghfsgi.f
2496------------------------------------------------------------------*/
2497
2498#define GHFSGI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFSGI,ghfsgi,INT,FLOAT,INT,PINT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2499
2500/*------------------------------------------------------------------
2501fortran filename : /cern/new/src/cfs/geant315/ghftch.f
2502------------------------------------------------------------------*/
2503
2504#define GHFTCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFTCH,ghftch,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,INT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2505
2506/*------------------------------------------------------------------
2507fortran filename : /cern/new/src/cfs/geant315/ghfthr.f
2508------------------------------------------------------------------*/
2509
2510#define GHFTHR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(GHFTHR,ghfthr,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
2511
2512/*------------------------------------------------------------------
2513fortran filename : /cern/new/src/cfs/geant315/ghftra.f
2514------------------------------------------------------------------*/
2515
2516#define GHFTRA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(GHFTRA,ghftra,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
2517
2518/*------------------------------------------------------------------
2519fortran filename : /cern/new/src/cfs/geant315/ghftrn.f
2520------------------------------------------------------------------*/
2521
2522#define GHFTRN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GHFTRN,ghftrn,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2523
2524/*------------------------------------------------------------------
2525fortran filename : /cern/new/src/cfs/geant315/ghftwd.f
2526------------------------------------------------------------------*/
2527
2528#define GHFTWD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GHFTWD,ghftwd,FLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
2529
2530/*------------------------------------------------------------------
2531fortran filename : /cern/new/src/cfs/geant315/ghftwo.f
2532------------------------------------------------------------------*/
2533
2534#define GHFTWO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) CCALLSFSUB18(GHFTWO,ghftwo,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,PFLOAT,INT,INT,FLOAT,FLOAT,FLOAT,INT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)
2535
2536/*------------------------------------------------------------------
2537fortran filename : /cern/new/src/cfs/geant315/ghfxla.f
2538------------------------------------------------------------------*/
2539
2540 PROTOCCALLSFFUN3(FLOAT,GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT)
2541#define GHFXLA(A2,A3,A4) CCALLSFFUN3(GHFXLA,ghfxla,FLOAT,FLOAT,FLOAT,A2,A3,A4)
2542
2543/*------------------------------------------------------------------
2544fortran filename : /cern/new/src/cfs/geant315/ghgene.f
2545------------------------------------------------------------------*/
2546
2547#define GHGENE(A1,A2,A3,A4,A5) CCALLSFSUB5(GHGENE,ghgene,INT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5)
2548
2549/*------------------------------------------------------------------
2550fortran filename : /cern/new/src/cfs/geant315/ghisra.f
2551------------------------------------------------------------------*/
2552
2553#define GHISRA(A1,A2,A3,A4,A5) CCALLSFSUB5(GHISRA,ghisra,FLOATV,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
2554
2555/*------------------------------------------------------------------
2556fortran filename : /cern/new/src/cfs/geant315/ghkind.f
2557------------------------------------------------------------------*/
2558
2559#define GHKIND(A1,A2,A3) CCALLSFSUB3(GHKIND,ghkind,FLOAT,INT,INT,A1,A2,A3)
2560
2561/*------------------------------------------------------------------
2562fortran filename : /cern/new/src/cfs/geant315/ghlead.f
2563------------------------------------------------------------------*/
2564
2565#define GHLEAD(A1,A2,A3,A4) CCALLSFSUB4(GHLEAD,ghlead,FLOAT,INT,INT,FLOAT,A1,A2,A3,A4)
2566
2567/*------------------------------------------------------------------
2568fortran filename : /cern/new/src/cfs/geant315/ghmix.f
2569------------------------------------------------------------------*/
2570
2571#define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
2572
2573/*------------------------------------------------------------------
2574fortran filename : /cern/new/src/cfs/geant315/ghmlg.f
2575------------------------------------------------------------------*/
2576
2577#define GHMLG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GHMLG,ghmlg,FLOAT,FLOAT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6)
2578
2579/*------------------------------------------------------------------
2580fortran filename : /cern/new/src/cfs/geant315/ghmome.f
2581------------------------------------------------------------------*/
2582
2583#define GHMOME(A1,A2,A3,A4) CCALLSFSUB4(GHMOME,ghmome,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4)
2584
2585/*------------------------------------------------------------------
2586fortran filename : /cern/new/src/cfs/geant315/ghmult.f
2587------------------------------------------------------------------*/
2588
2589#define GHMULT(A1,A2,A3,A4) CCALLSFSUB4(GHMULT,ghmult,FLOAT,PINT,INT,FLOAT,A1,A2,A3,A4)
2590
2591/*------------------------------------------------------------------
2592fortran filename : /cern/new/src/cfs/geant315/ghrear.f
2593------------------------------------------------------------------*/
2594
2595#define GHREAR(A1,A2,A3,A4) CCALLSFSUB4(GHREAR,ghrear,PINT,PINT,FLOATV,PFLOAT,A1,A2,A3,A4)
2596
2597/*------------------------------------------------------------------
2598fortran filename : /cern/new/src/cfs/geant315/ghsig.f
2599------------------------------------------------------------------*/
2600
2601 PROTOCCALLSFFUN3(FLOAT,GHSIG,ghsig,FLOAT,INT,FLOAT)
2602#define GHSIG(A2,A3,A4) CCALLSFFUN3(GHSIG,ghsig,FLOAT,INT,FLOAT,A2,A3,A4)
2603
2604/*------------------------------------------------------------------
2605fortran filename : /cern/new/src/cfs/geant315/ghsigm.f
2606------------------------------------------------------------------*/
2607
2608 PROTOCCALLSFFUN3(FLOAT,GHSIGM,ghsigm,FLOAT,INT,FLOAT)
2609#define GHSIGM(A2,A3,A4) CCALLSFFUN3(GHSIGM,ghsigm,FLOAT,INT,FLOAT,A2,A3,A4)
2610
2611/*------------------------------------------------------------------
2612fortran filename : /cern/new/src/cfs/geant315/ghstop.f
2613------------------------------------------------------------------*/
2614
2615#define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop)
2616
2617/*------------------------------------------------------------------
2618fortran filename : /cern/new/src/cfs/geant315/ghtati.f
2619------------------------------------------------------------------*/
2620
2621#define GHTATI() CCALLSFSUB0(GHTATI,ghtati)
2622
2623/*------------------------------------------------------------------
2624fortran filename : /cern/new/src/cfs/geant315/ghttra.f
2625------------------------------------------------------------------*/
2626
2627#define GHTTRA(A1,A2,A3,A4) CCALLSFSUB4(GHTTRA,ghttra,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4)
2628
2629/*------------------------------------------------------------------
2630fortran filename : /cern/new/src/cfs/geant315/gicyl.f
2631------------------------------------------------------------------*/
2632
2633#define GICYL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GICYL,gicyl,FLOAT,FLOATV,FLOATV,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2634
2635/*------------------------------------------------------------------
2636fortran filename : /cern/new/src/cfs/geant315/ginctu.f
2637------------------------------------------------------------------*/
2638
2639#define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3)
2640
2641/*------------------------------------------------------------------
2642fortran filename : /cern/new/src/cfs/geant315/gingtr.f
2643------------------------------------------------------------------*/
2644
2645#define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3)
2646
2647/*------------------------------------------------------------------
2648fortran filename : /cern/new/src/cfs/geant315/ginit.f
2649------------------------------------------------------------------*/
2650
2651#define GINIT() CCALLSFSUB0(GINIT,ginit)
2652
2653/*------------------------------------------------------------------
2654fortran filename : /cern/new/src/cfs/geant315/ginme.f
2655------------------------------------------------------------------*/
2656
2657#define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4)
2658
2659/*------------------------------------------------------------------
2660fortran filename : /cern/new/src/cfs/geant315/ginpar.f
2661------------------------------------------------------------------*/
2662
2663#define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3)
2664
2665/*------------------------------------------------------------------
2666fortran filename : /cern/new/src/cfs/geant315/ginpco.f
2667------------------------------------------------------------------*/
2668
2669#define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3)
2670
2671/*------------------------------------------------------------------
2672fortran filename : /cern/new/src/cfs/geant315/ginpgo.f
2673------------------------------------------------------------------*/
2674
2675#define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3)
2676
2677/*------------------------------------------------------------------
2678fortran filename : /cern/new/src/cfs/geant315/ginrot.f
2679------------------------------------------------------------------*/
2680
2681#define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
2682
2683/*------------------------------------------------------------------
2684fortran filename : /cern/new/src/cfs/geant315/gintco.f
2685------------------------------------------------------------------*/
2686
2687#define GINTCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GINTCO,gintco,FLOATV,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
2688
2689/*------------------------------------------------------------------
2690fortran filename : /cern/new/src/cfs/geant315/gintrp.f
2691------------------------------------------------------------------*/
2692
2693#define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3)
2694
2695/*------------------------------------------------------------------
2696fortran filename : /cern/new/src/cfs/geant315/ginvol.f
2697------------------------------------------------------------------*/
2698
2699#define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2)
2700
2701/*------------------------------------------------------------------
2702fortran filename : /cern/new/src/cfs/geant315/giplan.f
2703------------------------------------------------------------------*/
2704
2705#define GIPLAN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GIPLAN,giplan,FLOAT,FLOATV,FLOATV,FLOAT,FLOAT,INT,PFLOAT,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2706
2707/*------------------------------------------------------------------
2708fortran filename : /cern/new/src/cfs/geant315/gitran.f
2709------------------------------------------------------------------*/
2710
2711#define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
2712
2713/*------------------------------------------------------------------
2714fortran filename : /cern/new/src/cfs/geant315/gkhits.f
2715------------------------------------------------------------------*/
2716/*
2717#define gkhits_ELEMS_1 ZTRINGV_NUM(1)
2718#define gkhits_ELEMLEN_1 ZTRINGV_NUM(4)
2719#define gkhits_ELEMS_2 ZTRINGV_NUM(1)
2720#define gkhits_ELEMLEN_2 ZTRINGV_NUM(4)
2721*/
2722
2723#define GKHITS(A1,A2,A3) CCALLSFSUB3(GKHITS,gkhits,STRING,STRING,FLOAT,A1,A2,A3)
2724
2725/*------------------------------------------------------------------
2726fortran filename : /cern/new/src/cfs/geant315/gkxyz.f
2727------------------------------------------------------------------*/
2728
2729#define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1)
2730
2731/*------------------------------------------------------------------
2732fortran filename : /cern/new/src/cfs/geant315/glande.f
2733------------------------------------------------------------------*/
2734
2735 PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT)
2736#define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2)
2737
2738/*------------------------------------------------------------------
2739fortran filename : /cern/new/src/cfs/geant315/glandg.f
2740------------------------------------------------------------------*/
2741
2742#define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1)
2743
2744/*------------------------------------------------------------------
2745fortran filename : /cern/new/src/cfs/geant315/glando.f
2746------------------------------------------------------------------*/
2747
2748#define GLANDO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GLANDO,glando,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
2749
2750/*------------------------------------------------------------------
2751fortran filename : /cern/new/src/cfs/geant315/glandr.f
2752------------------------------------------------------------------*/
2753
2754 PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT)
2755#define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2)
2756
2757/*------------------------------------------------------------------
2758fortran filename : /cern/new/src/cfs/geant315/glands.f
2759------------------------------------------------------------------*/
2760
2761 PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT)
2762#define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2)
2763
2764/*------------------------------------------------------------------
2765fortran filename : /cern/new/src/cfs/geant315/glandz.f
2766------------------------------------------------------------------*/
2767
2768#define GLANDZ(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GLANDZ,glandz,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
2769
2770/*------------------------------------------------------------------
2771fortran filename : /cern/new/src/cfs/geant315/glast.f
2772------------------------------------------------------------------*/
2773
2774#define GLAST() CCALLSFSUB0(GLAST,glast)
2775
2776/*------------------------------------------------------------------
2777fortran filename : /cern/new/src/cfs/geant315/glmoth.f
2778------------------------------------------------------------------*/
2779/*
2780#define glmoth_ELEMS_1 ZTRINGV_NUM(1)
2781#define glmoth_ELEMLEN_1 ZTRINGV_NUM(255)
2782*/
2783
2784#define GLMOTH(A1,A2,A3,A4,A5) CCALLSFSUB5(GLMOTH,glmoth,STRING,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5)
2785
2786/*------------------------------------------------------------------
2787fortran filename : /cern/new/src/cfs/geant315/glook.f
2788------------------------------------------------------------------*/
2789/*
2790#define glook_ELEMS_1 ZTRINGV_NUM(1)
2791#define glook_ELEMLEN_1 ZTRINGV_NUM(255)
2792*/
2793
2794#define GLOOK(A1,A2,A3,A4) CCALLSFSUB4(GLOOK,glook,STRING,INTV,INT,PINT,A1,A2,A3,A4)
2795
2796/*------------------------------------------------------------------
2797fortran filename : /cern/new/src/cfs/geant315/gloren.f
2798------------------------------------------------------------------*/
2799
2800#define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
2801
2802/*------------------------------------------------------------------
2803fortran filename : /cern/new/src/cfs/geant315/glsklt.f
2804------------------------------------------------------------------*/
2805
2806#define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt)
2807
2808/*------------------------------------------------------------------
2809fortran filename : /cern/new/src/cfs/geant315/gltrac.f
2810------------------------------------------------------------------*/
2811
2812#define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac)
2813
2814/*------------------------------------------------------------------
2815fortran filename : /cern/new/src/cfs/geant315/gludky.f
2816------------------------------------------------------------------*/
2817
2818#define GLUDKY() CCALLSFSUB0(GLUDKY,gludky)
2819
2820/*------------------------------------------------------------------
2821fortran filename : /cern/new/src/cfs/geant315/glund.f
2822------------------------------------------------------------------*/
2823
2824#define GLUND() CCALLSFSUB0(GLUND,glund)
2825
2826/*------------------------------------------------------------------
2827fortran filename : /cern/new/src/cfs/geant315/glundi.f
2828------------------------------------------------------------------*/
2829
2830#define GLUNDI() CCALLSFSUB0(GLUNDI,glundi)
2831
2832/*------------------------------------------------------------------
2833fortran filename : /cern/new/src/cfs/geant315/glvolu.f
2834------------------------------------------------------------------*/
2835
2836#define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4)
2837
2838/*------------------------------------------------------------------
2839fortran filename : /cern/new/src/cfs/geant315/gm3pol.f
2840------------------------------------------------------------------*/
2841
2842#define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2)
2843
2844/*------------------------------------------------------------------
2845fortran filename : /cern/new/src/cfs/geant315/gmail.f
2846------------------------------------------------------------------*/
2847
2848#define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2)
2849
2850/*------------------------------------------------------------------
2851fortran filename : /cern/new/src/cfs/geant315/gmate.f
2852------------------------------------------------------------------*/
2853
2854#define GMATE() CCALLSFSUB0(GMATE,gmate)
2855
2856/*------------------------------------------------------------------
2857fortran filename : /cern/new/src/cfs/geant315/gmclos.f
2858------------------------------------------------------------------*/
2859
2860#define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos)
2861
2862/*------------------------------------------------------------------
2863fortran filename : /cern/new/src/cfs/geant315/gmcoul.f
2864------------------------------------------------------------------*/
2865
2866#define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2)
2867
2868/*------------------------------------------------------------------
2869fortran filename : /cern/new/src/cfs/geant315/gmedia.f
2870------------------------------------------------------------------*/
2871
2872#define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2)
2873
2874/*------------------------------------------------------------------
2875fortran filename : /cern/new/src/cfs/geant315/gmedin.f
2876------------------------------------------------------------------*/
2877
2878#define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin)
2879
2880/*------------------------------------------------------------------
2881fortran filename : /cern/new/src/cfs/geant315/gmediv.f
2882------------------------------------------------------------------*/
2883
2884#define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4)
2885
2886/*------------------------------------------------------------------
2887fortran filename : /cern/new/src/cfs/geant315/gmepos.f
2888------------------------------------------------------------------*/
2889
2890#define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4)
2891
2892/*------------------------------------------------------------------
2893fortran filename : /cern/new/src/cfs/geant315/gmgaus.f
2894------------------------------------------------------------------*/
2895
2896#define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2)
2897
2898/*------------------------------------------------------------------
2899fortran filename : /cern/new/src/cfs/geant315/gmol4.f
2900------------------------------------------------------------------*/
2901
2902#define GMOL4(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GMOL4,gmol4,PFLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,PINT,A1,A2,A3,A4,A5,A6)
2903
2904/*------------------------------------------------------------------
2905fortran filename : /cern/new/src/cfs/geant315/gmoli.f
2906------------------------------------------------------------------*/
2907
2908#define GMOLI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GMOLI,gmoli,FLOATV,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2909
2910/*------------------------------------------------------------------
2911fortran filename : /cern/new/src/cfs/geant315/gmolie.f
2912------------------------------------------------------------------*/
2913
2914#define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
2915
2916/*------------------------------------------------------------------
2917fortran filename : /cern/new/src/cfs/geant315/gmolio.f
2918------------------------------------------------------------------*/
2919
2920#define GMOLIO(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GMOLIO,gmolio,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
2921
2922/*------------------------------------------------------------------
2923fortran filename : /cern/new/src/cfs/geant315/gmopen.f
2924------------------------------------------------------------------*/
2925
2926#define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3)
2927
2928/*------------------------------------------------------------------
2929fortran filename : /cern/new/src/cfs/geant315/gmtod.f
2930------------------------------------------------------------------*/
2931
2932#define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3)
2933
2934/*------------------------------------------------------------------
2935fortran filename : /cern/new/src/cfs/geant315/gmulof.f
2936------------------------------------------------------------------*/
2937
2938#define GMULOF() CCALLSFSUB0(GMULOF,gmulof)
2939
2940/*------------------------------------------------------------------
2941fortran filename : /cern/new/src/cfs/geant315/gmults.f
2942------------------------------------------------------------------*/
2943
2944#define GMULTS() CCALLSFSUB0(GMULTS,gmults)
2945
2946/*------------------------------------------------------------------
2947fortran filename : /cern/new/src/cfs/geant315/gmunu.f
2948------------------------------------------------------------------*/
2949
2950#define GMUNU() CCALLSFSUB0(GMUNU,gmunu)
2951
2952/*------------------------------------------------------------------
2953fortran filename : /cern/new/src/cfs/geant315/gmunui.f
2954------------------------------------------------------------------*/
2955
2956#define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui)
2957
2958/*------------------------------------------------------------------
2959fortran filename : /cern/new/src/cfs/geant315/gmusig.f
2960------------------------------------------------------------------*/
2961
2962 PROTOCCALLSFFUN3(FLOAT,GMUSIG,gmusig,FLOAT,FLOAT,FLOAT)
2963#define GMUSIG(A2,A3,A4) CCALLSFFUN3(GMUSIG,gmusig,FLOAT,FLOAT,FLOAT,A2,A3,A4)
2964
2965/*------------------------------------------------------------------
2966fortran filename : /cern/new/src/cfs/geant315/gnbox.f
2967------------------------------------------------------------------*/
2968
2969#define GNBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNBOX,gnbox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
2970
2971/*------------------------------------------------------------------
2972fortran filename : /cern/new/src/cfs/geant315/gncone.f
2973------------------------------------------------------------------*/
2974
2975#define GNCONE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNCONE,gncone,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2976
2977/*------------------------------------------------------------------
2978fortran filename : /cern/new/src/cfs/geant315/gnctub.f
2979------------------------------------------------------------------*/
2980
2981#define GNCTUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNCTUB,gnctub,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
2982
2983/*------------------------------------------------------------------
2984fortran filename : /cern/new/src/cfs/geant315/gneltu.f
2985------------------------------------------------------------------*/
2986
2987#define GNELTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNELTU,gneltu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
2988
2989/*------------------------------------------------------------------
2990fortran filename : /cern/new/src/cfs/geant315/gnext.f
2991------------------------------------------------------------------*/
2992
2993#define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3)
2994
2995/*------------------------------------------------------------------
2996fortran filename : /cern/new/src/cfs/geant315/gnhype.f
2997------------------------------------------------------------------*/
2998
2999#define GNHYPE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNHYPE,gnhype,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3000
3001/*------------------------------------------------------------------
3002fortran filename : /cern/new/src/cfs/geant315/gnobox.f
3003------------------------------------------------------------------*/
3004
3005#define GNOBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOBOX,gnobox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3006
3007/*------------------------------------------------------------------
3008fortran filename : /cern/new/src/cfs/geant315/gnocon.f
3009------------------------------------------------------------------*/
3010
3011#define GNOCON(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOCON,gnocon,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3012
3013/*------------------------------------------------------------------
3014fortran filename : /cern/new/src/cfs/geant315/gnoctu.f
3015------------------------------------------------------------------*/
3016
3017#define GNOCTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOCTU,gnoctu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3018
3019/*------------------------------------------------------------------
3020fortran filename : /cern/new/src/cfs/geant315/gnoelt.f
3021------------------------------------------------------------------*/
3022
3023#define GNOELT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOELT,gnoelt,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3024
3025/*------------------------------------------------------------------
3026fortran filename : /cern/new/src/cfs/geant315/gnohyp.f
3027------------------------------------------------------------------*/
3028
3029#define GNOHYP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOHYP,gnohyp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3030
3031/*------------------------------------------------------------------
3032fortran filename : /cern/new/src/cfs/geant315/gnopar.f
3033------------------------------------------------------------------*/
3034
3035#define GNOPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPAR,gnopar,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3036
3037/*------------------------------------------------------------------
3038fortran filename : /cern/new/src/cfs/geant315/gnopco.f
3039------------------------------------------------------------------*/
3040
3041#define GNOPCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPCO,gnopco,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3042
3043/*------------------------------------------------------------------
3044fortran filename : /cern/new/src/cfs/geant315/gnopg1.f
3045------------------------------------------------------------------*/
3046
3047#define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3048
3049/*------------------------------------------------------------------
3050fortran filename : /cern/new/src/cfs/geant315/gnopgo.f
3051------------------------------------------------------------------*/
3052
3053#define GNOPGO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPGO,gnopgo,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3054
3055/*------------------------------------------------------------------
3056fortran filename : /cern/new/src/cfs/geant315/gnosph.f
3057------------------------------------------------------------------*/
3058
3059#define GNOSPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOSPH,gnosph,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3060
3061/*------------------------------------------------------------------
3062fortran filename : /cern/new/src/cfs/geant315/gnotr1.f
3063------------------------------------------------------------------*/
3064
3065#define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1)
3066
3067/*------------------------------------------------------------------
3068fortran filename : /cern/new/src/cfs/geant315/gnotr2.f
3069------------------------------------------------------------------*/
3070
3071#define GNOTR2(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GNOTR2,gnotr2,FLOATV,FLOATV,FLOATV,INT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
3072
3073/*------------------------------------------------------------------
3074fortran filename : /cern/new/src/cfs/geant315/gnotr9.f
3075------------------------------------------------------------------*/
3076
3077#define GNOTR9(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTR9,gnotr9,FLOATV,FLOATV,FLOATV,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
3078
3079/*------------------------------------------------------------------
3080fortran filename : /cern/new/src/cfs/geant315/gnotra.f
3081------------------------------------------------------------------*/
3082
3083#define GNOTRA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTRA,gnotra,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3084
3085/*------------------------------------------------------------------
3086fortran filename : /cern/new/src/cfs/geant315/gnotrp.f
3087------------------------------------------------------------------*/
3088
3089#define GNOTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOTRP,gnotrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3090
3091/*------------------------------------------------------------------
3092fortran filename : /cern/new/src/cfs/geant315/gnotub.f
3093------------------------------------------------------------------*/
3094
3095#define GNOTUB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNOTUB,gnotub,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3096
3097/*------------------------------------------------------------------
3098fortran filename : /cern/new/src/cfs/geant315/gnpara.f
3099------------------------------------------------------------------*/
3100
3101#define GNPARA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPARA,gnpara,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3102
3103/*------------------------------------------------------------------
3104fortran filename : /cern/new/src/cfs/geant315/gnpcon.f
3105------------------------------------------------------------------*/
3106
3107#define GNPCON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPCON,gnpcon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3108
3109/*------------------------------------------------------------------
3110fortran filename : /cern/new/src/cfs/geant315/gnpgo1.f
3111------------------------------------------------------------------*/
3112
3113#define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3114
3115/*------------------------------------------------------------------
3116fortran filename : /cern/new/src/cfs/geant315/gnpgon.f
3117------------------------------------------------------------------*/
3118
3119#define GNPGON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPGON,gnpgon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3120
3121/*------------------------------------------------------------------
3122fortran filename : /cern/new/src/cfs/geant315/gnslwd.f
3123------------------------------------------------------------------*/
3124
3125#define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4)
3126
3127/*------------------------------------------------------------------
3128fortran filename : /cern/new/src/cfs/geant315/gnsphr.f
3129------------------------------------------------------------------*/
3130
3131#define GNSPHR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNSPHR,gnsphr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3132
3133/*------------------------------------------------------------------
3134fortran filename : /cern/new/src/cfs/geant315/gntrap.f
3135------------------------------------------------------------------*/
3136
3137#define GNTRAP(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNTRAP,gntrap,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3138
3139/*------------------------------------------------------------------
3140fortran filename : /cern/new/src/cfs/geant315/gntrp.f
3141------------------------------------------------------------------*/
3142
3143#define GNTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNTRP,gntrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3144
3145/*------------------------------------------------------------------
3146fortran filename : /cern/new/src/cfs/geant315/gntube.f
3147------------------------------------------------------------------*/
3148
3149#define GNTUBE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GNTUBE,gntube,FLOATV,FLOATV,INT,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3150
3151/*------------------------------------------------------------------
3152fortran filename : /cern/new/src/cfs/geant315/gopen.f
3153------------------------------------------------------------------*/
3154/*
3155#define gopen_ELEMS_2 ZTRINGV_NUM(1)
3156#define gopen_ELEMLEN_2 ZTRINGV_NUM(255)
3157*/
3158
3159#define GOPEN(A1,A2,A3,A4) CCALLSFSUB4(GOPEN,gopen,INT,STRING,INT,PINT,A1,A2,A3,A4)
3160
3161/*------------------------------------------------------------------
3162fortran filename : /cern/new/src/cfs/geant315/gpairg.f
3163------------------------------------------------------------------*/
3164
3165#define GPAIRG() CCALLSFSUB0(GPAIRG,gpairg)
3166
3167/*------------------------------------------------------------------
3168fortran filename : /cern/new/src/cfs/geant315/gpairm.f
3169------------------------------------------------------------------*/
3170
3171#define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm)
3172
3173/*------------------------------------------------------------------
3174fortran filename : /cern/new/src/cfs/geant315/gpart.f
3175------------------------------------------------------------------*/
3176
3177#define GPART() CCALLSFSUB0(GPART,gpart)
3178
3179/*------------------------------------------------------------------
3180fortran filename : /cern/new/src/cfs/geant315/gpcxyz.f
3181------------------------------------------------------------------*/
3182
3183#define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz)
3184
3185/*------------------------------------------------------------------
3186fortran filename : /cern/new/src/cfs/geant315/gpdigi.f
3187------------------------------------------------------------------*/
3188/*
3189#define gpdigi_ELEMS_1 ZTRINGV_NUM(1)
3190#define gpdigi_ELEMLEN_1 ZTRINGV_NUM(4)
3191#define gpdigi_ELEMS_2 ZTRINGV_NUM(1)
3192#define gpdigi_ELEMLEN_2 ZTRINGV_NUM(4)
3193*/
3194
3195#define GPDIGI(A1,A2) CCALLSFSUB2(GPDIGI,gpdigi,STRING,STRING,A1,A2)
3196
3197/*------------------------------------------------------------------
3198fortran filename : /cern/new/src/cfs/geant315/gpdk.f
3199------------------------------------------------------------------*/
3200
3201 PROTOCCALLSFFUN3(FLOAT,GPDK,gpdk,FLOAT,FLOAT,FLOAT)
3202#define GPDK(A2,A3,A4) CCALLSFFUN3(GPDK,gpdk,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3203
3204/*------------------------------------------------------------------
3205fortran filename : /cern/new/src/cfs/geant315/gpdrif.f
3206------------------------------------------------------------------*/
3207
3208#define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3)
3209
3210/*------------------------------------------------------------------
3211fortran filename : /cern/new/src/cfs/geant315/gpfis.f
3212------------------------------------------------------------------*/
3213
3214#define GPFIS() CCALLSFSUB0(GPFIS,gpfis)
3215
3216/*------------------------------------------------------------------
3217fortran filename : /cern/new/src/cfs/geant315/gpfisi.f
3218------------------------------------------------------------------*/
3219
3220#define GPFISI() CCALLSFSUB0(GPFISI,gpfisi)
3221
3222/*------------------------------------------------------------------
3223fortran filename : /cern/new/src/cfs/geant315/gpghei.f
3224------------------------------------------------------------------*/
3225
3226#define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei)
3227
3228/*------------------------------------------------------------------
3229fortran filename : /cern/new/src/cfs/geant315/gpgkin.f
3230------------------------------------------------------------------*/
3231
3232#define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin)
3233
3234/*------------------------------------------------------------------
3235fortran filename : /cern/new/src/cfs/geant315/gphadr.f
3236------------------------------------------------------------------*/
3237
3238#define GPHADR() CCALLSFSUB0(GPHADR,gphadr)
3239
3240/*------------------------------------------------------------------
3241fortran filename : /cern/new/src/cfs/geant315/gphits.f
3242------------------------------------------------------------------*/
3243/*
3244#define gphits_ELEMS_1 ZTRINGV_NUM(1)
3245#define gphits_ELEMLEN_1 ZTRINGV_NUM(4)
3246#define gphits_ELEMS_2 ZTRINGV_NUM(1)
3247#define gphits_ELEMLEN_2 ZTRINGV_NUM(4)
3248*/
3249
3250#define GPHITS(A1,A2) CCALLSFSUB2(GPHITS,gphits,STRING,STRING,A1,A2)
3251
3252/*------------------------------------------------------------------
3253fortran filename : /cern/new/src/cfs/geant315/gphmfi.f
3254------------------------------------------------------------------*/
3255
3256#define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi)
3257
3258/*------------------------------------------------------------------
3259fortran filename : /cern/new/src/cfs/geant315/gphot.f
3260------------------------------------------------------------------*/
3261
3262#define GPHOT() CCALLSFSUB0(GPHOT,gphot)
3263
3264/*------------------------------------------------------------------
3265fortran filename : /cern/new/src/cfs/geant315/gphoti.f
3266------------------------------------------------------------------*/
3267
3268#define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti)
3269
3270/*------------------------------------------------------------------
3271fortran filename : /cern/new/src/cfs/geant315/gphsig.f
3272------------------------------------------------------------------*/
3273
3274 PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT)
3275#define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3)
3276
3277/*------------------------------------------------------------------
3278fortran filename : /cern/new/src/cfs/geant315/gphysi.f
3279------------------------------------------------------------------*/
3280
3281#define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi)
3282
3283/*------------------------------------------------------------------
3284fortran filename : /cern/new/src/cfs/geant315/gpions.f
3285------------------------------------------------------------------*/
3286
3287#define GPIONS() CCALLSFSUB0(GPIONS,gpions)
3288
3289/*------------------------------------------------------------------
3290fortran filename : /cern/new/src/cfs/geant315/gpjxyz.f
3291------------------------------------------------------------------*/
3292
3293#define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1)
3294
3295/*------------------------------------------------------------------
3296fortran filename : /cern/new/src/cfs/geant315/gpkine.f
3297------------------------------------------------------------------*/
3298
3299#define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1)
3300
3301/*------------------------------------------------------------------
3302fortran filename : /cern/new/src/cfs/geant315/gplmat.f
3303------------------------------------------------------------------*/
3304/*
3305#define gplmat_ELEMS_3 ZTRINGV_NUM(1)
3306#define gplmat_ELEMLEN_3 ZTRINGV_NUM(255)
3307*/
3308
3309#define GPLMAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GPLMAT,gplmat,INT,INT,STRING,INT,FLOATV,INT,A1,A2,A3,A4,A5,A6)
3310
3311/*------------------------------------------------------------------
3312fortran filename : /cern/new/src/cfs/geant315/gpmate.f
3313------------------------------------------------------------------*/
3314
3315#define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1)
3316
3317/*------------------------------------------------------------------
3318fortran filename : /cern/new/src/cfs/geant315/gpmwpc.f
3319------------------------------------------------------------------*/
3320
3321#define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3)
3322
3323/*------------------------------------------------------------------
3324fortran filename : /cern/new/src/cfs/geant315/gpoiss.f
3325------------------------------------------------------------------*/
3326
3327#define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3)
3328
3329/*------------------------------------------------------------------
3330fortran filename : /cern/new/src/cfs/geant315/gppart.f
3331------------------------------------------------------------------*/
3332
3333#define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1)
3334
3335/*------------------------------------------------------------------
3336fortran filename : /cern/new/src/cfs/geant315/gprela.f
3337------------------------------------------------------------------*/
3338
3339#define GPRELA() CCALLSFSUB0(GPRELA,gprela)
3340
3341/*------------------------------------------------------------------
3342fortran filename : /cern/new/src/cfs/geant315/gprelm.f
3343------------------------------------------------------------------*/
3344
3345 PROTOCCALLSFFUN3(FLOAT,GPRELM,gprelm,FLOAT,FLOAT,FLOAT)
3346#define GPRELM(A2,A3,A4) CCALLSFFUN3(GPRELM,gprelm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3347
3348/*------------------------------------------------------------------
3349fortran filename : /cern/new/src/cfs/geant315/gprint.f
3350------------------------------------------------------------------*/
3351/*
3352#define gprint_ELEMS_1 ZTRINGV_NUM(1)
3353#define gprint_ELEMLEN_1 ZTRINGV_NUM(255)
3354*/
3355
3356#define GPRINT(A1,A2) CCALLSFSUB2(GPRINT,gprint,STRING,INT,A1,A2)
3357
3358/*------------------------------------------------------------------
3359fortran filename : /cern/new/src/cfs/geant315/gprmat.f
3360------------------------------------------------------------------*/
3361/*
3362#define gprmat_ELEMS_3 ZTRINGV_NUM(1)
3363#define gprmat_ELEMLEN_3 ZTRINGV_NUM(255)
3364*/
3365
3366#define GPRMAT(A1,A2,A3,A4,A5) CCALLSFSUB5(GPRMAT,gprmat,INT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5)
3367
3368/*------------------------------------------------------------------
3369fortran filename : /cern/new/src/cfs/geant315/gprobi.f
3370------------------------------------------------------------------*/
3371
3372#define GPROBI() CCALLSFSUB0(GPROBI,gprobi)
3373
3374/*------------------------------------------------------------------
3375fortran filename : /cern/new/src/cfs/geant315/gprotm.f
3376------------------------------------------------------------------*/
3377
3378#define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1)
3379
3380/*------------------------------------------------------------------
3381fortran filename : /cern/new/src/cfs/geant315/gprsga.f
3382------------------------------------------------------------------*/
3383
3384#define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga)
3385
3386/*------------------------------------------------------------------
3387fortran filename : /cern/new/src/cfs/geant315/gprsgg.f
3388------------------------------------------------------------------*/
3389
3390 PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT)
3391#define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3)
3392
3393/*------------------------------------------------------------------
3394fortran filename : /cern/new/src/cfs/geant315/gprsgm.f
3395------------------------------------------------------------------*/
3396
3397 PROTOCCALLSFFUN3(FLOAT,GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT)
3398#define GPRSGM(A2,A3,A4) CCALLSFFUN3(GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3399
3400/*------------------------------------------------------------------
3401fortran filename : /cern/new/src/cfs/geant315/gpsets.f
3402------------------------------------------------------------------*/
3403/*
3404#define gpsets_ELEMS_1 ZTRINGV_NUM(1)
3405#define gpsets_ELEMLEN_1 ZTRINGV_NUM(4)
3406#define gpsets_ELEMS_2 ZTRINGV_NUM(1)
3407#define gpsets_ELEMLEN_2 ZTRINGV_NUM(4)
3408*/
3409
3410#define GPSETS(A1,A2) CCALLSFSUB2(GPSETS,gpsets,STRING,STRING,A1,A2)
3411
3412/*------------------------------------------------------------------
3413fortran filename : /cern/new/src/cfs/geant315/gpstat.f
3414------------------------------------------------------------------*/
3415
3416#define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat)
3417
3418/*------------------------------------------------------------------
3419fortran filename : /cern/new/src/cfs/geant315/gptmed.f
3420------------------------------------------------------------------*/
3421
3422#define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1)
3423
3424/*------------------------------------------------------------------
3425fortran filename : /cern/new/src/cfs/geant315/gpvert.f
3426------------------------------------------------------------------*/
3427
3428#define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1)
3429
3430/*------------------------------------------------------------------
3431fortran filename : /cern/new/src/cfs/geant315/gpvolu.f
3432------------------------------------------------------------------*/
3433
3434#define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1)
3435
3436/*------------------------------------------------------------------
3437fortran filename : /cern/new/src/cfs/geant315/grangi.f
3438------------------------------------------------------------------*/
3439
3440#define GRANGI() CCALLSFSUB0(GRANGI,grangi)
3441
3442/*------------------------------------------------------------------
3443fortran filename : /cern/new/src/cfs/geant315/granor.f
3444------------------------------------------------------------------*/
3445
3446#define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2)
3447
3448/*------------------------------------------------------------------
3449fortran filename : /cern/new/src/cfs/geant315/grayl.f
3450------------------------------------------------------------------*/
3451
3452#define GRAYL() CCALLSFSUB0(GRAYL,grayl)
3453
3454/*------------------------------------------------------------------
3455fortran filename : /cern/new/src/cfs/geant315/grayli.f
3456------------------------------------------------------------------*/
3457
3458#define GRAYLI() CCALLSFSUB0(GRAYLI,grayli)
3459
3460/*------------------------------------------------------------------
3461fortran filename : /cern/new/src/cfs/geant315/grend.f
3462------------------------------------------------------------------*/
3463
3464#define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1)
3465
3466/*------------------------------------------------------------------
3467fortran filename : /cern/new/src/cfs/geant315/grfile.f
3468------------------------------------------------------------------*/
3469/*
3470#define grfile_ELEMS_2 ZTRINGV_NUM(1)
3471#define grfile_ELEMLEN_2 ZTRINGV_NUM(255)
3472#define grfile_ELEMS_3 ZTRINGV_NUM(1)
3473#define grfile_ELEMLEN_3 ZTRINGV_NUM(255)
3474*/
3475
3476#define GRFILE(A1,A2,A3) CCALLSFSUB3(GRFILE,grfile,INT,STRING,STRING,A1,A2,A3)
3477
3478/*------------------------------------------------------------------
3479fortran filename : /cern/new/src/cfs/geant315/grget.f
3480------------------------------------------------------------------*/
3481/*
3482#define grget_ELEMS_1 ZTRINGV_NUM(1)
3483#define grget_ELEMLEN_1 ZTRINGV_NUM(4)
3484*/
3485
3486#define GRGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GRGET,grget,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5)
3487
3488/*------------------------------------------------------------------
3489fortran filename : /cern/new/src/cfs/geant315/grhits.f
3490------------------------------------------------------------------*/
3491/*
3492#define grhits_ELEMS_1 ZTRINGV_NUM(1)
3493#define grhits_ELEMLEN_1 ZTRINGV_NUM(255)
3494#define grhits_ELEMS_2 ZTRINGV_NUM(1)
3495#define grhits_ELEMLEN_2 ZTRINGV_NUM(255)
3496*/
3497
3498#define GRHITS(A1,A2,A3,A4) CCALLSFSUB4(GRHITS,grhits,STRING,STRING,INT,INTV,A1,A2,A3,A4)
3499
3500/*------------------------------------------------------------------
3501fortran filename : /cern/new/src/cfs/geant315/grin.f
3502------------------------------------------------------------------*/
3503/*
3504#define grin_ELEMS_1 ZTRINGV_NUM(1)
3505#define grin_ELEMLEN_1 ZTRINGV_NUM(255)
3506#define grin_ELEMS_3 ZTRINGV_NUM(1)
3507#define grin_ELEMLEN_3 ZTRINGV_NUM(255)
3508*/
3509
3510#define GRIN(A1,A2,A3) CCALLSFSUB3(GRIN,grin,STRING,INT,STRING,A1,A2,A3)
3511
3512/*------------------------------------------------------------------
3513fortran filename : /cern/new/src/cfs/geant315/grkuta.f
3514------------------------------------------------------------------*/
3515
3516#define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
3517
3518/*------------------------------------------------------------------
3519fortran filename : /cern/new/src/cfs/geant315/grleas.f
3520------------------------------------------------------------------*/
3521
3522#define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1)
3523
3524/*------------------------------------------------------------------
3525fortran filename : /cern/new/src/cfs/geant315/grmdir.f
3526------------------------------------------------------------------*/
3527/*
3528#define grmdir_ELEMS_1 ZTRINGV_NUM(1)
3529#define grmdir_ELEMLEN_1 ZTRINGV_NUM(255)
3530#define grmdir_ELEMS_2 ZTRINGV_NUM(1)
3531#define grmdir_ELEMLEN_2 ZTRINGV_NUM(255)
3532*/
3533
3534#define GRMDIR(A1,A2) CCALLSFSUB2(GRMDIR,grmdir,STRING,STRING,A1,A2)
3535
3536/*------------------------------------------------------------------
3537fortran filename : /cern/new/src/cfs/geant315/grmtd.f
3538------------------------------------------------------------------*/
3539
3540#define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3)
3541
3542/*------------------------------------------------------------------
3543fortran filename : /cern/new/src/cfs/geant315/grmul.f
3544------------------------------------------------------------------*/
3545
3546#define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3)
3547
3548/*------------------------------------------------------------------
3549fortran filename : /cern/new/src/cfs/geant315/grndm.f
3550------------------------------------------------------------------*/
3551
3552#define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2)
3553
3554/*------------------------------------------------------------------
3555fortran filename : /cern/new/src/cfs/geant315/grndmq.f
3556------------------------------------------------------------------*/
3557/*
3558#define grndmq_ELEMS_4 ZTRINGV_NUM(1)
3559#define grndmq_ELEMLEN_4 ZTRINGV_NUM(255)
3560*/
3561
3562#define GRNDMQ(A1,A2,A3,A4) CCALLSFSUB4(GRNDMQ,grndmq,PINT,PINT,INT,STRING,A1,A2,A3,A4)
3563
3564/*------------------------------------------------------------------
3565fortran filename : /cern/new/src/cfs/geant315/grot.f
3566------------------------------------------------------------------*/
3567
3568#define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3569
3570/*------------------------------------------------------------------
3571fortran filename : /cern/new/src/cfs/geant315/grout.f
3572------------------------------------------------------------------*/
3573/*
3574#define grout_ELEMS_1 ZTRINGV_NUM(1)
3575#define grout_ELEMLEN_1 ZTRINGV_NUM(255)
3576#define grout_ELEMS_3 ZTRINGV_NUM(1)
3577#define grout_ELEMLEN_3 ZTRINGV_NUM(255)
3578*/
3579
3580#define GROUT(A1,A2,A3) CCALLSFSUB3(GROUT,grout,STRING,INT,STRING,A1,A2,A3)
3581
3582/*------------------------------------------------------------------
3583fortran filename : /cern/new/src/cfs/geant315/grpar.f
3584------------------------------------------------------------------*/
3585
3586#define GRPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GRPAR,grpar,FLOAT,INT,FLOATV,INT,FLOAT,FLOAT,INT,FLOATV,PINT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
3587
3588/*------------------------------------------------------------------
3589fortran filename : /cern/new/src/cfs/geant315/grsave.f
3590------------------------------------------------------------------*/
3591/*
3592#define grsave_ELEMS_1 ZTRINGV_NUM(1)
3593#define grsave_ELEMLEN_1 ZTRINGV_NUM(4)
3594*/
3595
3596#define GRSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GRSAVE,grsave,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5)
3597
3598/*------------------------------------------------------------------
3599fortran filename : /cern/new/src/cfs/geant315/grun.f
3600------------------------------------------------------------------*/
3601
3602#define GRUN() CCALLSFSUB0(GRUN,grun)
3603
3604/*------------------------------------------------------------------
3605fortran filename : /cern/new/src/cfs/geant315/gsagtr.f
3606------------------------------------------------------------------*/
3607
3608#define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
3609
3610/*------------------------------------------------------------------
3611fortran filename : /cern/new/src/cfs/geant315/gsahit.f
3612------------------------------------------------------------------*/
3613
3614#define GSAHIT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSAHIT,gsahit,INT,INT,INT,INTV,FLOATV,PINT,A1,A2,A3,A4,A5,A6)
3615
3616/*------------------------------------------------------------------
3617fortran filename : /cern/new/src/cfs/geant315/gsaphi.f
3618------------------------------------------------------------------*/
3619
3620#define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
3621
3622/*------------------------------------------------------------------
3623fortran filename : /cern/new/src/cfs/geant315/gsatt.f
3624------------------------------------------------------------------*/
3625/*
3626#define gsatt_ELEMS_1 ZTRINGV_NUM(1)
3627#define gsatt_ELEMLEN_1 ZTRINGV_NUM(4)
3628#define gsatt_ELEMS_2 ZTRINGV_NUM(1)
3629#define gsatt_ELEMLEN_2 ZTRINGV_NUM(4)
3630*/
3631
3632#define GSATT(A1,A2,A3) CCALLSFSUB3(GSATT,gsatt,STRING,STRING,INT,A1,A2,A3)
3633
3634/*------------------------------------------------------------------
3635fortran filename : /cern/new/src/cfs/geant315/gsave.f
3636------------------------------------------------------------------*/
3637/*
3638#define gsave_ELEMS_2 ZTRINGV_NUM(1)
3639#define gsave_ELEMLEN_2 ZTRINGV_NUM(4)
3640*/
3641
3642#define GSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GSAVE,gsave,INT,STRINGV,INT,INT,PINT,A1,A2,A3,A4,A5)
3643
3644/*------------------------------------------------------------------
3645fortran filename : /cern/new/src/cfs/geant315/gscani.f
3646------------------------------------------------------------------*/
3647
3648#define GSCANI() CCALLSFSUB0(GSCANI,gscani)
3649
3650/*------------------------------------------------------------------
3651fortran filename : /cern/new/src/cfs/geant315/gscank.f
3652------------------------------------------------------------------*/
3653
3654#define GSCANK() CCALLSFSUB0(GSCANK,gscank)
3655
3656/*------------------------------------------------------------------
3657fortran filename : /cern/new/src/cfs/geant315/gscano.f
3658------------------------------------------------------------------*/
3659
3660#define GSCANO() CCALLSFSUB0(GSCANO,gscano)
3661
3662/*------------------------------------------------------------------
3663fortran filename : /cern/new/src/cfs/geant315/gscanu.f
3664------------------------------------------------------------------*/
3665
3666#define GSCANU() CCALLSFSUB0(GSCANU,gscanu)
3667
3668/*------------------------------------------------------------------
3669fortran filename : /cern/new/src/cfs/geant315/gschit.f
3670------------------------------------------------------------------*/
3671
3672#define GSCHIT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSCHIT,gschit,INT,INT,INT,INTV,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6,A7)
3673
3674/*------------------------------------------------------------------
3675fortran filename : /cern/new/src/cfs/geant315/gschk.f
3676------------------------------------------------------------------*/
3677/*
3678#define gschk_ELEMS_1 ZTRINGV_NUM(1)
3679#define gschk_ELEMLEN_1 ZTRINGV_NUM(4)
3680#define gschk_ELEMS_2 ZTRINGV_NUM(1)
3681#define gschk_ELEMLEN_2 ZTRINGV_NUM(4)
3682*/
3683
3684#define GSCHK(A1,A2,A3,A4) CCALLSFSUB4(GSCHK,gschk,STRING,STRING,INT,PINT,A1,A2,A3,A4)
3685
3686/*------------------------------------------------------------------
3687fortran filename : /cern/new/src/cfs/geant315/gscvol.f
3688------------------------------------------------------------------*/
3689
3690#define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol)
3691
3692/*------------------------------------------------------------------
3693fortran filename : /cern/new/src/cfs/geant315/gsdet.f
3694------------------------------------------------------------------*/
3695/*
3696#define gsdet_ELEMS_1 ZTRINGV_NUM(1)
3697#define gsdet_ELEMLEN_1 ZTRINGV_NUM(4)
3698#define gsdet_ELEMS_2 ZTRINGV_NUM(1)
3699#define gsdet_ELEMLEN_2 ZTRINGV_NUM(4)
3700#define gsdet_ELEMS_4 ZTRINGV_NUM(1)
3701#define gsdet_ELEMLEN_4 ZTRINGV_NUM(4)
3702*/
3703
3704#define GSDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSDET,gsdet,STRINGV,STRINGV,INT,STRINGV,INTV,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
3705
3706/*------------------------------------------------------------------
3707fortran filename : /cern/new/src/cfs/geant315/gsdeta.f
3708------------------------------------------------------------------*/
3709/*
3710#define gsdeta_ELEMS_1 ZTRINGV_NUM(1)
3711#define gsdeta_ELEMLEN_1 ZTRINGV_NUM(4)
3712#define gsdeta_ELEMS_2 ZTRINGV_NUM(1)
3713#define gsdeta_ELEMLEN_2 ZTRINGV_NUM(4)
3714#define gsdeta_ELEMS_3 ZTRINGV_NUM(1)
3715#define gsdeta_ELEMLEN_3 ZTRINGV_NUM(4)
3716*/
3717
3718#define GSDETA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDETA,gsdeta,STRING,STRING,STRING,INT,INT,PINT,A1,A2,A3,A4,A5,A6)
3719
3720/*------------------------------------------------------------------
3721fortran filename : /cern/new/src/cfs/geant315/gsdetd.f
3722------------------------------------------------------------------*/
3723/*
3724#define gsdetd_ELEMS_1 ZTRINGV_NUM(1)
3725#define gsdetd_ELEMLEN_1 ZTRINGV_NUM(4)
3726#define gsdetd_ELEMS_2 ZTRINGV_NUM(1)
3727#define gsdetd_ELEMLEN_2 ZTRINGV_NUM(4)
3728#define gsdetd_ELEMS_4 ZTRINGV_NUM(1)
3729#define gsdetd_ELEMLEN_4 ZTRINGV_NUM(4)
3730*/
3731
3732#define GSDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDETD,gsdetd,STRING,STRING,INT,STRINGV,INTV,A1,A2,A3,A4,A5)
3733
3734/*------------------------------------------------------------------
3735fortran filename : /cern/new/src/cfs/geant315/gsdeth.f
3736------------------------------------------------------------------*/
3737/*
3738#define gsdeth_ELEMS_1 ZTRINGV_NUM(1)
3739#define gsdeth_ELEMLEN_1 ZTRINGV_NUM(4)
3740#define gsdeth_ELEMS_2 ZTRINGV_NUM(1)
3741#define gsdeth_ELEMLEN_2 ZTRINGV_NUM(4)
3742#define gsdeth_ELEMS_4 ZTRINGV_NUM(1)
3743#define gsdeth_ELEMLEN_4 ZTRINGV_NUM(4)
3744*/
3745
3746#define GSDETH(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDETH,gsdeth,STRING,STRING,INT,STRINGV,INTV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6,A7)
3747
3748/*------------------------------------------------------------------
3749fortran filename : /cern/new/src/cfs/geant315/gsdetu.f
3750------------------------------------------------------------------*/
3751/*
3752#define gsdetu_ELEMS_1 ZTRINGV_NUM(1)
3753#define gsdetu_ELEMLEN_1 ZTRINGV_NUM(4)
3754#define gsdetu_ELEMS_2 ZTRINGV_NUM(1)
3755#define gsdetu_ELEMLEN_2 ZTRINGV_NUM(4)
3756*/
3757
3758#define GSDETU(A1,A2,A3,A4) CCALLSFSUB4(GSDETU,gsdetu,STRING,STRING,INT,FLOATV,A1,A2,A3,A4)
3759
3760/*------------------------------------------------------------------
3761fortran filename : /cern/new/src/cfs/geant315/gsdetv.f
3762------------------------------------------------------------------*/
3763/*
3764#define gsdetv_ELEMS_1 ZTRINGV_NUM(1)
3765#define gsdetv_ELEMLEN_1 ZTRINGV_NUM(4)
3766#define gsdetv_ELEMS_2 ZTRINGV_NUM(1)
3767#define gsdetv_ELEMLEN_2 ZTRINGV_NUM(4)
3768*/
3769
3770#define GSDETV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDETV,gsdetv,STRING,STRING,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7)
3771
3772/*------------------------------------------------------------------
3773fortran filename : /cern/new/src/cfs/geant315/gsdigi.f
3774------------------------------------------------------------------*/
3775
3776#define GSDIGI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDIGI,gsdigi,INT,INT,INTV,INT,INTV,INTV,PINT,A1,A2,A3,A4,A5,A6,A7)
3777
3778/*------------------------------------------------------------------
3779fortran filename : /cern/new/src/cfs/geant315/gsdk.f
3780------------------------------------------------------------------*/
3781
3782#define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3)
3783
3784/*------------------------------------------------------------------
3785fortran filename : /cern/new/src/cfs/geant315/gsdvn.f
3786------------------------------------------------------------------*/
3787/*
3788#define gsdvn_ELEMS_1 ZTRINGV_NUM(1)
3789#define gsdvn_ELEMLEN_1 ZTRINGV_NUM(4)
3790#define gsdvn_ELEMS_2 ZTRINGV_NUM(1)
3791#define gsdvn_ELEMLEN_2 ZTRINGV_NUM(4)
3792*/
3793
3794#define GSDVN(A1,A2,A3,A4) CCALLSFSUB4(GSDVN,gsdvn,STRING,STRING,INT,INT,A1,A2,A3,A4)
3795
3796/*------------------------------------------------------------------
3797fortran filename : /cern/new/src/cfs/geant315/gsdvn2.f
3798------------------------------------------------------------------*/
3799/*
3800#define gsdvn2_ELEMS_1 ZTRINGV_NUM(1)
3801#define gsdvn2_ELEMLEN_1 ZTRINGV_NUM(4)
3802#define gsdvn2_ELEMS_2 ZTRINGV_NUM(1)
3803#define gsdvn2_ELEMLEN_2 ZTRINGV_NUM(4)
3804*/
3805
3806#define GSDVN2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVN2,gsdvn2,STRING,STRING,INT,INT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
3807
3808/*------------------------------------------------------------------
3809fortran filename : /cern/new/src/cfs/geant315/gsdvs.f
3810------------------------------------------------------------------*/
3811/*
3812#define gsdvs_ELEMS_1 ZTRINGV_NUM(1)
3813#define gsdvs_ELEMLEN_1 ZTRINGV_NUM(4)
3814#define gsdvs_ELEMS_2 ZTRINGV_NUM(1)
3815#define gsdvs_ELEMLEN_2 ZTRINGV_NUM(4)
3816*/
3817
3818#define GSDVS(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDVS,gsdvs,STRING,STRING,FLOAT,INT,INT,A1,A2,A3,A4,A5)
3819
3820/*------------------------------------------------------------------
3821fortran filename : /cern/new/src/cfs/geant315/gsdvs2.f
3822------------------------------------------------------------------*/
3823/*
3824#define gsdvs2_ELEMS_1 ZTRINGV_NUM(1)
3825#define gsdvs2_ELEMLEN_1 ZTRINGV_NUM(4)
3826#define gsdvs2_ELEMS_2 ZTRINGV_NUM(1)
3827#define gsdvs2_ELEMLEN_2 ZTRINGV_NUM(4)
3828*/
3829
3830#define GSDVS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVS2,gsdvs2,STRING,STRING,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
3831
3832/*------------------------------------------------------------------
3833fortran filename : /cern/new/src/cfs/geant315/gsdvt.f
3834------------------------------------------------------------------*/
3835/*
3836#define gsdvt_ELEMS_1 ZTRINGV_NUM(1)
3837#define gsdvt_ELEMLEN_1 ZTRINGV_NUM(4)
3838#define gsdvt_ELEMS_2 ZTRINGV_NUM(1)
3839#define gsdvt_ELEMLEN_2 ZTRINGV_NUM(4)
3840*/
3841
3842#define GSDVT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVT,gsdvt,STRING,STRING,FLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6)
3843
3844/*------------------------------------------------------------------
3845fortran filename : /cern/new/src/cfs/geant315/gsdvt2.f
3846------------------------------------------------------------------*/
3847/*
3848#define gsdvt2_ELEMS_1 ZTRINGV_NUM(1)
3849#define gsdvt2_ELEMLEN_1 ZTRINGV_NUM(4)
3850#define gsdvt2_ELEMS_2 ZTRINGV_NUM(1)
3851#define gsdvt2_ELEMLEN_2 ZTRINGV_NUM(4)
3852*/
3853
3854#define GSDVT2(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSDVT2,gsdvt2,STRING,STRING,FLOAT,INT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7)
3855
3856/*------------------------------------------------------------------
3857fortran filename : /cern/new/src/cfs/geant315/gsdvx.f
3858------------------------------------------------------------------*/
3859/*
3860#define gsdvx_ELEMS_1 ZTRINGV_NUM(1)
3861#define gsdvx_ELEMLEN_1 ZTRINGV_NUM(4)
3862#define gsdvx_ELEMS_2 ZTRINGV_NUM(1)
3863#define gsdvx_ELEMLEN_2 ZTRINGV_NUM(4)
3864*/
3865
3866#define GSDVX(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSDVX,gsdvx,STRING,STRING,INT,INT,FLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
3867
3868/*------------------------------------------------------------------
3869fortran filename : /cern/new/src/cfs/geant315/gsipar.f
3870------------------------------------------------------------------*/
3871
3872#define GSIPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSIPAR,gsipar,INT,INT,INT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
3873
3874/*------------------------------------------------------------------
3875fortran filename : /cern/new/src/cfs/geant315/gskine.f
3876------------------------------------------------------------------*/
3877
3878#define GSKINE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSKINE,gskine,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
3879
3880/*------------------------------------------------------------------
3881fortran filename : /cern/new/src/cfs/geant315/gsking.f
3882------------------------------------------------------------------*/
3883
3884#define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1)
3885
3886/*------------------------------------------------------------------
3887fortran filename : /cern/new/src/cfs/geant315/gsmate.f
3888------------------------------------------------------------------*/
3889/*
3890#define gsmate_ELEMS_2 ZTRINGV_NUM(1)
3891#define gsmate_ELEMLEN_2 ZTRINGV_NUM(255)
3892*/
3893
3894#define GSMATE(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GSMATE,gsmate,INT,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
3895
3896/*------------------------------------------------------------------
3897fortran filename : /cern/new/src/cfs/geant315/gsmixt.f
3898------------------------------------------------------------------*/
3899/*
3900#define gsmixt_ELEMS_2 ZTRINGV_NUM(1)
3901#define gsmixt_ELEMLEN_2 ZTRINGV_NUM(255)
3902*/
3903
3904#define GSMIXT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSMIXT,gsmixt,INT,STRING,FLOATV,FLOATV,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
3905
3906/*------------------------------------------------------------------
3907fortran filename : /cern/new/src/cfs/geant315/gsnear.f
3908------------------------------------------------------------------*/
3909/*
3910#define gsnear_ELEMS_1 ZTRINGV_NUM(1)
3911#define gsnear_ELEMLEN_1 ZTRINGV_NUM(4)
3912*/
3913
3914#define GSNEAR(A1,A2,A3,A4) CCALLSFSUB4(GSNEAR,gsnear,STRING,INT,INT,INTV,A1,A2,A3,A4)
3915
3916/*------------------------------------------------------------------
3917fortran filename : /cern/new/src/cfs/geant315/gsnext.f
3918------------------------------------------------------------------*/
3919/*
3920#define gsnext_ELEMS_1 ZTRINGV_NUM(1)
3921#define gsnext_ELEMLEN_1 ZTRINGV_NUM(4)
3922*/
3923
3924#define GSNEXT(A1,A2,A3,A4) CCALLSFSUB4(GSNEXT,gsnext,STRING,INT,INT,INTV,A1,A2,A3,A4)
3925
3926/*------------------------------------------------------------------
3927fortran filename : /cern/new/src/cfs/geant315/gsngtr.f
3928------------------------------------------------------------------*/
3929
3930#define GSNGTR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSNGTR,gsngtr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
3931
3932/*------------------------------------------------------------------
3933fortran filename : /cern/new/src/cfs/geant315/gsord.f
3934------------------------------------------------------------------*/
3935/*
3936#define gsord_ELEMS_1 ZTRINGV_NUM(1)
3937#define gsord_ELEMLEN_1 ZTRINGV_NUM(4)
3938*/
3939
3940#define GSORD(A1,A2) CCALLSFSUB2(GSORD,gsord,STRING,INT,A1,A2)
3941
3942/*------------------------------------------------------------------
3943fortran filename : /cern/new/src/cfs/geant315/gspart.f
3944------------------------------------------------------------------*/
3945/*
3946#define gspart_ELEMS_2 ZTRINGV_NUM(1)
3947#define gspart_ELEMLEN_2 ZTRINGV_NUM(255)
3948*/
3949
3950#define GSPART(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSPART,gspart,INT,STRING,INT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8)
3951
3952/*------------------------------------------------------------------
3953fortran filename : /cern/new/src/cfs/geant315/gspos.f
3954------------------------------------------------------------------*/
3955/*
3956#define gspos_ELEMS_1 ZTRINGV_NUM(1)
3957#define gspos_ELEMLEN_1 ZTRINGV_NUM(4)
3958#define gspos_ELEMS_3 ZTRINGV_NUM(1)
3959#define gspos_ELEMLEN_3 ZTRINGV_NUM(4)
3960#define gspos_ELEMS_8 ZTRINGV_NUM(1)
3961#define gspos_ELEMLEN_8 ZTRINGV_NUM(4)
3962*/
3963
3964#define GSPOS(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GSPOS,gspos,STRING,INT,STRING,FLOAT,FLOAT,FLOAT,INT,STRING,A1,A2,A3,A4,A5,A6,A7,A8)
3965
3966/*------------------------------------------------------------------
3967fortran filename : /cern/new/src/cfs/geant315/gsposp.f
3968------------------------------------------------------------------*/
3969/*
3970#define gsposp_ELEMS_1 ZTRINGV_NUM(1)
3971#define gsposp_ELEMLEN_1 ZTRINGV_NUM(4)
3972#define gsposp_ELEMS_3 ZTRINGV_NUM(1)
3973#define gsposp_ELEMLEN_3 ZTRINGV_NUM(4)
3974#define gsposp_ELEMS_8 ZTRINGV_NUM(1)
3975#define gsposp_ELEMLEN_8 ZTRINGV_NUM(4)
3976*/
3977
3978#define GSPOSP(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSPOSP,gsposp,STRING,INT,STRING,FLOAT,FLOAT,FLOAT,INT,STRING,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
3979
3980/*------------------------------------------------------------------
3981fortran filename : /cern/new/src/cfs/geant315/gsrotm.f
3982------------------------------------------------------------------*/
3983
3984#define GSROTM(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSROTM,gsrotm,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
3985
3986/*------------------------------------------------------------------
3987fortran filename : /cern/new/src/cfs/geant315/gsscan.f
3988------------------------------------------------------------------*/
3989
3990#define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2)
3991
3992/*------------------------------------------------------------------
3993fortran filename : /cern/new/src/cfs/geant315/gsstak.f
3994------------------------------------------------------------------*/
3995
3996#define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1)
3997
3998/*------------------------------------------------------------------
3999fortran filename : /cern/new/src/cfs/geant315/gstmed.f
4000------------------------------------------------------------------*/
4001/*
4002#define gstmed_ELEMS_2 ZTRINGV_NUM(1)
4003#define gstmed_ELEMLEN_2 ZTRINGV_NUM(255)
4004*/
4005
4006#define GSTMED(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(GSTMED,gstmed,INT,STRING,INT,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOATV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
4007
4008/*------------------------------------------------------------------
4009fortran filename : /cern/new/src/cfs/geant315/gstpar.f
4010------------------------------------------------------------------*/
4011/*
4012#define gstpar_ELEMS_2 ZTRINGV_NUM(1)
4013#define gstpar_ELEMLEN_2 ZTRINGV_NUM(255)
4014*/
4015
4016#define GSTPAR(A1,A2,A3) CCALLSFSUB3(GSTPAR,gstpar,INT,STRING,FLOAT,A1,A2,A3)
4017
4018/*------------------------------------------------------------------
4019fortran filename : /cern/new/src/cfs/geant315/gstrac.f
4020------------------------------------------------------------------*/
4021
4022#define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac)
4023
4024/*------------------------------------------------------------------
4025fortran filename : /cern/new/src/cfs/geant315/gsunea.f
4026------------------------------------------------------------------*/
4027/*
4028#define gsunea_ELEMS_1 ZTRINGV_NUM(1)
4029#define gsunea_ELEMLEN_1 ZTRINGV_NUM(4)
4030*/
4031
4032#define GSUNEA(A1,A2) CCALLSFSUB2(GSUNEA,gsunea,STRING,INT,A1,A2)
4033
4034/*------------------------------------------------------------------
4035fortran filename : /cern/new/src/cfs/geant315/gsvert.f
4036------------------------------------------------------------------*/
4037
4038#define GSVERT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVERT,gsvert,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
4039
4040/*------------------------------------------------------------------
4041fortran filename : /cern/new/src/cfs/geant315/gsvolu.f
4042------------------------------------------------------------------*/
4043/*
4044#define gsvolu_ELEMS_1 ZTRINGV_NUM(1)
4045#define gsvolu_ELEMLEN_1 ZTRINGV_NUM(4)
4046#define gsvolu_ELEMS_2 ZTRINGV_NUM(1)
4047#define gsvolu_ELEMLEN_2 ZTRINGV_NUM(4)
4048*/
4049
4050#define GSVOLU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVOLU,gsvolu,STRING,STRING,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
4051
4052/*------------------------------------------------------------------
4053fortran filename : /cern/new/src/cfs/geant315/gsxyz.f
4054------------------------------------------------------------------*/
4055
4056#define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz)
4057
4058/*------------------------------------------------------------------
4059fortran filename : /cern/new/src/cfs/geant315/gtau.f
4060------------------------------------------------------------------*/
4061
4062#define GTAU() CCALLSFSUB0(GTAU,gtau)
4063
4064/*------------------------------------------------------------------
4065fortran filename : /cern/new/src/cfs/geant315/gtelec.f
4066------------------------------------------------------------------*/
4067
4068#define GTELEC() CCALLSFSUB0(GTELEC,gtelec)
4069
4070/*------------------------------------------------------------------
4071fortran filename : /cern/new/src/cfs/geant315/gtgama.f
4072------------------------------------------------------------------*/
4073
4074#define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama)
4075
4076/*------------------------------------------------------------------
4077fortran filename : /cern/new/src/cfs/geant315/gthadr.f
4078------------------------------------------------------------------*/
4079
4080#define GTHADR() CCALLSFSUB0(GTHADR,gthadr)
4081
4082/*------------------------------------------------------------------
4083fortran filename : /cern/new/src/cfs/geant315/gtmedi.f
4084------------------------------------------------------------------*/
4085
4086#define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2)
4087
4088/*------------------------------------------------------------------
4089fortran filename : /cern/new/src/cfs/geant315/gtmuon.f
4090------------------------------------------------------------------*/
4091
4092#define GTMUON() CCALLSFSUB0(GTMUON,gtmuon)
4093
4094/*------------------------------------------------------------------
4095fortran filename : /cern/new/src/cfs/geant315/gtneut.f
4096------------------------------------------------------------------*/
4097
4098#define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut)
4099
4100/*------------------------------------------------------------------
4101fortran filename : /cern/new/src/cfs/geant315/gtnext.f
4102------------------------------------------------------------------*/
4103
4104#define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext)
4105
4106/*------------------------------------------------------------------
4107fortran filename : /cern/new/src/cfs/geant315/gtnino.f
4108------------------------------------------------------------------*/
4109
4110#define GTNINO() CCALLSFSUB0(GTNINO,gtnino)
4111
4112/*------------------------------------------------------------------
4113fortran filename : /cern/new/src/cfs/geant315/gtrack.f
4114------------------------------------------------------------------*/
4115
4116#define GTRACK() CCALLSFSUB0(GTRACK,gtrack)
4117
4118/*------------------------------------------------------------------
4119fortran filename : /cern/new/src/cfs/geant315/gtrain.f
4120------------------------------------------------------------------*/
4121
4122#define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2)
4123
4124/*------------------------------------------------------------------
4125fortran filename : /cern/new/src/cfs/geant315/gtreve.f
4126------------------------------------------------------------------*/
4127
4128#define GTREVE() CCALLSFSUB0(GTREVE,gtreve)
4129
4130/*------------------------------------------------------------------
4131fortran filename : /cern/new/src/cfs/geant315/gtrig.f
4132------------------------------------------------------------------*/
4133
4134#define GTRIG() CCALLSFSUB0(GTRIG,gtrig)
4135
4136/*------------------------------------------------------------------
4137fortran filename : /cern/new/src/cfs/geant315/gtrigc.f
4138------------------------------------------------------------------*/
4139
4140#define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc)
4141
4142/*------------------------------------------------------------------
4143fortran filename : /cern/new/src/cfs/geant315/gtrigi.f
4144------------------------------------------------------------------*/
4145
4146#define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi)
4147
4148/*------------------------------------------------------------------
4149fortran filename : /cern/new/src/cfs/geant315/gtrmul.f
4150------------------------------------------------------------------*/
4151
4152#define GTRMUL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GTRMUL,gtrmul,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
4153
4154/*------------------------------------------------------------------
4155fortran filename : /cern/new/src/cfs/geant315/gtrnsf.f
4156------------------------------------------------------------------*/
4157
4158#define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4)
4159
4160/*------------------------------------------------------------------
4161fortran filename : /cern/new/src/cfs/geant315/gudcay.f
4162------------------------------------------------------------------*/
4163
4164#define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay)
4165
4166/*------------------------------------------------------------------
4167fortran filename : /cern/new/src/cfs/geant315/gudigi.f
4168------------------------------------------------------------------*/
4169
4170#define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi)
4171
4172/*------------------------------------------------------------------
4173fortran filename : /cern/new/src/cfs/geant315/gudtim.f
4174------------------------------------------------------------------*/
4175
4176 PROTOCCALLSFFUN4(FLOAT,GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT)
4177#define GUDTIM(A2,A3,A4,A5) CCALLSFFUN4(GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT,A2,A3,A4,A5)
4178
4179/*------------------------------------------------------------------
4180fortran filename : /cern/new/src/cfs/geant315/gufld.f
4181------------------------------------------------------------------*/
4182
4183#define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2)
4184
4185/*------------------------------------------------------------------
4186fortran filename : /cern/new/src/cfs/geant315/guhadr.f
4187------------------------------------------------------------------*/
4188
4189#define GUHADR() CCALLSFSUB0(GUHADR,guhadr)
4190
4191/*------------------------------------------------------------------
4192fortran filename : /cern/new/src/cfs/geant315/guiget.f
4193------------------------------------------------------------------*/
4194
4195#define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3)
4196
4197/*------------------------------------------------------------------
4198fortran filename : /cern/new/src/cfs/geant315/guinme.f
4199------------------------------------------------------------------*/
4200
4201#define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4)
4202
4203/*------------------------------------------------------------------
4204fortran filename : /cern/new/src/cfs/geant315/guinti.f
4205------------------------------------------------------------------*/
4206
4207#define GUINTI() CCALLSFSUB0(GUINTI,guinti)
4208
4209/*------------------------------------------------------------------
4210fortran filename : /cern/new/src/cfs/geant315/gukine.f
4211------------------------------------------------------------------*/
4212
4213#define GUKINE() CCALLSFSUB0(GUKINE,gukine)
4214
4215/*------------------------------------------------------------------
4216fortran filename : /cern/new/src/cfs/geant315/gunear.f
4217------------------------------------------------------------------*/
4218
4219#define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4)
4220
4221/*------------------------------------------------------------------
4222fortran filename : /cern/new/src/cfs/geant315/gunliv.f
4223------------------------------------------------------------------*/
4224
4225#define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3)
4226
4227/*------------------------------------------------------------------
4228fortran filename : /cern/new/src/cfs/geant315/guout.f
4229------------------------------------------------------------------*/
4230
4231#define GUOUT() CCALLSFSUB0(GUOUT,guout)
4232
4233/*------------------------------------------------------------------
4234fortran filename : /cern/new/src/cfs/geant315/gupara.f
4235------------------------------------------------------------------*/
4236
4237#define GUPARA() CCALLSFSUB0(GUPARA,gupara)
4238
4239/*------------------------------------------------------------------
4240fortran filename : /cern/new/src/cfs/geant315/guphad.f
4241------------------------------------------------------------------*/
4242
4243#define GUPHAD() CCALLSFSUB0(GUPHAD,guphad)
4244
4245/*------------------------------------------------------------------
4246fortran filename : /cern/new/src/cfs/geant315/guskip.f
4247------------------------------------------------------------------*/
4248
4249#define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1)
4250
4251/*------------------------------------------------------------------
4252fortran filename : /cern/new/src/cfs/geant315/gustep.f
4253------------------------------------------------------------------*/
4254
4255#define GUSTEP() CCALLSFSUB0(GUSTEP,gustep)
4256
4257/*------------------------------------------------------------------
4258fortran filename : /cern/new/src/cfs/geant315/guswim.f
4259------------------------------------------------------------------*/
4260
4261#define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4)
4262
4263/*------------------------------------------------------------------
4264fortran filename : /cern/new/src/cfs/geant315/gutrak.f
4265------------------------------------------------------------------*/
4266
4267#define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak)
4268
4269/*------------------------------------------------------------------
4270fortran filename : /cern/new/src/cfs/geant315/gutrev.f
4271------------------------------------------------------------------*/
4272
4273#define GUTREV() CCALLSFSUB0(GUTREV,gutrev)
4274
4275/*------------------------------------------------------------------
4276fortran filename : /cern/new/src/cfs/geant315/guview.f
4277------------------------------------------------------------------*/
4278/*
4279#define guview_ELEMS_3 ZTRINGV_NUM(1)
4280#define guview_ELEMLEN_3 ZTRINGV_NUM(255)
4281*/
4282
4283#define GUVIEW(A1,A2,A3,A4) CCALLSFSUB4(GUVIEW,guview,INT,INT,STRING,INT,A1,A2,A3,A4)
4284
4285/*------------------------------------------------------------------
4286fortran filename : /cern/new/src/cfs/geant315/gvaviv.f
4287------------------------------------------------------------------*/
4288
4289 PROTOCCALLSFFUN3(FLOAT,GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT)
4290#define GVAVIV(A2,A3,A4) CCALLSFFUN3(GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT,A2,A3,A4)
4291
4292/*------------------------------------------------------------------
4293fortran filename : /cern/new/src/cfs/geant315/gviewf.f
4294------------------------------------------------------------------*/
4295
4296#define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3)
4297
4298/*------------------------------------------------------------------
4299fortran filename : /cern/new/src/cfs/geant315/gwork.f
4300------------------------------------------------------------------*/
4301
4302#define GWORK(A1) CCALLSFSUB1(GWORK,gwork,INT,A1)
4303
4304/*------------------------------------------------------------------
4305fortran filename : /cern/new/src/cfs/geant315/gxsi.f
4306------------------------------------------------------------------*/
4307
4308 PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT)
4309#define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2)
4310
4311/*------------------------------------------------------------------
4312fortran filename : /cern/new/src/cfs/geant315/gzebra.f
4313------------------------------------------------------------------*/
4314
4315#define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1)
4316
4317/*------------------------------------------------------------------
4318fortran filename : /cern/new/src/cfs/geant315/gzinit.f
4319------------------------------------------------------------------*/
4320
4321#define GZINIT() CCALLSFSUB0(GZINIT,gzinit)
4322
4323/*------------------------------------------------------------------
4324fortran filename : /cern/new/src/cfs/geant315/hadden.f
4325------------------------------------------------------------------*/
4326
4327#define HADDEN() CCALLSFSUB0(HADDEN,hadden)
4328
4329/*------------------------------------------------------------------
4330fortran filename : /cern/new/src/cfs/geant315/hadevv.f
4331------------------------------------------------------------------*/
4332
4333#define HADEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HADEVV,hadevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
4334
4335/*------------------------------------------------------------------
4336fortran filename : /cern/new/src/cfs/geant315/hadrin.f
4337------------------------------------------------------------------*/
4338
4339#define HADRIN(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HADRIN,hadrin,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7)
4340
4341/*------------------------------------------------------------------
4342fortran filename : /cern/new/src/cfs/geant315/hadriv.f
4343------------------------------------------------------------------*/
4344
4345#define HADRIV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(HADRIV,hadriv,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,A1,A2,A3,A4,A5,A6,A7)
4346
4347/*------------------------------------------------------------------
4348fortran filename : /cern/new/src/cfs/geant315/hevhin.f
4349------------------------------------------------------------------*/
4350
4351#define HEVHIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HEVHIN,hevhin,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
4352
4353/*------------------------------------------------------------------
4354fortran filename : /cern/new/src/cfs/geant315/hinhev.f
4355------------------------------------------------------------------*/
4356
4357#define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4)
4358
4359/*------------------------------------------------------------------
4360fortran filename : /cern/new/src/cfs/geant315/hklass.f
4361------------------------------------------------------------------*/
4362
4363#define HKLASS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24) CCALLSFSUB24(HKLASS,hklass,PINT,INT,INT,INT,INTV,INTV,INT,INT,INT,INT,INTV,PINT,PINT,PINT,PINT,PINT,PINT,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24)
4364
4365/*------------------------------------------------------------------
4366fortran filename : /cern/new/src/cfs/geant315/hypero.f
4367------------------------------------------------------------------*/
4368
4369#define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4)
4370
4371/*------------------------------------------------------------------
4372fortran filename : /cern/new/src/cfs/geant315/iefun.f
4373------------------------------------------------------------------*/
4374
4375 PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT)
4376#define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3)
4377
4378/*------------------------------------------------------------------
4379fortran filename : /cern/new/src/cfs/geant315/incini.f
4380------------------------------------------------------------------*/
4381
4382#define INCINI() CCALLSFSUB0(INCINI,incini)
4383
4384/*------------------------------------------------------------------
4385fortran filename : /cern/new/src/cfs/geant315/index2.f
4386------------------------------------------------------------------*/
4387
4388#define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3)
4389
4390/*------------------------------------------------------------------
4391fortran filename : /cern/new/src/cfs/geant315/kinpar.f
4392------------------------------------------------------------------*/
4393
4394#define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3)
4395
4396/*------------------------------------------------------------------
4397fortran filename : /cern/new/src/cfs/geant315/kmabs.f
4398------------------------------------------------------------------*/
4399
4400#define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1)
4401
4402/*------------------------------------------------------------------
4403fortran filename : /cern/new/src/cfs/geant315/kpois.f
4404------------------------------------------------------------------*/
4405
4406 PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE)
4407#define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2)
4408
4409/*------------------------------------------------------------------
4410fortran filename : /cern/new/src/cfs/geant315/limdat.f
4411------------------------------------------------------------------*/
4412
4413#define LIMDAT() CCALLSFSUB0(LIMDAT,limdat)
4414
4415/*------------------------------------------------------------------
4416fortran filename : /cern/new/src/cfs/geant315/lortra.f
4417------------------------------------------------------------------*/
4418
4419#define LORTRA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LORTRA,lortra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
4420
4421/*------------------------------------------------------------------
4422fortran filename : /cern/new/src/cfs/geant315/minv.f
4423------------------------------------------------------------------*/
4424
4425#define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5)
4426
4427/*------------------------------------------------------------------
4428fortran filename : /cern/new/src/cfs/geant315/nbanh.f
4429------------------------------------------------------------------*/
4430
4431#define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1)
4432
4433/*------------------------------------------------------------------
4434fortran filename : /cern/new/src/cfs/geant315/nfac.f
4435------------------------------------------------------------------*/
4436
4437 PROTOCCALLSFFUN1(INT,NFAC,nfac,INT)
4438#define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2)
4439
4440/*------------------------------------------------------------------
4441fortran filename : /cern/new/src/cfs/geant315/nizl.f
4442------------------------------------------------------------------*/
4443
4444#define NIZL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NIZL,nizl,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
4445
4446/*------------------------------------------------------------------
4447fortran filename : /cern/new/src/cfs/geant315/normal.f
4448------------------------------------------------------------------*/
4449
4450#define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1)
4451
4452/*------------------------------------------------------------------
4453fortran filename : /cern/new/src/cfs/geant315/nucevv.f
4454------------------------------------------------------------------*/
4455
4456#define NUCEVV(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(NUCEVV,nucevv,PINT,INT,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
4457
4458/*------------------------------------------------------------------
4459fortran filename : /cern/new/src/cfs/geant315/nucrec.f
4460------------------------------------------------------------------*/
4461
4462#define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2)
4463
4464/*------------------------------------------------------------------
4465fortran filename : /cern/new/src/cfs/geant315/nucrel.f
4466------------------------------------------------------------------*/
4467
4468#define NUCREL(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(NUCREL,nucrel,INT,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
4469
4470/*------------------------------------------------------------------
4471fortran filename : /cern/new/src/cfs/geant315/nucriv.f
4472------------------------------------------------------------------*/
4473
4474#define NUCRIV(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(NUCRIV,nucriv,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8)
4475
4476/*------------------------------------------------------------------
4477fortran filename : /cern/new/src/cfs/geant315/nudisv.f
4478------------------------------------------------------------------*/
4479
4480 PROTOCCALLSFFUN5(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE)
4481#define NUDISV(A2,A3,A4,A5,A6) CCALLSFFUN5(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6)
4482
4483/*------------------------------------------------------------------
4484fortran filename : /cern/new/src/cfs/geant315/nuprel.f
4485------------------------------------------------------------------*/
4486
4487#define NUPREL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NUPREL,nuprel,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
4488
4489/*------------------------------------------------------------------
4490fortran filename : /cern/new/src/cfs/geant315/parjet.f
4491------------------------------------------------------------------*/
4492
4493#define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2)
4494
4495/*------------------------------------------------------------------
4496fortran filename : /cern/new/src/cfs/geant315/pbanh.f
4497------------------------------------------------------------------*/
4498
4499#define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1)
4500
4501/*------------------------------------------------------------------
4502fortran filename : /cern/new/src/cfs/geant315/pcsdat.f
4503------------------------------------------------------------------*/
4504
4505#define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3)
4506
4507/*------------------------------------------------------------------
4508fortran filename : /cern/new/src/cfs/geant315/phasp.f
4509------------------------------------------------------------------*/
4510
4511#define PHASP() CCALLSFSUB0(PHASP,phasp)
4512
4513/*------------------------------------------------------------------
4514fortran filename : /cern/new/src/cfs/geant315/phpnuc.f
4515------------------------------------------------------------------*/
4516
4517#define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc)
4518
4519/*------------------------------------------------------------------
4520fortran filename : /cern/new/src/cfs/geant315/pimabs.f
4521------------------------------------------------------------------*/
4522
4523#define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1)
4524
4525/*------------------------------------------------------------------
4526fortran filename : /cern/new/src/cfs/geant315/plot.f
4527------------------------------------------------------------------*/
4528
4529#define PLOT(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(PLOT,plot,DOUBLEV,DOUBLEV,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
4530
4531/*------------------------------------------------------------------
4532fortran filename : /cern/new/src/cfs/geant315/plotdt.f
4533------------------------------------------------------------------*/
4534
4535#define PLOTDT(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(PLOTDT,plotdt,DOUBLEV,DOUBLEV,INT,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
4536
4537/*------------------------------------------------------------------
4538fortran filename : /cern/new/src/cfs/geant315/pmltpc.f
4539------------------------------------------------------------------*/
4540
4541 PROTOCCALLSFFUN6(FLOAT,PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT)
4542#define PMLTPC(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7)
4543
4544/*------------------------------------------------------------------
4545fortran filename : /cern/new/src/cfs/geant315/pmprab.f
4546------------------------------------------------------------------*/
4547
4548#define PMPRAB(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PMPRAB,pmprab,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
4549
4550/*------------------------------------------------------------------
4551fortran filename : /cern/new/src/cfs/geant315/poisso.f
4552------------------------------------------------------------------*/
4553
4554#define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2)
4555
4556/*------------------------------------------------------------------
4557fortran filename : /cern/new/src/cfs/geant315/qnrg.f
4558------------------------------------------------------------------*/
4559
4560 PROTOCCALLSFFUN4(DOUBLE,QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
4561#define QNRG(A2,A3,A4,A5) CCALLSFFUN4(QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
4562
4563/*------------------------------------------------------------------
4564fortran filename : /cern/new/src/cfs/geant315/raco.f
4565------------------------------------------------------------------*/
4566
4567#define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3)
4568
4569/*------------------------------------------------------------------
4570fortran filename : /cern/new/src/cfs/geant315/rakeka.f
4571------------------------------------------------------------------*/
4572
4573#define RAKEKA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(RAKEKA,rakeka,INT,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
4574
4575/*------------------------------------------------------------------
4576fortran filename : /cern/new/src/cfs/geant315/rakekv.f
4577------------------------------------------------------------------*/
4578
4579#define RAKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RAKEKV,rakekv,INT,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
4580
4581/*------------------------------------------------------------------
4582fortran filename : /cern/new/src/cfs/geant315/ranres.f
4583------------------------------------------------------------------*/
4584
4585 PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT)
4586#define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2)
4587
4588/*------------------------------------------------------------------
4589fortran filename : /cern/new/src/cfs/geant315/rbkekv.f
4590------------------------------------------------------------------*/
4591
4592#define RBKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RBKEKV,rbkekv,INT,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
4593
4594/*------------------------------------------------------------------
4595fortran filename : /cern/new/src/cfs/geant315/rchanv.f
4596------------------------------------------------------------------*/
4597
4598#define RCHANV() CCALLSFSUB0(RCHANV,rchanv)
4599
4600/*------------------------------------------------------------------
4601fortran filename : /cern/new/src/cfs/geant315/rchanw.f
4602------------------------------------------------------------------*/
4603
4604#define RCHANW() CCALLSFSUB0(RCHANW,rchanw)
4605
4606/*------------------------------------------------------------------
4607fortran filename : /cern/new/src/cfs/geant315/rotes2.f
4608------------------------------------------------------------------*/
4609
4610#define ROTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ROTES2,rotes2,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
4611
4612/*------------------------------------------------------------------
4613fortran filename : /cern/new/src/cfs/geant315/rtmi.f
4614------------------------------------------------------------------*/
4615
4616#define RTMI(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(RTMI,rtmi,PFLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
4617
4618/*------------------------------------------------------------------
4619fortran filename : /cern/new/src/cfs/geant315/samcst.f
4620------------------------------------------------------------------*/
4621
4622#define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3)
4623
4624/*------------------------------------------------------------------
4625fortran filename : /cern/new/src/cfs/geant315/selfab.f
4626------------------------------------------------------------------*/
4627
4628#define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1)
4629
4630/*------------------------------------------------------------------
4631fortran filename : /cern/new/src/cfs/geant315/setcur.f
4632------------------------------------------------------------------*/
4633
4634#define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1)
4635
4636/*------------------------------------------------------------------
4637fortran filename : /cern/new/src/cfs/geant315/settrk.f
4638------------------------------------------------------------------*/
4639
4640#define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1)
4641
4642/*------------------------------------------------------------------
4643fortran filename : /cern/new/src/cfs/geant315/sfecfe.f
4644------------------------------------------------------------------*/
4645
4646#define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2)
4647
4648/*------------------------------------------------------------------
4649fortran filename : /cern/new/src/cfs/geant315/shptot.f
4650------------------------------------------------------------------*/
4651
4652 PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE)
4653#define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3)
4654
4655/*------------------------------------------------------------------
4656fortran filename : /cern/new/src/cfs/geant315/sigel.f
4657------------------------------------------------------------------*/
4658
4659#define SIGEL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SIGEL,sigel,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
4660
4661/*------------------------------------------------------------------
4662fortran filename : /cern/new/src/cfs/geant315/sihael.f
4663------------------------------------------------------------------*/
4664
4665#define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
4666
4667/*------------------------------------------------------------------
4668fortran filename : /cern/new/src/cfs/geant315/steep.f
4669------------------------------------------------------------------*/
4670
4671#define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1)
4672
4673/*------------------------------------------------------------------
4674fortran filename : /cern/new/src/cfs/geant315/steeq.f
4675------------------------------------------------------------------*/
4676
4677#define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2)
4678
4679/*------------------------------------------------------------------
4680fortran filename : /cern/new/src/cfs/geant315/steer.f
4681------------------------------------------------------------------*/
4682
4683#define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1)
4684
4685/*------------------------------------------------------------------
4686fortran filename : /cern/new/src/cfs/geant315/stees.f
4687------------------------------------------------------------------*/
4688
4689#define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2)
4690
4691/*------------------------------------------------------------------
4692fortran filename : /cern/new/src/cfs/geant315/stpair.f
4693------------------------------------------------------------------*/
4694
4695#define STPAIR() CCALLSFSUB0(STPAIR,stpair)
4696
4697/*------------------------------------------------------------------
4698fortran filename : /cern/new/src/cfs/geant315/tchoic.f
4699------------------------------------------------------------------*/
4700
4701#define TCHOIC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(TCHOIC,tchoic,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
4702
4703/*------------------------------------------------------------------
4704fortran filename : /cern/new/src/cfs/geant315/tdelay.f
4705------------------------------------------------------------------*/
4706
4707#define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1)
4708
4709/*------------------------------------------------------------------
4710fortran filename : /cern/new/src/cfs/geant315/threpd.f
4711------------------------------------------------------------------*/
4712
4713#define THREPD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(THREPD,threpd,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
4714
4715/*------------------------------------------------------------------
4716fortran filename : /cern/new/src/cfs/geant315/trafo.f
4717------------------------------------------------------------------*/
4718
4719#define TRAFO(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(TRAFO,trafo,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
4720
4721/*------------------------------------------------------------------
4722fortran filename : /cern/new/src/cfs/geant315/trans.f
4723------------------------------------------------------------------*/
4724
4725#define TRANS(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(TRANS,trans,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9)
4726
4727/*------------------------------------------------------------------
4728fortran filename : /cern/new/src/cfs/geant315/ttrans.f
4729------------------------------------------------------------------*/
4730
4731#define TTRANS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(TTRANS,ttrans,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
4732
4733/*------------------------------------------------------------------
4734fortran filename : /cern/new/src/cfs/geant315/twob.f
4735------------------------------------------------------------------*/
4736
4737#define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3)
4738
4739/*------------------------------------------------------------------
4740fortran filename : /cern/new/src/cfs/geant315/twoclu.f
4741------------------------------------------------------------------*/
4742
4743#define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3)
4744
4745/*------------------------------------------------------------------
4746fortran filename : /cern/new/src/cfs/geant315/twopad.f
4747------------------------------------------------------------------*/
4748
4749#define TWOPAD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(TWOPAD,twopad,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
4750
4751/*------------------------------------------------------------------
4752fortran filename : /cern/new/src/cfs/geant315/twopar.f
4753------------------------------------------------------------------*/
4754
4755#define TWOPAR(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18) CCALLSFSUB18(TWOPAR,twopar,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,DOUBLE,PDOUBLE,INT,INT,DOUBLE,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18)
4756
4757/*------------------------------------------------------------------
4758fortran filename : /cern/new/src/cfs/geant315/vecsub.f
4759------------------------------------------------------------------*/
4760
4761#define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3)
4762
4763
4764#define SUB(A1,A2,A3) CCALLSFSUB3(SUB,sub,INT,INT,INT,A1,A2,A3)
4765
4766
4767#define LOR(A1,A2,A3) CCALLSFSUB3(LOR,lor,INT,INT,INT,A1,A2,A3)
4768
4769
4770#define LENGTX(A1,A2) CCALLSFSUB2(LENGTX,lengtx,INT,PFLOAT,A1,A2)
4771
4772
4773#define ANG(A1,A2,A3,A4) CCALLSFSUB4(ANG,ang,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4)
4774
4775
4776#define DEFS(A1,A2,A3) CCALLSFSUB3(DEFS,defs,INT,INT,INT,A1,A2,A3)
4777
4778
4779#define TRAC(A1,A2,A3) CCALLSFSUB3(TRAC,trac,INT,INT,INT,A1,A2,A3)
4780
4781/*------------------------------------------------------------------
4782fortran filename : /cern/new/src/cfs/geant315/verein.f
4783------------------------------------------------------------------*/
4784
4785#define VEREIN(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34) CCALLSFSUB34(VEREIN,verein,PINT,PINT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,INT,PINT,INT,INTV,INTV,PINT,PINT,PINT,PINT,PINT,PINT,DOUBLE,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34)
4786
4787/*------------------------------------------------------------------
4788fortran filename : /cern/new/src/cfs/geant315/xlamb.f
4789------------------------------------------------------------------*/
4790
4791 PROTOCCALLSFFUN3(DOUBLE,XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE)
4792#define XLAMB(A2,A3,A4) CCALLSFFUN3(XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
4793
4794/*------------------------------------------------------------------
4795fortran filename : /cern/new/src/cfs/geant315/zeregs.f
4796------------------------------------------------------------------*/
4797
4798#define ZEREGS() CCALLSFSUB0(ZEREGS,zeregs)
4799
Note: See TracBrowser for help on using the repository browser.