Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

geant315.h@ 3892

Visit:

Last change on this file since 3892 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

Line
1	/*------------------------------------------------------------------
2	fortran 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	/*------------------------------------------------------------------
8	fortran 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	/*------------------------------------------------------------------
15	fortran 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	/*------------------------------------------------------------------
22	fortran 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	/*------------------------------------------------------------------
28	fortran 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	/*------------------------------------------------------------------
34	fortran 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	/*------------------------------------------------------------------
41	fortran 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	/*------------------------------------------------------------------
48	fortran 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	/*------------------------------------------------------------------
55	fortran 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	/*------------------------------------------------------------------
61	fortran 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	/*------------------------------------------------------------------
67	fortran 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	/*------------------------------------------------------------------
74	fortran filename : /cern/new/src/cfs/geant315/berttp.f
75	------------------------------------------------------------------*/
76
77	#define BERTTP() CCALLSFSUB0(BERTTP,berttp)
78
79	/*------------------------------------------------------------------
80	fortran 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	/*------------------------------------------------------------------
87	fortran 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	/*------------------------------------------------------------------
94	fortran 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	/*------------------------------------------------------------------
101	fortran 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	/*------------------------------------------------------------------
108	fortran 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	/*------------------------------------------------------------------
114	fortran 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	/*------------------------------------------------------------------
121	fortran filename : /cern/new/src/cfs/geant315/calumo.f
122	------------------------------------------------------------------*/
123
124	#define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2)
125
126	/*------------------------------------------------------------------
127	fortran filename : /cern/new/src/cfs/geant315/calumv.f
128	------------------------------------------------------------------*/
129
130	#define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2)
131
132	/*------------------------------------------------------------------
133	fortran filename : /cern/new/src/cfs/geant315/captur.f
134	------------------------------------------------------------------*/
135
136	#define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1)
137
138	/*------------------------------------------------------------------
139	fortran 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	/*------------------------------------------------------------------
145	fortran 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	/*------------------------------------------------------------------
151	fortran 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	/*------------------------------------------------------------------
157	fortran 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	/*------------------------------------------------------------------
163	fortran 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	/*------------------------------------------------------------------
169	fortran 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	/*------------------------------------------------------------------
175	fortran 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	/*------------------------------------------------------------------
181	fortran 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	/*------------------------------------------------------------------
187	fortran 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	/*------------------------------------------------------------------
193	fortran 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	/*------------------------------------------------------------------
199	fortran 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	/*------------------------------------------------------------------
205	fortran 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	/*------------------------------------------------------------------
211	fortran 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	/*------------------------------------------------------------------
217	fortran 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	/*------------------------------------------------------------------
223	fortran 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	/*------------------------------------------------------------------
229	fortran 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	/*------------------------------------------------------------------
235	fortran 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	/*------------------------------------------------------------------
241	fortran 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	/*------------------------------------------------------------------
247	fortran 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	/*------------------------------------------------------------------
253	fortran 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	/*------------------------------------------------------------------
259	fortran 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	/*------------------------------------------------------------------
265	fortran 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	/*------------------------------------------------------------------
271	fortran 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	/*------------------------------------------------------------------
277	fortran filename : /cern/new/src/cfs/geant315/cgaffi.f
278	------------------------------------------------------------------*/
279
280	#define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2)
281
282	/*------------------------------------------------------------------
283	fortran 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	/*------------------------------------------------------------------
289	fortran 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	/*------------------------------------------------------------------
295	fortran 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	/*------------------------------------------------------------------
301	fortran 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	/*------------------------------------------------------------------
307	fortran 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	/*------------------------------------------------------------------
313	fortran 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	/*------------------------------------------------------------------
319	fortran 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	/*------------------------------------------------------------------
325	fortran 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	/*------------------------------------------------------------------
331	fortran filename : /cern/new/src/cfs/geant315/cgbsor.f
332	------------------------------------------------------------------*/
333
334	#define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2)
335
336	/*------------------------------------------------------------------
337	fortran 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	/*------------------------------------------------------------------
343	fortran 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	/*------------------------------------------------------------------
349	fortran 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	/*------------------------------------------------------------------
355	fortran 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	/*------------------------------------------------------------------
365	fortran filename : /cern/new/src/cfs/geant315/cgcev.f
366	------------------------------------------------------------------*/
367
368	#define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2)
369
370	/*------------------------------------------------------------------
371	fortran 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	/*------------------------------------------------------------------
377	fortran 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	/*------------------------------------------------------------------
383	fortran 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	/*------------------------------------------------------------------
389	fortran 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	/*------------------------------------------------------------------
395	fortran 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	/*------------------------------------------------------------------
401	fortran 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	/*------------------------------------------------------------------
407	fortran 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	/*------------------------------------------------------------------
413	fortran 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	/*------------------------------------------------------------------
419	fortran 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	/*------------------------------------------------------------------
425	fortran filename : /cern/new/src/cfs/geant315/cgheva.f
426	------------------------------------------------------------------*/
427
428	#define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2)
429
430	/*------------------------------------------------------------------
431	fortran 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	/*------------------------------------------------------------------
437	fortran 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	/*------------------------------------------------------------------
443	fortran 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	/*------------------------------------------------------------------
449	fortran 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	/*------------------------------------------------------------------
455	fortran 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	/*------------------------------------------------------------------
461	fortran 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	/*------------------------------------------------------------------
467	fortran 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	/*------------------------------------------------------------------
473	fortran filename : /cern/new/src/cfs/geant315/cginve.f
474	------------------------------------------------------------------*/
475
476	#define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1)
477
478	/*------------------------------------------------------------------
479	fortran 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	/*------------------------------------------------------------------
485	fortran filename : /cern/new/src/cfs/geant315/cgrifl.f
486	------------------------------------------------------------------*/
487
488	#define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2)
489
490	/*------------------------------------------------------------------
491	fortran 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	/*------------------------------------------------------------------
497	fortran 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	/*------------------------------------------------------------------
503	fortran 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	/*------------------------------------------------------------------
509	fortran 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	/*------------------------------------------------------------------
515	fortran 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	/*------------------------------------------------------------------
522	fortran 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	/*------------------------------------------------------------------
528	fortran filename : /cern/new/src/cfs/geant315/cgsnor.f
529	------------------------------------------------------------------*/
530
531	#define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1)
532
533	/*------------------------------------------------------------------
534	fortran 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	/*------------------------------------------------------------------
540	fortran 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	/*------------------------------------------------------------------
546	fortran 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	/*------------------------------------------------------------------
552	fortran filename : /cern/new/src/cfs/geant315/cgtstr.f
553	------------------------------------------------------------------*/
554
555	#define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2)
556
557	/*------------------------------------------------------------------
558	fortran 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	/*------------------------------------------------------------------
564	fortran 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	/*------------------------------------------------------------------
570	fortran 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	/*------------------------------------------------------------------
576	fortran 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	/*------------------------------------------------------------------
582	fortran 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	/*------------------------------------------------------------------
588	fortran filename : /cern/new/src/cfs/geant315/cgwsor.f
589	------------------------------------------------------------------*/
590
591	#define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2)
592
593	/*------------------------------------------------------------------
594	fortran 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	/*------------------------------------------------------------------
600	fortran 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	/*------------------------------------------------------------------
606	fortran filename : /cern/new/src/cfs/geant315/chanwt.f
607	------------------------------------------------------------------*/
608
609	#define CHANWT() CCALLSFSUB0(CHANWT,chanwt)
610
611	/*------------------------------------------------------------------
612	fortran 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	/*------------------------------------------------------------------
619	fortran filename : /cern/new/src/cfs/geant315/compo.f
620	------------------------------------------------------------------*/
621
622	#define COMPO() CCALLSFSUB0(COMPO,compo)
623
624	/*------------------------------------------------------------------
625	fortran filename : /cern/new/src/cfs/geant315/coranh.f
626	------------------------------------------------------------------*/
627
628	#define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2)
629
630	/*------------------------------------------------------------------
631	fortran 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	/*------------------------------------------------------------------
637	fortran 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	/*------------------------------------------------------------------
643	fortran filename : /cern/new/src/cfs/geant315/coscat.f
644	------------------------------------------------------------------*/
645
646	#define COSCAT() CCALLSFSUB0(COSCAT,coscat)
647
648	/*------------------------------------------------------------------
649	fortran filename : /cern/new/src/cfs/geant315/datar3.f
650	------------------------------------------------------------------*/
651
652	#define DATAR3() CCALLSFSUB0(DATAR3,datar3)
653
654	/*------------------------------------------------------------------
655	fortran filename : /cern/new/src/cfs/geant315/datesh.f
656	------------------------------------------------------------------*/
657
658	#define DATESH() CCALLSFSUB0(DATESH,datesh)
659
660	/*------------------------------------------------------------------
661	fortran filename : /cern/new/src/cfs/geant315/decaux.f
662	------------------------------------------------------------------*/
663
664	#define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2)
665
666	/*------------------------------------------------------------------
667	fortran 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	/*------------------------------------------------------------------
673	fortran 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	/*------------------------------------------------------------------
679	fortran filename : /cern/new/src/cfs/geant315/dlpnuc.f
680	------------------------------------------------------------------*/
681
682	#define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2)
683
684	/*------------------------------------------------------------------
685	fortran filename : /cern/new/src/cfs/geant315/dlpsor.f
686	------------------------------------------------------------------*/
687
688	#define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2)
689
690	/*------------------------------------------------------------------
691	fortran 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	/*------------------------------------------------------------------
698	fortran 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	/*------------------------------------------------------------------
704	fortran 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	/*------------------------------------------------------------------
710	fortran 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	/*------------------------------------------------------------------
717	fortran 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	/*------------------------------------------------------------------
723	fortran 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	/*------------------------------------------------------------------
729	fortran 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	/*------------------------------------------------------------------
736	fortran 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	/*------------------------------------------------------------------
743	fortran 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	/*------------------------------------------------------------------
749	fortran 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	/*------------------------------------------------------------------
756	fortran filename : /cern/new/src/cfs/geant315/evdeex.f
757	------------------------------------------------------------------*/
758
759	#define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1)
760
761	/*------------------------------------------------------------------
762	fortran 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	/*------------------------------------------------------------------
768	fortran filename : /cern/new/src/cfs/geant315/evevap.f
769	------------------------------------------------------------------*/
770
771	#define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1)
772
773	/*------------------------------------------------------------------
774	fortran 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	/*------------------------------------------------------------------
784	fortran 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	/*------------------------------------------------------------------
791	fortran filename : /cern/new/src/cfs/geant315/fcount.f
792	------------------------------------------------------------------*/
793
794	#define FCOUNT() CCALLSFSUB0(FCOUNT,fcount)
795
796	/*------------------------------------------------------------------
797	fortran 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	/*------------------------------------------------------------------
804	fortran filename : /cern/new/src/cfs/geant315/fdevap.f
805	------------------------------------------------------------------*/
806
807	#define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap)
808
809	/*------------------------------------------------------------------
810	fortran filename : /cern/new/src/cfs/geant315/fdnopt.f
811	------------------------------------------------------------------*/
812
813	#define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt)
814
815	/*------------------------------------------------------------------
816	fortran 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	/*------------------------------------------------------------------
822	fortran 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	/*------------------------------------------------------------------
828	fortran 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	/*------------------------------------------------------------------
834	fortran 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	/*------------------------------------------------------------------
841	fortran 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	/*------------------------------------------------------------------
848	fortran filename : /cern/new/src/cfs/geant315/fkdeca.f
849	------------------------------------------------------------------*/
850
851	#define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2)
852
853	/*------------------------------------------------------------------
854	fortran 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	/*------------------------------------------------------------------
860	fortran 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	/*------------------------------------------------------------------
867	fortran filename : /cern/new/src/cfs/geant315/fkerro.f
868	------------------------------------------------------------------*/
869
870	#define FKERRO() CCALLSFSUB0(FKERRO,fkerro)
871
872	/*------------------------------------------------------------------
873	fortran filename : /cern/new/src/cfs/geant315/fkerup.f
874	------------------------------------------------------------------*/
875
876	#define FKERUP() CCALLSFSUB0(FKERUP,fkerup)
877
878	/*------------------------------------------------------------------
879	fortran 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	/*------------------------------------------------------------------
885	fortran 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	/*------------------------------------------------------------------
891	fortran filename : /cern/new/src/cfs/geant315/fkpoli.f
892	------------------------------------------------------------------*/
893
894	#define FKPOLI(A1,A2) CCALLSFSUB2(FKPOLI,fkpoli,PDOUBLE,PDOUBLE,A1,A2)
895
896	/*------------------------------------------------------------------
897	fortran 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	/*------------------------------------------------------------------
903	fortran 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	/*------------------------------------------------------------------
909	fortran filename : /cern/new/src/cfs/geant315/fkzero.f
910	------------------------------------------------------------------*/
911
912	#define FKZERO() CCALLSFSUB0(FKZERO,fkzero)
913
914	/*------------------------------------------------------------------
915	fortran filename : /cern/new/src/cfs/geant315/fldist.f
916	------------------------------------------------------------------*/
917
918	#define FLDIST() CCALLSFSUB0(FLDIST,fldist)
919
920	/*------------------------------------------------------------------
921	fortran filename : /cern/new/src/cfs/geant315/flinit.f
922	------------------------------------------------------------------*/
923
924	#define FLINIT() CCALLSFSUB0(FLINIT,flinit)
925
926	/*------------------------------------------------------------------
927	fortran filename : /cern/new/src/cfs/geant315/flkdt1.f
928	------------------------------------------------------------------*/
929
930	#define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1)
931
932	/*------------------------------------------------------------------
933	fortran filename : /cern/new/src/cfs/geant315/flkdt2.f
934	------------------------------------------------------------------*/
935
936	#define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2)
937
938	/*------------------------------------------------------------------
939	fortran filename : /cern/new/src/cfs/geant315/flkdt3.f
940	------------------------------------------------------------------*/
941
942	#define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3)
943
944	/*------------------------------------------------------------------
945	fortran filename : /cern/new/src/cfs/geant315/flkdt4.f
946	------------------------------------------------------------------*/
947
948	#define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4)
949
950	/*------------------------------------------------------------------
951	fortran filename : /cern/new/src/cfs/geant315/flkdt5.f
952	------------------------------------------------------------------*/
953
954	#define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5)
955
956	/*------------------------------------------------------------------
957	fortran filename : /cern/new/src/cfs/geant315/flkdt6.f
958	------------------------------------------------------------------*/
959
960	#define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6)
961
962	/*------------------------------------------------------------------
963	fortran filename : /cern/new/src/cfs/geant315/flkdt7.f
964	------------------------------------------------------------------*/
965
966	#define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7)
967
968	/*------------------------------------------------------------------
969	fortran filename : /cern/new/src/cfs/geant315/flufin.f
970	------------------------------------------------------------------*/
971
972	#define FLUFIN() CCALLSFSUB0(FLUFIN,flufin)
973
974	/*------------------------------------------------------------------
975	fortran filename : /cern/new/src/cfs/geant315/frmic.f
976	------------------------------------------------------------------*/
977
978	#define FRMIC(A1) CCALLSFSUB1(FRMIC,frmic,PDOUBLE,A1)
979
980	/*------------------------------------------------------------------
981	fortran 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	/*------------------------------------------------------------------
988	fortran filename : /cern/new/src/cfs/geant315/ganni.f
989	------------------------------------------------------------------*/
990
991	#define GANNI() CCALLSFSUB0(GANNI,ganni)
992
993	/*------------------------------------------------------------------
994	fortran filename : /cern/new/src/cfs/geant315/ganni2.f
995	------------------------------------------------------------------*/
996
997	#define GANNI2() CCALLSFSUB0(GANNI2,ganni2)
998
999	/*------------------------------------------------------------------
1000	fortran filename : /cern/new/src/cfs/geant315/gannii.f
1001	------------------------------------------------------------------*/
1002
1003	#define GANNII() CCALLSFSUB0(GANNII,gannii)
1004
1005	/*------------------------------------------------------------------
1006	fortran filename : /cern/new/src/cfs/geant315/gannir.f
1007	------------------------------------------------------------------*/
1008
1009	#define GANNIR() CCALLSFSUB0(GANNIR,gannir)
1010
1011	/*------------------------------------------------------------------
1012	fortran 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	/*------------------------------------------------------------------
1019	fortran filename : /cern/new/src/cfs/geant315/gbhsta.f
1020	------------------------------------------------------------------*/
1021
1022	#define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta)
1023
1024	/*------------------------------------------------------------------
1025	fortran filename : /cern/new/src/cfs/geant315/gbirk.f
1026	------------------------------------------------------------------*/
1027
1028	#define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1)
1029
1030	/*------------------------------------------------------------------
1031	fortran filename : /cern/new/src/cfs/geant315/gbrela.f
1032	------------------------------------------------------------------*/
1033
1034	#define GBRELA() CCALLSFSUB0(GBRELA,gbrela)
1035
1036	/*------------------------------------------------------------------
1037	fortran 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	/*------------------------------------------------------------------
1044	fortran 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	/*------------------------------------------------------------------
1051	fortran filename : /cern/new/src/cfs/geant315/gbreme.f
1052	------------------------------------------------------------------*/
1053
1054	#define GBREME() CCALLSFSUB0(GBREME,gbreme)
1055
1056	/*------------------------------------------------------------------
1057	fortran filename : /cern/new/src/cfs/geant315/gbremm.f
1058	------------------------------------------------------------------*/
1059
1060	#define GBREMM() CCALLSFSUB0(GBREMM,gbremm)
1061
1062	/*------------------------------------------------------------------
1063	fortran filename : /cern/new/src/cfs/geant315/gbrsga.f
1064	------------------------------------------------------------------*/
1065
1066	#define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga)
1067
1068	/*------------------------------------------------------------------
1069	fortran 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	/*------------------------------------------------------------------
1076	fortran 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	/*------------------------------------------------------------------
1083	fortran filename : /cern/new/src/cfs/geant315/gbstat.f
1084	------------------------------------------------------------------*/
1085
1086	#define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat)
1087
1088	/*------------------------------------------------------------------
1089	fortran 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	/*------------------------------------------------------------------
1095	fortran 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	/*------------------------------------------------------------------
1101	fortran filename : /cern/new/src/cfs/geant315/gcent.f
1102	------------------------------------------------------------------*/
1103
1104	#define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2)
1105
1106	/*------------------------------------------------------------------
1107	fortran filename : /cern/new/src/cfs/geant315/gclose.f
1108	------------------------------------------------------------------*/
1109
1110	#define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2)
1111
1112	/*------------------------------------------------------------------
1113	fortran 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	/*------------------------------------------------------------------
1119	fortran filename : /cern/new/src/cfs/geant315/gcoeff.f
1120	------------------------------------------------------------------*/
1121
1122	#define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff)
1123
1124	/*------------------------------------------------------------------
1125	fortran filename : /cern/new/src/cfs/geant315/gcomp.f
1126	------------------------------------------------------------------*/
1127
1128	#define GCOMP() CCALLSFSUB0(GCOMP,gcomp)
1129
1130	/*------------------------------------------------------------------
1131	fortran filename : /cern/new/src/cfs/geant315/gcompi.f
1132	------------------------------------------------------------------*/
1133
1134	#define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi)
1135
1136	/*------------------------------------------------------------------
1137	fortran 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	/*------------------------------------------------------------------
1143	fortran filename : /cern/new/src/cfs/geant315/gd16v.f
1144	------------------------------------------------------------------*/
1145
1146	#define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2)
1147
1148	/*------------------------------------------------------------------
1149	fortran 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	/*------------------------------------------------------------------
1155	fortran 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	/*------------------------------------------------------------------
1161	fortran 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	/*------------------------------------------------------------------
1167	fortran 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	/*------------------------------------------------------------------
1177	fortran 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	/*------------------------------------------------------------------
1183	fortran filename : /cern/new/src/cfs/geant315/gdbomb.f
1184	------------------------------------------------------------------*/
1185
1186	#define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2)
1187
1188	/*------------------------------------------------------------------
1189	fortran filename : /cern/new/src/cfs/geant315/gdcgcl.f
1190	------------------------------------------------------------------*/
1191
1192	#define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1)
1193
1194	/*------------------------------------------------------------------
1195	fortran 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	/*------------------------------------------------------------------
1201	fortran filename : /cern/new/src/cfs/geant315/gdcger.f
1202	------------------------------------------------------------------*/
1203
1204	#define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1)
1205
1206	/*------------------------------------------------------------------
1207	fortran 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	/*------------------------------------------------------------------
1213	fortran 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	/*------------------------------------------------------------------
1219	fortran filename : /cern/new/src/cfs/geant315/gdcgpr.f
1220	------------------------------------------------------------------*/
1221
1222	#define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr)
1223
1224	/*------------------------------------------------------------------
1225	fortran filename : /cern/new/src/cfs/geant315/gdcgrs.f
1226	------------------------------------------------------------------*/
1227
1228	#define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs)
1229
1230	/*------------------------------------------------------------------
1231	fortran filename : /cern/new/src/cfs/geant315/gdcgsl.f
1232	------------------------------------------------------------------*/
1233
1234	#define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2)
1235
1236	/*------------------------------------------------------------------
1237	fortran filename : /cern/new/src/cfs/geant315/gdcgvw.f
1238	------------------------------------------------------------------*/
1239
1240	#define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2)
1241
1242	/*------------------------------------------------------------------
1243	fortran filename : /cern/new/src/cfs/geant315/gdcgwv.f
1244	------------------------------------------------------------------*/
1245
1246	#define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1)
1247
1248	/*------------------------------------------------------------------
1249	fortran 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	/*------------------------------------------------------------------
1261	fortran filename : /cern/new/src/cfs/geant315/gdcirc.f
1262	------------------------------------------------------------------*/
1263
1264	#define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2)
1265
1266	/*------------------------------------------------------------------
1267	fortran filename : /cern/new/src/cfs/geant315/gdcirr.f
1268	------------------------------------------------------------------*/
1269
1270	#define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2)
1271
1272	/*------------------------------------------------------------------
1273	fortran filename : /cern/new/src/cfs/geant315/gdciry.f
1274	------------------------------------------------------------------*/
1275
1276	#define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2)
1277
1278	/*------------------------------------------------------------------
1279	fortran filename : /cern/new/src/cfs/geant315/gdclos.f
1280	------------------------------------------------------------------*/
1281
1282	#define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos)
1283
1284	/*------------------------------------------------------------------
1285	fortran filename : /cern/new/src/cfs/geant315/gdcol.f
1286	------------------------------------------------------------------*/
1287
1288	#define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1)
1289
1290	/*------------------------------------------------------------------
1291	fortran filename : /cern/new/src/cfs/geant315/gdcol1.f
1292	------------------------------------------------------------------*/
1293
1294	#define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1)
1295
1296	/*------------------------------------------------------------------
1297	fortran filename : /cern/new/src/cfs/geant315/gdcota.f
1298	------------------------------------------------------------------*/
1299
1300	#define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota)
1301
1302	/*------------------------------------------------------------------
1303	fortran 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	/*------------------------------------------------------------------
1309	fortran filename : /cern/new/src/cfs/geant315/gdcut.f
1310	------------------------------------------------------------------*/
1311
1312	#define GDCUT() CCALLSFSUB0(GDCUT,gdcut)
1313
1314	/*------------------------------------------------------------------
1315	fortran filename : /cern/new/src/cfs/geant315/gdcxyz.f
1316	------------------------------------------------------------------*/
1317
1318	#define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz)
1319
1320	/*------------------------------------------------------------------
1321	fortran filename : /cern/new/src/cfs/geant315/gdebug.f
1322	------------------------------------------------------------------*/
1323
1324	#define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug)
1325
1326	/*------------------------------------------------------------------
1327	fortran 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	/*------------------------------------------------------------------
1333	fortran 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	/*------------------------------------------------------------------
1339	fortran filename : /cern/new/src/cfs/geant315/gdecay.f
1340	------------------------------------------------------------------*/
1341
1342	#define GDECAY() CCALLSFSUB0(GDECAY,gdecay)
1343
1344	/*------------------------------------------------------------------
1345	fortran filename : /cern/new/src/cfs/geant315/gdelet.f
1346	------------------------------------------------------------------*/
1347
1348	#define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1)
1349
1350	/*------------------------------------------------------------------
1351	fortran 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	/*------------------------------------------------------------------
1357	fortran 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	/*------------------------------------------------------------------
1363	fortran 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	/*------------------------------------------------------------------
1373	fortran filename : /cern/new/src/cfs/geant315/gdgirl.f
1374	------------------------------------------------------------------*/
1375
1376	#define GDGIRL(A1,A2) CCALLSFSUB2(GDGIRL,gdgirl,FLOAT,FLOAT,A1,A2)
1377
1378	/*------------------------------------------------------------------
1379	fortran 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	/*------------------------------------------------------------------
1389	fortran 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	/*------------------------------------------------------------------
1401	fortran filename : /cern/new/src/cfs/geant315/gdinit.f
1402	------------------------------------------------------------------*/
1403
1404	#define GDINIT() CCALLSFSUB0(GDINIT,gdinit)
1405
1406	/*------------------------------------------------------------------
1407	fortran 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	/*------------------------------------------------------------------
1413	fortran 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	/*------------------------------------------------------------------
1423	fortran filename : /cern/new/src/cfs/geant315/gdline.f
1424	------------------------------------------------------------------*/
1425
1426	#define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2)
1427
1428	/*------------------------------------------------------------------
1429	fortran filename : /cern/new/src/cfs/geant315/gdlw.f
1430	------------------------------------------------------------------*/
1431
1432	#define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1)
1433
1434	/*------------------------------------------------------------------
1435	fortran filename : /cern/new/src/cfs/geant315/gdlw1.f
1436	------------------------------------------------------------------*/
1437
1438	#define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1)
1439
1440	/*------------------------------------------------------------------
1441	fortran filename : /cern/new/src/cfs/geant315/gdman.f
1442	------------------------------------------------------------------*/
1443
1444	#define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2)
1445
1446	/*------------------------------------------------------------------
1447	fortran 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	/*------------------------------------------------------------------
1457	fortran filename : /cern/new/src/cfs/geant315/gdopen.f
1458	------------------------------------------------------------------*/
1459
1460	#define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1)
1461
1462	/*------------------------------------------------------------------
1463	fortran 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	/*------------------------------------------------------------------
1475	fortran 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	/*------------------------------------------------------------------
1481	fortran 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	/*------------------------------------------------------------------
1488	fortran 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	/*------------------------------------------------------------------
1498	fortran 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	/*------------------------------------------------------------------
1508	fortran 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	/*------------------------------------------------------------------
1518	fortran 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	/*------------------------------------------------------------------
1528	fortran 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	/*------------------------------------------------------------------
1534	fortran filename : /cern/new/src/cfs/geant315/gdraws.f
1535	------------------------------------------------------------------*/
1536
1537	#define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2)
1538
1539	/*------------------------------------------------------------------
1540	fortran 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	/*------------------------------------------------------------------
1550	fortran 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	/*------------------------------------------------------------------
1556	fortran 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	/*------------------------------------------------------------------
1566	fortran filename : /cern/new/src/cfs/geant315/gdray.f
1567	------------------------------------------------------------------*/
1568
1569	#define GDRAY() CCALLSFSUB0(GDRAY,gdray)
1570
1571	/*------------------------------------------------------------------
1572	fortran 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	/*------------------------------------------------------------------
1578	fortran 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	/*------------------------------------------------------------------
1584	fortran filename : /cern/new/src/cfs/geant315/gdrela.f
1585	------------------------------------------------------------------*/
1586
1587	#define GDRELA() CCALLSFSUB0(GDRELA,gdrela)
1588
1589	/*------------------------------------------------------------------
1590	fortran 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	/*------------------------------------------------------------------
1596	fortran 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	/*------------------------------------------------------------------
1602	fortran 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	/*------------------------------------------------------------------
1608	fortran 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	/*------------------------------------------------------------------
1614	fortran 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	/*------------------------------------------------------------------
1620	fortran filename : /cern/new/src/cfs/geant315/gdrsga.f
1621	------------------------------------------------------------------*/
1622
1623	#define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga)
1624
1625	/*------------------------------------------------------------------
1626	fortran 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	/*------------------------------------------------------------------
1632	fortran filename : /cern/new/src/cfs/geant315/gdrwsc.f
1633	------------------------------------------------------------------*/
1634
1635	#define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2)
1636
1637	/*------------------------------------------------------------------
1638	fortran 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	/*------------------------------------------------------------------
1644	fortran filename : /cern/new/src/cfs/geant315/gdscal.f
1645	------------------------------------------------------------------*/
1646
1647	#define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2)
1648
1649	/*------------------------------------------------------------------
1650	fortran filename : /cern/new/src/cfs/geant315/gdshad.f
1651	------------------------------------------------------------------*/
1652
1653	#define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2)
1654
1655	/*------------------------------------------------------------------
1656	fortran filename : /cern/new/src/cfs/geant315/gdshif.f
1657	------------------------------------------------------------------*/
1658
1659	#define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2)
1660
1661	/*------------------------------------------------------------------
1662	fortran filename : /cern/new/src/cfs/geant315/gdshow.f
1663	------------------------------------------------------------------*/
1664
1665	#define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1)
1666
1667	/*------------------------------------------------------------------
1668	fortran 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	/*------------------------------------------------------------------
1680	fortran 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	/*------------------------------------------------------------------
1690	fortran 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	/*------------------------------------------------------------------
1696	fortran filename : /cern/new/src/cfs/geant315/gdsurf.f
1697	------------------------------------------------------------------*/
1698
1699	#define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1)
1700
1701	/*------------------------------------------------------------------
1702	fortran filename : /cern/new/src/cfs/geant315/gdthrz.f
1703	------------------------------------------------------------------*/
1704
1705	#define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1)
1706
1707	/*------------------------------------------------------------------
1708	fortran 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	/*------------------------------------------------------------------
1714	fortran 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	/*------------------------------------------------------------------
1720	fortran 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	/*------------------------------------------------------------------
1726	fortran filename : /cern/new/src/cfs/geant315/gdtr10.f
1727	------------------------------------------------------------------*/
1728
1729	#define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1)
1730
1731	/*------------------------------------------------------------------
1732	fortran 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	/*------------------------------------------------------------------
1738	fortran filename : /cern/new/src/cfs/geant315/gdtr12.f
1739	------------------------------------------------------------------*/
1740
1741	#define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1)
1742
1743	/*------------------------------------------------------------------
1744	fortran 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	/*------------------------------------------------------------------
1750	fortran filename : /cern/new/src/cfs/geant315/gdtr3.f
1751	------------------------------------------------------------------*/
1752
1753	#define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1)
1754
1755	/*------------------------------------------------------------------
1756	fortran filename : /cern/new/src/cfs/geant315/gdtr4.f
1757	------------------------------------------------------------------*/
1758
1759	#define GDTR4() CCALLSFSUB0(GDTR4,gdtr4)
1760
1761	/*------------------------------------------------------------------
1762	fortran filename : /cern/new/src/cfs/geant315/gdtr5.f
1763	------------------------------------------------------------------*/
1764
1765	#define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1)
1766
1767	/*------------------------------------------------------------------
1768	fortran filename : /cern/new/src/cfs/geant315/gdtr6.f
1769	------------------------------------------------------------------*/
1770
1771	#define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1)
1772
1773	/*------------------------------------------------------------------
1774	fortran 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	/*------------------------------------------------------------------
1786	fortran filename : /cern/new/src/cfs/geant315/gdtr99.f
1787	------------------------------------------------------------------*/
1788
1789	#define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1)
1790
1791	/*------------------------------------------------------------------
1792	fortran 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	/*------------------------------------------------------------------
1802	fortran 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	/*------------------------------------------------------------------
1812	fortran filename : /cern/new/src/cfs/geant315/gdxyz.f
1813	------------------------------------------------------------------*/
1814
1815	#define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1)
1816
1817	/*------------------------------------------------------------------
1818	fortran 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	/*------------------------------------------------------------------
1824	fortran 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	/*------------------------------------------------------------------
1830	fortran 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	/*------------------------------------------------------------------
1840	fortran filename : /cern/new/src/cfs/geant315/geditv.f
1841	------------------------------------------------------------------*/
1842
1843	#define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1)
1844
1845	/*------------------------------------------------------------------
1846	fortran filename : /cern/new/src/cfs/geant315/gekbin.f
1847	------------------------------------------------------------------*/
1848
1849	#define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin)
1850
1851	/*------------------------------------------------------------------
1852	fortran 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	/*------------------------------------------------------------------
1858	fortran filename : /cern/new/src/cfs/geant315/getnum.f
1859	------------------------------------------------------------------*/
1860
1861	#define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2)
1862
1863	/*------------------------------------------------------------------
1864	fortran 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	/*------------------------------------------------------------------
1874	fortran 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	/*------------------------------------------------------------------
1884	fortran 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	/*------------------------------------------------------------------
1896	fortran 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	/*------------------------------------------------------------------
1902	fortran 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	/*------------------------------------------------------------------
1908	fortran 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	/*------------------------------------------------------------------
1914	fortran 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	/*------------------------------------------------------------------
1921	fortran filename : /cern/new/src/cfs/geant315/gfcvol.f
1922	------------------------------------------------------------------*/
1923
1924	#define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol)
1925
1926	/*------------------------------------------------------------------
1927	fortran 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	/*------------------------------------------------------------------
1941	fortran 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	/*------------------------------------------------------------------
1953	fortran 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	/*------------------------------------------------------------------
1967	fortran 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	/*------------------------------------------------------------------
1981	fortran 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	/*------------------------------------------------------------------
1993	fortran 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	/*------------------------------------------------------------------
2005	fortran filename : /cern/new/src/cfs/geant315/gffgo.f
2006	------------------------------------------------------------------*/
2007
2008	#define GFFGO() CCALLSFSUB0(GFFGO,gffgo)
2009
2010	/*------------------------------------------------------------------
2011	fortran 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	/*------------------------------------------------------------------
2023	fortran filename : /cern/new/src/cfs/geant315/gfhsta.f
2024	------------------------------------------------------------------*/
2025
2026	#define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta)
2027
2028	/*------------------------------------------------------------------
2029	fortran 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	/*------------------------------------------------------------------
2041	fortran filename : /cern/new/src/cfs/geant315/gfinds.f
2042	------------------------------------------------------------------*/
2043
2044	#define GFINDS() CCALLSFSUB0(GFINDS,gfinds)
2045
2046	/*------------------------------------------------------------------
2047	fortran 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	/*------------------------------------------------------------------
2053	fortran 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	/*------------------------------------------------------------------
2059	fortran 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	/*------------------------------------------------------------------
2065	fortran 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	/*------------------------------------------------------------------
2071	fortran 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	/*------------------------------------------------------------------
2077	fortran 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	/*------------------------------------------------------------------
2083	fortran 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	/*------------------------------------------------------------------
2089	fortran 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	/*------------------------------------------------------------------
2101	fortran 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	/*------------------------------------------------------------------
2113	fortran 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	/*------------------------------------------------------------------
2125	fortran 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	/*------------------------------------------------------------------
2137	fortran 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	/*------------------------------------------------------------------
2147	fortran 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	/*------------------------------------------------------------------
2157	fortran 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	/*------------------------------------------------------------------
2163	fortran filename : /cern/new/src/cfs/geant315/gfstat.f
2164	------------------------------------------------------------------*/
2165
2166	#define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1)
2167
2168	/*------------------------------------------------------------------
2169	fortran filename : /cern/new/src/cfs/geant315/gftitl.f
2170	------------------------------------------------------------------*/
2171
2172	#define GFTITL(A1,A2) CCALLSFSUB2(GFTITL,gftitl,INTV,INTV,A1,A2)
2173
2174	/*------------------------------------------------------------------
2175	fortran 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	/*------------------------------------------------------------------
2185	fortran 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	/*------------------------------------------------------------------
2195	fortran filename : /cern/new/src/cfs/geant315/gftrac.f
2196	------------------------------------------------------------------*/
2197
2198	#define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac)
2199
2200	/*------------------------------------------------------------------
2201	fortran 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	/*------------------------------------------------------------------
2207	fortran 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	/*------------------------------------------------------------------
2213	fortran filename : /cern/new/src/cfs/geant315/ggcave.f
2214	------------------------------------------------------------------*/
2215
2216	#define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave)
2217
2218	/*------------------------------------------------------------------
2219	fortran filename : /cern/new/src/cfs/geant315/ggclos.f
2220	------------------------------------------------------------------*/
2221
2222	#define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos)
2223
2224	/*------------------------------------------------------------------
2225	fortran filename : /cern/new/src/cfs/geant315/ggdetv.f
2226	------------------------------------------------------------------*/
2227
2228	#define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2)
2229
2230	/*------------------------------------------------------------------
2231	fortran 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	/*------------------------------------------------------------------
2237	fortran 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	/*------------------------------------------------------------------
2243	fortran filename : /cern/new/src/cfs/geant315/ggdvlp.f
2244	------------------------------------------------------------------*/
2245
2246	#define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp)
2247
2248	/*------------------------------------------------------------------
2249	fortran 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	/*------------------------------------------------------------------
2259	fortran filename : /cern/new/src/cfs/geant315/ggnlev.f
2260	------------------------------------------------------------------*/
2261
2262	#define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev)
2263
2264	/*------------------------------------------------------------------
2265	fortran filename : /cern/new/src/cfs/geant315/ggord.f
2266	------------------------------------------------------------------*/
2267
2268	#define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1)
2269
2270	/*------------------------------------------------------------------
2271	fortran filename : /cern/new/src/cfs/geant315/ggordq.f
2272	------------------------------------------------------------------*/
2273
2274	#define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1)
2275
2276	/*------------------------------------------------------------------
2277	fortran 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	/*------------------------------------------------------------------
2283	fortran 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	/*------------------------------------------------------------------
2289	fortran 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	/*------------------------------------------------------------------
2295	fortran 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	/*------------------------------------------------------------------
2301	fortran filename : /cern/new/src/cfs/geant315/ghclos.f
2302	------------------------------------------------------------------*/
2303
2304	#define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos)
2305
2306	/*------------------------------------------------------------------
2307	fortran 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	/*------------------------------------------------------------------
2313	fortran 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	/*------------------------------------------------------------------
2319	fortran filename : /cern/new/src/cfs/geant315/gheini.f
2320	------------------------------------------------------------------*/
2321
2322	#define GHEINI() CCALLSFSUB0(GHEINI,gheini)
2323
2324	/*------------------------------------------------------------------
2325	fortran filename : /cern/new/src/cfs/geant315/gheish.f
2326	------------------------------------------------------------------*/
2327
2328	#define GHEISH() CCALLSFSUB0(GHEISH,gheish)
2329
2330	/*------------------------------------------------------------------
2331	fortran 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	/*------------------------------------------------------------------
2337	fortran 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	/*------------------------------------------------------------------
2343	fortran 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	/*------------------------------------------------------------------
2350	fortran filename : /cern/new/src/cfs/geant315/ghfacf.f
2351	------------------------------------------------------------------*/
2352
2353	#define GHFACF() CCALLSFSUB0(GHFACF,ghfacf)
2354
2355	/*------------------------------------------------------------------
2356	fortran 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	/*------------------------------------------------------------------
2363	fortran 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	/*------------------------------------------------------------------
2369	fortran 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	/*------------------------------------------------------------------
2376	fortran 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	/*------------------------------------------------------------------
2383	fortran filename : /cern/new/src/cfs/geant315/ghfcal.f
2384	------------------------------------------------------------------*/
2385
2386	#define GHFCAL(A1,A2) CCALLSFSUB2(GHFCAL,ghfcal,INT,INT,A1,A2)
2387
2388	/*------------------------------------------------------------------
2389	fortran filename : /cern/new/src/cfs/geant315/ghfcha.f
2390	------------------------------------------------------------------*/
2391
2392	#define GHFCHA() CCALLSFSUB0(GHFCHA,ghfcha)
2393
2394	/*------------------------------------------------------------------
2395	fortran filename : /cern/new/src/cfs/geant315/ghfcos.f
2396	------------------------------------------------------------------*/
2397
2398	#define GHFCOS(A1,A2) CCALLSFSUB2(GHFCOS,ghfcos,PFLOAT,PFLOAT,A1,A2)
2399
2400	/*------------------------------------------------------------------
2401	fortran 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	/*------------------------------------------------------------------
2408	fortran 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	/*------------------------------------------------------------------
2415	fortran 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	/*------------------------------------------------------------------
2421	fortran filename : /cern/new/src/cfs/geant315/ghffrm.f
2422	------------------------------------------------------------------*/
2423
2424	#define GHFFRM(A1) CCALLSFSUB1(GHFFRM,ghffrm,PFLOAT,A1)
2425
2426	/*------------------------------------------------------------------
2427	fortran 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	/*------------------------------------------------------------------
2433	fortran filename : /cern/new/src/cfs/geant315/ghfhdi.f
2434	------------------------------------------------------------------*/
2435
2436	#define GHFHDI() CCALLSFSUB0(GHFHDI,ghfhdi)
2437
2438	/*------------------------------------------------------------------
2439	fortran 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	/*------------------------------------------------------------------
2445	fortran 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	/*------------------------------------------------------------------
2451	fortran 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	/*------------------------------------------------------------------
2458	fortran 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	/*------------------------------------------------------------------
2464	fortran 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	/*------------------------------------------------------------------
2470	fortran 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	/*------------------------------------------------------------------
2477	fortran filename : /cern/new/src/cfs/geant315/ghfpol.f
2478	------------------------------------------------------------------*/
2479
2480	#define GHFPOL(A1,A2) CCALLSFSUB2(GHFPOL,ghfpol,FLOAT,PFLOAT,A1,A2)
2481
2482	/*------------------------------------------------------------------
2483	fortran filename : /cern/new/src/cfs/geant315/ghfrag.f
2484	------------------------------------------------------------------*/
2485
2486	#define GHFRAG(A1) CCALLSFSUB1(GHFRAG,ghfrag,PFLOAT,A1)
2487
2488	/*------------------------------------------------------------------
2489	fortran 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	/*------------------------------------------------------------------
2495	fortran 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	/*------------------------------------------------------------------
2501	fortran 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	/*------------------------------------------------------------------
2507	fortran 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	/*------------------------------------------------------------------
2513	fortran 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	/*------------------------------------------------------------------
2519	fortran 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	/*------------------------------------------------------------------
2525	fortran 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	/*------------------------------------------------------------------
2531	fortran 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	/*------------------------------------------------------------------
2537	fortran 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	/*------------------------------------------------------------------
2544	fortran 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	/*------------------------------------------------------------------
2550	fortran 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	/*------------------------------------------------------------------
2556	fortran 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	/*------------------------------------------------------------------
2562	fortran 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	/*------------------------------------------------------------------
2568	fortran 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	/*------------------------------------------------------------------
2574	fortran 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	/*------------------------------------------------------------------
2580	fortran 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	/*------------------------------------------------------------------
2586	fortran 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	/*------------------------------------------------------------------
2592	fortran 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	/*------------------------------------------------------------------
2598	fortran 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	/*------------------------------------------------------------------
2605	fortran 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	/*------------------------------------------------------------------
2612	fortran filename : /cern/new/src/cfs/geant315/ghstop.f
2613	------------------------------------------------------------------*/
2614
2615	#define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop)
2616
2617	/*------------------------------------------------------------------
2618	fortran filename : /cern/new/src/cfs/geant315/ghtati.f
2619	------------------------------------------------------------------*/
2620
2621	#define GHTATI() CCALLSFSUB0(GHTATI,ghtati)
2622
2623	/*------------------------------------------------------------------
2624	fortran 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	/*------------------------------------------------------------------
2630	fortran 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	/*------------------------------------------------------------------
2636	fortran 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	/*------------------------------------------------------------------
2642	fortran 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	/*------------------------------------------------------------------
2648	fortran filename : /cern/new/src/cfs/geant315/ginit.f
2649	------------------------------------------------------------------*/
2650
2651	#define GINIT() CCALLSFSUB0(GINIT,ginit)
2652
2653	/*------------------------------------------------------------------
2654	fortran 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	/*------------------------------------------------------------------
2660	fortran 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	/*------------------------------------------------------------------
2666	fortran 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	/*------------------------------------------------------------------
2672	fortran 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	/*------------------------------------------------------------------
2678	fortran 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	/*------------------------------------------------------------------
2684	fortran 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	/*------------------------------------------------------------------
2690	fortran 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	/*------------------------------------------------------------------
2696	fortran filename : /cern/new/src/cfs/geant315/ginvol.f
2697	------------------------------------------------------------------*/
2698
2699	#define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2)
2700
2701	/*------------------------------------------------------------------
2702	fortran 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	/*------------------------------------------------------------------
2708	fortran 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	/*------------------------------------------------------------------
2714	fortran 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	/*------------------------------------------------------------------
2726	fortran filename : /cern/new/src/cfs/geant315/gkxyz.f
2727	------------------------------------------------------------------*/
2728
2729	#define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1)
2730
2731	/*------------------------------------------------------------------
2732	fortran 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	/*------------------------------------------------------------------
2739	fortran filename : /cern/new/src/cfs/geant315/glandg.f
2740	------------------------------------------------------------------*/
2741
2742	#define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1)
2743
2744	/*------------------------------------------------------------------
2745	fortran 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	/*------------------------------------------------------------------
2751	fortran 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	/*------------------------------------------------------------------
2758	fortran 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	/*------------------------------------------------------------------
2765	fortran 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	/*------------------------------------------------------------------
2771	fortran filename : /cern/new/src/cfs/geant315/glast.f
2772	------------------------------------------------------------------*/
2773
2774	#define GLAST() CCALLSFSUB0(GLAST,glast)
2775
2776	/*------------------------------------------------------------------
2777	fortran 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	/*------------------------------------------------------------------
2787	fortran 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	/*------------------------------------------------------------------
2797	fortran 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	/*------------------------------------------------------------------
2803	fortran filename : /cern/new/src/cfs/geant315/glsklt.f
2804	------------------------------------------------------------------*/
2805
2806	#define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt)
2807
2808	/*------------------------------------------------------------------
2809	fortran filename : /cern/new/src/cfs/geant315/gltrac.f
2810	------------------------------------------------------------------*/
2811
2812	#define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac)
2813
2814	/*------------------------------------------------------------------
2815	fortran filename : /cern/new/src/cfs/geant315/gludky.f
2816	------------------------------------------------------------------*/
2817
2818	#define GLUDKY() CCALLSFSUB0(GLUDKY,gludky)
2819
2820	/*------------------------------------------------------------------
2821	fortran filename : /cern/new/src/cfs/geant315/glund.f
2822	------------------------------------------------------------------*/
2823
2824	#define GLUND() CCALLSFSUB0(GLUND,glund)
2825
2826	/*------------------------------------------------------------------
2827	fortran filename : /cern/new/src/cfs/geant315/glundi.f
2828	------------------------------------------------------------------*/
2829
2830	#define GLUNDI() CCALLSFSUB0(GLUNDI,glundi)
2831
2832	/*------------------------------------------------------------------
2833	fortran 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	/*------------------------------------------------------------------
2839	fortran filename : /cern/new/src/cfs/geant315/gm3pol.f
2840	------------------------------------------------------------------*/
2841
2842	#define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2)
2843
2844	/*------------------------------------------------------------------
2845	fortran filename : /cern/new/src/cfs/geant315/gmail.f
2846	------------------------------------------------------------------*/
2847
2848	#define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2)
2849
2850	/*------------------------------------------------------------------
2851	fortran filename : /cern/new/src/cfs/geant315/gmate.f
2852	------------------------------------------------------------------*/
2853
2854	#define GMATE() CCALLSFSUB0(GMATE,gmate)
2855
2856	/*------------------------------------------------------------------
2857	fortran filename : /cern/new/src/cfs/geant315/gmclos.f
2858	------------------------------------------------------------------*/
2859
2860	#define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos)
2861
2862	/*------------------------------------------------------------------
2863	fortran filename : /cern/new/src/cfs/geant315/gmcoul.f
2864	------------------------------------------------------------------*/
2865
2866	#define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2)
2867
2868	/*------------------------------------------------------------------
2869	fortran filename : /cern/new/src/cfs/geant315/gmedia.f
2870	------------------------------------------------------------------*/
2871
2872	#define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2)
2873
2874	/*------------------------------------------------------------------
2875	fortran filename : /cern/new/src/cfs/geant315/gmedin.f
2876	------------------------------------------------------------------*/
2877
2878	#define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin)
2879
2880	/*------------------------------------------------------------------
2881	fortran 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	/*------------------------------------------------------------------
2887	fortran 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	/*------------------------------------------------------------------
2893	fortran filename : /cern/new/src/cfs/geant315/gmgaus.f
2894	------------------------------------------------------------------*/
2895
2896	#define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2)
2897
2898	/*------------------------------------------------------------------
2899	fortran 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	/*------------------------------------------------------------------
2905	fortran 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	/*------------------------------------------------------------------
2911	fortran 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	/*------------------------------------------------------------------
2917	fortran 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	/*------------------------------------------------------------------
2923	fortran 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	/*------------------------------------------------------------------
2929	fortran 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	/*------------------------------------------------------------------
2935	fortran filename : /cern/new/src/cfs/geant315/gmulof.f
2936	------------------------------------------------------------------*/
2937
2938	#define GMULOF() CCALLSFSUB0(GMULOF,gmulof)
2939
2940	/*------------------------------------------------------------------
2941	fortran filename : /cern/new/src/cfs/geant315/gmults.f
2942	------------------------------------------------------------------*/
2943
2944	#define GMULTS() CCALLSFSUB0(GMULTS,gmults)
2945
2946	/*------------------------------------------------------------------
2947	fortran filename : /cern/new/src/cfs/geant315/gmunu.f
2948	------------------------------------------------------------------*/
2949
2950	#define GMUNU() CCALLSFSUB0(GMUNU,gmunu)
2951
2952	/*------------------------------------------------------------------
2953	fortran filename : /cern/new/src/cfs/geant315/gmunui.f
2954	------------------------------------------------------------------*/
2955
2956	#define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui)
2957
2958	/*------------------------------------------------------------------
2959	fortran 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	/*------------------------------------------------------------------
2966	fortran 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	/*------------------------------------------------------------------
2972	fortran 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	/*------------------------------------------------------------------
2978	fortran 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	/*------------------------------------------------------------------
2984	fortran 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	/*------------------------------------------------------------------
2990	fortran 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	/*------------------------------------------------------------------
2996	fortran 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	/*------------------------------------------------------------------
3002	fortran 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	/*------------------------------------------------------------------
3008	fortran 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	/*------------------------------------------------------------------
3014	fortran 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	/*------------------------------------------------------------------
3020	fortran 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	/*------------------------------------------------------------------
3026	fortran 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	/*------------------------------------------------------------------
3032	fortran 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	/*------------------------------------------------------------------
3038	fortran 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	/*------------------------------------------------------------------
3044	fortran 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	/*------------------------------------------------------------------
3050	fortran 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	/*------------------------------------------------------------------
3056	fortran 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	/*------------------------------------------------------------------
3062	fortran filename : /cern/new/src/cfs/geant315/gnotr1.f
3063	------------------------------------------------------------------*/
3064
3065	#define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1)
3066
3067	/*------------------------------------------------------------------
3068	fortran 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	/*------------------------------------------------------------------
3074	fortran 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	/*------------------------------------------------------------------
3080	fortran 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	/*------------------------------------------------------------------
3086	fortran 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	/*------------------------------------------------------------------
3092	fortran 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	/*------------------------------------------------------------------
3098	fortran 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	/*------------------------------------------------------------------
3104	fortran 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	/*------------------------------------------------------------------
3110	fortran 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	/*------------------------------------------------------------------
3116	fortran 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	/*------------------------------------------------------------------
3122	fortran 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	/*------------------------------------------------------------------
3128	fortran 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	/*------------------------------------------------------------------
3134	fortran 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	/*------------------------------------------------------------------
3140	fortran 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	/*------------------------------------------------------------------
3146	fortran 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	/*------------------------------------------------------------------
3152	fortran 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	/*------------------------------------------------------------------
3162	fortran filename : /cern/new/src/cfs/geant315/gpairg.f
3163	------------------------------------------------------------------*/
3164
3165	#define GPAIRG() CCALLSFSUB0(GPAIRG,gpairg)
3166
3167	/*------------------------------------------------------------------
3168	fortran filename : /cern/new/src/cfs/geant315/gpairm.f
3169	------------------------------------------------------------------*/
3170
3171	#define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm)
3172
3173	/*------------------------------------------------------------------
3174	fortran filename : /cern/new/src/cfs/geant315/gpart.f
3175	------------------------------------------------------------------*/
3176
3177	#define GPART() CCALLSFSUB0(GPART,gpart)
3178
3179	/*------------------------------------------------------------------
3180	fortran filename : /cern/new/src/cfs/geant315/gpcxyz.f
3181	------------------------------------------------------------------*/
3182
3183	#define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz)
3184
3185	/*------------------------------------------------------------------
3186	fortran 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	/*------------------------------------------------------------------
3198	fortran 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	/*------------------------------------------------------------------
3205	fortran 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	/*------------------------------------------------------------------
3211	fortran filename : /cern/new/src/cfs/geant315/gpfis.f
3212	------------------------------------------------------------------*/
3213
3214	#define GPFIS() CCALLSFSUB0(GPFIS,gpfis)
3215
3216	/*------------------------------------------------------------------
3217	fortran filename : /cern/new/src/cfs/geant315/gpfisi.f
3218	------------------------------------------------------------------*/
3219
3220	#define GPFISI() CCALLSFSUB0(GPFISI,gpfisi)
3221
3222	/*------------------------------------------------------------------
3223	fortran filename : /cern/new/src/cfs/geant315/gpghei.f
3224	------------------------------------------------------------------*/
3225
3226	#define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei)
3227
3228	/*------------------------------------------------------------------
3229	fortran filename : /cern/new/src/cfs/geant315/gpgkin.f
3230	------------------------------------------------------------------*/
3231
3232	#define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin)
3233
3234	/*------------------------------------------------------------------
3235	fortran filename : /cern/new/src/cfs/geant315/gphadr.f
3236	------------------------------------------------------------------*/
3237
3238	#define GPHADR() CCALLSFSUB0(GPHADR,gphadr)
3239
3240	/*------------------------------------------------------------------
3241	fortran 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	/*------------------------------------------------------------------
3253	fortran filename : /cern/new/src/cfs/geant315/gphmfi.f
3254	------------------------------------------------------------------*/
3255
3256	#define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi)
3257
3258	/*------------------------------------------------------------------
3259	fortran filename : /cern/new/src/cfs/geant315/gphot.f
3260	------------------------------------------------------------------*/
3261
3262	#define GPHOT() CCALLSFSUB0(GPHOT,gphot)
3263
3264	/*------------------------------------------------------------------
3265	fortran filename : /cern/new/src/cfs/geant315/gphoti.f
3266	------------------------------------------------------------------*/
3267
3268	#define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti)
3269
3270	/*------------------------------------------------------------------
3271	fortran 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	/*------------------------------------------------------------------
3278	fortran filename : /cern/new/src/cfs/geant315/gphysi.f
3279	------------------------------------------------------------------*/
3280
3281	#define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi)
3282
3283	/*------------------------------------------------------------------
3284	fortran filename : /cern/new/src/cfs/geant315/gpions.f
3285	------------------------------------------------------------------*/
3286
3287	#define GPIONS() CCALLSFSUB0(GPIONS,gpions)
3288
3289	/*------------------------------------------------------------------
3290	fortran filename : /cern/new/src/cfs/geant315/gpjxyz.f
3291	------------------------------------------------------------------*/
3292
3293	#define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1)
3294
3295	/*------------------------------------------------------------------
3296	fortran filename : /cern/new/src/cfs/geant315/gpkine.f
3297	------------------------------------------------------------------*/
3298
3299	#define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1)
3300
3301	/*------------------------------------------------------------------
3302	fortran 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	/*------------------------------------------------------------------
3312	fortran filename : /cern/new/src/cfs/geant315/gpmate.f
3313	------------------------------------------------------------------*/
3314
3315	#define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1)
3316
3317	/*------------------------------------------------------------------
3318	fortran 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	/*------------------------------------------------------------------
3324	fortran 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	/*------------------------------------------------------------------
3330	fortran filename : /cern/new/src/cfs/geant315/gppart.f
3331	------------------------------------------------------------------*/
3332
3333	#define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1)
3334
3335	/*------------------------------------------------------------------
3336	fortran filename : /cern/new/src/cfs/geant315/gprela.f
3337	------------------------------------------------------------------*/
3338
3339	#define GPRELA() CCALLSFSUB0(GPRELA,gprela)
3340
3341	/*------------------------------------------------------------------
3342	fortran 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	/*------------------------------------------------------------------
3349	fortran 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	/*------------------------------------------------------------------
3359	fortran 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	/*------------------------------------------------------------------
3369	fortran filename : /cern/new/src/cfs/geant315/gprobi.f
3370	------------------------------------------------------------------*/
3371
3372	#define GPROBI() CCALLSFSUB0(GPROBI,gprobi)
3373
3374	/*------------------------------------------------------------------
3375	fortran filename : /cern/new/src/cfs/geant315/gprotm.f
3376	------------------------------------------------------------------*/
3377
3378	#define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1)
3379
3380	/*------------------------------------------------------------------
3381	fortran filename : /cern/new/src/cfs/geant315/gprsga.f
3382	------------------------------------------------------------------*/
3383
3384	#define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga)
3385
3386	/*------------------------------------------------------------------
3387	fortran 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	/*------------------------------------------------------------------
3394	fortran 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	/*------------------------------------------------------------------
3401	fortran 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	/*------------------------------------------------------------------
3413	fortran filename : /cern/new/src/cfs/geant315/gpstat.f
3414	------------------------------------------------------------------*/
3415
3416	#define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat)
3417
3418	/*------------------------------------------------------------------
3419	fortran filename : /cern/new/src/cfs/geant315/gptmed.f
3420	------------------------------------------------------------------*/
3421
3422	#define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1)
3423
3424	/*------------------------------------------------------------------
3425	fortran filename : /cern/new/src/cfs/geant315/gpvert.f
3426	------------------------------------------------------------------*/
3427
3428	#define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1)
3429
3430	/*------------------------------------------------------------------
3431	fortran filename : /cern/new/src/cfs/geant315/gpvolu.f
3432	------------------------------------------------------------------*/
3433
3434	#define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1)
3435
3436	/*------------------------------------------------------------------
3437	fortran filename : /cern/new/src/cfs/geant315/grangi.f
3438	------------------------------------------------------------------*/
3439
3440	#define GRANGI() CCALLSFSUB0(GRANGI,grangi)
3441
3442	/*------------------------------------------------------------------
3443	fortran filename : /cern/new/src/cfs/geant315/granor.f
3444	------------------------------------------------------------------*/
3445
3446	#define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2)
3447
3448	/*------------------------------------------------------------------
3449	fortran filename : /cern/new/src/cfs/geant315/grayl.f
3450	------------------------------------------------------------------*/
3451
3452	#define GRAYL() CCALLSFSUB0(GRAYL,grayl)
3453
3454	/*------------------------------------------------------------------
3455	fortran filename : /cern/new/src/cfs/geant315/grayli.f
3456	------------------------------------------------------------------*/
3457
3458	#define GRAYLI() CCALLSFSUB0(GRAYLI,grayli)
3459
3460	/*------------------------------------------------------------------
3461	fortran filename : /cern/new/src/cfs/geant315/grend.f
3462	------------------------------------------------------------------*/
3463
3464	#define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1)
3465
3466	/*------------------------------------------------------------------
3467	fortran 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	/*------------------------------------------------------------------
3479	fortran 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	/*------------------------------------------------------------------
3489	fortran 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	/*------------------------------------------------------------------
3501	fortran 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	/*------------------------------------------------------------------
3513	fortran 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	/*------------------------------------------------------------------
3519	fortran filename : /cern/new/src/cfs/geant315/grleas.f
3520	------------------------------------------------------------------*/
3521
3522	#define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1)
3523
3524	/*------------------------------------------------------------------
3525	fortran 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	/*------------------------------------------------------------------
3537	fortran 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	/*------------------------------------------------------------------
3543	fortran 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	/*------------------------------------------------------------------
3549	fortran filename : /cern/new/src/cfs/geant315/grndm.f
3550	------------------------------------------------------------------*/
3551
3552	#define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2)
3553
3554	/*------------------------------------------------------------------
3555	fortran 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	/*------------------------------------------------------------------
3565	fortran 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	/*------------------------------------------------------------------
3571	fortran 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	/*------------------------------------------------------------------
3583	fortran 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	/*------------------------------------------------------------------
3589	fortran 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	/*------------------------------------------------------------------
3599	fortran filename : /cern/new/src/cfs/geant315/grun.f
3600	------------------------------------------------------------------*/
3601
3602	#define GRUN() CCALLSFSUB0(GRUN,grun)
3603
3604	/*------------------------------------------------------------------
3605	fortran 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	/*------------------------------------------------------------------
3611	fortran 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	/*------------------------------------------------------------------
3617	fortran 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	/*------------------------------------------------------------------
3623	fortran 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	/*------------------------------------------------------------------
3635	fortran 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	/*------------------------------------------------------------------
3645	fortran filename : /cern/new/src/cfs/geant315/gscani.f
3646	------------------------------------------------------------------*/
3647
3648	#define GSCANI() CCALLSFSUB0(GSCANI,gscani)
3649
3650	/*------------------------------------------------------------------
3651	fortran filename : /cern/new/src/cfs/geant315/gscank.f
3652	------------------------------------------------------------------*/
3653
3654	#define GSCANK() CCALLSFSUB0(GSCANK,gscank)
3655
3656	/*------------------------------------------------------------------
3657	fortran filename : /cern/new/src/cfs/geant315/gscano.f
3658	------------------------------------------------------------------*/
3659
3660	#define GSCANO() CCALLSFSUB0(GSCANO,gscano)
3661
3662	/*------------------------------------------------------------------
3663	fortran filename : /cern/new/src/cfs/geant315/gscanu.f
3664	------------------------------------------------------------------*/
3665
3666	#define GSCANU() CCALLSFSUB0(GSCANU,gscanu)
3667
3668	/*------------------------------------------------------------------
3669	fortran 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	/*------------------------------------------------------------------
3675	fortran 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	/*------------------------------------------------------------------
3687	fortran filename : /cern/new/src/cfs/geant315/gscvol.f
3688	------------------------------------------------------------------*/
3689
3690	#define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol)
3691
3692	/*------------------------------------------------------------------
3693	fortran 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	/*------------------------------------------------------------------
3707	fortran 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	/*------------------------------------------------------------------
3721	fortran 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	/*------------------------------------------------------------------
3735	fortran 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	/*------------------------------------------------------------------
3749	fortran 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	/*------------------------------------------------------------------
3761	fortran 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	/*------------------------------------------------------------------
3773	fortran 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	/*------------------------------------------------------------------
3779	fortran 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	/*------------------------------------------------------------------
3785	fortran 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	/*------------------------------------------------------------------
3797	fortran 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	/*------------------------------------------------------------------
3809	fortran 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	/*------------------------------------------------------------------
3821	fortran 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	/*------------------------------------------------------------------
3833	fortran 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	/*------------------------------------------------------------------
3845	fortran 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	/*------------------------------------------------------------------
3857	fortran 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	/*------------------------------------------------------------------
3869	fortran 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	/*------------------------------------------------------------------
3875	fortran 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	/*------------------------------------------------------------------
3881	fortran filename : /cern/new/src/cfs/geant315/gsking.f
3882	------------------------------------------------------------------*/
3883
3884	#define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1)
3885
3886	/*------------------------------------------------------------------
3887	fortran 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	/*------------------------------------------------------------------
3897	fortran 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	/*------------------------------------------------------------------
3907	fortran 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	/*------------------------------------------------------------------
3917	fortran 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	/*------------------------------------------------------------------
3927	fortran 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	/*------------------------------------------------------------------
3933	fortran 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	/*------------------------------------------------------------------
3943	fortran 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	/*------------------------------------------------------------------
3953	fortran 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	/*------------------------------------------------------------------
3967	fortran 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	/*------------------------------------------------------------------
3981	fortran 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	/*------------------------------------------------------------------
3987	fortran filename : /cern/new/src/cfs/geant315/gsscan.f
3988	------------------------------------------------------------------*/
3989
3990	#define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2)
3991
3992	/*------------------------------------------------------------------
3993	fortran filename : /cern/new/src/cfs/geant315/gsstak.f
3994	------------------------------------------------------------------*/
3995
3996	#define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1)
3997
3998	/*------------------------------------------------------------------
3999	fortran 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	/*------------------------------------------------------------------
4009	fortran 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	/*------------------------------------------------------------------
4019	fortran filename : /cern/new/src/cfs/geant315/gstrac.f
4020	------------------------------------------------------------------*/
4021
4022	#define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac)
4023
4024	/*------------------------------------------------------------------
4025	fortran 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	/*------------------------------------------------------------------
4035	fortran 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	/*------------------------------------------------------------------
4041	fortran 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	/*------------------------------------------------------------------
4053	fortran filename : /cern/new/src/cfs/geant315/gsxyz.f
4054	------------------------------------------------------------------*/
4055
4056	#define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz)
4057
4058	/*------------------------------------------------------------------
4059	fortran filename : /cern/new/src/cfs/geant315/gtau.f
4060	------------------------------------------------------------------*/
4061
4062	#define GTAU() CCALLSFSUB0(GTAU,gtau)
4063
4064	/*------------------------------------------------------------------
4065	fortran filename : /cern/new/src/cfs/geant315/gtelec.f
4066	------------------------------------------------------------------*/
4067
4068	#define GTELEC() CCALLSFSUB0(GTELEC,gtelec)
4069
4070	/*------------------------------------------------------------------
4071	fortran filename : /cern/new/src/cfs/geant315/gtgama.f
4072	------------------------------------------------------------------*/
4073
4074	#define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama)
4075
4076	/*------------------------------------------------------------------
4077	fortran filename : /cern/new/src/cfs/geant315/gthadr.f
4078	------------------------------------------------------------------*/
4079
4080	#define GTHADR() CCALLSFSUB0(GTHADR,gthadr)
4081
4082	/*------------------------------------------------------------------
4083	fortran filename : /cern/new/src/cfs/geant315/gtmedi.f
4084	------------------------------------------------------------------*/
4085
4086	#define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2)
4087
4088	/*------------------------------------------------------------------
4089	fortran filename : /cern/new/src/cfs/geant315/gtmuon.f
4090	------------------------------------------------------------------*/
4091
4092	#define GTMUON() CCALLSFSUB0(GTMUON,gtmuon)
4093
4094	/*------------------------------------------------------------------
4095	fortran filename : /cern/new/src/cfs/geant315/gtneut.f
4096	------------------------------------------------------------------*/
4097
4098	#define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut)
4099
4100	/*------------------------------------------------------------------
4101	fortran filename : /cern/new/src/cfs/geant315/gtnext.f
4102	------------------------------------------------------------------*/
4103
4104	#define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext)
4105
4106	/*------------------------------------------------------------------
4107	fortran filename : /cern/new/src/cfs/geant315/gtnino.f
4108	------------------------------------------------------------------*/
4109
4110	#define GTNINO() CCALLSFSUB0(GTNINO,gtnino)
4111
4112	/*------------------------------------------------------------------
4113	fortran filename : /cern/new/src/cfs/geant315/gtrack.f
4114	------------------------------------------------------------------*/
4115
4116	#define GTRACK() CCALLSFSUB0(GTRACK,gtrack)
4117
4118	/*------------------------------------------------------------------
4119	fortran filename : /cern/new/src/cfs/geant315/gtrain.f
4120	------------------------------------------------------------------*/
4121
4122	#define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2)
4123
4124	/*------------------------------------------------------------------
4125	fortran filename : /cern/new/src/cfs/geant315/gtreve.f
4126	------------------------------------------------------------------*/
4127
4128	#define GTREVE() CCALLSFSUB0(GTREVE,gtreve)
4129
4130	/*------------------------------------------------------------------
4131	fortran filename : /cern/new/src/cfs/geant315/gtrig.f
4132	------------------------------------------------------------------*/
4133
4134	#define GTRIG() CCALLSFSUB0(GTRIG,gtrig)
4135
4136	/*------------------------------------------------------------------
4137	fortran filename : /cern/new/src/cfs/geant315/gtrigc.f
4138	------------------------------------------------------------------*/
4139
4140	#define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc)
4141
4142	/*------------------------------------------------------------------
4143	fortran filename : /cern/new/src/cfs/geant315/gtrigi.f
4144	------------------------------------------------------------------*/
4145
4146	#define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi)
4147
4148	/*------------------------------------------------------------------
4149	fortran 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	/*------------------------------------------------------------------
4155	fortran 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	/*------------------------------------------------------------------
4161	fortran filename : /cern/new/src/cfs/geant315/gudcay.f
4162	------------------------------------------------------------------*/
4163
4164	#define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay)
4165
4166	/*------------------------------------------------------------------
4167	fortran filename : /cern/new/src/cfs/geant315/gudigi.f
4168	------------------------------------------------------------------*/
4169
4170	#define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi)
4171
4172	/*------------------------------------------------------------------
4173	fortran 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	/*------------------------------------------------------------------
4180	fortran filename : /cern/new/src/cfs/geant315/gufld.f
4181	------------------------------------------------------------------*/
4182
4183	#define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2)
4184
4185	/*------------------------------------------------------------------
4186	fortran filename : /cern/new/src/cfs/geant315/guhadr.f
4187	------------------------------------------------------------------*/
4188
4189	#define GUHADR() CCALLSFSUB0(GUHADR,guhadr)
4190
4191	/*------------------------------------------------------------------
4192	fortran 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	/*------------------------------------------------------------------
4198	fortran 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	/*------------------------------------------------------------------
4204	fortran filename : /cern/new/src/cfs/geant315/guinti.f
4205	------------------------------------------------------------------*/
4206
4207	#define GUINTI() CCALLSFSUB0(GUINTI,guinti)
4208
4209	/*------------------------------------------------------------------
4210	fortran filename : /cern/new/src/cfs/geant315/gukine.f
4211	------------------------------------------------------------------*/
4212
4213	#define GUKINE() CCALLSFSUB0(GUKINE,gukine)
4214
4215	/*------------------------------------------------------------------
4216	fortran 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	/*------------------------------------------------------------------
4222	fortran 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	/*------------------------------------------------------------------
4228	fortran filename : /cern/new/src/cfs/geant315/guout.f
4229	------------------------------------------------------------------*/
4230
4231	#define GUOUT() CCALLSFSUB0(GUOUT,guout)
4232
4233	/*------------------------------------------------------------------
4234	fortran filename : /cern/new/src/cfs/geant315/gupara.f
4235	------------------------------------------------------------------*/
4236
4237	#define GUPARA() CCALLSFSUB0(GUPARA,gupara)
4238
4239	/*------------------------------------------------------------------
4240	fortran filename : /cern/new/src/cfs/geant315/guphad.f
4241	------------------------------------------------------------------*/
4242
4243	#define GUPHAD() CCALLSFSUB0(GUPHAD,guphad)
4244
4245	/*------------------------------------------------------------------
4246	fortran filename : /cern/new/src/cfs/geant315/guskip.f
4247	------------------------------------------------------------------*/
4248
4249	#define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1)
4250
4251	/*------------------------------------------------------------------
4252	fortran filename : /cern/new/src/cfs/geant315/gustep.f
4253	------------------------------------------------------------------*/
4254
4255	#define GUSTEP() CCALLSFSUB0(GUSTEP,gustep)
4256
4257	/*------------------------------------------------------------------
4258	fortran 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	/*------------------------------------------------------------------
4264	fortran filename : /cern/new/src/cfs/geant315/gutrak.f
4265	------------------------------------------------------------------*/
4266
4267	#define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak)
4268
4269	/*------------------------------------------------------------------
4270	fortran filename : /cern/new/src/cfs/geant315/gutrev.f
4271	------------------------------------------------------------------*/
4272
4273	#define GUTREV() CCALLSFSUB0(GUTREV,gutrev)
4274
4275	/*------------------------------------------------------------------
4276	fortran 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	/*------------------------------------------------------------------
4286	fortran 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	/*------------------------------------------------------------------
4293	fortran 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	/*------------------------------------------------------------------
4299	fortran filename : /cern/new/src/cfs/geant315/gwork.f
4300	------------------------------------------------------------------*/
4301
4302	#define GWORK(A1) CCALLSFSUB1(GWORK,gwork,INT,A1)
4303
4304	/*------------------------------------------------------------------
4305	fortran 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	/*------------------------------------------------------------------
4312	fortran filename : /cern/new/src/cfs/geant315/gzebra.f
4313	------------------------------------------------------------------*/
4314
4315	#define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1)
4316
4317	/*------------------------------------------------------------------
4318	fortran filename : /cern/new/src/cfs/geant315/gzinit.f
4319	------------------------------------------------------------------*/
4320
4321	#define GZINIT() CCALLSFSUB0(GZINIT,gzinit)
4322
4323	/*------------------------------------------------------------------
4324	fortran filename : /cern/new/src/cfs/geant315/hadden.f
4325	------------------------------------------------------------------*/
4326
4327	#define HADDEN() CCALLSFSUB0(HADDEN,hadden)
4328
4329	/*------------------------------------------------------------------
4330	fortran 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	/*------------------------------------------------------------------
4336	fortran 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	/*------------------------------------------------------------------
4342	fortran 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	/*------------------------------------------------------------------
4348	fortran 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	/*------------------------------------------------------------------
4354	fortran 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	/*------------------------------------------------------------------
4360	fortran 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	/*------------------------------------------------------------------
4366	fortran 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	/*------------------------------------------------------------------
4372	fortran 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	/*------------------------------------------------------------------
4379	fortran filename : /cern/new/src/cfs/geant315/incini.f
4380	------------------------------------------------------------------*/
4381
4382	#define INCINI() CCALLSFSUB0(INCINI,incini)
4383
4384	/*------------------------------------------------------------------
4385	fortran 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	/*------------------------------------------------------------------
4391	fortran 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	/*------------------------------------------------------------------
4397	fortran filename : /cern/new/src/cfs/geant315/kmabs.f
4398	------------------------------------------------------------------*/
4399
4400	#define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1)
4401
4402	/*------------------------------------------------------------------
4403	fortran 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	/*------------------------------------------------------------------
4410	fortran filename : /cern/new/src/cfs/geant315/limdat.f
4411	------------------------------------------------------------------*/
4412
4413	#define LIMDAT() CCALLSFSUB0(LIMDAT,limdat)
4414
4415	/*------------------------------------------------------------------
4416	fortran 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	/*------------------------------------------------------------------
4422	fortran 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	/*------------------------------------------------------------------
4428	fortran filename : /cern/new/src/cfs/geant315/nbanh.f
4429	------------------------------------------------------------------*/
4430
4431	#define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1)
4432
4433	/*------------------------------------------------------------------
4434	fortran 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	/*------------------------------------------------------------------
4441	fortran 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	/*------------------------------------------------------------------
4447	fortran filename : /cern/new/src/cfs/geant315/normal.f
4448	------------------------------------------------------------------*/
4449
4450	#define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1)
4451
4452	/*------------------------------------------------------------------
4453	fortran 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	/*------------------------------------------------------------------
4459	fortran filename : /cern/new/src/cfs/geant315/nucrec.f
4460	------------------------------------------------------------------*/
4461
4462	#define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2)
4463
4464	/*------------------------------------------------------------------
4465	fortran 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	/*------------------------------------------------------------------
4471	fortran 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	/*------------------------------------------------------------------
4477	fortran 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	/*------------------------------------------------------------------
4484	fortran 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	/*------------------------------------------------------------------
4490	fortran filename : /cern/new/src/cfs/geant315/parjet.f
4491	------------------------------------------------------------------*/
4492
4493	#define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2)
4494
4495	/*------------------------------------------------------------------
4496	fortran filename : /cern/new/src/cfs/geant315/pbanh.f
4497	------------------------------------------------------------------*/
4498
4499	#define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1)
4500
4501	/*------------------------------------------------------------------
4502	fortran 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	/*------------------------------------------------------------------
4508	fortran filename : /cern/new/src/cfs/geant315/phasp.f
4509	------------------------------------------------------------------*/
4510
4511	#define PHASP() CCALLSFSUB0(PHASP,phasp)
4512
4513	/*------------------------------------------------------------------
4514	fortran filename : /cern/new/src/cfs/geant315/phpnuc.f
4515	------------------------------------------------------------------*/
4516
4517	#define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc)
4518
4519	/*------------------------------------------------------------------
4520	fortran filename : /cern/new/src/cfs/geant315/pimabs.f
4521	------------------------------------------------------------------*/
4522
4523	#define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1)
4524
4525	/*------------------------------------------------------------------
4526	fortran 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	/*------------------------------------------------------------------
4532	fortran 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	/*------------------------------------------------------------------
4538	fortran 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	/*------------------------------------------------------------------
4545	fortran 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	/*------------------------------------------------------------------
4551	fortran filename : /cern/new/src/cfs/geant315/poisso.f
4552	------------------------------------------------------------------*/
4553
4554	#define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2)
4555
4556	/*------------------------------------------------------------------
4557	fortran 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	/*------------------------------------------------------------------
4564	fortran 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	/*------------------------------------------------------------------
4570	fortran 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	/*------------------------------------------------------------------
4576	fortran 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	/*------------------------------------------------------------------
4582	fortran 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	/*------------------------------------------------------------------
4589	fortran 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	/*------------------------------------------------------------------
4595	fortran filename : /cern/new/src/cfs/geant315/rchanv.f
4596	------------------------------------------------------------------*/
4597
4598	#define RCHANV() CCALLSFSUB0(RCHANV,rchanv)
4599
4600	/*------------------------------------------------------------------
4601	fortran filename : /cern/new/src/cfs/geant315/rchanw.f
4602	------------------------------------------------------------------*/
4603
4604	#define RCHANW() CCALLSFSUB0(RCHANW,rchanw)
4605
4606	/*------------------------------------------------------------------
4607	fortran 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	/*------------------------------------------------------------------
4613	fortran 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	/*------------------------------------------------------------------
4619	fortran 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	/*------------------------------------------------------------------
4625	fortran filename : /cern/new/src/cfs/geant315/selfab.f
4626	------------------------------------------------------------------*/
4627
4628	#define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1)
4629
4630	/*------------------------------------------------------------------
4631	fortran filename : /cern/new/src/cfs/geant315/setcur.f
4632	------------------------------------------------------------------*/
4633
4634	#define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1)
4635
4636	/*------------------------------------------------------------------
4637	fortran filename : /cern/new/src/cfs/geant315/settrk.f
4638	------------------------------------------------------------------*/
4639
4640	#define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1)
4641
4642	/*------------------------------------------------------------------
4643	fortran filename : /cern/new/src/cfs/geant315/sfecfe.f
4644	------------------------------------------------------------------*/
4645
4646	#define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2)
4647
4648	/*------------------------------------------------------------------
4649	fortran 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	/*------------------------------------------------------------------
4656	fortran 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	/*------------------------------------------------------------------
4662	fortran 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	/*------------------------------------------------------------------
4668	fortran filename : /cern/new/src/cfs/geant315/steep.f
4669	------------------------------------------------------------------*/
4670
4671	#define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1)
4672
4673	/*------------------------------------------------------------------
4674	fortran filename : /cern/new/src/cfs/geant315/steeq.f
4675	------------------------------------------------------------------*/
4676
4677	#define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2)
4678
4679	/*------------------------------------------------------------------
4680	fortran filename : /cern/new/src/cfs/geant315/steer.f
4681	------------------------------------------------------------------*/
4682
4683	#define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1)
4684
4685	/*------------------------------------------------------------------
4686	fortran filename : /cern/new/src/cfs/geant315/stees.f
4687	------------------------------------------------------------------*/
4688
4689	#define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2)
4690
4691	/*------------------------------------------------------------------
4692	fortran filename : /cern/new/src/cfs/geant315/stpair.f
4693	------------------------------------------------------------------*/
4694
4695	#define STPAIR() CCALLSFSUB0(STPAIR,stpair)
4696
4697	/*------------------------------------------------------------------
4698	fortran 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	/*------------------------------------------------------------------
4704	fortran filename : /cern/new/src/cfs/geant315/tdelay.f
4705	------------------------------------------------------------------*/
4706
4707	#define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1)
4708
4709	/*------------------------------------------------------------------
4710	fortran 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	/*------------------------------------------------------------------
4716	fortran 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	/*------------------------------------------------------------------
4722	fortran 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	/*------------------------------------------------------------------
4728	fortran 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	/*------------------------------------------------------------------
4734	fortran 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	/*------------------------------------------------------------------
4740	fortran 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	/*------------------------------------------------------------------
4746	fortran 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	/*------------------------------------------------------------------
4752	fortran 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	/*------------------------------------------------------------------
4758	fortran 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	/*------------------------------------------------------------------
4782	fortran 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	/*------------------------------------------------------------------
4788	fortran 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	/*------------------------------------------------------------------
4795	fortran 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.

Context Navigation

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

Download in other formats: