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

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

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

cmv 11/06/2003
File size: 248.1 KB
Line 
1/*------------------------------------------------------------------
2fortran filename : abbrch.f
3------------------------------------------------------------------*/
4
5#define ABBRCH(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35) CCALLSFSUB35(ABBRCH,abbrch,INT,INT,PINT,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,PINT,PDOUBLE,PINT,PINT,PINT,PINT,PDOUBLE,PDOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PINT,DOUBLE,DOUBLE,INT,INT,INT,INT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35)
6
7/*------------------------------------------------------------------
8fortran filename : ainel.f
9------------------------------------------------------------------*/
10
11 PROTOCCALLSFFUN5(DOUBLE,AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE)
12#define AINEL(A2,A3,A4,A5,A6) CCALLSFFUN5(AINEL,ainel,INT,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5,A6)
13
14/*------------------------------------------------------------------
15fortran filename : akeka.f
16------------------------------------------------------------------*/
17
18 PROTOCCALLSFFUN3(DOUBLE,AKEKA,akeka,INT,DOUBLE,DOUBLE)
19#define AKEKA(A2,A3,A4) CCALLSFFUN3(AKEKA,akeka,INT,DOUBLE,DOUBLE,A2,A3,A4)
20
21/*------------------------------------------------------------------
22fortran filename : altra.f
23------------------------------------------------------------------*/
24
25#define ALTRA(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(ALTRA,altra,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
26
27/*------------------------------------------------------------------
28fortran filename : altraf.f
29------------------------------------------------------------------*/
30
31#define ALTRAF(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15) CCALLSFSUB15(ALTRAF,altraf,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15)
32
33/*------------------------------------------------------------------
34fortran filename : amga.f
35------------------------------------------------------------------*/
36
37 PROTOCCALLSFFUN1(DOUBLE,AMGA,amga,INT)
38#define AMGA(A2) CCALLSFFUN1(AMGA,amga,INT,A2)
39
40/*------------------------------------------------------------------
41fortran filename : angcdf.f
42------------------------------------------------------------------*/
43
44#define ANGCDF(A1,A2,A3) CCALLSFSUB3(ANGCDF,angcdf,PFLOAT,INTV,INT,A1,A2,A3)
45
46/*------------------------------------------------------------------
47fortran filename : ankeka.f
48------------------------------------------------------------------*/
49
50 PROTOCCALLSFFUN4(DOUBLE,ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE)
51#define ANKEKA(A2,A3,A4,A5) CCALLSFFUN4(ANKEKA,ankeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
52
53/*------------------------------------------------------------------
54fortran filename : atomas.f
55------------------------------------------------------------------*/
56
57 PROTOCCALLSFFUN2(FLOAT,ATOMAS,atomas,FLOAT,FLOAT)
58#define ATOMAS(A2,A3) CCALLSFFUN2(ATOMAS,atomas,FLOAT,FLOAT,A2,A3)
59
60/*------------------------------------------------------------------
61fortran filename : azirn.f
62------------------------------------------------------------------*/
63
64#define AZIRN(A1,A2) CCALLSFSUB2(AZIRN,azirn,PFLOAT,PFLOAT,A1,A2)
65
66/*------------------------------------------------------------------
67fortran filename : bamjev.f
68------------------------------------------------------------------*/
69
70#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)
71
72/*------------------------------------------------------------------
73fortran filename : bankr.f
74------------------------------------------------------------------*/
75
76#define BANKR(A1,A2,A3) CCALLSFSUB3(BANKR,bankr,FLOATV,INTV,INT,A1,A2,A3)
77
78/*------------------------------------------------------------------
79fortran filename : barier.f
80------------------------------------------------------------------*/
81
82#define BARIER(A1,A2,A3,A4,A5) CCALLSFSUB5(BARIER,barier,INT,INT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
83
84/*------------------------------------------------------------------
85fortran filename : beexi.f
86------------------------------------------------------------------*/
87
88 PROTOCCALLSFFUN3(DOUBLE,BEEXI,beexi,INT,DOUBLE,DOUBLE)
89#define BEEXI(A2,A3,A4) CCALLSFFUN3(BEEXI,beexi,INT,DOUBLE,DOUBLE,A2,A3,A4)
90
91/*------------------------------------------------------------------
92fortran filename : bekeka.f
93------------------------------------------------------------------*/
94
95 PROTOCCALLSFFUN4(DOUBLE,BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE)
96#define BEKEKA(A2,A3,A4,A5) CCALLSFFUN4(BEKEKA,bekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
97
98/*------------------------------------------------------------------
99fortran filename : berttp.f
100------------------------------------------------------------------*/
101
102#define BERTTP() CCALLSFSUB0(BERTTP,berttp)
103
104/*------------------------------------------------------------------
105fortran filename : beta.f
106------------------------------------------------------------------*/
107
108 PROTOCCALLSFFUN3(DOUBLE,BETA,beta,DOUBLE,DOUBLE,DOUBLE)
109#define BETA(A2,A3,A4) CCALLSFFUN3(BETA,beta,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
110
111/*------------------------------------------------------------------
112fortran filename : betarn.f
113------------------------------------------------------------------*/
114
115 PROTOCCALLSFFUN2(DOUBLE,BETARN,betarn,DOUBLE,DOUBLE)
116#define BETARN(A2,A3) CCALLSFFUN2(BETARN,betarn,DOUBLE,DOUBLE,A2,A3)
117
118/*------------------------------------------------------------------
119fortran filename : betrst.f
120------------------------------------------------------------------*/
121
122 PROTOCCALLSFFUN4(DOUBLE,BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE)
123#define BETRST(A2,A3,A4,A5) CCALLSFFUN4(BETRST,betrst,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5)
124
125/*------------------------------------------------------------------
126fortran filename : bimsel.f
127------------------------------------------------------------------*/
128
129#define BIMSEL(A1,A2,A3,A4,A5) CCALLSFSUB5(BIMSEL,bimsel,INT,DOUBLE,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4,A5)
130
131/*------------------------------------------------------------------
132fortran filename : bkeka.f
133------------------------------------------------------------------*/
134
135 PROTOCCALLSFFUN3(DOUBLE,BKEKA,bkeka,INT,DOUBLE,DOUBLE)
136#define BKEKA(A2,A3,A4) CCALLSFFUN3(BKEKA,bkeka,INT,DOUBLE,DOUBLE,A2,A3,A4)
137
138/*------------------------------------------------------------------
139fortran filename : bklass.f
140------------------------------------------------------------------*/
141
142#define BKLASS(A1,A2,A3,A4,A5) CCALLSFSUB5(BKLASS,bklass,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5)
143
144/*------------------------------------------------------------------
145fortran filename : bnkeka.f
146------------------------------------------------------------------*/
147
148 PROTOCCALLSFFUN4(DOUBLE,BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE)
149#define BNKEKA(A2,A3,A4,A5) CCALLSFFUN4(BNKEKA,bnkeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
150
151/*------------------------------------------------------------------
152fortran filename : cadig.f
153------------------------------------------------------------------*/
154
155 PROTOCCALLSFFUN1(FLOAT,CADIG,cadig,FLOAT)
156#define CADIG(A2) CCALLSFFUN1(CADIG,cadig,FLOAT,A2)
157
158/*------------------------------------------------------------------
159fortran filename : calumo.f
160------------------------------------------------------------------*/
161
162#define CALUMO(A1,A2) CCALLSFSUB2(CALUMO,calumo,INT,INT,A1,A2)
163
164/*------------------------------------------------------------------
165fortran filename : calumv.f
166------------------------------------------------------------------*/
167
168#define CALUMV(A1,A2) CCALLSFSUB2(CALUMV,calumv,INT,INT,A1,A2)
169
170/*------------------------------------------------------------------
171fortran filename : cangle.f
172------------------------------------------------------------------*/
173
174#define CANGLE(A1,A2,A3,A4,A5) CCALLSFSUB5(CANGLE,cangle,FLOATV,INTV,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5)
175
176/*------------------------------------------------------------------
177fortran filename : captur.f
178------------------------------------------------------------------*/
179
180#define CAPTUR(A1) CCALLSFSUB1(CAPTUR,captur,PINT,A1)
181
182/*------------------------------------------------------------------
183fortran filename : casal0.f
184------------------------------------------------------------------*/
185
186#define CASAL0(A1,A2,A3) CCALLSFSUB3(CASAL0,casal0,INT,PINT,PINT,A1,A2,A3)
187
188/*------------------------------------------------------------------
189fortran filename : casaom.f
190------------------------------------------------------------------*/
191
192#define CASAOM(A1,A2,A3) CCALLSFSUB3(CASAOM,casaom,INT,INT,INT,A1,A2,A3)
193
194/*------------------------------------------------------------------
195fortran filename : casasm.f
196------------------------------------------------------------------*/
197
198#define CASASM(A1,A2,A3) CCALLSFSUB3(CASASM,casasm,INT,PINT,PINT,A1,A2,A3)
199
200/*------------------------------------------------------------------
201fortran filename : casasp.f
202------------------------------------------------------------------*/
203
204#define CASASP(A1,A2,A3) CCALLSFSUB3(CASASP,casasp,INT,PINT,PINT,A1,A2,A3)
205
206/*------------------------------------------------------------------
207fortran filename : casax0.f
208------------------------------------------------------------------*/
209
210#define CASAX0(A1,A2,A3) CCALLSFSUB3(CASAX0,casax0,INT,INT,INT,A1,A2,A3)
211
212/*------------------------------------------------------------------
213fortran filename : casaxm.f
214------------------------------------------------------------------*/
215
216#define CASAXM(A1,A2,A3) CCALLSFSUB3(CASAXM,casaxm,INT,INT,INT,A1,A2,A3)
217
218/*------------------------------------------------------------------
219fortran filename : casfrg.f
220------------------------------------------------------------------*/
221
222#define CASFRG(A1,A2,A3) CCALLSFSUB3(CASFRG,casfrg,PINT,INT,INT,A1,A2,A3)
223
224/*------------------------------------------------------------------
225fortran filename : cask0.f
226------------------------------------------------------------------*/
227
228#define CASK0(A1,A2,A3) CCALLSFSUB3(CASK0,cask0,INT,PINT,PINT,A1,A2,A3)
229
230/*------------------------------------------------------------------
231fortran filename : cask0b.f
232------------------------------------------------------------------*/
233
234#define CASK0B(A1,A2,A3) CCALLSFSUB3(CASK0B,cask0b,INT,PINT,PINT,A1,A2,A3)
235
236/*------------------------------------------------------------------
237fortran filename : caskm.f
238------------------------------------------------------------------*/
239
240#define CASKM(A1,A2,A3) CCALLSFSUB3(CASKM,caskm,INT,PINT,PINT,A1,A2,A3)
241
242/*------------------------------------------------------------------
243fortran filename : caskp.f
244------------------------------------------------------------------*/
245
246#define CASKP(A1,A2,A3) CCALLSFSUB3(CASKP,caskp,INT,PINT,PINT,A1,A2,A3)
247
248/*------------------------------------------------------------------
249fortran filename : casl0.f
250------------------------------------------------------------------*/
251
252#define CASL0(A1,A2,A3) CCALLSFSUB3(CASL0,casl0,INT,PINT,PINT,A1,A2,A3)
253
254/*------------------------------------------------------------------
255fortran filename : casn.f
256------------------------------------------------------------------*/
257
258#define CASN(A1,A2,A3) CCALLSFSUB3(CASN,casn,INT,PINT,PINT,A1,A2,A3)
259
260/*------------------------------------------------------------------
261fortran filename : casnb.f
262------------------------------------------------------------------*/
263
264#define CASNB(A1,A2,A3) CCALLSFSUB3(CASNB,casnb,INT,PINT,PINT,A1,A2,A3)
265
266/*------------------------------------------------------------------
267fortran filename : casom.f
268------------------------------------------------------------------*/
269
270#define CASOM(A1,A2,A3) CCALLSFSUB3(CASOM,casom,INT,PINT,PINT,A1,A2,A3)
271
272/*------------------------------------------------------------------
273fortran filename : casp.f
274------------------------------------------------------------------*/
275
276#define CASP(A1,A2,A3) CCALLSFSUB3(CASP,casp,INT,PINT,PINT,A1,A2,A3)
277
278/*------------------------------------------------------------------
279fortran filename : caspb.f
280------------------------------------------------------------------*/
281
282#define CASPB(A1,A2,A3) CCALLSFSUB3(CASPB,caspb,INT,PINT,PINT,A1,A2,A3)
283
284/*------------------------------------------------------------------
285fortran filename : caspim.f
286------------------------------------------------------------------*/
287
288#define CASPIM(A1,A2,A3) CCALLSFSUB3(CASPIM,caspim,INT,PINT,PINT,A1,A2,A3)
289
290/*------------------------------------------------------------------
291fortran filename : caspip.f
292------------------------------------------------------------------*/
293
294#define CASPIP(A1,A2,A3) CCALLSFSUB3(CASPIP,caspip,INT,PINT,PINT,A1,A2,A3)
295
296/*------------------------------------------------------------------
297fortran filename : cassm.f
298------------------------------------------------------------------*/
299
300#define CASSM(A1,A2,A3) CCALLSFSUB3(CASSM,cassm,INT,PINT,PINT,A1,A2,A3)
301
302/*------------------------------------------------------------------
303fortran filename : cassp.f
304------------------------------------------------------------------*/
305
306#define CASSP(A1,A2,A3) CCALLSFSUB3(CASSP,cassp,INT,PINT,PINT,A1,A2,A3)
307
308/*------------------------------------------------------------------
309fortran filename : casx0.f
310------------------------------------------------------------------*/
311
312#define CASX0(A1,A2,A3) CCALLSFSUB3(CASX0,casx0,INT,PINT,PINT,A1,A2,A3)
313
314/*------------------------------------------------------------------
315fortran filename : casxm.f
316------------------------------------------------------------------*/
317
318#define CASXM(A1,A2,A3) CCALLSFSUB3(CASXM,casxm,INT,PINT,PINT,A1,A2,A3)
319
320/*------------------------------------------------------------------
321fortran filename : cevap.f
322------------------------------------------------------------------*/
323
324#define CEVAP(A1,A2,A3,A4,A5) CCALLSFSUB5(CEVAP,cevap,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5)
325
326/*------------------------------------------------------------------
327fortran filename : cevap1.f
328------------------------------------------------------------------*/
329
330#define CEVAP1(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CEVAP1,cevap1,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
331
332/*------------------------------------------------------------------
333fortran filename : cgaffi.f
334------------------------------------------------------------------*/
335
336#define CGAFFI(A1,A2) CCALLSFSUB2(CGAFFI,cgaffi,PFLOAT,PFLOAT,A1,A2)
337
338/*------------------------------------------------------------------
339fortran filename : cgbfit.f
340------------------------------------------------------------------*/
341
342#define CGBFIT(A1,A2,A3) CCALLSFSUB3(CGBFIT,cgbfit,FLOATV,FLOATV,PINT,A1,A2,A3)
343
344/*------------------------------------------------------------------
345fortran filename : cgbint.f
346------------------------------------------------------------------*/
347
348#define CGBINT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBINT,cgbint,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5)
349
350/*------------------------------------------------------------------
351fortran filename : cgbmmt.f
352------------------------------------------------------------------*/
353
354#define CGBMMT(A1,A2,A3) CCALLSFSUB3(CGBMMT,cgbmmt,FLOATV,FLOATV,PINT,A1,A2,A3)
355
356/*------------------------------------------------------------------
357fortran filename : cgbool.f
358------------------------------------------------------------------*/
359
360#define CGBOOL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBOOL,cgbool,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
361
362/*------------------------------------------------------------------
363fortran filename : cgbox.f
364------------------------------------------------------------------*/
365
366#define CGBOX(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBOX,cgbox,PFLOAT,INT,INT,INT,PFLOAT,A1,A2,A3,A4,A5)
367
368/*------------------------------------------------------------------
369fortran filename : cgbrik.f
370------------------------------------------------------------------*/
371
372#define CGBRIK(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBRIK,cgbrik,FLOAT,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5)
373
374/*------------------------------------------------------------------
375fortran filename : cgbsea.f
376------------------------------------------------------------------*/
377
378#define CGBSEA(A1,A2,A3,A4) CCALLSFSUB4(CGBSEA,cgbsea,FLOATV,FLOATV,PINT,PINT,A1,A2,A3,A4)
379
380/*------------------------------------------------------------------
381fortran filename : cgbsec.f
382------------------------------------------------------------------*/
383
384#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)
385
386/*------------------------------------------------------------------
387fortran filename : cgbsor.f
388------------------------------------------------------------------*/
389
390#define CGBSOR(A1,A2) CCALLSFSUB2(CGBSOR,cgbsor,PINT,PFLOAT,A1,A2)
391
392/*------------------------------------------------------------------
393fortran filename : cgbsub.f
394------------------------------------------------------------------*/
395
396#define CGBSUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGBSUB,cgbsub,INT,FLOATV,PFLOAT,INT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6)
397
398/*------------------------------------------------------------------
399fortran filename : cgbtef.f
400------------------------------------------------------------------*/
401
402#define CGBTEF(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTEF,cgbtef,INT,INT,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4,A5)
403
404/*------------------------------------------------------------------
405fortran filename : cgbtfp.f
406------------------------------------------------------------------*/
407
408#define CGBTFP(A1,A2,A3) CCALLSFSUB3(CGBTFP,cgbtfp,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
409
410/*------------------------------------------------------------------
411fortran filename : cgbttt.f
412------------------------------------------------------------------*/
413/*
414#define cgbttt_ELEMS_1 ZTRINGV_NUM(1)
415#define cgbttt_ELEMLEN_1 ZTRINGV_NUM(2)
416*/
417
418#define CGBTTT(A1,A2,A3,A4,A5) CCALLSFSUB5(CGBTTT,cgbttt,STRING,FLOAT,FLOAT,INT,PINT,A1,A2,A3,A4,A5)
419
420/*------------------------------------------------------------------
421fortran filename : cgcev.f
422------------------------------------------------------------------*/
423
424#define CGCEV(A1,A2) CCALLSFSUB2(CGCEV,cgcev,INT,FLOATV,A1,A2)
425
426/*------------------------------------------------------------------
427fortran filename : cgcopy.f
428------------------------------------------------------------------*/
429
430#define CGCOPY(A1,A2,A3) CCALLSFSUB3(CGCOPY,cgcopy,FLOATV,INT,PFLOAT,A1,A2,A3)
431
432/*------------------------------------------------------------------
433fortran filename : cgelli.f
434------------------------------------------------------------------*/
435
436#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)
437
438/*------------------------------------------------------------------
439fortran filename : cgfac2.f
440------------------------------------------------------------------*/
441
442#define CGFAC2(A1,A2,A3,A4) CCALLSFSUB4(CGFAC2,cgfac2,PFLOAT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4)
443
444/*------------------------------------------------------------------
445fortran filename : cgfaco.f
446------------------------------------------------------------------*/
447
448#define CGFACO(A1,A2,A3,A4,A5) CCALLSFSUB5(CGFACO,cgfaco,PFLOAT,PFLOAT,INT,INT,FLOAT,A1,A2,A3,A4,A5)
449
450/*------------------------------------------------------------------
451fortran filename : cgfare.f
452------------------------------------------------------------------*/
453
454#define CGFARE(A1,A2,A3,A4) CCALLSFSUB4(CGFARE,cgfare,INT,FLOATV,PINT,INT,A1,A2,A3,A4)
455
456/*------------------------------------------------------------------
457fortran filename : cgfvis.f
458------------------------------------------------------------------*/
459
460#define CGFVIS(A1,A2,A3,A4) CCALLSFSUB4(CGFVIS,cgfvis,INT,FLOATV,PINT,INT,A1,A2,A3,A4)
461
462/*------------------------------------------------------------------
463fortran filename : cghcre.f
464------------------------------------------------------------------*/
465
466#define CGHCRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHCRE,cghcre,INT,INT,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
467
468/*------------------------------------------------------------------
469fortran filename : cghdfa.f
470------------------------------------------------------------------*/
471
472#define CGHDFA(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHDFA,cghdfa,INT,PFLOAT,INTV,INTV,PFLOAT,A1,A2,A3,A4,A5)
473
474/*------------------------------------------------------------------
475fortran filename : cghend.f
476------------------------------------------------------------------*/
477
478#define CGHEND(A1,A2,A3) CCALLSFSUB3(CGHEND,cghend,PFLOAT,PINT,PFLOAT,A1,A2,A3)
479
480/*------------------------------------------------------------------
481fortran filename : cgheva.f
482------------------------------------------------------------------*/
483
484#define CGHEVA(A1,A2) CCALLSFSUB2(CGHEVA,cgheva,FLOATV,PFLOAT,A1,A2)
485
486/*------------------------------------------------------------------
487fortran filename : cghins.f
488------------------------------------------------------------------*/
489
490#define CGHINS(A1,A2,A3) CCALLSFSUB3(CGHINS,cghins,FLOATV,PFLOAT,INT,A1,A2,A3)
491
492/*------------------------------------------------------------------
493fortran filename : cghmov.f
494------------------------------------------------------------------*/
495
496#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)
497
498/*------------------------------------------------------------------
499fortran filename : cghpla.f
500------------------------------------------------------------------*/
501
502#define CGHPLA(A1,A2,A3) CCALLSFSUB3(CGHPLA,cghpla,INTV,PFLOAT,PFLOAT,A1,A2,A3)
503
504/*------------------------------------------------------------------
505fortran filename : cghren.f
506------------------------------------------------------------------*/
507
508#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)
509
510/*------------------------------------------------------------------
511fortran filename : cghshi.f
512------------------------------------------------------------------*/
513
514#define CGHSHI(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHSHI,cghshi,INT,PINT,PINT,INTV,PINT,PINT,A1,A2,A3,A4,A5,A6)
515
516/*------------------------------------------------------------------
517fortran filename : cghsiz.f
518------------------------------------------------------------------*/
519
520#define CGHSIZ(A1,A2,A3,A4,A5) CCALLSFSUB5(CGHSIZ,cghsiz,FLOATV,INT,PINT,PINT,INT,A1,A2,A3,A4,A5)
521
522/*------------------------------------------------------------------
523fortran filename : cghtre.f
524------------------------------------------------------------------*/
525
526#define CGHTRE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGHTRE,cghtre,INT,PFLOAT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
527
528/*------------------------------------------------------------------
529fortran filename : cginve.f
530------------------------------------------------------------------*/
531
532#define CGINVE(A1) CCALLSFSUB1(CGINVE,cginve,PFLOAT,A1)
533
534/*------------------------------------------------------------------
535fortran filename : cgmnmx.f
536------------------------------------------------------------------*/
537
538#define CGMNMX(A1,A2,A3) CCALLSFSUB3(CGMNMX,cgmnmx,FLOATV,PFLOAT,PFLOAT,A1,A2,A3)
539
540/*------------------------------------------------------------------
541fortran filename : cgpers.f
542------------------------------------------------------------------*/
543
544#define CGPERS(A1) CCALLSFSUB1(CGPERS,cgpers,PFLOAT,A1)
545
546/*------------------------------------------------------------------
547fortran filename : cgrifl.f
548------------------------------------------------------------------*/
549
550#define CGRIFL(A1,A2) CCALLSFSUB2(CGRIFL,cgrifl,PFLOAT,PFLOAT,A1,A2)
551
552/*------------------------------------------------------------------
553fortran filename : cgsaan.f
554------------------------------------------------------------------*/
555
556#define CGSAAN(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSAAN,cgsaan,FLOAT,FLOAT,INT,INT,PINT,A1,A2,A3,A4,A5)
557
558/*------------------------------------------------------------------
559fortran filename : cgscop.f
560------------------------------------------------------------------*/
561
562#define CGSCOP(A1,A2,A3,A4) CCALLSFSUB4(CGSCOP,cgscop,INT,FLOATV,PFLOAT,PFLOAT,A1,A2,A3,A4)
563
564/*------------------------------------------------------------------
565fortran filename : cgshel.f
566------------------------------------------------------------------*/
567
568#define CGSHEL(A1,A2,A3,A4) CCALLSFSUB4(CGSHEL,cgshel,FLOAT,FLOAT,PINT,PFLOAT,A1,A2,A3,A4)
569
570/*------------------------------------------------------------------
571fortran filename : cgshif.f
572------------------------------------------------------------------*/
573
574#define CGSHIF(A1,A2,A3,A4) CCALLSFSUB4(CGSHIF,cgshif,FLOAT,FLOAT,FLOAT,FLOATV,A1,A2,A3,A4)
575
576/*------------------------------------------------------------------
577fortran filename : cgsize.f
578------------------------------------------------------------------*/
579
580 PROTOCCALLSFFUN4(FLOAT,CGSIZE,cgsize,INT,INT,INTV,INTV)
581#define CGSIZE(A2,A3,A4,A5) CCALLSFFUN4(CGSIZE,cgsize,INT,INT,INTV,INTV,A2,A3,A4,A5)
582
583/*------------------------------------------------------------------
584fortran filename : cgslic.f
585------------------------------------------------------------------*/
586
587#define CGSLIC(A1,A2,A3,A4) CCALLSFSUB4(CGSLIC,cgslic,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
588
589/*------------------------------------------------------------------
590fortran filename : cgsnor.f
591------------------------------------------------------------------*/
592
593#define CGSNOR(A1) CCALLSFSUB1(CGSNOR,cgsnor,PFLOAT,A1)
594
595/*------------------------------------------------------------------
596fortran filename : cgsphe.f
597------------------------------------------------------------------*/
598
599#define CGSPHE(A1,A2,A3,A4,A5) CCALLSFSUB5(CGSPHE,cgsphe,FLOAT,INT,INT,INT,FLOATV,A1,A2,A3,A4,A5)
600
601/*------------------------------------------------------------------
602fortran filename : cgsub.f
603------------------------------------------------------------------*/
604
605#define CGSUB(A1,A2,A3,A4) CCALLSFSUB4(CGSUB,cgsub,FLOATV,FLOATV,INT,FLOATV,A1,A2,A3,A4)
606
607/*------------------------------------------------------------------
608fortran filename : cgtset.f
609------------------------------------------------------------------*/
610
611#define CGTSET(A1,A2,A3) CCALLSFSUB3(CGTSET,cgtset,INT,PFLOAT,PINT,A1,A2,A3)
612
613/*------------------------------------------------------------------
614fortran filename : cgtstr.f
615------------------------------------------------------------------*/
616
617#define CGTSTR(A1,A2) CCALLSFSUB2(CGTSTR,cgtstr,FLOATV,PINT,A1,A2)
618
619/*------------------------------------------------------------------
620fortran filename : cgvedg.f
621------------------------------------------------------------------*/
622
623#define CGVEDG(A1,A2,A3,A4) CCALLSFSUB4(CGVEDG,cgvedg,INT,FLOATV,FLOATV,PINT,A1,A2,A3,A4)
624
625/*------------------------------------------------------------------
626fortran filename : cgvhed.f
627------------------------------------------------------------------*/
628
629#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)
630
631/*------------------------------------------------------------------
632fortran filename : cgvtef.f
633------------------------------------------------------------------*/
634
635#define CGVTEF(A1,A2,A3) CCALLSFSUB3(CGVTEF,cgvtef,INTV,PFLOAT,PINT,A1,A2,A3)
636
637/*------------------------------------------------------------------
638fortran filename : cgvtin.f
639------------------------------------------------------------------*/
640
641#define CGVTIN(A1,A2,A3) CCALLSFSUB3(CGVTIN,cgvtin,FLOAT,FLOAT,INT,A1,A2,A3)
642
643/*------------------------------------------------------------------
644fortran filename : cgwire.f
645------------------------------------------------------------------*/
646
647#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)
648
649/*------------------------------------------------------------------
650fortran filename : cgwsor.f
651------------------------------------------------------------------*/
652
653#define CGWSOR(A1,A2) CCALLSFSUB2(CGWSOR,cgwsor,PINT,PFLOAT,A1,A2)
654
655/*------------------------------------------------------------------
656fortran filename : cgzre.f
657------------------------------------------------------------------*/
658
659#define CGZRE(A1,A2,A3) CCALLSFSUB3(CGZRE,cgzre,INT,PFLOAT,PINT,A1,A2,A3)
660
661/*------------------------------------------------------------------
662fortran filename : cgzrev.f
663------------------------------------------------------------------*/
664
665#define CGZREV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CGZREV,cgzrev,PFLOAT,FLOAT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6)
666
667/*------------------------------------------------------------------
668fortran filename : chanwt.f
669------------------------------------------------------------------*/
670
671#define CHANWT() CCALLSFSUB0(CHANWT,chanwt)
672
673/*------------------------------------------------------------------
674fortran filename : chkzeb.f
675------------------------------------------------------------------*/
676
677#define CHKZEB(A1,A2) CCALLSFSUB2(CHKZEB,chkzeb,INT,INT,A1,A2)
678
679/*------------------------------------------------------------------
680fortran filename : cinema.f
681------------------------------------------------------------------*/
682
683 PROTOCCALLSFFUN1(FLOAT,CINEMA,cinema,FLOAT)
684#define CINEMA(A2) CCALLSFFUN1(CINEMA,cinema,FLOAT,A2)
685
686/*------------------------------------------------------------------
687fortran filename : clear.f
688------------------------------------------------------------------*/
689
690#define CLEAR(A1,A2,A3) CCALLSFSUB3(CLEAR,clear,PINT,INT,INT,A1,A2,A3)
691
692/*------------------------------------------------------------------
693fortran filename : cmlabe.f
694------------------------------------------------------------------*/
695
696#define CMLABE(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(CMLABE,cmlabe,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
697
698/*------------------------------------------------------------------
699fortran filename : cmlabi.f
700------------------------------------------------------------------*/
701
702#define CMLABI(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(CMLABI,cmlabi,FLOATV,INTV,FLOAT,INT,INT,PFLOAT,FLOAT,PINT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
703
704/*------------------------------------------------------------------
705fortran filename : cohert.f
706------------------------------------------------------------------*/
707
708#define COHERT(A1,A2,A3) CCALLSFSUB3(COHERT,cohert,INT,INT,FLOAT,A1,A2,A3)
709
710/*------------------------------------------------------------------
711fortran filename : colisn.f
712------------------------------------------------------------------*/
713
714#define COLISN(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,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48) CCALLSFSUB48(COLISN,colisn,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,INTV,PINT,PFLOAT,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,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48)
715
716/*------------------------------------------------------------------
717fortran filename : compo.f
718------------------------------------------------------------------*/
719
720#define COMPO() CCALLSFSUB0(COMPO,compo)
721
722/*------------------------------------------------------------------
723fortran filename : coranh.f
724------------------------------------------------------------------*/
725
726#define CORANH(A1,A2) CCALLSFSUB2(CORANH,coranh,PINT,INT,A1,A2)
727
728/*------------------------------------------------------------------
729fortran filename : corevt.f
730------------------------------------------------------------------*/
731
732#define COREVT(A1,A2,A3,A4,A5) CCALLSFSUB5(COREVT,corevt,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5)
733
734/*------------------------------------------------------------------
735fortran filename : corrin.f
736------------------------------------------------------------------*/
737
738#define CORRIN(A1,A2,A3,A4,A5) CCALLSFSUB5(CORRIN,corrin,DOUBLE,DOUBLE,INT,DOUBLE,DOUBLE,A1,A2,A3,A4,A5)
739
740/*------------------------------------------------------------------
741fortran filename : coscat.f
742------------------------------------------------------------------*/
743
744#define COSCAT() CCALLSFSUB0(COSCAT,coscat)
745
746/*------------------------------------------------------------------
747fortran filename : cosleg.f
748------------------------------------------------------------------*/
749
750 PROTOCCALLSFFUN1(DOUBLE,COSLEG,cosleg,PDOUBLE)
751#define COSLEG(A2) CCALLSFFUN1(COSLEG,cosleg,PDOUBLE,A2)
752
753/*------------------------------------------------------------------
754fortran filename : cterp.f
755------------------------------------------------------------------*/
756
757#define CTERP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(CTERP,cterp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
758
759/*------------------------------------------------------------------
760fortran filename : datar3.f
761------------------------------------------------------------------*/
762
763#define DATAR3() CCALLSFSUB0(DATAR3,datar3)
764
765/*------------------------------------------------------------------
766fortran filename : decaux.f
767------------------------------------------------------------------*/
768
769#define DECAUX(A1,A2) CCALLSFSUB2(DECAUX,decaux,INT,INT,A1,A2)
770
771/*------------------------------------------------------------------
772fortran filename : defs1.f
773------------------------------------------------------------------*/
774
775#define DEFS1(A1,A2,A3) CCALLSFSUB3(DEFS1,defs1,INT,INT,INT,A1,A2,A3)
776
777/*------------------------------------------------------------------
778fortran filename : difevv.f
779------------------------------------------------------------------*/
780
781#define DIFEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DIFEVV,difevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
782
783/*------------------------------------------------------------------
784fortran filename : dlpnuc.f
785------------------------------------------------------------------*/
786
787#define DLPNUC(A1,A2) CCALLSFSUB2(DLPNUC,dlpnuc,PDOUBLE,INT,A1,A2)
788
789/*------------------------------------------------------------------
790fortran filename : dlpsor.f
791------------------------------------------------------------------*/
792
793#define DLPSOR(A1,A2) CCALLSFSUB2(DLPSOR,dlpsor,PDOUBLE,INT,A1,A2)
794
795/*------------------------------------------------------------------
796fortran filename : dost.f
797------------------------------------------------------------------*/
798
799 PROTOCCALLSFFUN2(DOUBLE,DOST,dost,INT,DOUBLE)
800#define DOST(A2,A3) CCALLSFFUN2(DOST,dost,INT,DOUBLE,A2,A3)
801
802/*------------------------------------------------------------------
803fortran filename : dotes2.f
804------------------------------------------------------------------*/
805
806#define DOTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTES2,dotes2,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6)
807
808/*------------------------------------------------------------------
809fortran filename : dotnuc.f
810------------------------------------------------------------------*/
811
812#define DOTNUC(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(DOTNUC,dotnuc,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,INT,A1,A2,A3,A4,A5,A6)
813
814/*------------------------------------------------------------------
815fortran filename : dpdnuc.f
816------------------------------------------------------------------*/
817
818 PROTOCCALLSFFUN3(DOUBLE,DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE)
819#define DPDNUC(A2,A3,A4) CCALLSFFUN3(DPDNUC,dpdnuc,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
820
821/*------------------------------------------------------------------
822fortran filename : drelab.f
823------------------------------------------------------------------*/
824
825#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)
826
827/*------------------------------------------------------------------
828fortran filename : eexi.f
829------------------------------------------------------------------*/
830
831 PROTOCCALLSFFUN3(DOUBLE,EEXI,eexi,INT,DOUBLE,DOUBLE)
832#define EEXI(A2,A3,A4) CCALLSFFUN3(EEXI,eexi,INT,DOUBLE,DOUBLE,A2,A3,A4)
833
834/*------------------------------------------------------------------
835fortran filename : eexlvl.f
836------------------------------------------------------------------*/
837
838#define EEXLVL(A1,A2,A3,A4,A5) CCALLSFSUB5(EEXLVL,eexlvl,INT,INT,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
839
840/*------------------------------------------------------------------
841fortran filename : ekeka.f
842------------------------------------------------------------------*/
843
844 PROTOCCALLSFFUN4(DOUBLE,EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE)
845#define EKEKA(A2,A3,A4,A5) CCALLSFFUN4(EKEKA,ekeka,INT,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
846
847/*------------------------------------------------------------------
848fortran filename : energi.f
849------------------------------------------------------------------*/
850
851#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)
852
853/*------------------------------------------------------------------
854fortran filename : enrg.f
855------------------------------------------------------------------*/
856
857 PROTOCCALLSFFUN2(DOUBLE,ENRG,enrg,DOUBLE,DOUBLE)
858#define ENRG(A2,A3) CCALLSFFUN2(ENRG,enrg,DOUBLE,DOUBLE,A2,A3)
859
860/*------------------------------------------------------------------
861fortran filename : evaplr.f
862------------------------------------------------------------------*/
863
864#define EVAPLR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(EVAPLR,evaplr,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
865
866/*------------------------------------------------------------------
867fortran filename : evdeex.f
868------------------------------------------------------------------*/
869
870#define EVDEEX(A1) CCALLSFSUB1(EVDEEX,evdeex,DOUBLE,A1)
871
872/*------------------------------------------------------------------
873fortran filename : eventv.f
874------------------------------------------------------------------*/
875
876#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)
877
878/*------------------------------------------------------------------
879fortran filename : evevap.f
880------------------------------------------------------------------*/
881
882#define EVEVAP(A1) CCALLSFSUB1(EVEVAP,evevap,DOUBLE,A1)
883
884/*------------------------------------------------------------------
885fortran filename : evvini.f
886------------------------------------------------------------------*/
887/*
888#define evvini_ELEMS_2 ZTRINGV_NUM(1)
889#define evvini_ELEMLEN_2 ZTRINGV_NUM(8)
890*/
891
892#define EVVINI(A1,A2) CCALLSFSUB2(EVVINI,evvini,DOUBLEV,STRING,A1,A2)
893
894/*------------------------------------------------------------------
895fortran filename : exnu.f
896------------------------------------------------------------------*/
897
898 PROTOCCALLSFFUN1(FLOAT,EXNU,exnu,FLOAT)
899#define EXNU(A2) CCALLSFFUN1(EXNU,exnu,FLOAT,A2)
900
901/*------------------------------------------------------------------
902fortran filename : exprnf.f
903------------------------------------------------------------------*/
904
905 PROTOCCALLSFFUN1(FLOAT,EXPRNF,exprnf,FLOAT)
906#define EXPRNF(A2) CCALLSFFUN1(EXPRNF,exprnf,FLOAT,A2)
907
908/*------------------------------------------------------------------
909fortran filename : fctcos.f
910------------------------------------------------------------------*/
911
912 PROTOCCALLSFFUN1(FLOAT,FCTCOS,fctcos,FLOAT)
913#define FCTCOS(A2) CCALLSFFUN1(FCTCOS,fctcos,FLOAT,A2)
914
915/*------------------------------------------------------------------
916fortran filename : fdevap.f
917------------------------------------------------------------------*/
918
919#define FDEVAP() CCALLSFSUB0(FDEVAP,fdevap)
920
921/*------------------------------------------------------------------
922fortran filename : fdnopt.f
923------------------------------------------------------------------*/
924
925#define FDNOPT() CCALLSFSUB0(FDNOPT,fdnopt)
926
927/*------------------------------------------------------------------
928fortran filename : fdpree.f
929------------------------------------------------------------------*/
930
931#define FDPREE() CCALLSFSUB0(FDPREE,fdpree)
932
933/*------------------------------------------------------------------
934fortran filename : fekfnc.f
935------------------------------------------------------------------*/
936
937 PROTOCCALLSFFUN2(DOUBLE,FEKFNC,fekfnc,DOUBLE,INT)
938#define FEKFNC(A2,A3) CCALLSFFUN2(FEKFNC,fekfnc,DOUBLE,INT,A2,A3)
939
940/*------------------------------------------------------------------
941fortran filename : ferevv.f
942------------------------------------------------------------------*/
943
944#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)
945
946/*------------------------------------------------------------------
947fortran filename : ferhav.f
948------------------------------------------------------------------*/
949
950#define FERHAV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(FERHAV,ferhav,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
951
952/*------------------------------------------------------------------
953fortran filename : fermi.f
954------------------------------------------------------------------*/
955
956 PROTOCCALLSFFUN1(FLOAT,FERMI,fermi,FLOAT)
957#define FERMI(A2) CCALLSFFUN1(FERMI,fermi,FLOAT,A2)
958
959/*------------------------------------------------------------------
960fortran filename : fisfra.f
961------------------------------------------------------------------*/
962
963#define FISFRA(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FISFRA,fisfra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
964
965/*------------------------------------------------------------------
966fortran filename : fisrnf.f
967------------------------------------------------------------------*/
968
969 PROTOCCALLSFFUN2(FLOAT,FISRNF,fisrnf,FLOAT,FLOAT)
970#define FISRNF(A2,A3) CCALLSFFUN2(FISRNF,fisrnf,FLOAT,FLOAT,A2,A3)
971
972/*------------------------------------------------------------------
973fortran filename : fissio.f
974------------------------------------------------------------------*/
975
976 PROTOCCALLSFFUN1(FLOAT,FISSIO,fissio,FLOAT)
977#define FISSIO(A2) CCALLSFFUN1(FISSIO,fissio,FLOAT,A2)
978
979/*------------------------------------------------------------------
980fortran filename : fkdeca.f
981------------------------------------------------------------------*/
982
983#define FKDECA(A1,A2) CCALLSFSUB2(FKDECA,fkdeca,PINT,INT,A1,A2)
984
985/*------------------------------------------------------------------
986fortran filename : fkdres.f
987------------------------------------------------------------------*/
988
989#define FKDRES(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(FKDRES,fkdres,INT,INT,DOUBLE,PDOUBLE,PDOUBLE,PLOGICAL,INT,A1,A2,A3,A4,A5,A6,A7)
990
991/*------------------------------------------------------------------
992fortran filename : fkener.f
993------------------------------------------------------------------*/
994
995 PROTOCCALLSFFUN2(DOUBLE,FKENER,fkener,DOUBLE,DOUBLE)
996#define FKENER(A2,A3) CCALLSFFUN2(FKENER,fkener,DOUBLE,DOUBLE,A2,A3)
997
998/*------------------------------------------------------------------
999fortran filename : fkerup.f
1000------------------------------------------------------------------*/
1001
1002#define FKERUP(A1) CCALLSFSUB1(FKERUP,fkerup,INT,A1)
1003
1004/*------------------------------------------------------------------
1005fortran filename : fkflav.f
1006------------------------------------------------------------------*/
1007
1008#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)
1009
1010/*------------------------------------------------------------------
1011fortran filename : fkimpu.f
1012------------------------------------------------------------------*/
1013
1014#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)
1015
1016/*------------------------------------------------------------------
1017fortran filename : fksigi.f
1018------------------------------------------------------------------*/
1019
1020#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)
1021
1022/*------------------------------------------------------------------
1023fortran filename : fkvert.f
1024------------------------------------------------------------------*/
1025
1026#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)
1027
1028/*------------------------------------------------------------------
1029fortran filename : fkzero.f
1030------------------------------------------------------------------*/
1031
1032#define FKZERO() CCALLSFSUB0(FKZERO,fkzero)
1033
1034/*------------------------------------------------------------------
1035fortran filename : fldist.f
1036------------------------------------------------------------------*/
1037
1038#define FLDIST() CCALLSFSUB0(FLDIST,fldist)
1039
1040/*------------------------------------------------------------------
1041fortran filename : flinit.f
1042------------------------------------------------------------------*/
1043
1044#define FLINIT() CCALLSFSUB0(FLINIT,flinit)
1045
1046/*------------------------------------------------------------------
1047fortran filename : flkdt1.f
1048------------------------------------------------------------------*/
1049
1050#define FLKDT1() CCALLSFSUB0(FLKDT1,flkdt1)
1051
1052/*------------------------------------------------------------------
1053fortran filename : flkdt2.f
1054------------------------------------------------------------------*/
1055
1056#define FLKDT2() CCALLSFSUB0(FLKDT2,flkdt2)
1057
1058/*------------------------------------------------------------------
1059fortran filename : flkdt3.f
1060------------------------------------------------------------------*/
1061
1062#define FLKDT3() CCALLSFSUB0(FLKDT3,flkdt3)
1063
1064/*------------------------------------------------------------------
1065fortran filename : flkdt4.f
1066------------------------------------------------------------------*/
1067
1068#define FLKDT4() CCALLSFSUB0(FLKDT4,flkdt4)
1069
1070/*------------------------------------------------------------------
1071fortran filename : flkdt5.f
1072------------------------------------------------------------------*/
1073
1074#define FLKDT5() CCALLSFSUB0(FLKDT5,flkdt5)
1075
1076/*------------------------------------------------------------------
1077fortran filename : flkdt6.f
1078------------------------------------------------------------------*/
1079
1080#define FLKDT6() CCALLSFSUB0(FLKDT6,flkdt6)
1081
1082/*------------------------------------------------------------------
1083fortran filename : flkdt7.f
1084------------------------------------------------------------------*/
1085
1086#define FLKDT7() CCALLSFSUB0(FLKDT7,flkdt7)
1087
1088/*------------------------------------------------------------------
1089fortran filename : fltrnf.f
1090------------------------------------------------------------------*/
1091
1092 PROTOCCALLSFFUN1(FLOAT,FLTRNF,fltrnf,INT)
1093#define FLTRNF(A2) CCALLSFFUN1(FLTRNF,fltrnf,INT,A2)
1094
1095/*------------------------------------------------------------------
1096fortran filename : flufin.f
1097------------------------------------------------------------------*/
1098
1099#define FLUFIN() CCALLSFSUB0(FLUFIN,flufin)
1100
1101/*------------------------------------------------------------------
1102fortran filename : fpfrnc.f
1103------------------------------------------------------------------*/
1104
1105 PROTOCCALLSFFUN2(DOUBLE,FPFRNC,fpfrnc,DOUBLE,INT)
1106#define FPFRNC(A2,A3) CCALLSFFUN2(FPFRNC,fpfrnc,DOUBLE,INT,A2,A3)
1107
1108/*------------------------------------------------------------------
1109fortran filename : fpower.f
1110------------------------------------------------------------------*/
1111
1112 PROTOCCALLSFFUN3(DOUBLE,FPOWER,fpower,INT,INT,DOUBLE)
1113#define FPOWER(A2,A3,A4) CCALLSFFUN3(FPOWER,fpower,INT,INT,DOUBLE,A2,A3,A4)
1114
1115/*------------------------------------------------------------------
1116fortran filename : fprob.f
1117------------------------------------------------------------------*/
1118
1119 PROTOCCALLSFFUN3(DOUBLE,FPROB,fprob,DOUBLE,DOUBLE,DOUBLE)
1120#define FPROB(A2,A3,A4) CCALLSFFUN3(FPROB,fprob,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
1121
1122/*------------------------------------------------------------------
1123fortran filename : fradnc.f
1124------------------------------------------------------------------*/
1125
1126 PROTOCCALLSFFUN1(DOUBLE,FRADNC,fradnc,DOUBLE)
1127#define FRADNC(A2) CCALLSFFUN1(FRADNC,fradnc,DOUBLE,A2)
1128
1129/*------------------------------------------------------------------
1130fortran filename : frhinc.f
1131------------------------------------------------------------------*/
1132
1133 PROTOCCALLSFFUN1(DOUBLE,FRHINC,frhinc,DOUBLE)
1134#define FRHINC(A2) CCALLSFFUN1(FRHINC,frhinc,DOUBLE,A2)
1135
1136/*------------------------------------------------------------------
1137fortran filename : frhonc.f
1138------------------------------------------------------------------*/
1139
1140 PROTOCCALLSFFUN1(DOUBLE,FRHONC,frhonc,DOUBLE)
1141#define FRHONC(A2) CCALLSFFUN1(FRHONC,frhonc,DOUBLE,A2)
1142
1143/*------------------------------------------------------------------
1144fortran filename : gamrn.f
1145------------------------------------------------------------------*/
1146
1147 PROTOCCALLSFFUN2(DOUBLE,GAMRN,gamrn,DOUBLE,DOUBLE)
1148#define GAMRN(A2,A3) CCALLSFFUN2(GAMRN,gamrn,DOUBLE,DOUBLE,A2,A3)
1149
1150/*------------------------------------------------------------------
1151fortran filename : ganni.f
1152------------------------------------------------------------------*/
1153
1154#define GANNI() CCALLSFSUB0(GANNI,ganni)
1155
1156/*------------------------------------------------------------------
1157fortran filename : ganni2.f
1158------------------------------------------------------------------*/
1159
1160#define GANNI2() CCALLSFSUB0(GANNI2,ganni2)
1161
1162/*------------------------------------------------------------------
1163fortran filename : gannii.f
1164------------------------------------------------------------------*/
1165
1166#define GANNII() CCALLSFSUB0(GANNII,gannii)
1167
1168/*------------------------------------------------------------------
1169fortran filename : gannir.f
1170------------------------------------------------------------------*/
1171
1172#define GANNIR() CCALLSFSUB0(GANNIR,gannir)
1173
1174/*------------------------------------------------------------------
1175fortran filename : garndm.f
1176------------------------------------------------------------------*/
1177
1178 PROTOCCALLSFFUN1(FLOAT,GARNDM,garndm,FLOAT)
1179#define GARNDM(A2) CCALLSFFUN1(GARNDM,garndm,FLOAT,A2)
1180
1181/*------------------------------------------------------------------
1182fortran filename : gavrl2.f
1183------------------------------------------------------------------*/
1184
1185 PROTOCCALLSFFUN3(FLOAT,GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT)
1186#define GAVRL2(A2,A3,A4) CCALLSFFUN3(GAVRL2,gavrl2,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1187
1188/*------------------------------------------------------------------
1189fortran filename : gavrl3.f
1190------------------------------------------------------------------*/
1191
1192 PROTOCCALLSFFUN3(FLOAT,GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT)
1193#define GAVRL3(A2,A3,A4) CCALLSFFUN3(GAVRL3,gavrl3,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1194
1195/*------------------------------------------------------------------
1196fortran filename : gbflos.f
1197------------------------------------------------------------------*/
1198
1199 PROTOCCALLSFFUN2(FLOAT,GBFLOS,gbflos,FLOAT,FLOAT)
1200#define GBFLOS(A2,A3) CCALLSFFUN2(GBFLOS,gbflos,FLOAT,FLOAT,A2,A3)
1201
1202/*------------------------------------------------------------------
1203fortran filename : gbfsig.f
1204------------------------------------------------------------------*/
1205
1206 PROTOCCALLSFFUN2(FLOAT,GBFSIG,gbfsig,FLOAT,FLOAT)
1207#define GBFSIG(A2,A3) CCALLSFFUN2(GBFSIG,gbfsig,FLOAT,FLOAT,A2,A3)
1208
1209/*------------------------------------------------------------------
1210fortran filename : gbhsta.f
1211------------------------------------------------------------------*/
1212
1213#define GBHSTA() CCALLSFSUB0(GBHSTA,gbhsta)
1214
1215/*------------------------------------------------------------------
1216fortran filename : gbirk.f
1217------------------------------------------------------------------*/
1218
1219#define GBIRK(A1) CCALLSFSUB1(GBIRK,gbirk,PFLOAT,A1)
1220
1221/*------------------------------------------------------------------
1222fortran filename : gboset.f
1223------------------------------------------------------------------*/
1224
1225#define GBOSET(A1) CCALLSFSUB1(GBOSET,gboset,FLOATV,A1)
1226
1227/*------------------------------------------------------------------
1228fortran filename : gbrela.f
1229------------------------------------------------------------------*/
1230
1231#define GBRELA() CCALLSFSUB0(GBRELA,gbrela)
1232
1233/*------------------------------------------------------------------
1234fortran filename : gbrele.f
1235------------------------------------------------------------------*/
1236
1237 PROTOCCALLSFFUN3(FLOAT,GBRELE,gbrele,FLOAT,FLOAT,FLOAT)
1238#define GBRELE(A2,A3,A4) CCALLSFFUN3(GBRELE,gbrele,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1239
1240/*------------------------------------------------------------------
1241fortran filename : gbrelm.f
1242------------------------------------------------------------------*/
1243
1244 PROTOCCALLSFFUN3(FLOAT,GBRELM,gbrelm,FLOAT,FLOAT,FLOAT)
1245#define GBRELM(A2,A3,A4) CCALLSFFUN3(GBRELM,gbrelm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1246
1247/*------------------------------------------------------------------
1248fortran filename : gbreme.f
1249------------------------------------------------------------------*/
1250
1251#define GBREME() CCALLSFSUB0(GBREME,gbreme)
1252
1253/*------------------------------------------------------------------
1254fortran filename : gbremm.f
1255------------------------------------------------------------------*/
1256
1257#define GBREMM() CCALLSFSUB0(GBREMM,gbremm)
1258
1259/*------------------------------------------------------------------
1260fortran filename : gbrsga.f
1261------------------------------------------------------------------*/
1262
1263#define GBRSGA() CCALLSFSUB0(GBRSGA,gbrsga)
1264
1265/*------------------------------------------------------------------
1266fortran filename : gbrsge.f
1267------------------------------------------------------------------*/
1268
1269 PROTOCCALLSFFUN3(FLOAT,GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT)
1270#define GBRSGE(A2,A3,A4) CCALLSFFUN3(GBRSGE,gbrsge,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1271
1272/*------------------------------------------------------------------
1273fortran filename : gbrsgm.f
1274------------------------------------------------------------------*/
1275
1276 PROTOCCALLSFFUN3(FLOAT,GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT)
1277#define GBRSGM(A2,A3,A4) CCALLSFFUN3(GBRSGM,gbrsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1278
1279/*------------------------------------------------------------------
1280fortran filename : gbstat.f
1281------------------------------------------------------------------*/
1282
1283#define GBSTAT() CCALLSFSUB0(GBSTAT,gbstat)
1284
1285/*------------------------------------------------------------------
1286fortran filename : gbteth.f
1287------------------------------------------------------------------*/
1288
1289 PROTOCCALLSFFUN3(FLOAT,GBTETH,gbteth,FLOAT,FLOAT,FLOAT)
1290#define GBTETH(A2,A3,A4) CCALLSFFUN3(GBTETH,gbteth,FLOAT,FLOAT,FLOAT,A2,A3,A4)
1291
1292/*------------------------------------------------------------------
1293fortran filename : gcbrem.f
1294------------------------------------------------------------------*/
1295
1296 PROTOCCALLSFFUN1(FLOAT,GCBREM,gcbrem,FLOAT)
1297#define GCBREM(A2) CCALLSFFUN1(GCBREM,gcbrem,FLOAT,A2)
1298
1299/*------------------------------------------------------------------
1300fortran filename : gcderr.f
1301------------------------------------------------------------------*/
1302
1303#define GCDERR(A1,A2,A3) CCALLSFSUB3(GCDERR,gcderr,PINT,FLOAT,FLOAT,A1,A2,A3)
1304
1305/*------------------------------------------------------------------
1306fortran filename : gcdrif.f
1307------------------------------------------------------------------*/
1308
1309#define GCDRIF(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GCDRIF,gcdrif,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,PINT,A1,A2,A3,A4,A5,A6)
1310
1311/*------------------------------------------------------------------
1312fortran filename : gcent.f
1313------------------------------------------------------------------*/
1314
1315#define GCENT(A1,A2) CCALLSFSUB2(GCENT,gcent,INT,PFLOAT,A1,A2)
1316
1317/*------------------------------------------------------------------
1318fortran filename : gchnwk.f
1319------------------------------------------------------------------*/
1320
1321#define GCHNWK() CCALLSFSUB0(GCHNWK,gchnwk)
1322
1323/*------------------------------------------------------------------
1324fortran filename : gckmat.f
1325------------------------------------------------------------------*/
1326/*
1327#define gckmat_ELEMS_2 ZTRINGV_NUM(1)
1328#define gckmat_ELEMLEN_2 ZTRINGV_NUM(20)
1329*/
1330
1331#define GCKMAT(A1,A2) CCALLSFSUB2(GCKMAT,gckmat,INT,STRING,A1,A2)
1332
1333/*------------------------------------------------------------------
1334fortran filename : gckpar.f
1335------------------------------------------------------------------*/
1336
1337#define GCKPAR(A1,A2,A3) CCALLSFSUB3(GCKPAR,gckpar,INT,PINT,PFLOAT,A1,A2,A3)
1338
1339/*------------------------------------------------------------------
1340fortran filename : gclose.f
1341------------------------------------------------------------------*/
1342
1343#define GCLOSE(A1,A2) CCALLSFSUB2(GCLOSE,gclose,INT,PINT,A1,A2)
1344
1345/*------------------------------------------------------------------
1346fortran filename : gcmwpc.f
1347------------------------------------------------------------------*/
1348
1349#define GCMWPC(A1,A2,A3) CCALLSFSUB3(GCMWPC,gcmwpc,FLOATV,FLOATV,PINT,A1,A2,A3)
1350
1351/*------------------------------------------------------------------
1352fortran filename : gcoeff.f
1353------------------------------------------------------------------*/
1354
1355#define GCOEFF() CCALLSFSUB0(GCOEFF,gcoeff)
1356
1357/*------------------------------------------------------------------
1358fortran filename : gcomp.f
1359------------------------------------------------------------------*/
1360
1361#define GCOMP() CCALLSFSUB0(GCOMP,gcomp)
1362
1363/*------------------------------------------------------------------
1364fortran filename : gcompi.f
1365------------------------------------------------------------------*/
1366
1367#define GCOMPI() CCALLSFSUB0(GCOMPI,gcompi)
1368
1369/*------------------------------------------------------------------
1370fortran filename : gcoset.f
1371------------------------------------------------------------------*/
1372
1373#define GCOSET(A1,A2) CCALLSFSUB2(GCOSET,gcoset,FLOATV,INT,A1,A2)
1374
1375/*------------------------------------------------------------------
1376fortran filename : gctset.f
1377------------------------------------------------------------------*/
1378
1379#define GCTSET(A1) CCALLSFSUB1(GCTSET,gctset,FLOATV,A1)
1380
1381/*------------------------------------------------------------------
1382fortran filename : gcubs.f
1383------------------------------------------------------------------*/
1384
1385#define GCUBS(A1,A2,A3,A4,A5) CCALLSFSUB5(GCUBS,gcubs,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1386
1387/*------------------------------------------------------------------
1388fortran filename : gd16v.f
1389------------------------------------------------------------------*/
1390
1391#define GD16V(A1,A2) CCALLSFSUB2(GD16V,gd16v,INT,INTV,A1,A2)
1392
1393/*------------------------------------------------------------------
1394fortran filename : gd3d3d.f
1395------------------------------------------------------------------*/
1396
1397#define GD3D3D(A1,A2,A3,A4) CCALLSFSUB4(GD3D3D,gd3d3d,PFLOAT,INT,PFLOAT,INT,A1,A2,A3,A4)
1398
1399/*------------------------------------------------------------------
1400fortran filename : gdahit.f
1401------------------------------------------------------------------*/
1402
1403#define GDAHIT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDAHIT,gdahit,FLOAT,FLOAT,FLOAT,INT,FLOAT,A1,A2,A3,A4,A5)
1404
1405/*------------------------------------------------------------------
1406fortran filename : gdarc.f
1407------------------------------------------------------------------*/
1408
1409#define GDARC(A1,A2,A3,A4) CCALLSFSUB4(GDARC,gdarc,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
1410
1411/*------------------------------------------------------------------
1412fortran filename : gdarr.f
1413------------------------------------------------------------------*/
1414/*
1415#define gdarr_ELEMS_6 ZTRINGV_NUM(1)
1416#define gdarr_ELEMLEN_6 ZTRINGV_NUM(255)
1417*/
1418
1419#define GDARR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDARR,gdarr,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,STRING,A1,A2,A3,A4,A5,A6)
1420
1421/*------------------------------------------------------------------
1422fortran filename : gdaxis.f
1423------------------------------------------------------------------*/
1424
1425#define GDAXIS(A1,A2,A3,A4) CCALLSFSUB4(GDAXIS,gdaxis,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4)
1426
1427/*------------------------------------------------------------------
1428fortran filename : gdbomb.f
1429------------------------------------------------------------------*/
1430
1431#define GDBOMB(A1,A2) CCALLSFSUB2(GDBOMB,gdbomb,INT,INT,A1,A2)
1432
1433/*------------------------------------------------------------------
1434fortran filename : gdcgcl.f
1435------------------------------------------------------------------*/
1436
1437#define GDCGCL(A1) CCALLSFSUB1(GDCGCL,gdcgcl,INT,A1)
1438
1439/*------------------------------------------------------------------
1440fortran filename : gdcgem.f
1441------------------------------------------------------------------*/
1442
1443#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)
1444
1445/*------------------------------------------------------------------
1446fortran filename : gdcger.f
1447------------------------------------------------------------------*/
1448
1449#define GDCGER(A1) CCALLSFSUB1(GDCGER,gdcger,FLOAT,A1)
1450
1451/*------------------------------------------------------------------
1452fortran filename : gdcghi.f
1453------------------------------------------------------------------*/
1454
1455#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)
1456
1457/*------------------------------------------------------------------
1458fortran filename : gdcgob.f
1459------------------------------------------------------------------*/
1460
1461#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)
1462
1463/*------------------------------------------------------------------
1464fortran filename : gdcgpr.f
1465------------------------------------------------------------------*/
1466
1467#define GDCGPR() CCALLSFSUB0(GDCGPR,gdcgpr)
1468
1469/*------------------------------------------------------------------
1470fortran filename : gdcgrs.f
1471------------------------------------------------------------------*/
1472
1473#define GDCGRS() CCALLSFSUB0(GDCGRS,gdcgrs)
1474
1475/*------------------------------------------------------------------
1476fortran filename : gdcgsl.f
1477------------------------------------------------------------------*/
1478
1479#define GDCGSL(A1,A2) CCALLSFSUB2(GDCGSL,gdcgsl,INT,INT,A1,A2)
1480
1481/*------------------------------------------------------------------
1482fortran filename : gdcgvw.f
1483------------------------------------------------------------------*/
1484
1485#define GDCGVW(A1,A2) CCALLSFSUB2(GDCGVW,gdcgvw,FLOATV,PFLOAT,A1,A2)
1486
1487/*------------------------------------------------------------------
1488fortran filename : gdcgwv.f
1489------------------------------------------------------------------*/
1490
1491#define GDCGWV(A1) CCALLSFSUB1(GDCGWV,gdcgwv,INT,A1)
1492
1493/*------------------------------------------------------------------
1494fortran filename : gdchit.f
1495------------------------------------------------------------------*/
1496/*
1497#define gdchit_ELEMS_1 ZTRINGV_NUM(1)
1498#define gdchit_ELEMLEN_1 ZTRINGV_NUM(4)
1499#define gdchit_ELEMS_2 ZTRINGV_NUM(1)
1500#define gdchit_ELEMLEN_2 ZTRINGV_NUM(4)
1501*/
1502
1503#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)
1504
1505/*------------------------------------------------------------------
1506fortran filename : gdcirc.f
1507------------------------------------------------------------------*/
1508
1509#define GDCIRC(A1,A2) CCALLSFSUB2(GDCIRC,gdcirc,FLOAT,FLOAT,A1,A2)
1510
1511/*------------------------------------------------------------------
1512fortran filename : gdcirr.f
1513------------------------------------------------------------------*/
1514
1515#define GDCIRR(A1,A2) CCALLSFSUB2(GDCIRR,gdcirr,FLOAT,FLOAT,A1,A2)
1516
1517/*------------------------------------------------------------------
1518fortran filename : gdciry.f
1519------------------------------------------------------------------*/
1520
1521#define GDCIRY(A1,A2) CCALLSFSUB2(GDCIRY,gdciry,FLOAT,FLOAT,A1,A2)
1522
1523/*------------------------------------------------------------------
1524fortran filename : gdclos.f
1525------------------------------------------------------------------*/
1526
1527#define GDCLOS() CCALLSFSUB0(GDCLOS,gdclos)
1528
1529/*------------------------------------------------------------------
1530fortran filename : gdcol.f
1531------------------------------------------------------------------*/
1532
1533#define GDCOL(A1) CCALLSFSUB1(GDCOL,gdcol,INT,A1)
1534
1535/*------------------------------------------------------------------
1536fortran filename : gdcol1.f
1537------------------------------------------------------------------*/
1538
1539#define GDCOL1(A1) CCALLSFSUB1(GDCOL1,gdcol1,INT,A1)
1540
1541/*------------------------------------------------------------------
1542fortran filename : gdcota.f
1543------------------------------------------------------------------*/
1544
1545#define GDCOTA() CCALLSFSUB0(GDCOTA,gdcota)
1546
1547/*------------------------------------------------------------------
1548fortran filename : gdcurs.f
1549------------------------------------------------------------------*/
1550
1551#define GDCURS(A1,A2,A3) CCALLSFSUB3(GDCURS,gdcurs,FLOAT,FLOAT,PINT,A1,A2,A3)
1552
1553/*------------------------------------------------------------------
1554fortran filename : gdcut.f
1555------------------------------------------------------------------*/
1556
1557#define GDCUT() CCALLSFSUB0(GDCUT,gdcut)
1558
1559/*------------------------------------------------------------------
1560fortran filename : gdcxyz.f
1561------------------------------------------------------------------*/
1562
1563#define GDCXYZ() CCALLSFSUB0(GDCXYZ,gdcxyz)
1564
1565/*------------------------------------------------------------------
1566fortran filename : gdebug.f
1567------------------------------------------------------------------*/
1568
1569#define GDEBUG() CCALLSFSUB0(GDEBUG,gdebug)
1570
1571/*------------------------------------------------------------------
1572fortran filename : gdeca2.f
1573------------------------------------------------------------------*/
1574
1575#define GDECA2(A1,A2,A3,A4) CCALLSFSUB4(GDECA2,gdeca2,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
1576
1577/*------------------------------------------------------------------
1578fortran filename : gdeca3.f
1579------------------------------------------------------------------*/
1580
1581#define GDECA3(A1,A2,A3,A4,A5) CCALLSFSUB5(GDECA3,gdeca3,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
1582
1583/*------------------------------------------------------------------
1584fortran filename : gdecay.f
1585------------------------------------------------------------------*/
1586
1587#define GDECAY() CCALLSFSUB0(GDECAY,gdecay)
1588
1589/*------------------------------------------------------------------
1590fortran filename : gdelet.f
1591------------------------------------------------------------------*/
1592
1593#define GDELET(A1) CCALLSFSUB1(GDELET,gdelet,INT,A1)
1594
1595/*------------------------------------------------------------------
1596fortran filename : gdeltu.f
1597------------------------------------------------------------------*/
1598
1599#define GDELTU(A1,A2,A3) CCALLSFSUB3(GDELTU,gdeltu,FLOAT,FLOAT,FLOAT,A1,A2,A3)
1600
1601/*------------------------------------------------------------------
1602fortran filename : gdexca.f
1603------------------------------------------------------------------*/
1604/*
1605#define gdexca_ELEMS_1 ZTRINGV_NUM(1)
1606#define gdexca_ELEMLEN_1 ZTRINGV_NUM(4)
1607*/
1608
1609#define GDEXCA(A1,A2) CCALLSFSUB2(GDEXCA,gdexca,STRING,INT,A1,A2)
1610
1611/*------------------------------------------------------------------
1612fortran filename : gdfr3d.f
1613------------------------------------------------------------------*/
1614
1615#define GDFR3D(A1,A2,A3,A4) CCALLSFSUB4(GDFR3D,gdfr3d,PFLOAT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4)
1616
1617/*------------------------------------------------------------------
1618fortran filename : gdfspc.f
1619------------------------------------------------------------------*/
1620/*
1621#define gdfspc_ELEMS_1 ZTRINGV_NUM(1)
1622#define gdfspc_ELEMLEN_1 ZTRINGV_NUM(4)
1623*/
1624
1625#define GDFSPC(A1,A2,A3) CCALLSFSUB3(GDFSPC,gdfspc,STRING,INT,INT,A1,A2,A3)
1626
1627/*------------------------------------------------------------------
1628fortran filename : gdhead.f
1629------------------------------------------------------------------*/
1630/*
1631#define gdhead_ELEMS_2 ZTRINGV_NUM(1)
1632#define gdhead_ELEMLEN_2 ZTRINGV_NUM(255)
1633*/
1634
1635#define GDHEAD(A1,A2,A3) CCALLSFSUB3(GDHEAD,gdhead,INT,STRING,FLOAT,A1,A2,A3)
1636
1637/*------------------------------------------------------------------
1638fortran filename : gdhits.f
1639------------------------------------------------------------------*/
1640/*
1641#define gdhits_ELEMS_1 ZTRINGV_NUM(1)
1642#define gdhits_ELEMLEN_1 ZTRINGV_NUM(4)
1643#define gdhits_ELEMS_2 ZTRINGV_NUM(1)
1644#define gdhits_ELEMLEN_2 ZTRINGV_NUM(4)
1645*/
1646
1647#define GDHITS(A1,A2,A3,A4,A5) CCALLSFSUB5(GDHITS,gdhits,STRING,STRING,INT,INT,FLOAT,A1,A2,A3,A4,A5)
1648
1649/*------------------------------------------------------------------
1650fortran filename : gdinit.f
1651------------------------------------------------------------------*/
1652
1653#define GDINIT() CCALLSFSUB0(GDINIT,gdinit)
1654
1655/*------------------------------------------------------------------
1656fortran filename : gdkine.f
1657------------------------------------------------------------------*/
1658
1659#define GDKINE() CCALLSFSUB0(GDKINE,gdkine)
1660
1661/*------------------------------------------------------------------
1662fortran filename : gdlcyl.f
1663------------------------------------------------------------------*/
1664
1665#define GDLCYL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDLCYL,gdlcyl,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
1666
1667/*------------------------------------------------------------------
1668fortran filename : gdlens.f
1669------------------------------------------------------------------*/
1670/*
1671#define gdlens_ELEMS_2 ZTRINGV_NUM(1)
1672#define gdlens_ELEMLEN_2 ZTRINGV_NUM(4)
1673*/
1674
1675#define GDLENS(A1,A2) CCALLSFSUB2(GDLENS,gdlens,INT,STRING,A1,A2)
1676
1677/*------------------------------------------------------------------
1678fortran filename : gdline.f
1679------------------------------------------------------------------*/
1680
1681#define GDLINE(A1,A2) CCALLSFSUB2(GDLINE,gdline,FLOATV,FLOATV,A1,A2)
1682
1683/*------------------------------------------------------------------
1684fortran filename : gdlumi.f
1685------------------------------------------------------------------*/
1686
1687#define GDLUMI(A1,A2) CCALLSFSUB2(GDLUMI,gdlumi,PINT,FLOAT,A1,A2)
1688
1689/*------------------------------------------------------------------
1690fortran filename : gdlw.f
1691------------------------------------------------------------------*/
1692
1693#define GDLW(A1) CCALLSFSUB1(GDLW,gdlw,INT,A1)
1694
1695/*------------------------------------------------------------------
1696fortran filename : gdlw1.f
1697------------------------------------------------------------------*/
1698
1699#define GDLW1(A1) CCALLSFSUB1(GDLW1,gdlw1,INT,A1)
1700
1701/*------------------------------------------------------------------
1702fortran filename : gdman.f
1703------------------------------------------------------------------*/
1704
1705#define GDMAN(A1,A2) CCALLSFSUB2(GDMAN,gdman,FLOAT,FLOAT,A1,A2)
1706
1707/*------------------------------------------------------------------
1708fortran filename : gdnino.f
1709------------------------------------------------------------------*/
1710
1711#define GDNINO() CCALLSFSUB0(GDNINO,gdnino)
1712
1713/*------------------------------------------------------------------
1714fortran filename : gdnson.f
1715------------------------------------------------------------------*/
1716/*
1717#define gdnson_ELEMS_1 ZTRINGV_NUM(1)
1718#define gdnson_ELEMLEN_1 ZTRINGV_NUM(4)
1719*/
1720
1721#define GDNSON(A1,A2,A3) CCALLSFSUB3(GDNSON,gdnson,STRING,PINT,PINT,A1,A2,A3)
1722
1723/*------------------------------------------------------------------
1724fortran filename : gdopen.f
1725------------------------------------------------------------------*/
1726
1727#define GDOPEN(A1) CCALLSFSUB1(GDOPEN,gdopen,INT,A1)
1728
1729/*------------------------------------------------------------------
1730fortran filename : gdopt.f
1731------------------------------------------------------------------*/
1732/*
1733#define gdopt_ELEMS_1 ZTRINGV_NUM(1)
1734#define gdopt_ELEMLEN_1 ZTRINGV_NUM(4)
1735#define gdopt_ELEMS_2 ZTRINGV_NUM(1)
1736#define gdopt_ELEMLEN_2 ZTRINGV_NUM(4)
1737*/
1738
1739#define GDOPT(A1,A2) CCALLSFSUB2(GDOPT,gdopt,STRING,STRING,A1,A2)
1740
1741/*------------------------------------------------------------------
1742fortran filename : gdpart.f
1743------------------------------------------------------------------*/
1744
1745#define GDPART(A1,A2,A3) CCALLSFSUB3(GDPART,gdpart,INT,INT,FLOAT,A1,A2,A3)
1746
1747/*------------------------------------------------------------------
1748fortran filename : gdpdk.f
1749------------------------------------------------------------------*/
1750
1751 PROTOCCALLSFFUN3(DOUBLE,GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE)
1752#define GDPDK(A2,A3,A4) CCALLSFFUN3(GDPDK,gdpdk,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
1753
1754/*------------------------------------------------------------------
1755fortran filename : gdplst.f
1756------------------------------------------------------------------*/
1757/*
1758#define gdplst_ELEMS_2 ZTRINGV_NUM(1)
1759#define gdplst_ELEMLEN_2 ZTRINGV_NUM(4)
1760*/
1761
1762#define GDPLST(A1,A2,A3,A4) CCALLSFSUB4(GDPLST,gdplst,INT,PSTRING,INT,INT,A1,A2,A3,A4)
1763
1764/*------------------------------------------------------------------
1765fortran filename : gdprtr.f
1766------------------------------------------------------------------*/
1767/*
1768#define gdprtr_ELEMS_1 ZTRINGV_NUM(1)
1769#define gdprtr_ELEMLEN_1 ZTRINGV_NUM(4)
1770*/
1771
1772#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)
1773
1774/*------------------------------------------------------------------
1775fortran filename : gdrack.f
1776------------------------------------------------------------------*/
1777
1778#define GDRACK() CCALLSFSUB0(GDRACK,gdrack)
1779
1780/*------------------------------------------------------------------
1781fortran filename : gdraw.f
1782------------------------------------------------------------------*/
1783/*
1784#define gdraw_ELEMS_1 ZTRINGV_NUM(1)
1785#define gdraw_ELEMLEN_1 ZTRINGV_NUM(4)
1786*/
1787
1788#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)
1789
1790/*------------------------------------------------------------------
1791fortran filename : gdrawc.f
1792------------------------------------------------------------------*/
1793/*
1794#define gdrawc_ELEMS_1 ZTRINGV_NUM(1)
1795#define gdrawc_ELEMLEN_1 ZTRINGV_NUM(4)
1796*/
1797
1798#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)
1799
1800/*------------------------------------------------------------------
1801fortran filename : gdrawp.f
1802------------------------------------------------------------------*/
1803
1804#define GDRAWP(A1,A2,A3) CCALLSFSUB3(GDRAWP,gdrawp,FLOATV,FLOATV,INT,A1,A2,A3)
1805
1806/*------------------------------------------------------------------
1807fortran filename : gdraws.f
1808------------------------------------------------------------------*/
1809
1810#define GDRAWS(A1,A2) CCALLSFSUB2(GDRAWS,gdraws,INT,PFLOAT,A1,A2)
1811
1812/*------------------------------------------------------------------
1813fortran filename : gdrawt.f
1814------------------------------------------------------------------*/
1815/*
1816#define gdrawt_ELEMS_3 ZTRINGV_NUM(1)
1817#define gdrawt_ELEMLEN_3 ZTRINGV_NUM(255)
1818*/
1819
1820#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)
1821
1822/*------------------------------------------------------------------
1823fortran filename : gdrawv.f
1824------------------------------------------------------------------*/
1825
1826#define GDRAWV(A1,A2,A3) CCALLSFSUB3(GDRAWV,gdrawv,FLOATV,FLOATV,INT,A1,A2,A3)
1827
1828/*------------------------------------------------------------------
1829fortran filename : gdrawx.f
1830------------------------------------------------------------------*/
1831/*
1832#define gdrawx_ELEMS_1 ZTRINGV_NUM(1)
1833#define gdrawx_ELEMLEN_1 ZTRINGV_NUM(4)
1834*/
1835
1836#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)
1837
1838/*------------------------------------------------------------------
1839fortran filename : gdray.f
1840------------------------------------------------------------------*/
1841
1842#define GDRAY() CCALLSFSUB0(GDRAY,gdray)
1843
1844/*------------------------------------------------------------------
1845fortran filename : gdrayt.f
1846------------------------------------------------------------------*/
1847/*
1848#define gdrayt_ELEMS_1 ZTRINGV_NUM(1)
1849#define gdrayt_ELEMLEN_1 ZTRINGV_NUM(4)
1850*/
1851
1852#define GDRAYT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GDRAYT,gdrayt,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
1853
1854/*------------------------------------------------------------------
1855fortran filename : gdrect.f
1856------------------------------------------------------------------*/
1857
1858#define GDRECT(A1,A2,A3,A4) CCALLSFSUB4(GDRECT,gdrect,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
1859
1860/*------------------------------------------------------------------
1861fortran filename : gdrela.f
1862------------------------------------------------------------------*/
1863
1864#define GDRELA() CCALLSFSUB0(GDRELA,gdrela)
1865
1866/*------------------------------------------------------------------
1867fortran filename : gdrele.f
1868------------------------------------------------------------------*/
1869
1870#define GDRELE(A1,A2,A3,A4) CCALLSFSUB4(GDRELE,gdrele,FLOAT,FLOAT,INT,PFLOAT,A1,A2,A3,A4)
1871
1872/*------------------------------------------------------------------
1873fortran filename : gdreli.f
1874------------------------------------------------------------------*/
1875
1876#define GDRELI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GDRELI,gdreli,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
1877
1878/*------------------------------------------------------------------
1879fortran filename : gdrelm.f
1880------------------------------------------------------------------*/
1881
1882#define GDRELM(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELM,gdrelm,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1883
1884/*------------------------------------------------------------------
1885fortran filename : gdrelp.f
1886------------------------------------------------------------------*/
1887
1888#define GDRELP(A1,A2,A3,A4,A5) CCALLSFSUB5(GDRELP,gdrelp,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1889
1890/*------------------------------------------------------------------
1891fortran filename : gdrelx.f
1892------------------------------------------------------------------*/
1893
1894#define GDRELX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDRELX,gdrelx,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
1895
1896/*------------------------------------------------------------------
1897fortran filename : gdrmat.f
1898------------------------------------------------------------------*/
1899/*
1900#define gdrmat_ELEMS_3 ZTRINGV_NUM(ZTRINGV_ARGS(4))
1901#define gdrmat_ELEMLEN_3 ZTRINGV_NUM(4)
1902*/
1903
1904#define GDRMAT(A1,A2,A3,A4) CCALLSFSUB4(GDRMAT,gdrmat,INT,INT,STRINGV,INT,A1,A2,A3,A4)
1905
1906/*------------------------------------------------------------------
1907fortran filename : gdrot.f
1908------------------------------------------------------------------*/
1909
1910#define GDROT(A1,A2,A3,A4,A5) CCALLSFSUB5(GDROT,gdrot,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
1911
1912/*------------------------------------------------------------------
1913fortran filename : gdrprt.f
1914------------------------------------------------------------------*/
1915
1916#define GDRPRT(A1,A2,A3,A4) CCALLSFSUB4(GDRPRT,gdrprt,INT,INT,FLOAT,INT,A1,A2,A3,A4)
1917
1918/*------------------------------------------------------------------
1919fortran filename : gdrsga.f
1920------------------------------------------------------------------*/
1921
1922#define GDRSGA() CCALLSFSUB0(GDRSGA,gdrsga)
1923
1924/*------------------------------------------------------------------
1925fortran filename : gdrvol.f
1926------------------------------------------------------------------*/
1927
1928#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)
1929
1930/*------------------------------------------------------------------
1931fortran filename : gdrwsc.f
1932------------------------------------------------------------------*/
1933
1934#define GDRWSC(A1,A2) CCALLSFSUB2(GDRWSC,gdrwsc,INT,PFLOAT,A1,A2)
1935
1936/*------------------------------------------------------------------
1937fortran filename : gdsarc.f
1938------------------------------------------------------------------*/
1939
1940#define GDSARC(A1,A2,A3,A4,A5) CCALLSFSUB5(GDSARC,gdsarc,FLOAT,FLOAT,FLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5)
1941
1942/*------------------------------------------------------------------
1943fortran filename : gdscal.f
1944------------------------------------------------------------------*/
1945
1946#define GDSCAL(A1,A2) CCALLSFSUB2(GDSCAL,gdscal,FLOAT,FLOAT,A1,A2)
1947
1948/*------------------------------------------------------------------
1949fortran filename : gdshad.f
1950------------------------------------------------------------------*/
1951
1952#define GDSHAD(A1,A2) CCALLSFSUB2(GDSHAD,gdshad,PINT,FLOAT,A1,A2)
1953
1954/*------------------------------------------------------------------
1955fortran filename : gdshif.f
1956------------------------------------------------------------------*/
1957
1958#define GDSHIF(A1,A2) CCALLSFSUB2(GDSHIF,gdshif,INT,INT,A1,A2)
1959
1960/*------------------------------------------------------------------
1961fortran filename : gdshow.f
1962------------------------------------------------------------------*/
1963
1964#define GDSHOW(A1) CCALLSFSUB1(GDSHOW,gdshow,INT,A1)
1965
1966/*------------------------------------------------------------------
1967fortran filename : gdson.f
1968------------------------------------------------------------------*/
1969/*
1970#define gdson_ELEMS_2 ZTRINGV_NUM(1)
1971#define gdson_ELEMLEN_2 ZTRINGV_NUM(4)
1972#define gdson_ELEMS_3 ZTRINGV_NUM(1)
1973#define gdson_ELEMLEN_3 ZTRINGV_NUM(4)
1974*/
1975
1976#define GDSON(A1,A2,A3) CCALLSFSUB3(GDSON,gdson,INT,STRING,PSTRING,A1,A2,A3)
1977
1978/*------------------------------------------------------------------
1979fortran filename : gdspec.f
1980------------------------------------------------------------------*/
1981/*
1982#define gdspec_ELEMS_1 ZTRINGV_NUM(1)
1983#define gdspec_ELEMLEN_1 ZTRINGV_NUM(4)
1984*/
1985
1986#define GDSPEC(A1) CCALLSFSUB1(GDSPEC,gdspec,STRING,A1)
1987
1988/*------------------------------------------------------------------
1989fortran filename : gdssur.f
1990------------------------------------------------------------------*/
1991
1992#define GDSSUR(A1,A2,A3,A4) CCALLSFSUB4(GDSSUR,gdssur,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4)
1993
1994/*------------------------------------------------------------------
1995fortran filename : gdstep.f
1996------------------------------------------------------------------*/
1997
1998#define GDSTEP() CCALLSFSUB0(GDSTEP,gdstep)
1999
2000/*------------------------------------------------------------------
2001fortran filename : gdsurf.f
2002------------------------------------------------------------------*/
2003
2004#define GDSURF(A1) CCALLSFSUB1(GDSURF,gdsurf,INT,A1)
2005
2006/*------------------------------------------------------------------
2007fortran filename : gdthrz.f
2008------------------------------------------------------------------*/
2009
2010#define GDTHRZ(A1) CCALLSFSUB1(GDTHRZ,gdthrz,PFLOAT,A1)
2011
2012/*------------------------------------------------------------------
2013fortran filename : gdtom.f
2014------------------------------------------------------------------*/
2015
2016#define GDTOM(A1,A2,A3) CCALLSFSUB3(GDTOM,gdtom,FLOATV,PFLOAT,INT,A1,A2,A3)
2017
2018/*------------------------------------------------------------------
2019fortran filename : gdtr0.f
2020------------------------------------------------------------------*/
2021
2022#define GDTR0(A1,A2,A3,A4) CCALLSFSUB4(GDTR0,gdtr0,INT,INT,INT,INT,A1,A2,A3,A4)
2023
2024/*------------------------------------------------------------------
2025fortran filename : gdtr1.f
2026------------------------------------------------------------------*/
2027
2028#define GDTR1(A1,A2,A3,A4) CCALLSFSUB4(GDTR1,gdtr1,INT,INT,PINT,PINT,A1,A2,A3,A4)
2029
2030/*------------------------------------------------------------------
2031fortran filename : gdtr10.f
2032------------------------------------------------------------------*/
2033
2034#define GDTR10(A1) CCALLSFSUB1(GDTR10,gdtr10,INT,A1)
2035
2036/*------------------------------------------------------------------
2037fortran filename : gdtr11.f
2038------------------------------------------------------------------*/
2039
2040#define GDTR11(A1,A2,A3) CCALLSFSUB3(GDTR11,gdtr11,PINT,PINT,INT,A1,A2,A3)
2041
2042/*------------------------------------------------------------------
2043fortran filename : gdtr12.f
2044------------------------------------------------------------------*/
2045
2046#define GDTR12(A1) CCALLSFSUB1(GDTR12,gdtr12,INT,A1)
2047
2048/*------------------------------------------------------------------
2049fortran filename : gdtr2.f
2050------------------------------------------------------------------*/
2051
2052#define GDTR2(A1,A2,A3,A4) CCALLSFSUB4(GDTR2,gdtr2,INT,PINT,INT,PINT,A1,A2,A3,A4)
2053
2054/*------------------------------------------------------------------
2055fortran filename : gdtr3.f
2056------------------------------------------------------------------*/
2057
2058#define GDTR3(A1) CCALLSFSUB1(GDTR3,gdtr3,INT,A1)
2059
2060/*------------------------------------------------------------------
2061fortran filename : gdtr4.f
2062------------------------------------------------------------------*/
2063
2064#define GDTR4() CCALLSFSUB0(GDTR4,gdtr4)
2065
2066/*------------------------------------------------------------------
2067fortran filename : gdtr5.f
2068------------------------------------------------------------------*/
2069
2070#define GDTR5(A1) CCALLSFSUB1(GDTR5,gdtr5,INT,A1)
2071
2072/*------------------------------------------------------------------
2073fortran filename : gdtr6.f
2074------------------------------------------------------------------*/
2075
2076#define GDTR6(A1) CCALLSFSUB1(GDTR6,gdtr6,PINT,A1)
2077
2078/*------------------------------------------------------------------
2079fortran filename : gdtr8.f
2080------------------------------------------------------------------*/
2081/*
2082#define gdtr8_ELEMS_1 ZTRINGV_NUM(1)
2083#define gdtr8_ELEMLEN_1 ZTRINGV_NUM(4)
2084#define gdtr8_ELEMS_2 ZTRINGV_NUM(1)
2085#define gdtr8_ELEMLEN_2 ZTRINGV_NUM(4)
2086*/
2087
2088#define GDTR8(A1,A2,A3) CCALLSFSUB3(GDTR8,gdtr8,STRING,STRING,PINT,A1,A2,A3)
2089
2090/*------------------------------------------------------------------
2091fortran filename : gdtr99.f
2092------------------------------------------------------------------*/
2093
2094#define GDTR99(A1) CCALLSFSUB1(GDTR99,gdtr99,INT,A1)
2095
2096/*------------------------------------------------------------------
2097fortran filename : gdtrak.f
2098------------------------------------------------------------------*/
2099/*
2100#define gdtrak_ELEMS_1 ZTRINGV_NUM(1)
2101#define gdtrak_ELEMLEN_1 ZTRINGV_NUM(255)
2102*/
2103
2104#define GDTRAK(A1) CCALLSFSUB1(GDTRAK,gdtrak,STRING,A1)
2105
2106/*------------------------------------------------------------------
2107fortran filename : gdtree.f
2108------------------------------------------------------------------*/
2109/*
2110#define gdtree_ELEMS_1 ZTRINGV_NUM(1)
2111#define gdtree_ELEMLEN_1 ZTRINGV_NUM(4)
2112*/
2113
2114#define GDTREE(A1,A2,A3) CCALLSFSUB3(GDTREE,gdtree,PSTRING,INT,INT,A1,A2,A3)
2115
2116/*------------------------------------------------------------------
2117fortran filename : gdwmn1.f
2118------------------------------------------------------------------*/
2119
2120#define GDWMN1(A1,A2) CCALLSFSUB2(GDWMN1,gdwmn1,FLOAT,FLOAT,A1,A2)
2121
2122/*------------------------------------------------------------------
2123fortran filename : gdwmn2.f
2124------------------------------------------------------------------*/
2125
2126#define GDWMN2(A1,A2) CCALLSFSUB2(GDWMN2,gdwmn2,FLOAT,FLOAT,A1,A2)
2127
2128/*------------------------------------------------------------------
2129fortran filename : gdwmn3.f
2130------------------------------------------------------------------*/
2131
2132#define GDWMN3(A1,A2) CCALLSFSUB2(GDWMN3,gdwmn3,FLOAT,FLOAT,A1,A2)
2133
2134/*------------------------------------------------------------------
2135fortran filename : gdxyz.f
2136------------------------------------------------------------------*/
2137
2138#define GDXYZ(A1) CCALLSFSUB1(GDXYZ,gdxyz,INT,A1)
2139
2140/*------------------------------------------------------------------
2141fortran filename : gdxzoo.f
2142------------------------------------------------------------------*/
2143
2144#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)
2145
2146/*------------------------------------------------------------------
2147fortran filename : gdzoom.f
2148------------------------------------------------------------------*/
2149
2150#define GDZOOM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GDZOOM,gdzoom,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6)
2151
2152/*------------------------------------------------------------------
2153fortran filename : geamon.f
2154------------------------------------------------------------------*/
2155/*
2156#define geamon_ELEMS_2 ZTRINGV_NUM(1)
2157#define geamon_ELEMLEN_2 ZTRINGV_NUM(255)
2158*/
2159
2160#define GEAMON(A1,A2) CCALLSFSUB2(GEAMON,geamon,INT,STRING,A1,A2)
2161
2162/*------------------------------------------------------------------
2163fortran filename : geditv.f
2164------------------------------------------------------------------*/
2165
2166#define GEDITV(A1) CCALLSFSUB1(GEDITV,geditv,INT,A1)
2167
2168/*------------------------------------------------------------------
2169fortran filename : gefch2.f
2170------------------------------------------------------------------*/
2171
2172 PROTOCCALLSFFUN3(FLOAT,GEFCH2,gefch2,FLOAT,FLOAT,FLOAT)
2173#define GEFCH2(A2,A3,A4) CCALLSFFUN3(GEFCH2,gefch2,FLOAT,FLOAT,FLOAT,A2,A3,A4)
2174
2175/*------------------------------------------------------------------
2176fortran filename : gekbin.f
2177------------------------------------------------------------------*/
2178
2179#define GEKBIN() CCALLSFSUB0(GEKBIN,gekbin)
2180
2181/*------------------------------------------------------------------
2182fortran filename : gelset.f
2183------------------------------------------------------------------*/
2184
2185#define GELSET(A1) CCALLSFSUB1(GELSET,gelset,FLOATV,A1)
2186
2187/*------------------------------------------------------------------
2188fortran filename : genset.f
2189------------------------------------------------------------------*/
2190
2191#define GENSET() CCALLSFSUB0(GENSET,genset)
2192
2193/*------------------------------------------------------------------
2194fortran filename : genxpt.f
2195------------------------------------------------------------------*/
2196
2197#define GENXPT(A1,A2,A3) CCALLSFSUB3(GENXPT,genxpt,INT,INT,FLOAT,A1,A2,A3)
2198
2199/*------------------------------------------------------------------
2200fortran filename : geta.f
2201------------------------------------------------------------------*/
2202
2203 PROTOCCALLSFFUN7(DOUBLE,GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE)
2204#define GETA(A2,A3,A4,A5,A6,A7,A8) CCALLSFFUN7(GETA,geta,DOUBLE,INT,INT,INT,INT,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7,A8)
2205
2206/*------------------------------------------------------------------
2207fortran filename : getene.f
2208------------------------------------------------------------------*/
2209
2210#define GETENE(A1,A2,A3,A4) CCALLSFSUB4(GETENE,getene,FLOAT,FLOATV,INTV,INT,A1,A2,A3,A4)
2211
2212/*------------------------------------------------------------------
2213fortran filename : getnu.f
2214------------------------------------------------------------------*/
2215
2216#define GETNU(A1,A2,A3,A4,A5) CCALLSFSUB5(GETNU,getnu,FLOATV,INTV,FLOAT,INT,PFLOAT,A1,A2,A3,A4,A5)
2217
2218/*------------------------------------------------------------------
2219fortran filename : getnum.f
2220------------------------------------------------------------------*/
2221
2222#define GETNUM(A1,A2) CCALLSFSUB2(GETNUM,getnum,INTV,PINT,A1,A2)
2223
2224/*------------------------------------------------------------------
2225fortran filename : getpar.f
2226------------------------------------------------------------------*/
2227
2228#define GETPAR(A1,A2,A3) CCALLSFSUB3(GETPAR,getpar,INT,INT,PINT,A1,A2,A3)
2229
2230/*------------------------------------------------------------------
2231fortran filename : getshp.f
2232------------------------------------------------------------------*/
2233
2234#define GETSHP(A1,A2) CCALLSFSUB2(GETSHP,getshp,INT,FLOATV,A1,A2)
2235
2236/*------------------------------------------------------------------
2237fortran filename : getver.f
2238------------------------------------------------------------------*/
2239/*
2240#define getver_ELEMS_1 ZTRINGV_NUM(1)
2241#define getver_ELEMLEN_1 ZTRINGV_NUM(8)
2242*/
2243
2244#define GETVER(A1,A2) CCALLSFSUB2(GETVER,getver,PSTRING,PFLOAT,A1,A2)
2245
2246/*------------------------------------------------------------------
2247fortran filename : gevkev.f
2248------------------------------------------------------------------*/
2249/*
2250#define gevkev_ELEMS_3 ZTRINGV_NUM(1)
2251#define gevkev_ELEMLEN_3 ZTRINGV_NUM(4)
2252*/
2253
2254#define GEVKEV(A1,A2,A3) CCALLSFSUB3(GEVKEV,gevkev,FLOAT,PFLOAT,PSTRING,A1,A2,A3)
2255
2256/*------------------------------------------------------------------
2257fortran filename : gfang.f
2258------------------------------------------------------------------*/
2259
2260#define GFANG(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFANG,gfang,FLOATV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,PLOGICAL,A1,A2,A3,A4,A5,A6)
2261
2262/*------------------------------------------------------------------
2263fortran filename : gfatt.f
2264------------------------------------------------------------------*/
2265/*
2266#define gfatt_ELEMS_1 ZTRINGV_NUM(1)
2267#define gfatt_ELEMLEN_1 ZTRINGV_NUM(4)
2268#define gfatt_ELEMS_2 ZTRINGV_NUM(1)
2269#define gfatt_ELEMLEN_2 ZTRINGV_NUM(4)
2270*/
2271
2272#define GFATT(A1,A2,A3) CCALLSFSUB3(GFATT,gfatt,STRING,STRING,PINT,A1,A2,A3)
2273
2274/*------------------------------------------------------------------
2275fortran filename : gfclim.f
2276------------------------------------------------------------------*/
2277
2278#define GFCLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCLIM,gfclim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
2279
2280/*------------------------------------------------------------------
2281fortran filename : gfcoor.f
2282------------------------------------------------------------------*/
2283
2284#define GFCOOR(A1,A2,A3) CCALLSFSUB3(GFCOOR,gfcoor,FLOATV,INT,PFLOAT,A1,A2,A3)
2285
2286/*------------------------------------------------------------------
2287fortran filename : gfcord.f
2288------------------------------------------------------------------*/
2289
2290#define GFCORD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFCORD,gfcord,INT,FLOATV,FLOATV,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5,A6)
2291
2292/*------------------------------------------------------------------
2293fortran filename : gfcoul.f
2294------------------------------------------------------------------*/
2295
2296 PROTOCCALLSFFUN1(FLOAT,GFCOUL,gfcoul,FLOAT)
2297#define GFCOUL(A2) CCALLSFFUN1(GFCOUL,gfcoul,FLOAT,A2)
2298
2299/*------------------------------------------------------------------
2300fortran filename : gfcvol.f
2301------------------------------------------------------------------*/
2302
2303#define GFCVOL() CCALLSFSUB0(GFCVOL,gfcvol)
2304
2305/*------------------------------------------------------------------
2306fortran filename : gfdet.f
2307------------------------------------------------------------------*/
2308/*
2309#define gfdet_ELEMS_1 ZTRINGV_NUM(1)
2310#define gfdet_ELEMLEN_1 ZTRINGV_NUM(4)
2311#define gfdet_ELEMS_2 ZTRINGV_NUM(1)
2312#define gfdet_ELEMLEN_2 ZTRINGV_NUM(4)
2313#define gfdet_ELEMS_4 ZTRINGV_NUM(1)
2314#define gfdet_ELEMLEN_4 ZTRINGV_NUM(4)
2315*/
2316
2317#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)
2318
2319/*------------------------------------------------------------------
2320fortran filename : gfdeta.f
2321------------------------------------------------------------------*/
2322/*
2323#define gfdeta_ELEMS_1 ZTRINGV_NUM(1)
2324#define gfdeta_ELEMLEN_1 ZTRINGV_NUM(4)
2325#define gfdeta_ELEMS_2 ZTRINGV_NUM(1)
2326#define gfdeta_ELEMLEN_2 ZTRINGV_NUM(4)
2327*/
2328
2329#define GFDETA(A1,A2,A3) CCALLSFSUB3(GFDETA,gfdeta,STRING,STRING,INT,A1,A2,A3)
2330
2331/*------------------------------------------------------------------
2332fortran filename : gfdetd.f
2333------------------------------------------------------------------*/
2334/*
2335#define gfdetd_ELEMS_1 ZTRINGV_NUM(1)
2336#define gfdetd_ELEMLEN_1 ZTRINGV_NUM(4)
2337#define gfdetd_ELEMS_2 ZTRINGV_NUM(1)
2338#define gfdetd_ELEMLEN_2 ZTRINGV_NUM(4)
2339#define gfdetd_ELEMS_4 ZTRINGV_NUM(1)
2340#define gfdetd_ELEMLEN_4 ZTRINGV_NUM(4)
2341*/
2342
2343#define GFDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETD,gfdetd,STRING,STRING,PINT,STRINGV,PINT,A1,A2,A3,A4,A5)
2344
2345/*------------------------------------------------------------------
2346fortran filename : gfdeth.f
2347------------------------------------------------------------------*/
2348/*
2349#define gfdeth_ELEMS_1 ZTRINGV_NUM(1)
2350#define gfdeth_ELEMLEN_1 ZTRINGV_NUM(4)
2351#define gfdeth_ELEMS_2 ZTRINGV_NUM(1)
2352#define gfdeth_ELEMLEN_2 ZTRINGV_NUM(4)
2353#define gfdeth_ELEMS_4 ZTRINGV_NUM(1)
2354#define gfdeth_ELEMLEN_4 ZTRINGV_NUM(4)
2355*/
2356
2357#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)
2358
2359/*------------------------------------------------------------------
2360fortran filename : gfdetu.f
2361------------------------------------------------------------------*/
2362/*
2363#define gfdetu_ELEMS_1 ZTRINGV_NUM(1)
2364#define gfdetu_ELEMLEN_1 ZTRINGV_NUM(4)
2365#define gfdetu_ELEMS_2 ZTRINGV_NUM(1)
2366#define gfdetu_ELEMLEN_2 ZTRINGV_NUM(4)
2367*/
2368
2369#define GFDETU(A1,A2,A3,A4,A5) CCALLSFSUB5(GFDETU,gfdetu,STRING,STRING,INT,PINT,FLOATV,A1,A2,A3,A4,A5)
2370
2371/*------------------------------------------------------------------
2372fortran filename : gfdigi.f
2373------------------------------------------------------------------*/
2374/*
2375#define gfdigi_ELEMS_1 ZTRINGV_NUM(1)
2376#define gfdigi_ELEMLEN_1 ZTRINGV_NUM(4)
2377#define gfdigi_ELEMS_2 ZTRINGV_NUM(1)
2378#define gfdigi_ELEMLEN_2 ZTRINGV_NUM(4)
2379*/
2380
2381#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)
2382
2383/*------------------------------------------------------------------
2384fortran filename : gffgo.f
2385------------------------------------------------------------------*/
2386
2387#define GFFGO() CCALLSFSUB0(GFFGO,gffgo)
2388
2389/*------------------------------------------------------------------
2390fortran filename : gfhead.f
2391------------------------------------------------------------------*/
2392
2393#define GFHEAD(A1,A2,A3,A4) CCALLSFSUB4(GFHEAD,gfhead,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4)
2394
2395/*------------------------------------------------------------------
2396fortran filename : gfhits.f
2397------------------------------------------------------------------*/
2398/*
2399#define gfhits_ELEMS_1 ZTRINGV_NUM(1)
2400#define gfhits_ELEMLEN_1 ZTRINGV_NUM(4)
2401#define gfhits_ELEMS_2 ZTRINGV_NUM(1)
2402#define gfhits_ELEMLEN_2 ZTRINGV_NUM(4)
2403*/
2404
2405#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)
2406
2407/*------------------------------------------------------------------
2408fortran filename : gfhsta.f
2409------------------------------------------------------------------*/
2410
2411#define GFHSTA() CCALLSFSUB0(GFHSTA,gfhsta)
2412
2413/*------------------------------------------------------------------
2414fortran filename : gfin.f
2415------------------------------------------------------------------*/
2416/*
2417#define gfin_ELEMS_2 ZTRINGV_NUM(#{58{4Ø#)
2418#define gfin_ELEMLEN_2 ZTRINGV_NUM(4)
2419#define gfin_ELEMS_5 ZTRINGV_NUM(1)
2420#define gfin_ELEMLEN_5 ZTRINGV_NUM(255)
2421*/
2422
2423#define GFIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFIN,gfin,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6)
2424
2425/*------------------------------------------------------------------
2426fortran filename : gfind.f
2427------------------------------------------------------------------*/
2428/*
2429#define gfind_ELEMS_1 ZTRINGV_NUM(1)
2430#define gfind_ELEMLEN_1 ZTRINGV_NUM(4)
2431#define gfind_ELEMS_2 ZTRINGV_NUM(1)
2432#define gfind_ELEMLEN_2 ZTRINGV_NUM(4)
2433*/
2434
2435#define GFIND(A1,A2,A3) CCALLSFSUB3(GFIND,gfind,STRING,STRING,PINT,A1,A2,A3)
2436
2437/*------------------------------------------------------------------
2438fortran filename : gfinds.f
2439------------------------------------------------------------------*/
2440
2441#define GFINDS() CCALLSFSUB0(GFINDS,gfinds)
2442
2443/*------------------------------------------------------------------
2444fortran filename : gfipar.f
2445------------------------------------------------------------------*/
2446
2447#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)
2448
2449/*------------------------------------------------------------------
2450fortran filename : gfkine.f
2451------------------------------------------------------------------*/
2452
2453#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)
2454
2455/*------------------------------------------------------------------
2456fortran filename : gflcar.f
2457------------------------------------------------------------------*/
2458
2459#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)
2460
2461/*------------------------------------------------------------------
2462fortran filename : gflphi.f
2463------------------------------------------------------------------*/
2464
2465#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)
2466
2467/*------------------------------------------------------------------
2468fortran filename : gflrad.f
2469------------------------------------------------------------------*/
2470
2471#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)
2472
2473/*------------------------------------------------------------------
2474fortran filename : gflthe.f
2475------------------------------------------------------------------*/
2476
2477#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)
2478
2479/*------------------------------------------------------------------
2480fortran filename : gfluct.f
2481------------------------------------------------------------------*/
2482
2483#define GFLUCT(A1,A2) CCALLSFSUB2(GFLUCT,gfluct,FLOAT,PFLOAT,A1,A2)
2484
2485/*------------------------------------------------------------------
2486fortran filename : gfmate.f
2487------------------------------------------------------------------*/
2488
2489#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)
2490
2491/*------------------------------------------------------------------
2492fortran filename : gfmdis.f
2493------------------------------------------------------------------*/
2494
2495#define GFMDIS() CCALLSFSUB0(GFMDIS,gfmdis)
2496
2497/*------------------------------------------------------------------
2498fortran filename : gfmfin.f
2499------------------------------------------------------------------*/
2500
2501#define GFMFIN() CCALLSFSUB0(GFMFIN,gfmfin)
2502
2503/*------------------------------------------------------------------
2504fortran filename : gfmoth.f
2505------------------------------------------------------------------*/
2506/*
2507#define gfmoth_ELEMS_1 ZTRINGV_NUM(1)
2508#define gfmoth_ELEMLEN_1 ZTRINGV_NUM(4)
2509#define gfmoth_ELEMS_2 ZTRINGV_NUM(1)
2510#define gfmoth_ELEMLEN_2 ZTRINGV_NUM(4)
2511*/
2512
2513#define GFMOTH(A1,A2,A3) CCALLSFSUB3(GFMOTH,gfmoth,STRING,PSTRING,PINT,A1,A2,A3)
2514
2515/*------------------------------------------------------------------
2516fortran filename : gfndig.f
2517------------------------------------------------------------------*/
2518/*
2519#define gfndig_ELEMS_1 ZTRINGV_NUM(1)
2520#define gfndig_ELEMLEN_1 ZTRINGV_NUM(4)
2521#define gfndig_ELEMS_2 ZTRINGV_NUM(1)
2522#define gfndig_ELEMLEN_2 ZTRINGV_NUM(4)
2523*/
2524
2525#define GFNDIG(A1,A2,A3) CCALLSFSUB3(GFNDIG,gfndig,STRING,STRING,PINT,A1,A2,A3)
2526
2527/*------------------------------------------------------------------
2528fortran filename : gfnhit.f
2529------------------------------------------------------------------*/
2530/*
2531#define gfnhit_ELEMS_1 ZTRINGV_NUM(1)
2532#define gfnhit_ELEMLEN_1 ZTRINGV_NUM(4)
2533#define gfnhit_ELEMS_2 ZTRINGV_NUM(1)
2534#define gfnhit_ELEMLEN_2 ZTRINGV_NUM(4)
2535*/
2536
2537#define GFNHIT(A1,A2,A3) CCALLSFSUB3(GFNHIT,gfnhit,STRING,STRING,PINT,A1,A2,A3)
2538
2539/*------------------------------------------------------------------
2540fortran filename : gfnrdt.f
2541------------------------------------------------------------------*/
2542
2543#define GFNRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFNRDT,gfnrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2544
2545/*------------------------------------------------------------------
2546fortran filename : gfout.f
2547------------------------------------------------------------------*/
2548/*
2549#define gfout_ELEMS_2 ZTRINGV_NUM(#{5@{4à#)
2550#define gfout_ELEMLEN_2 ZTRINGV_NUM(4)
2551#define gfout_ELEMS_5 ZTRINGV_NUM(1)
2552#define gfout_ELEMLEN_5 ZTRINGV_NUM(255)
2553*/
2554
2555#define GFOUT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFOUT,gfout,INT,STRINGV,INT,INT,STRING,PINT,A1,A2,A3,A4,A5,A6)
2556
2557/*------------------------------------------------------------------
2558fortran filename : gfpara.f
2559------------------------------------------------------------------*/
2560/*
2561#define gfpara_ELEMS_1 ZTRINGV_NUM(1)
2562#define gfpara_ELEMLEN_1 ZTRINGV_NUM(4)
2563*/
2564
2565#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)
2566
2567/*------------------------------------------------------------------
2568fortran filename : gfpart.f
2569------------------------------------------------------------------*/
2570/*
2571#define gfpart_ELEMS_2 ZTRINGV_NUM(1)
2572#define gfpart_ELEMLEN_2 ZTRINGV_NUM(20)
2573*/
2574
2575#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)
2576
2577/*------------------------------------------------------------------
2578fortran filename : gfpath.f
2579------------------------------------------------------------------*/
2580
2581#define GFPATH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFPATH,gfpath,INT,INT,INTV,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
2582
2583/*------------------------------------------------------------------
2584fortran filename : gfrdt.f
2585------------------------------------------------------------------*/
2586
2587#define GFRDT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GFRDT,gfrdt,FLOAT,FLOATV,INT,PINT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
2588
2589/*------------------------------------------------------------------
2590fortran filename : gfrung.f
2591------------------------------------------------------------------*/
2592
2593#define GFRUNG(A1,A2,A3,A4) CCALLSFSUB4(GFRUNG,gfrung,PINT,PINT,PINT,PFLOAT,A1,A2,A3,A4)
2594
2595/*------------------------------------------------------------------
2596fortran filename : gfsdpr.f
2597------------------------------------------------------------------*/
2598
2599#define GFSDPR(A1,A2,A3) CCALLSFSUB3(GFSDPR,gfsdpr,FLOAT,INT,PFLOAT,A1,A2,A3)
2600
2601/*------------------------------------------------------------------
2602fortran filename : gfshdc.f
2603------------------------------------------------------------------*/
2604
2605#define GFSHDC(A1,A2) CCALLSFSUB2(GFSHDC,gfshdc,INT,FLOAT,A1,A2)
2606
2607/*------------------------------------------------------------------
2608fortran filename : gfshls.f
2609------------------------------------------------------------------*/
2610
2611#define GFSHLS(A1,A2,A3) CCALLSFSUB3(GFSHLS,gfshls,FLOAT,PFLOAT,PINT,A1,A2,A3)
2612
2613/*------------------------------------------------------------------
2614fortran filename : gfstat.f
2615------------------------------------------------------------------*/
2616
2617#define GFSTAT(A1) CCALLSFSUB1(GFSTAT,gfstat,INT,A1)
2618
2619/*------------------------------------------------------------------
2620fortran filename : gftmat.f
2621------------------------------------------------------------------*/
2622/*
2623#define gftmat_ELEMS_3 ZTRINGV_NUM(1)
2624#define gftmat_ELEMLEN_3 ZTRINGV_NUM(4)
2625*/
2626
2627#define GFTMAT(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GFTMAT,gftmat,INT,INT,STRING,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
2628
2629/*------------------------------------------------------------------
2630fortran filename : gftmed.f
2631------------------------------------------------------------------*/
2632/*
2633#define gftmed_ELEMS_2 ZTRINGV_NUM(1)
2634#define gftmed_ELEMLEN_2 ZTRINGV_NUM(20)
2635*/
2636
2637#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)
2638
2639/*------------------------------------------------------------------
2640fortran filename : gftrac.f
2641------------------------------------------------------------------*/
2642
2643#define GFTRAC() CCALLSFSUB0(GFTRAC,gftrac)
2644
2645/*------------------------------------------------------------------
2646fortran filename : gfupar.f
2647------------------------------------------------------------------*/
2648
2649#define GFUPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GFUPAR,gfupar,INT,INT,PINT,PINT,PFLOAT,FLOATV,A1,A2,A3,A4,A5,A6)
2650
2651/*------------------------------------------------------------------
2652fortran filename : gfvert.f
2653------------------------------------------------------------------*/
2654
2655#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)
2656
2657/*------------------------------------------------------------------
2658fortran filename : gfvolu.f
2659------------------------------------------------------------------*/
2660/*
2661#define gfvolu_ELEMS_2 ZTRINGV_NUM(1)
2662#define gfvolu_ELEMLEN_2 ZTRINGV_NUM(4)
2663#define gfvolu_ELEMS_3 ZTRINGV_NUM(1)
2664#define gfvolu_ELEMLEN_3 ZTRINGV_NUM(4)
2665*/
2666
2667#define GFVOLU(A1,A2,A3) CCALLSFSUB3(GFVOLU,gfvolu,INT,STRING,PSTRING,A1,A2,A3)
2668
2669/*------------------------------------------------------------------
2670fortran filename : ggcave.f
2671------------------------------------------------------------------*/
2672
2673#define GGCAVE() CCALLSFSUB0(GGCAVE,ggcave)
2674
2675/*------------------------------------------------------------------
2676fortran filename : ggckov.f
2677------------------------------------------------------------------*/
2678
2679#define GGCKOV() CCALLSFSUB0(GGCKOV,ggckov)
2680
2681/*------------------------------------------------------------------
2682fortran filename : ggclos.f
2683------------------------------------------------------------------*/
2684
2685#define GGCLOS() CCALLSFSUB0(GGCLOS,ggclos)
2686
2687/*------------------------------------------------------------------
2688fortran filename : ggdetv.f
2689------------------------------------------------------------------*/
2690
2691#define GGDETV(A1,A2) CCALLSFSUB2(GGDETV,ggdetv,INT,INT,A1,A2)
2692
2693/*------------------------------------------------------------------
2694fortran filename : ggdpar.f
2695------------------------------------------------------------------*/
2696
2697#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)
2698
2699/*------------------------------------------------------------------
2700fortran filename : ggdspe.f
2701------------------------------------------------------------------*/
2702
2703#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)
2704
2705/*------------------------------------------------------------------
2706fortran filename : ggdvlp.f
2707------------------------------------------------------------------*/
2708
2709#define GGDVLP() CCALLSFSUB0(GGDVLP,ggdvlp)
2710
2711/*------------------------------------------------------------------
2712fortran filename : gget.f
2713------------------------------------------------------------------*/
2714/*
2715#define gget_ELEMS_2 ZTRINGV_NUM(1)
2716#define gget_ELEMLEN_2 ZTRINGV_NUM(4)
2717*/
2718
2719#define GGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GGET,gget,INT,STRINGV,INT,PINT,PINT,A1,A2,A3,A4,A5)
2720
2721/*------------------------------------------------------------------
2722fortran filename : ggnlev.f
2723------------------------------------------------------------------*/
2724
2725#define GGNLEV() CCALLSFSUB0(GGNLEV,ggnlev)
2726
2727/*------------------------------------------------------------------
2728fortran filename : ggord.f
2729------------------------------------------------------------------*/
2730
2731#define GGORD(A1) CCALLSFSUB1(GGORD,ggord,INT,A1)
2732
2733/*------------------------------------------------------------------
2734fortran filename : ggordq.f
2735------------------------------------------------------------------*/
2736
2737#define GGORDQ(A1) CCALLSFSUB1(GGORDQ,ggordq,INT,A1)
2738
2739/*------------------------------------------------------------------
2740fortran filename : ggperp.f
2741------------------------------------------------------------------*/
2742
2743#define GGPERP(A1,A2,A3) CCALLSFSUB3(GGPERP,ggperp,FLOATV,FLOATV,PINT,A1,A2,A3)
2744
2745/*------------------------------------------------------------------
2746fortran filename : ggppar.f
2747------------------------------------------------------------------*/
2748
2749#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)
2750
2751/*------------------------------------------------------------------
2752fortran filename : ggvchk.f
2753------------------------------------------------------------------*/
2754
2755#define GGVCHK(A1,A2,A3,A4) CCALLSFSUB4(GGVCHK,ggvchk,INT,INT,PINT,PINT,A1,A2,A3,A4)
2756
2757/*------------------------------------------------------------------
2758fortran filename : ghclos.f
2759------------------------------------------------------------------*/
2760
2761#define GHCLOS() CCALLSFSUB0(GHCLOS,ghclos)
2762
2763/*------------------------------------------------------------------
2764fortran filename : gheini.f
2765------------------------------------------------------------------*/
2766
2767#define GHEINI() CCALLSFSUB0(GHEINI,gheini)
2768
2769/*------------------------------------------------------------------
2770fortran filename : gheish.f
2771------------------------------------------------------------------*/
2772
2773#define GHEISH() CCALLSFSUB0(GHEISH,gheish)
2774
2775/*------------------------------------------------------------------
2776fortran filename : ghelix.f
2777------------------------------------------------------------------*/
2778
2779#define GHELIX(A1,A2,A3,A4) CCALLSFSUB4(GHELIX,ghelix,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
2780
2781/*------------------------------------------------------------------
2782fortran filename : ghelx3.f
2783------------------------------------------------------------------*/
2784
2785#define GHELX3(A1,A2,A3,A4) CCALLSFSUB4(GHELX3,ghelx3,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
2786
2787/*------------------------------------------------------------------
2788fortran filename : ghepec.f
2789------------------------------------------------------------------*/
2790
2791#define GHEPEC(A1) CCALLSFSUB1(GHEPEC,ghepec,INT,A1)
2792
2793/*------------------------------------------------------------------
2794fortran filename : ghesig.f
2795------------------------------------------------------------------*/
2796
2797 PROTOCCALLSFFUN10(FLOAT,GHESIG,ghesig,FLOAT,FLOAT,FLOAT,FLOATV,FLOATV,FLOATV,INT,FLOAT,FLOAT,INT)
2798#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)
2799
2800/*------------------------------------------------------------------
2801fortran filename : ghetun.f
2802------------------------------------------------------------------*/
2803
2804#define GHETUN(A1) CCALLSFSUB1(GHETUN,ghetun,PINT,A1)
2805
2806/*------------------------------------------------------------------
2807fortran filename : ghmix.f
2808------------------------------------------------------------------*/
2809
2810#define GHMIX(A1,A2,A3,A4) CCALLSFSUB4(GHMIX,ghmix,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
2811
2812/*------------------------------------------------------------------
2813fortran filename : ghsig.f
2814------------------------------------------------------------------*/
2815
2816 PROTOCCALLSFFUN3(FLOAT,GHSIG,ghsig,FLOAT,INT,FLOAT)
2817#define GHSIG(A2,A3,A4) CCALLSFFUN3(GHSIG,ghsig,FLOAT,INT,FLOAT,A2,A3,A4)
2818
2819/*------------------------------------------------------------------
2820fortran filename : ghsigm.f
2821------------------------------------------------------------------*/
2822
2823 PROTOCCALLSFFUN3(FLOAT,GHSIGM,ghsigm,FLOAT,INT,FLOAT)
2824#define GHSIGM(A2,A3,A4) CCALLSFFUN3(GHSIGM,ghsigm,FLOAT,INT,FLOAT,A2,A3,A4)
2825
2826/*------------------------------------------------------------------
2827fortran filename : ghstop.f
2828------------------------------------------------------------------*/
2829
2830#define GHSTOP() CCALLSFSUB0(GHSTOP,ghstop)
2831
2832/*------------------------------------------------------------------
2833fortran filename : gicyl.f
2834------------------------------------------------------------------*/
2835
2836#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)
2837
2838/*------------------------------------------------------------------
2839fortran filename : gidrop.f
2840------------------------------------------------------------------*/
2841
2842#define GIDROP() CCALLSFSUB0(GIDROP,gidrop)
2843
2844/*------------------------------------------------------------------
2845fortran filename : ginctu.f
2846------------------------------------------------------------------*/
2847
2848#define GINCTU(A1,A2,A3) CCALLSFSUB3(GINCTU,ginctu,FLOATV,FLOATV,PINT,A1,A2,A3)
2849
2850/*------------------------------------------------------------------
2851fortran filename : gingtr.f
2852------------------------------------------------------------------*/
2853
2854#define GINGTR(A1,A2,A3) CCALLSFSUB3(GINGTR,gingtr,FLOATV,FLOATV,PINT,A1,A2,A3)
2855
2856/*------------------------------------------------------------------
2857fortran filename : ginit.f
2858------------------------------------------------------------------*/
2859
2860#define GINIT() CCALLSFSUB0(GINIT,ginit)
2861
2862/*------------------------------------------------------------------
2863fortran filename : ginme.f
2864------------------------------------------------------------------*/
2865
2866#define GINME(A1,A2,A3,A4) CCALLSFSUB4(GINME,ginme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4)
2867
2868/*------------------------------------------------------------------
2869fortran filename : ginpar.f
2870------------------------------------------------------------------*/
2871
2872#define GINPAR(A1,A2,A3) CCALLSFSUB3(GINPAR,ginpar,FLOATV,FLOATV,PINT,A1,A2,A3)
2873
2874/*------------------------------------------------------------------
2875fortran filename : ginpco.f
2876------------------------------------------------------------------*/
2877
2878#define GINPCO(A1,A2,A3) CCALLSFSUB3(GINPCO,ginpco,FLOATV,FLOATV,PINT,A1,A2,A3)
2879
2880/*------------------------------------------------------------------
2881fortran filename : ginpgo.f
2882------------------------------------------------------------------*/
2883
2884#define GINPGO(A1,A2,A3) CCALLSFSUB3(GINPGO,ginpgo,FLOATV,FLOATV,PINT,A1,A2,A3)
2885
2886/*------------------------------------------------------------------
2887fortran filename : ginrot.f
2888------------------------------------------------------------------*/
2889
2890#define GINROT(A1,A2,A3) CCALLSFSUB3(GINROT,ginrot,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
2891
2892/*------------------------------------------------------------------
2893fortran filename : gintco.f
2894------------------------------------------------------------------*/
2895
2896#define GINTCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GINTCO,gintco,FLOATV,FLOAT,FLOAT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
2897
2898/*------------------------------------------------------------------
2899fortran filename : gintri.f
2900------------------------------------------------------------------*/
2901
2902#define GINTRI() CCALLSFSUB0(GINTRI,gintri)
2903
2904/*------------------------------------------------------------------
2905fortran filename : gintrp.f
2906------------------------------------------------------------------*/
2907
2908#define GINTRP(A1,A2,A3) CCALLSFSUB3(GINTRP,gintrp,FLOATV,FLOATV,PINT,A1,A2,A3)
2909
2910/*------------------------------------------------------------------
2911fortran filename : ginvol.f
2912------------------------------------------------------------------*/
2913
2914#define GINVOL(A1,A2) CCALLSFSUB2(GINVOL,ginvol,FLOATV,PINT,A1,A2)
2915
2916/*------------------------------------------------------------------
2917fortran filename : giplan.f
2918------------------------------------------------------------------*/
2919
2920#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)
2921
2922/*------------------------------------------------------------------
2923fortran filename : gitran.f
2924------------------------------------------------------------------*/
2925
2926#define GITRAN(A1,A2,A3,A4) CCALLSFSUB4(GITRAN,gitran,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
2927
2928/*------------------------------------------------------------------
2929fortran filename : gjwrit.f
2930------------------------------------------------------------------*/
2931
2932#define GJWRIT() CCALLSFSUB0(GJWRIT,gjwrit)
2933
2934/*------------------------------------------------------------------
2935fortran filename : gkhits.f
2936------------------------------------------------------------------*/
2937/*
2938#define gkhits_ELEMS_1 ZTRINGV_NUM(1)
2939#define gkhits_ELEMLEN_1 ZTRINGV_NUM(4)
2940#define gkhits_ELEMS_2 ZTRINGV_NUM(1)
2941#define gkhits_ELEMLEN_2 ZTRINGV_NUM(4)
2942*/
2943
2944#define GKHITS(A1,A2,A3) CCALLSFSUB3(GKHITS,gkhits,STRING,STRING,FLOAT,A1,A2,A3)
2945
2946/*------------------------------------------------------------------
2947fortran filename : gkokri.f
2948------------------------------------------------------------------*/
2949
2950 PROTOCCALLSFFUN3(FLOAT,GKOKRI,gkokri,FLOAT,FLOAT,FLOAT)
2951#define GKOKRI(A2,A3,A4) CCALLSFFUN3(GKOKRI,gkokri,FLOAT,FLOAT,FLOAT,A2,A3,A4)
2952
2953/*------------------------------------------------------------------
2954fortran filename : gkxyz.f
2955------------------------------------------------------------------*/
2956
2957#define GKXYZ(A1) CCALLSFSUB1(GKXYZ,gkxyz,FLOAT,A1)
2958
2959/*------------------------------------------------------------------
2960fortran filename : glande.f
2961------------------------------------------------------------------*/
2962
2963 PROTOCCALLSFFUN1(FLOAT,GLANDE,glande,FLOAT)
2964#define GLANDE(A2) CCALLSFFUN1(GLANDE,glande,FLOAT,A2)
2965
2966/*------------------------------------------------------------------
2967fortran filename : glandg.f
2968------------------------------------------------------------------*/
2969
2970#define GLANDG(A1) CCALLSFSUB1(GLANDG,glandg,PFLOAT,A1)
2971
2972/*------------------------------------------------------------------
2973fortran filename : glando.f
2974------------------------------------------------------------------*/
2975
2976#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)
2977
2978/*------------------------------------------------------------------
2979fortran filename : glandr.f
2980------------------------------------------------------------------*/
2981
2982 PROTOCCALLSFFUN1(FLOAT,GLANDR,glandr,FLOAT)
2983#define GLANDR(A2) CCALLSFFUN1(GLANDR,glandr,FLOAT,A2)
2984
2985/*------------------------------------------------------------------
2986fortran filename : glands.f
2987------------------------------------------------------------------*/
2988
2989 PROTOCCALLSFFUN1(FLOAT,GLANDS,glands,FLOAT)
2990#define GLANDS(A2) CCALLSFFUN1(GLANDS,glands,FLOAT,A2)
2991
2992/*------------------------------------------------------------------
2993fortran filename : glandz.f
2994------------------------------------------------------------------*/
2995
2996#define GLANDZ(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GLANDZ,glandz,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8)
2997
2998/*------------------------------------------------------------------
2999fortran filename : glast.f
3000------------------------------------------------------------------*/
3001
3002#define GLAST() CCALLSFSUB0(GLAST,glast)
3003
3004/*------------------------------------------------------------------
3005fortran filename : glight.f
3006------------------------------------------------------------------*/
3007
3008#define GLIGHT(A1,A2,A3,A4) CCALLSFSUB4(GLIGHT,glight,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4)
3009
3010/*------------------------------------------------------------------
3011fortran filename : glisur.f
3012------------------------------------------------------------------*/
3013
3014#define GLISUR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GLISUR,glisur,FLOATV,FLOATV,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
3015
3016/*------------------------------------------------------------------
3017fortran filename : glmoth.f
3018------------------------------------------------------------------*/
3019/*
3020#define glmoth_ELEMS_1 ZTRINGV_NUM(1)
3021#define glmoth_ELEMLEN_1 ZTRINGV_NUM(255)
3022*/
3023
3024#define GLMOTH(A1,A2,A3,A4,A5) CCALLSFSUB5(GLMOTH,glmoth,STRING,INT,PINT,PINT,PINT,A1,A2,A3,A4,A5)
3025
3026/*------------------------------------------------------------------
3027fortran filename : glook.f
3028------------------------------------------------------------------*/
3029/*
3030#define glook_ELEMS_1 ZTRINGV_NUM(1)
3031#define glook_ELEMLEN_1 ZTRINGV_NUM(255)
3032*/
3033
3034#define GLOOK(A1,A2,A3,A4) CCALLSFSUB4(GLOOK,glook,STRING,INTV,INT,PINT,A1,A2,A3,A4)
3035
3036/*------------------------------------------------------------------
3037fortran filename : gloren.f
3038------------------------------------------------------------------*/
3039
3040#define GLOREN(A1,A2,A3) CCALLSFSUB3(GLOREN,gloren,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3041
3042/*------------------------------------------------------------------
3043fortran filename : glsklt.f
3044------------------------------------------------------------------*/
3045
3046#define GLSKLT() CCALLSFSUB0(GLSKLT,glsklt)
3047
3048/*------------------------------------------------------------------
3049fortran filename : gltrac.f
3050------------------------------------------------------------------*/
3051
3052#define GLTRAC() CCALLSFSUB0(GLTRAC,gltrac)
3053
3054/*------------------------------------------------------------------
3055fortran filename : gludky.f
3056------------------------------------------------------------------*/
3057
3058#define GLUDKY() CCALLSFSUB0(GLUDKY,gludky)
3059
3060/*------------------------------------------------------------------
3061fortran filename : glund.f
3062------------------------------------------------------------------*/
3063
3064#define GLUND() CCALLSFSUB0(GLUND,glund)
3065
3066/*------------------------------------------------------------------
3067fortran filename : glundi.f
3068------------------------------------------------------------------*/
3069
3070#define GLUNDI() CCALLSFSUB0(GLUNDI,glundi)
3071
3072/*------------------------------------------------------------------
3073fortran filename : glvolu.f
3074------------------------------------------------------------------*/
3075
3076#define GLVOLU(A1,A2,A3,A4) CCALLSFSUB4(GLVOLU,glvolu,INT,INTV,INTV,PINT,A1,A2,A3,A4)
3077
3078/*------------------------------------------------------------------
3079fortran filename : gm3pol.f
3080------------------------------------------------------------------*/
3081
3082#define GM3POL(A1,A2) CCALLSFSUB2(GM3POL,gm3pol,FLOAT,INT,A1,A2)
3083
3084/*------------------------------------------------------------------
3085fortran filename : gmail.f
3086------------------------------------------------------------------*/
3087
3088#define GMAIL(A1,A2) CCALLSFSUB2(GMAIL,gmail,INT,INT,A1,A2)
3089
3090/*------------------------------------------------------------------
3091fortran filename : gmate.f
3092------------------------------------------------------------------*/
3093
3094#define GMATE() CCALLSFSUB0(GMATE,gmate)
3095
3096/*------------------------------------------------------------------
3097fortran filename : gmclos.f
3098------------------------------------------------------------------*/
3099
3100#define GMCLOS() CCALLSFSUB0(GMCLOS,gmclos)
3101
3102/*------------------------------------------------------------------
3103fortran filename : gmcoul.f
3104------------------------------------------------------------------*/
3105
3106#define GMCOUL(A1,A2) CCALLSFSUB2(GMCOUL,gmcoul,FLOAT,PFLOAT,A1,A2)
3107
3108/*------------------------------------------------------------------
3109fortran filename : gmedia.f
3110------------------------------------------------------------------*/
3111
3112#define GMEDIA(A1,A2) CCALLSFSUB2(GMEDIA,gmedia,FLOATV,PINT,A1,A2)
3113
3114/*------------------------------------------------------------------
3115fortran filename : gmedin.f
3116------------------------------------------------------------------*/
3117
3118#define GMEDIN() CCALLSFSUB0(GMEDIN,gmedin)
3119
3120/*------------------------------------------------------------------
3121fortran filename : gmediv.f
3122------------------------------------------------------------------*/
3123
3124#define GMEDIV(A1,A2,A3,A4) CCALLSFSUB4(GMEDIV,gmediv,INT,PINT,PFLOAT,INT,A1,A2,A3,A4)
3125
3126/*------------------------------------------------------------------
3127fortran filename : gmepos.f
3128------------------------------------------------------------------*/
3129
3130#define GMEPOS(A1,A2,A3,A4) CCALLSFSUB4(GMEPOS,gmepos,INT,INT,PFLOAT,INT,A1,A2,A3,A4)
3131
3132/*------------------------------------------------------------------
3133fortran filename : gmgaus.f
3134------------------------------------------------------------------*/
3135
3136#define GMGAUS(A1,A2) CCALLSFSUB2(GMGAUS,gmgaus,FLOAT,PFLOAT,A1,A2)
3137
3138/*------------------------------------------------------------------
3139fortran filename : gmicap.f
3140------------------------------------------------------------------*/
3141
3142#define GMICAP() CCALLSFSUB0(GMICAP,gmicap)
3143
3144/*------------------------------------------------------------------
3145fortran filename : gmol4.f
3146------------------------------------------------------------------*/
3147
3148#define GMOL4(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GMOL4,gmol4,PFLOAT,FLOAT,PFLOAT,PFLOAT,FLOAT,PINT,A1,A2,A3,A4,A5,A6)
3149
3150/*------------------------------------------------------------------
3151fortran filename : gmoli.f
3152------------------------------------------------------------------*/
3153
3154#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)
3155
3156/*------------------------------------------------------------------
3157fortran filename : gmolie.f
3158------------------------------------------------------------------*/
3159
3160#define GMOLIE(A1,A2,A3) CCALLSFSUB3(GMOLIE,gmolie,FLOAT,FLOAT,PFLOAT,A1,A2,A3)
3161
3162/*------------------------------------------------------------------
3163fortran filename : gmolio.f
3164------------------------------------------------------------------*/
3165
3166#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)
3167
3168/*------------------------------------------------------------------
3169fortran filename : gmopen.f
3170------------------------------------------------------------------*/
3171
3172#define GMOPEN(A1,A2,A3) CCALLSFSUB3(GMOPEN,gmopen,FLOAT,FLOAT,INT,A1,A2,A3)
3173
3174/*------------------------------------------------------------------
3175fortran filename : gmorin.f
3176------------------------------------------------------------------*/
3177
3178#define GMORIN() CCALLSFSUB0(GMORIN,gmorin)
3179
3180/*------------------------------------------------------------------
3181fortran filename : gmplxs.f
3182------------------------------------------------------------------*/
3183
3184#define GMPLXS(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,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50) CCALLSFSUB50(GMPLXS,gmplxs,FLOATV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PFLOAT,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,INTV,PINT,PINT,INTV,PINT,PFLOAT,INT,INT,INT,PFLOAT,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,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50)
3185
3186/*------------------------------------------------------------------
3187fortran filename : gmtod.f
3188------------------------------------------------------------------*/
3189
3190#define GMTOD(A1,A2,A3) CCALLSFSUB3(GMTOD,gmtod,FLOATV,PFLOAT,INT,A1,A2,A3)
3191
3192/*------------------------------------------------------------------
3193fortran filename : gmulof.f
3194------------------------------------------------------------------*/
3195
3196#define GMULOF() CCALLSFSUB0(GMULOF,gmulof)
3197
3198/*------------------------------------------------------------------
3199fortran filename : gmults.f
3200------------------------------------------------------------------*/
3201
3202#define GMULTS() CCALLSFSUB0(GMULTS,gmults)
3203
3204/*------------------------------------------------------------------
3205fortran filename : gmunu.f
3206------------------------------------------------------------------*/
3207
3208#define GMUNU() CCALLSFSUB0(GMUNU,gmunu)
3209
3210/*------------------------------------------------------------------
3211fortran filename : gmunui.f
3212------------------------------------------------------------------*/
3213
3214#define GMUNUI() CCALLSFSUB0(GMUNUI,gmunui)
3215
3216/*------------------------------------------------------------------
3217fortran filename : gmusig.f
3218------------------------------------------------------------------*/
3219
3220 PROTOCCALLSFFUN3(FLOAT,GMUSIG,gmusig,FLOAT,FLOAT,FLOAT)
3221#define GMUSIG(A2,A3,A4) CCALLSFFUN3(GMUSIG,gmusig,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3222
3223/*------------------------------------------------------------------
3224fortran filename : gmxsec.f
3225------------------------------------------------------------------*/
3226
3227#define GMXSEC(A1,A2) CCALLSFSUB2(GMXSEC,gmxsec,INT,PFLOAT,A1,A2)
3228
3229/*------------------------------------------------------------------
3230fortran filename : gnbox.f
3231------------------------------------------------------------------*/
3232
3233#define GNBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNBOX,gnbox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3234
3235/*------------------------------------------------------------------
3236fortran filename : gnckov.f
3237------------------------------------------------------------------*/
3238
3239#define GNCKOV() CCALLSFSUB0(GNCKOV,gnckov)
3240
3241/*------------------------------------------------------------------
3242fortran filename : gncone.f
3243------------------------------------------------------------------*/
3244
3245#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)
3246
3247/*------------------------------------------------------------------
3248fortran filename : gnctub.f
3249------------------------------------------------------------------*/
3250
3251#define GNCTUB(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNCTUB,gnctub,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3252
3253/*------------------------------------------------------------------
3254fortran filename : gneltu.f
3255------------------------------------------------------------------*/
3256
3257#define GNELTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNELTU,gneltu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3258
3259/*------------------------------------------------------------------
3260fortran filename : gnext.f
3261------------------------------------------------------------------*/
3262
3263#define GNEXT(A1,A2,A3) CCALLSFSUB3(GNEXT,gnext,FLOATV,PFLOAT,PFLOAT,A1,A2,A3)
3264
3265/*------------------------------------------------------------------
3266fortran filename : gnhype.f
3267------------------------------------------------------------------*/
3268
3269#define GNHYPE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNHYPE,gnhype,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3270
3271/*------------------------------------------------------------------
3272fortran filename : gnobox.f
3273------------------------------------------------------------------*/
3274
3275#define GNOBOX(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOBOX,gnobox,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3276
3277/*------------------------------------------------------------------
3278fortran filename : gnocon.f
3279------------------------------------------------------------------*/
3280
3281#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)
3282
3283/*------------------------------------------------------------------
3284fortran filename : gnoctu.f
3285------------------------------------------------------------------*/
3286
3287#define GNOCTU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOCTU,gnoctu,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3288
3289/*------------------------------------------------------------------
3290fortran filename : gnoelt.f
3291------------------------------------------------------------------*/
3292
3293#define GNOELT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOELT,gnoelt,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3294
3295/*------------------------------------------------------------------
3296fortran filename : gnohyp.f
3297------------------------------------------------------------------*/
3298
3299#define GNOHYP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOHYP,gnohyp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3300
3301/*------------------------------------------------------------------
3302fortran filename : gnopar.f
3303------------------------------------------------------------------*/
3304
3305#define GNOPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPAR,gnopar,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3306
3307/*------------------------------------------------------------------
3308fortran filename : gnopco.f
3309------------------------------------------------------------------*/
3310
3311#define GNOPCO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPCO,gnopco,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3312
3313/*------------------------------------------------------------------
3314fortran filename : gnopg1.f
3315------------------------------------------------------------------*/
3316
3317#define GNOPG1(A1,A2,A3) CCALLSFSUB3(GNOPG1,gnopg1,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3318
3319/*------------------------------------------------------------------
3320fortran filename : gnopgo.f
3321------------------------------------------------------------------*/
3322
3323#define GNOPGO(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOPGO,gnopgo,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3324
3325/*------------------------------------------------------------------
3326fortran filename : gnosph.f
3327------------------------------------------------------------------*/
3328
3329#define GNOSPH(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOSPH,gnosph,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3330
3331/*------------------------------------------------------------------
3332fortran filename : gnotr1.f
3333------------------------------------------------------------------*/
3334
3335#define GNOTR1(A1) CCALLSFSUB1(GNOTR1,gnotr1,FLOATV,A1)
3336
3337/*------------------------------------------------------------------
3338fortran filename : gnotr2.f
3339------------------------------------------------------------------*/
3340
3341#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)
3342
3343/*------------------------------------------------------------------
3344fortran filename : gnotr9.f
3345------------------------------------------------------------------*/
3346
3347#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)
3348
3349/*------------------------------------------------------------------
3350fortran filename : gnotra.f
3351------------------------------------------------------------------*/
3352
3353#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)
3354
3355/*------------------------------------------------------------------
3356fortran filename : gnotrp.f
3357------------------------------------------------------------------*/
3358
3359#define GNOTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNOTRP,gnotrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3360
3361/*------------------------------------------------------------------
3362fortran filename : gnotub.f
3363------------------------------------------------------------------*/
3364
3365#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)
3366
3367/*------------------------------------------------------------------
3368fortran filename : gnpara.f
3369------------------------------------------------------------------*/
3370
3371#define GNPARA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPARA,gnpara,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3372
3373/*------------------------------------------------------------------
3374fortran filename : gnpcon.f
3375------------------------------------------------------------------*/
3376
3377#define GNPCON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPCON,gnpcon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3378
3379/*------------------------------------------------------------------
3380fortran filename : gnpgo1.f
3381------------------------------------------------------------------*/
3382
3383#define GNPGO1(A1,A2,A3) CCALLSFSUB3(GNPGO1,gnpgo1,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
3384
3385/*------------------------------------------------------------------
3386fortran filename : gnpgon.f
3387------------------------------------------------------------------*/
3388
3389#define GNPGON(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNPGON,gnpgon,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3390
3391/*------------------------------------------------------------------
3392fortran filename : gnslwd.f
3393------------------------------------------------------------------*/
3394
3395#define GNSLWD(A1,A2,A3,A4) CCALLSFSUB4(GNSLWD,gnslwd,PINT,INT,INT,FLOAT,A1,A2,A3,A4)
3396
3397/*------------------------------------------------------------------
3398fortran filename : gnsphr.f
3399------------------------------------------------------------------*/
3400
3401#define GNSPHR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNSPHR,gnsphr,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3402
3403/*------------------------------------------------------------------
3404fortran filename : gntrap.f
3405------------------------------------------------------------------*/
3406
3407#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)
3408
3409/*------------------------------------------------------------------
3410fortran filename : gntrp.f
3411------------------------------------------------------------------*/
3412
3413#define GNTRP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GNTRP,gntrp,FLOATV,FLOATV,INT,FLOAT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
3414
3415/*------------------------------------------------------------------
3416fortran filename : gntube.f
3417------------------------------------------------------------------*/
3418
3419#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)
3420
3421/*------------------------------------------------------------------
3422fortran filename : gopen.f
3423------------------------------------------------------------------*/
3424/*
3425#define gopen_ELEMS_2 ZTRINGV_NUM(1)
3426#define gopen_ELEMLEN_2 ZTRINGV_NUM(255)
3427*/
3428
3429#define GOPEN(A1,A2,A3,A4) CCALLSFSUB4(GOPEN,gopen,INT,STRING,INT,PINT,A1,A2,A3,A4)
3430
3431/*------------------------------------------------------------------
3432fortran filename : goptim.f
3433------------------------------------------------------------------*/
3434
3435#define GOPTIM(A1) CCALLSFSUB1(GOPTIM,goptim,INT,A1)
3436
3437/*------------------------------------------------------------------
3438fortran filename : goscin.f
3439------------------------------------------------------------------*/
3440
3441 PROTOCCALLSFFUN2(FLOAT,GOSCIN,goscin,FLOAT,FLOAT)
3442#define GOSCIN(A2,A3) CCALLSFFUN2(GOSCIN,goscin,FLOAT,FLOAT,A2,A3)
3443
3444/*------------------------------------------------------------------
3445fortran filename : gpairg.f
3446------------------------------------------------------------------*/
3447/*------------------------------------------------------------------
3448fortran filename : gpairm.f
3449------------------------------------------------------------------*/
3450
3451#define GPAIRM() CCALLSFSUB0(GPAIRM,gpairm)
3452
3453/*------------------------------------------------------------------
3454fortran filename : gpart.f
3455------------------------------------------------------------------*/
3456
3457#define GPART() CCALLSFSUB0(GPART,gpart)
3458
3459/*------------------------------------------------------------------
3460fortran filename : gpaset.f
3461------------------------------------------------------------------*/
3462
3463#define GPASET(A1) CCALLSFSUB1(GPASET,gpaset,FLOATV,A1)
3464
3465/*------------------------------------------------------------------
3466fortran filename : gpaw.f
3467------------------------------------------------------------------*/
3468
3469#define GPAW(A1,A2) CCALLSFSUB2(GPAW,gpaw,INT,INT,A1,A2)
3470
3471/*------------------------------------------------------------------
3472fortran filename : gpawpp.f
3473------------------------------------------------------------------*/
3474
3475#define GPAWPP(A1,A2) CCALLSFSUB2(GPAWPP,gpawpp,INT,INT,A1,A2)
3476
3477/*------------------------------------------------------------------
3478fortran filename : gpcset.f
3479------------------------------------------------------------------*/
3480
3481#define GPCSET(A1) CCALLSFSUB1(GPCSET,gpcset,FLOATV,A1)
3482
3483/*------------------------------------------------------------------
3484fortran filename : gpcxyz.f
3485------------------------------------------------------------------*/
3486
3487#define GPCXYZ() CCALLSFSUB0(GPCXYZ,gpcxyz)
3488
3489/*------------------------------------------------------------------
3490fortran filename : gpdigi.f
3491------------------------------------------------------------------*/
3492/*
3493#define gpdigi_ELEMS_1 ZTRINGV_NUM(1)
3494#define gpdigi_ELEMLEN_1 ZTRINGV_NUM(4)
3495#define gpdigi_ELEMS_2 ZTRINGV_NUM(1)
3496#define gpdigi_ELEMLEN_2 ZTRINGV_NUM(4)
3497*/
3498
3499#define GPDIGI(A1,A2) CCALLSFSUB2(GPDIGI,gpdigi,STRING,STRING,A1,A2)
3500
3501/*------------------------------------------------------------------
3502fortran filename : gpdk.f
3503------------------------------------------------------------------*/
3504
3505 PROTOCCALLSFFUN3(FLOAT,GPDK,gpdk,FLOAT,FLOAT,FLOAT)
3506#define GPDK(A2,A3,A4) CCALLSFFUN3(GPDK,gpdk,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3507
3508/*------------------------------------------------------------------
3509fortran filename : gpdrif.f
3510------------------------------------------------------------------*/
3511
3512#define GPDRIF(A1,A2,A3) CCALLSFSUB3(GPDRIF,gpdrif,FLOATV,FLOATV,PINT,A1,A2,A3)
3513
3514/*------------------------------------------------------------------
3515fortran filename : gpfis.f
3516------------------------------------------------------------------*/
3517
3518#define GPFIS() CCALLSFSUB0(GPFIS,gpfis)
3519
3520/*------------------------------------------------------------------
3521fortran filename : gpfisi.f
3522------------------------------------------------------------------*/
3523
3524#define GPFISI() CCALLSFSUB0(GPFISI,gpfisi)
3525
3526/*------------------------------------------------------------------
3527fortran filename : gpghei.f
3528------------------------------------------------------------------*/
3529
3530#define GPGHEI() CCALLSFSUB0(GPGHEI,gpghei)
3531
3532/*------------------------------------------------------------------
3533fortran filename : gpgkin.f
3534------------------------------------------------------------------*/
3535
3536#define GPGKIN() CCALLSFSUB0(GPGKIN,gpgkin)
3537
3538/*------------------------------------------------------------------
3539fortran filename : gpgset.f
3540------------------------------------------------------------------*/
3541
3542#define GPGSET(A1) CCALLSFSUB1(GPGSET,gpgset,FLOATV,A1)
3543
3544/*------------------------------------------------------------------
3545fortran filename : gphak.f
3546------------------------------------------------------------------*/
3547
3548 PROTOCCALLSFFUN1(FLOAT,GPHAK,gphak,FLOAT)
3549#define GPHAK(A2) CCALLSFFUN1(GPHAK,gphak,FLOAT,A2)
3550
3551/*------------------------------------------------------------------
3552fortran filename : gphal2.f
3553------------------------------------------------------------------*/
3554
3555 PROTOCCALLSFFUN1(FLOAT,GPHAL2,gphal2,FLOAT)
3556#define GPHAL2(A2) CCALLSFFUN1(GPHAL2,gphal2,FLOAT,A2)
3557
3558/*------------------------------------------------------------------
3559fortran filename : gphal3.f
3560------------------------------------------------------------------*/
3561
3562 PROTOCCALLSFFUN1(FLOAT,GPHAL3,gphal3,FLOAT)
3563#define GPHAL3(A2) CCALLSFFUN1(GPHAL3,gphal3,FLOAT,A2)
3564
3565/*------------------------------------------------------------------
3566fortran filename : gphead.f
3567------------------------------------------------------------------*/
3568
3569#define GPHEAD() CCALLSFSUB0(GPHEAD,gphead)
3570
3571/*------------------------------------------------------------------
3572fortran filename : gphini.f
3573------------------------------------------------------------------*/
3574
3575#define GPHINI() CCALLSFSUB0(GPHINI,gphini)
3576
3577/*------------------------------------------------------------------
3578fortran filename : gphits.f
3579------------------------------------------------------------------*/
3580/*
3581#define gphits_ELEMS_1 ZTRINGV_NUM(1)
3582#define gphits_ELEMLEN_1 ZTRINGV_NUM(4)
3583#define gphits_ELEMS_2 ZTRINGV_NUM(1)
3584#define gphits_ELEMLEN_2 ZTRINGV_NUM(4)
3585*/
3586
3587#define GPHITS(A1,A2) CCALLSFSUB2(GPHITS,gphits,STRING,STRING,A1,A2)
3588
3589/*------------------------------------------------------------------
3590fortran filename : gphmfi.f
3591------------------------------------------------------------------*/
3592
3593#define GPHMFI() CCALLSFSUB0(GPHMFI,gphmfi)
3594
3595/*------------------------------------------------------------------
3596fortran filename : gphot.f
3597------------------------------------------------------------------*/
3598
3599#define GPHOT() CCALLSFSUB0(GPHOT,gphot)
3600
3601/*------------------------------------------------------------------
3602fortran filename : gphoti.f
3603------------------------------------------------------------------*/
3604
3605#define GPHOTI() CCALLSFSUB0(GPHOTI,gphoti)
3606
3607/*------------------------------------------------------------------
3608fortran filename : gphrin.f
3609------------------------------------------------------------------*/
3610
3611#define GPHRIN() CCALLSFSUB0(GPHRIN,gphrin)
3612
3613/*------------------------------------------------------------------
3614fortran filename : gphsg1.f
3615------------------------------------------------------------------*/
3616
3617 PROTOCCALLSFFUN1(FLOAT,GPHSG1,gphsg1,FLOAT)
3618#define GPHSG1(A2) CCALLSFFUN1(GPHSG1,gphsg1,FLOAT,A2)
3619
3620/*------------------------------------------------------------------
3621fortran filename : gphsg2.f
3622------------------------------------------------------------------*/
3623
3624 PROTOCCALLSFFUN1(FLOAT,GPHSG2,gphsg2,FLOAT)
3625#define GPHSG2(A2) CCALLSFFUN1(GPHSG2,gphsg2,FLOAT,A2)
3626
3627/*------------------------------------------------------------------
3628fortran filename : gphsgp.f
3629------------------------------------------------------------------*/
3630
3631 PROTOCCALLSFFUN2(FLOAT,GPHSGP,gphsgp,INT,FLOAT)
3632#define GPHSGP(A2,A3) CCALLSFFUN2(GPHSGP,gphsgp,INT,FLOAT,A2,A3)
3633
3634/*------------------------------------------------------------------
3635fortran filename : gphsig.f
3636------------------------------------------------------------------*/
3637
3638 PROTOCCALLSFFUN2(FLOAT,GPHSIG,gphsig,FLOAT,FLOAT)
3639#define GPHSIG(A2,A3) CCALLSFFUN2(GPHSIG,gphsig,FLOAT,FLOAT,A2,A3)
3640
3641/*------------------------------------------------------------------
3642fortran filename : gphxin.f
3643------------------------------------------------------------------*/
3644
3645#define GPHXIN() CCALLSFSUB0(GPHXIN,gphxin)
3646
3647/*------------------------------------------------------------------
3648fortran filename : gphxsi.f
3649------------------------------------------------------------------*/
3650
3651#define GPHXSI() CCALLSFSUB0(GPHXSI,gphxsi)
3652
3653/*------------------------------------------------------------------
3654fortran filename : gphysi.f
3655------------------------------------------------------------------*/
3656
3657#define GPHYSI() CCALLSFSUB0(GPHYSI,gphysi)
3658
3659/*------------------------------------------------------------------
3660fortran filename : gpions.f
3661------------------------------------------------------------------*/
3662
3663#define GPIONS() CCALLSFSUB0(GPIONS,gpions)
3664
3665/*------------------------------------------------------------------
3666fortran filename : gpjxyz.f
3667------------------------------------------------------------------*/
3668
3669#define GPJXYZ(A1) CCALLSFSUB1(GPJXYZ,gpjxyz,INT,A1)
3670
3671/*------------------------------------------------------------------
3672fortran filename : gpkine.f
3673------------------------------------------------------------------*/
3674
3675#define GPKINE(A1) CCALLSFSUB1(GPKINE,gpkine,INT,A1)
3676
3677/*------------------------------------------------------------------
3678fortran filename : gpkinx.f
3679------------------------------------------------------------------*/
3680
3681#define GPKINX(A1) CCALLSFSUB1(GPKINX,gpkinx,INT,A1)
3682
3683/*------------------------------------------------------------------
3684fortran filename : gplmat.f
3685------------------------------------------------------------------*/
3686/*
3687#define gplmat_ELEMS_3 ZTRINGV_NUM(1)
3688#define gplmat_ELEMLEN_3 ZTRINGV_NUM(255)
3689*/
3690
3691#define GPLMAT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GPLMAT,gplmat,INT,INT,STRING,INT,FLOATV,INT,A1,A2,A3,A4,A5,A6)
3692
3693/*------------------------------------------------------------------
3694fortran filename : gpmate.f
3695------------------------------------------------------------------*/
3696
3697#define GPMATE(A1) CCALLSFSUB1(GPMATE,gpmate,INT,A1)
3698
3699/*------------------------------------------------------------------
3700fortran filename : gpmatx.f
3701------------------------------------------------------------------*/
3702
3703#define GPMATX(A1) CCALLSFSUB1(GPMATX,gpmatx,INT,A1)
3704
3705/*------------------------------------------------------------------
3706fortran filename : gpmwpc.f
3707------------------------------------------------------------------*/
3708
3709#define GPMWPC(A1,A2,A3) CCALLSFSUB3(GPMWPC,gpmwpc,FLOATV,FLOATV,PINT,A1,A2,A3)
3710
3711/*------------------------------------------------------------------
3712fortran filename : gpoiss.f
3713------------------------------------------------------------------*/
3714
3715#define GPOISS(A1,A2,A3) CCALLSFSUB3(GPOISS,gpoiss,FLOATV,PINT,INT,A1,A2,A3)
3716
3717/*------------------------------------------------------------------
3718fortran filename : gposi.f
3719------------------------------------------------------------------*/
3720/*
3721#define gposi_ELEMS_3 ZTRINGV_NUM(1)
3722#define gposi_ELEMLEN_3 ZTRINGV_NUM(10)
3723*/
3724
3725#define GPOSI(A1,A2,A3,A4) CCALLSFSUB4(GPOSI,gposi,FLOATV,FLOATV,STRING,INT,A1,A2,A3,A4)
3726
3727/*------------------------------------------------------------------
3728fortran filename : gppart.f
3729------------------------------------------------------------------*/
3730
3731#define GPPART(A1) CCALLSFSUB1(GPPART,gppart,INT,A1)
3732
3733/*------------------------------------------------------------------
3734fortran filename : gpparx.f
3735------------------------------------------------------------------*/
3736
3737#define GPPARX(A1) CCALLSFSUB1(GPPARX,gpparx,INT,A1)
3738
3739/*------------------------------------------------------------------
3740fortran filename : gprela.f
3741------------------------------------------------------------------*/
3742
3743#define GPRELA() CCALLSFSUB0(GPRELA,gprela)
3744
3745/*------------------------------------------------------------------
3746fortran filename : gprelm.f
3747------------------------------------------------------------------*/
3748
3749 PROTOCCALLSFFUN3(FLOAT,GPRELM,gprelm,FLOAT,FLOAT,FLOAT)
3750#define GPRELM(A2,A3,A4) CCALLSFFUN3(GPRELM,gprelm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3751
3752/*------------------------------------------------------------------
3753fortran filename : gprint.f
3754------------------------------------------------------------------*/
3755/*
3756#define gprint_ELEMS_1 ZTRINGV_NUM(1)
3757#define gprint_ELEMLEN_1 ZTRINGV_NUM(255)
3758*/
3759
3760#define GPRINT(A1,A2) CCALLSFSUB2(GPRINT,gprint,STRING,INT,A1,A2)
3761
3762/*------------------------------------------------------------------
3763fortran filename : gprmat.f
3764------------------------------------------------------------------*/
3765/*
3766#define gprmat_ELEMS_3 ZTRINGV_NUM(1)
3767#define gprmat_ELEMLEN_3 ZTRINGV_NUM(255)
3768*/
3769
3770#define GPRMAT(A1,A2,A3,A4,A5) CCALLSFSUB5(GPRMAT,gprmat,INT,INT,STRING,INT,FLOATV,A1,A2,A3,A4,A5)
3771
3772/*------------------------------------------------------------------
3773fortran filename : gprobi.f
3774------------------------------------------------------------------*/
3775
3776#define GPROBI() CCALLSFSUB0(GPROBI,gprobi)
3777
3778/*------------------------------------------------------------------
3779fortran filename : gprotm.f
3780------------------------------------------------------------------*/
3781
3782#define GPROTM(A1) CCALLSFSUB1(GPROTM,gprotm,INT,A1)
3783
3784/*------------------------------------------------------------------
3785fortran filename : gprotx.f
3786------------------------------------------------------------------*/
3787
3788#define GPROTX(A1) CCALLSFSUB1(GPROTX,gprotx,INT,A1)
3789
3790/*------------------------------------------------------------------
3791fortran filename : gprsga.f
3792------------------------------------------------------------------*/
3793
3794#define GPRSGA() CCALLSFSUB0(GPRSGA,gprsga)
3795
3796/*------------------------------------------------------------------
3797fortran filename : gprsgg.f
3798------------------------------------------------------------------*/
3799
3800 PROTOCCALLSFFUN2(FLOAT,GPRSGG,gprsgg,FLOAT,FLOAT)
3801#define GPRSGG(A2,A3) CCALLSFFUN2(GPRSGG,gprsgg,FLOAT,FLOAT,A2,A3)
3802
3803/*------------------------------------------------------------------
3804fortran filename : gprsgm.f
3805------------------------------------------------------------------*/
3806
3807 PROTOCCALLSFFUN3(FLOAT,GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT)
3808#define GPRSGM(A2,A3,A4) CCALLSFFUN3(GPRSGM,gprsgm,FLOAT,FLOAT,FLOAT,A2,A3,A4)
3809
3810/*------------------------------------------------------------------
3811fortran filename : gprung.f
3812------------------------------------------------------------------*/
3813
3814#define GPRUNG() CCALLSFSUB0(GPRUNG,gprung)
3815
3816/*------------------------------------------------------------------
3817fortran filename : gpscin.f
3818------------------------------------------------------------------*/
3819
3820 PROTOCCALLSFFUN4(DOUBLE,GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV)
3821#define GPSCIN(A2,A3,A4,A5) CCALLSFFUN4(GPSCIN,gpscin,DOUBLE,DOUBLE,DOUBLE,FLOATV,A2,A3,A4,A5)
3822
3823/*------------------------------------------------------------------
3824fortran filename : gpsets.f
3825------------------------------------------------------------------*/
3826/*
3827#define gpsets_ELEMS_1 ZTRINGV_NUM(1)
3828#define gpsets_ELEMLEN_1 ZTRINGV_NUM(4)
3829#define gpsets_ELEMS_2 ZTRINGV_NUM(1)
3830#define gpsets_ELEMLEN_2 ZTRINGV_NUM(4)
3831*/
3832
3833#define GPSETS(A1,A2) CCALLSFSUB2(GPSETS,gpsets,STRING,STRING,A1,A2)
3834
3835/*------------------------------------------------------------------
3836fortran filename : gpstat.f
3837------------------------------------------------------------------*/
3838
3839#define GPSTAT() CCALLSFSUB0(GPSTAT,gpstat)
3840
3841/*------------------------------------------------------------------
3842fortran filename : gptmed.f
3843------------------------------------------------------------------*/
3844
3845#define GPTMED(A1) CCALLSFSUB1(GPTMED,gptmed,INT,A1)
3846
3847/*------------------------------------------------------------------
3848fortran filename : gptmex.f
3849------------------------------------------------------------------*/
3850
3851#define GPTMEX(A1) CCALLSFSUB1(GPTMEX,gptmex,INT,A1)
3852
3853/*------------------------------------------------------------------
3854fortran filename : gptset.f
3855------------------------------------------------------------------*/
3856
3857#define GPTSET(A1,A2) CCALLSFSUB2(GPTSET,gptset,INT,INT,A1,A2)
3858
3859/*------------------------------------------------------------------
3860fortran filename : gpvert.f
3861------------------------------------------------------------------*/
3862
3863#define GPVERT(A1) CCALLSFSUB1(GPVERT,gpvert,INT,A1)
3864
3865/*------------------------------------------------------------------
3866fortran filename : gpvolu.f
3867------------------------------------------------------------------*/
3868
3869#define GPVOLU(A1) CCALLSFSUB1(GPVOLU,gpvolu,INT,A1)
3870
3871/*------------------------------------------------------------------
3872fortran filename : gpvolx.f
3873------------------------------------------------------------------*/
3874
3875#define GPVOLX(A1) CCALLSFSUB1(GPVOLX,gpvolx,INT,A1)
3876
3877/*------------------------------------------------------------------
3878fortran filename : grangi.f
3879------------------------------------------------------------------*/
3880
3881#define GRANGI() CCALLSFSUB0(GRANGI,grangi)
3882
3883/*------------------------------------------------------------------
3884fortran filename : granor.f
3885------------------------------------------------------------------*/
3886
3887#define GRANOR(A1,A2) CCALLSFSUB2(GRANOR,granor,PFLOAT,PFLOAT,A1,A2)
3888
3889/*------------------------------------------------------------------
3890fortran filename : grayl.f
3891------------------------------------------------------------------*/
3892
3893#define GRAYL() CCALLSFSUB0(GRAYL,grayl)
3894
3895/*------------------------------------------------------------------
3896fortran filename : grayli.f
3897------------------------------------------------------------------*/
3898
3899#define GRAYLI() CCALLSFSUB0(GRAYLI,grayli)
3900
3901/*------------------------------------------------------------------
3902fortran filename : grend.f
3903------------------------------------------------------------------*/
3904
3905#define GREND(A1) CCALLSFSUB1(GREND,grend,INT,A1)
3906
3907/*------------------------------------------------------------------
3908fortran filename : greswk.f
3909------------------------------------------------------------------*/
3910
3911#define GRESWK() CCALLSFSUB0(GRESWK,greswk)
3912
3913/*------------------------------------------------------------------
3914fortran filename : greucl.f
3915------------------------------------------------------------------*/
3916/*
3917#define greucl_ELEMS_2 ZTRINGV_NUM(1)
3918#define greucl_ELEMLEN_2 ZTRINGV_NUM(255)
3919*/
3920
3921#define GREUCL(A1,A2) CCALLSFSUB2(GREUCL,greucl,INT,STRING,A1,A2)
3922
3923/*------------------------------------------------------------------
3924fortran filename : grfile.f
3925------------------------------------------------------------------*/
3926/*
3927#define grfile_ELEMS_2 ZTRINGV_NUM(1)
3928#define grfile_ELEMLEN_2 ZTRINGV_NUM(255)
3929#define grfile_ELEMS_3 ZTRINGV_NUM(1)
3930#define grfile_ELEMLEN_3 ZTRINGV_NUM(255)
3931*/
3932
3933#define GRFILE(A1,A2,A3) CCALLSFSUB3(GRFILE,grfile,INT,STRING,STRING,A1,A2,A3)
3934
3935/*------------------------------------------------------------------
3936fortran filename : grget.f
3937------------------------------------------------------------------*/
3938/*
3939#define grget_ELEMS_1 ZTRINGV_NUM(1)
3940#define grget_ELEMLEN_1 ZTRINGV_NUM(4)
3941*/
3942
3943#define GRGET(A1,A2,A3,A4,A5) CCALLSFSUB5(GRGET,grget,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5)
3944
3945/*------------------------------------------------------------------
3946fortran filename : grhits.f
3947------------------------------------------------------------------*/
3948/*
3949#define grhits_ELEMS_1 ZTRINGV_NUM(1)
3950#define grhits_ELEMLEN_1 ZTRINGV_NUM(255)
3951#define grhits_ELEMS_2 ZTRINGV_NUM(1)
3952#define grhits_ELEMLEN_2 ZTRINGV_NUM(255)
3953*/
3954
3955#define GRHITS(A1,A2,A3,A4) CCALLSFSUB4(GRHITS,grhits,STRING,STRING,INT,INTV,A1,A2,A3,A4)
3956
3957/*------------------------------------------------------------------
3958fortran filename : grin.f
3959------------------------------------------------------------------*/
3960/*
3961#define grin_ELEMS_1 ZTRINGV_NUM(1)
3962#define grin_ELEMLEN_1 ZTRINGV_NUM(255)
3963#define grin_ELEMS_3 ZTRINGV_NUM(1)
3964#define grin_ELEMLEN_3 ZTRINGV_NUM(255)
3965*/
3966
3967#define GRIN(A1,A2,A3) CCALLSFSUB3(GRIN,grin,STRING,INT,STRING,A1,A2,A3)
3968
3969/*------------------------------------------------------------------
3970fortran filename : grkuta.f
3971------------------------------------------------------------------*/
3972
3973#define GRKUTA(A1,A2,A3,A4) CCALLSFSUB4(GRKUTA,grkuta,FLOAT,FLOAT,FLOATV,PFLOAT,A1,A2,A3,A4)
3974
3975/*------------------------------------------------------------------
3976fortran filename : grleas.f
3977------------------------------------------------------------------*/
3978
3979#define GRLEAS(A1) CCALLSFSUB1(GRLEAS,grleas,INT,A1)
3980
3981/*------------------------------------------------------------------
3982fortran filename : grmdir.f
3983------------------------------------------------------------------*/
3984/*
3985#define grmdir_ELEMS_1 ZTRINGV_NUM(1)
3986#define grmdir_ELEMLEN_1 ZTRINGV_NUM(255)
3987#define grmdir_ELEMS_2 ZTRINGV_NUM(1)
3988#define grmdir_ELEMLEN_2 ZTRINGV_NUM(255)
3989*/
3990
3991#define GRMDIR(A1,A2) CCALLSFSUB2(GRMDIR,grmdir,STRING,STRING,A1,A2)
3992
3993/*------------------------------------------------------------------
3994fortran filename : grmtd.f
3995------------------------------------------------------------------*/
3996
3997#define GRMTD(A1,A2,A3) CCALLSFSUB3(GRMTD,grmtd,FLOATV,INT,PFLOAT,A1,A2,A3)
3998
3999/*------------------------------------------------------------------
4000fortran filename : grmul.f
4001------------------------------------------------------------------*/
4002
4003#define GRMUL(A1,A2,A3) CCALLSFSUB3(GRMUL,grmul,FLOATV,INT,PFLOAT,A1,A2,A3)
4004
4005/*------------------------------------------------------------------
4006fortran filename : grndm.f
4007------------------------------------------------------------------*/
4008
4009#define GRNDM(A1,A2) CCALLSFSUB2(GRNDM,grndm,PFLOAT,INT,A1,A2)
4010
4011/*------------------------------------------------------------------
4012fortran filename : grndmq.f
4013------------------------------------------------------------------*/
4014/*
4015#define grndmq_ELEMS_4 ZTRINGV_NUM(1)
4016#define grndmq_ELEMLEN_4 ZTRINGV_NUM(255)
4017*/
4018
4019#define GRNDMQ(A1,A2,A3,A4) CCALLSFSUB4(GRNDMQ,grndmq,PINT,PINT,INT,STRING,A1,A2,A3,A4)
4020
4021/*------------------------------------------------------------------
4022fortran filename : grndst.f
4023------------------------------------------------------------------*/
4024
4025#define GRNDST(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(GRNDST,grndst,FLOATV,INTV,INT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
4026
4027/*------------------------------------------------------------------
4028fortran filename : grot.f
4029------------------------------------------------------------------*/
4030
4031#define GROT(A1,A2,A3) CCALLSFSUB3(GROT,grot,FLOATV,FLOATV,PFLOAT,A1,A2,A3)
4032
4033/*------------------------------------------------------------------
4034fortran filename : grout.f
4035------------------------------------------------------------------*/
4036/*
4037#define grout_ELEMS_1 ZTRINGV_NUM(1)
4038#define grout_ELEMLEN_1 ZTRINGV_NUM(255)
4039#define grout_ELEMS_3 ZTRINGV_NUM(1)
4040#define grout_ELEMLEN_3 ZTRINGV_NUM(255)
4041*/
4042
4043#define GROUT(A1,A2,A3) CCALLSFSUB3(GROUT,grout,STRING,INT,STRING,A1,A2,A3)
4044
4045/*------------------------------------------------------------------
4046fortran filename : grpar.f
4047------------------------------------------------------------------*/
4048
4049#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)
4050
4051/*------------------------------------------------------------------
4052fortran filename : grsave.f
4053------------------------------------------------------------------*/
4054/*
4055#define grsave_ELEMS_1 ZTRINGV_NUM(1)
4056#define grsave_ELEMLEN_1 ZTRINGV_NUM(4)
4057*/
4058
4059#define GRSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GRSAVE,grsave,STRINGV,INT,INT,INT,INT,A1,A2,A3,A4,A5)
4060
4061/*------------------------------------------------------------------
4062fortran filename : grun.f
4063------------------------------------------------------------------*/
4064
4065#define GRUN() CCALLSFSUB0(GRUN,grun)
4066
4067/*------------------------------------------------------------------
4068fortran filename : gsagtr.f
4069------------------------------------------------------------------*/
4070
4071#define GSAGTR(A1,A2,A3,A4) CCALLSFSUB4(GSAGTR,gsagtr,FLOATV,FLOATV,PFLOAT,INT,A1,A2,A3,A4)
4072
4073/*------------------------------------------------------------------
4074fortran filename : gsahit.f
4075------------------------------------------------------------------*/
4076
4077#define GSAHIT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSAHIT,gsahit,INT,INT,INT,INTV,FLOATV,PINT,A1,A2,A3,A4,A5,A6)
4078
4079/*------------------------------------------------------------------
4080fortran filename : gsaphi.f
4081------------------------------------------------------------------*/
4082
4083#define GSAPHI(A1,A2,A3,A4) CCALLSFSUB4(GSAPHI,gsaphi,FLOATV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4)
4084
4085/*------------------------------------------------------------------
4086fortran filename : gsatt.f
4087------------------------------------------------------------------*/
4088/*
4089#define gsatt_ELEMS_1 ZTRINGV_NUM(1)
4090#define gsatt_ELEMLEN_1 ZTRINGV_NUM(4)
4091#define gsatt_ELEMS_2 ZTRINGV_NUM(1)
4092#define gsatt_ELEMLEN_2 ZTRINGV_NUM(4)
4093*/
4094
4095#define GSATT(A1,A2,A3) CCALLSFSUB3(GSATT,gsatt,STRING,STRING,INT,A1,A2,A3)
4096
4097/*------------------------------------------------------------------
4098fortran filename : gsave.f
4099------------------------------------------------------------------*/
4100/*
4101#define gsave_ELEMS_2 ZTRINGV_NUM(1)
4102#define gsave_ELEMLEN_2 ZTRINGV_NUM(4)
4103*/
4104
4105#define GSAVE(A1,A2,A3,A4,A5) CCALLSFSUB5(GSAVE,gsave,INT,STRINGV,INT,INT,PINT,A1,A2,A3,A4,A5)
4106
4107/*------------------------------------------------------------------
4108fortran filename : gscani.f
4109------------------------------------------------------------------*/
4110
4111#define GSCANI() CCALLSFSUB0(GSCANI,gscani)
4112
4113/*------------------------------------------------------------------
4114fortran filename : gscank.f
4115------------------------------------------------------------------*/
4116
4117#define GSCANK() CCALLSFSUB0(GSCANK,gscank)
4118
4119/*------------------------------------------------------------------
4120fortran filename : gscano.f
4121------------------------------------------------------------------*/
4122
4123#define GSCANO() CCALLSFSUB0(GSCANO,gscano)
4124
4125/*------------------------------------------------------------------
4126fortran filename : gscanu.f
4127------------------------------------------------------------------*/
4128
4129#define GSCANU() CCALLSFSUB0(GSCANU,gscanu)
4130
4131/*------------------------------------------------------------------
4132fortran filename : gschit.f
4133------------------------------------------------------------------*/
4134
4135#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)
4136
4137/*------------------------------------------------------------------
4138fortran filename : gschk.f
4139------------------------------------------------------------------*/
4140/*
4141#define gschk_ELEMS_1 ZTRINGV_NUM(1)
4142#define gschk_ELEMLEN_1 ZTRINGV_NUM(4)
4143#define gschk_ELEMS_2 ZTRINGV_NUM(1)
4144#define gschk_ELEMLEN_2 ZTRINGV_NUM(4)
4145*/
4146
4147#define GSCHK(A1,A2,A3,A4) CCALLSFSUB4(GSCHK,gschk,STRING,STRING,INT,PINT,A1,A2,A3,A4)
4148
4149/*------------------------------------------------------------------
4150fortran filename : gsckov.f
4151------------------------------------------------------------------*/
4152
4153#define GSCKOV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSCKOV,gsckov,INT,INT,FLOATV,FLOATV,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
4154
4155/*------------------------------------------------------------------
4156fortran filename : gscvol.f
4157------------------------------------------------------------------*/
4158
4159#define GSCVOL() CCALLSFSUB0(GSCVOL,gscvol)
4160
4161/*------------------------------------------------------------------
4162fortran filename : gsdet.f
4163------------------------------------------------------------------*/
4164/*
4165#define gsdet_ELEMS_1 ZTRINGV_NUM(1)
4166#define gsdet_ELEMLEN_1 ZTRINGV_NUM(4)
4167#define gsdet_ELEMS_2 ZTRINGV_NUM(1)
4168#define gsdet_ELEMLEN_2 ZTRINGV_NUM(4)
4169#define gsdet_ELEMS_4 ZTRINGV_NUM(1)
4170#define gsdet_ELEMLEN_4 ZTRINGV_NUM(4)
4171*/
4172
4173#define GSDET(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(GSDET,gsdet,STRING,STRING,INT,STRING,INTV,INT,INT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
4174
4175/*------------------------------------------------------------------
4176fortran filename : gsdeta.f
4177------------------------------------------------------------------*/
4178/*
4179#define gsdeta_ELEMS_1 ZTRINGV_NUM(1)
4180#define gsdeta_ELEMLEN_1 ZTRINGV_NUM(4)
4181#define gsdeta_ELEMS_2 ZTRINGV_NUM(1)
4182#define gsdeta_ELEMLEN_2 ZTRINGV_NUM(4)
4183#define gsdeta_ELEMS_3 ZTRINGV_NUM(1)
4184#define gsdeta_ELEMLEN_3 ZTRINGV_NUM(4)
4185*/
4186
4187#define GSDETA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDETA,gsdeta,STRING,STRING,STRING,INT,INT,PINT,A1,A2,A3,A4,A5,A6)
4188
4189/*------------------------------------------------------------------
4190fortran filename : gsdetd.f
4191------------------------------------------------------------------*/
4192/*
4193#define gsdetd_ELEMS_1 ZTRINGV_NUM(1)
4194#define gsdetd_ELEMLEN_1 ZTRINGV_NUM(4)
4195#define gsdetd_ELEMS_2 ZTRINGV_NUM(1)
4196#define gsdetd_ELEMLEN_2 ZTRINGV_NUM(4)
4197#define gsdetd_ELEMS_4 ZTRINGV_NUM(1)
4198#define gsdetd_ELEMLEN_4 ZTRINGV_NUM(4)
4199*/
4200
4201#define GSDETD(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDETD,gsdetd,STRING,STRING,INT,STRINGV,INTV,A1,A2,A3,A4,A5)
4202
4203/*------------------------------------------------------------------
4204fortran filename : gsdeth.f
4205------------------------------------------------------------------*/
4206/*
4207#define gsdeth_ELEMS_1 ZTRINGV_NUM(1)
4208#define gsdeth_ELEMLEN_1 ZTRINGV_NUM(4)
4209#define gsdeth_ELEMS_2 ZTRINGV_NUM(1)
4210#define gsdeth_ELEMLEN_2 ZTRINGV_NUM(4)
4211#define gsdeth_ELEMS_4 ZTRINGV_NUM(1)
4212#define gsdeth_ELEMLEN_4 ZTRINGV_NUM(4)
4213*/
4214
4215#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)
4216
4217/*------------------------------------------------------------------
4218fortran filename : gsdetu.f
4219------------------------------------------------------------------*/
4220/*
4221#define gsdetu_ELEMS_1 ZTRINGV_NUM(1)
4222#define gsdetu_ELEMLEN_1 ZTRINGV_NUM(4)
4223#define gsdetu_ELEMS_2 ZTRINGV_NUM(1)
4224#define gsdetu_ELEMLEN_2 ZTRINGV_NUM(4)
4225*/
4226
4227#define GSDETU(A1,A2,A3,A4) CCALLSFSUB4(GSDETU,gsdetu,STRING,STRING,INT,FLOATV,A1,A2,A3,A4)
4228
4229/*------------------------------------------------------------------
4230fortran filename : gsdetv.f
4231------------------------------------------------------------------*/
4232/*
4233#define gsdetv_ELEMS_1 ZTRINGV_NUM(1)
4234#define gsdetv_ELEMLEN_1 ZTRINGV_NUM(4)
4235#define gsdetv_ELEMS_2 ZTRINGV_NUM(1)
4236#define gsdetv_ELEMLEN_2 ZTRINGV_NUM(4)
4237*/
4238
4239#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)
4240
4241/*------------------------------------------------------------------
4242fortran filename : gsdigi.f
4243------------------------------------------------------------------*/
4244
4245#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)
4246
4247/*------------------------------------------------------------------
4248fortran filename : gsdk.f
4249------------------------------------------------------------------*/
4250
4251#define GSDK(A1,A2,A3) CCALLSFSUB3(GSDK,gsdk,INT,FLOATV,INTV,A1,A2,A3)
4252
4253/*------------------------------------------------------------------
4254fortran filename : gsdvn.f
4255------------------------------------------------------------------*/
4256/*
4257#define gsdvn_ELEMS_1 ZTRINGV_NUM(1)
4258#define gsdvn_ELEMLEN_1 ZTRINGV_NUM(4)
4259#define gsdvn_ELEMS_2 ZTRINGV_NUM(1)
4260#define gsdvn_ELEMLEN_2 ZTRINGV_NUM(4)
4261*/
4262
4263#define GSDVN(A1,A2,A3,A4) CCALLSFSUB4(GSDVN,gsdvn,STRING,STRING,INT,INT,A1,A2,A3,A4)
4264
4265/*------------------------------------------------------------------
4266fortran filename : gsdvn2.f
4267------------------------------------------------------------------*/
4268/*
4269#define gsdvn2_ELEMS_1 ZTRINGV_NUM(1)
4270#define gsdvn2_ELEMLEN_1 ZTRINGV_NUM(4)
4271#define gsdvn2_ELEMS_2 ZTRINGV_NUM(1)
4272#define gsdvn2_ELEMLEN_2 ZTRINGV_NUM(4)
4273*/
4274
4275#define GSDVN2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVN2,gsdvn2,STRING,STRING,INT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
4276
4277/*------------------------------------------------------------------
4278fortran filename : gsdvs.f
4279------------------------------------------------------------------*/
4280/*
4281#define gsdvs_ELEMS_1 ZTRINGV_NUM(1)
4282#define gsdvs_ELEMLEN_1 ZTRINGV_NUM(4)
4283#define gsdvs_ELEMS_2 ZTRINGV_NUM(1)
4284#define gsdvs_ELEMLEN_2 ZTRINGV_NUM(4)
4285*/
4286
4287#define GSDVS(A1,A2,A3,A4,A5) CCALLSFSUB5(GSDVS,gsdvs,STRING,STRING,FLOAT,INT,INT,A1,A2,A3,A4,A5)
4288
4289/*------------------------------------------------------------------
4290fortran filename : gsdvs2.f
4291------------------------------------------------------------------*/
4292/*
4293#define gsdvs2_ELEMS_1 ZTRINGV_NUM(1)
4294#define gsdvs2_ELEMLEN_1 ZTRINGV_NUM(4)
4295#define gsdvs2_ELEMS_2 ZTRINGV_NUM(1)
4296#define gsdvs2_ELEMLEN_2 ZTRINGV_NUM(4)
4297*/
4298
4299#define GSDVS2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVS2,gsdvs2,STRING,STRING,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
4300
4301/*------------------------------------------------------------------
4302fortran filename : gsdvt.f
4303------------------------------------------------------------------*/
4304/*
4305#define gsdvt_ELEMS_1 ZTRINGV_NUM(1)
4306#define gsdvt_ELEMLEN_1 ZTRINGV_NUM(4)
4307#define gsdvt_ELEMS_2 ZTRINGV_NUM(1)
4308#define gsdvt_ELEMLEN_2 ZTRINGV_NUM(4)
4309*/
4310
4311#define GSDVT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSDVT,gsdvt,STRING,STRING,FLOAT,INT,INT,INT,A1,A2,A3,A4,A5,A6)
4312
4313/*------------------------------------------------------------------
4314fortran filename : gsdvt2.f
4315------------------------------------------------------------------*/
4316/*
4317#define gsdvt2_ELEMS_1 ZTRINGV_NUM(1)
4318#define gsdvt2_ELEMLEN_1 ZTRINGV_NUM(4)
4319#define gsdvt2_ELEMS_2 ZTRINGV_NUM(1)
4320#define gsdvt2_ELEMLEN_2 ZTRINGV_NUM(4)
4321*/
4322
4323#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)
4324
4325/*------------------------------------------------------------------
4326fortran filename : gsdvx.f
4327------------------------------------------------------------------*/
4328/*
4329#define gsdvx_ELEMS_1 ZTRINGV_NUM(1)
4330#define gsdvx_ELEMLEN_1 ZTRINGV_NUM(4)
4331#define gsdvx_ELEMS_2 ZTRINGV_NUM(1)
4332#define gsdvx_ELEMLEN_2 ZTRINGV_NUM(4)
4333*/
4334
4335#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)
4336
4337/*------------------------------------------------------------------
4338fortran filename : gshead.f
4339------------------------------------------------------------------*/
4340
4341#define GSHEAD(A1,A2,A3) CCALLSFSUB3(GSHEAD,gshead,INT,FLOATV,PINT,A1,A2,A3)
4342
4343/*------------------------------------------------------------------
4344fortran filename : gshlin.f
4345------------------------------------------------------------------*/
4346
4347#define GSHLIN() CCALLSFSUB0(GSHLIN,gshlin)
4348
4349/*------------------------------------------------------------------
4350fortran filename : gsipar.f
4351------------------------------------------------------------------*/
4352
4353#define GSIPAR(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSIPAR,gsipar,INT,INT,INT,INT,FLOATV,FLOATV,A1,A2,A3,A4,A5,A6)
4354
4355/*------------------------------------------------------------------
4356fortran filename : gskine.f
4357------------------------------------------------------------------*/
4358
4359#define GSKINE(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSKINE,gskine,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
4360
4361/*------------------------------------------------------------------
4362fortran filename : gsking.f
4363------------------------------------------------------------------*/
4364
4365#define GSKING(A1) CCALLSFSUB1(GSKING,gsking,INT,A1)
4366
4367/*------------------------------------------------------------------
4368fortran filename : gskinu.f
4369------------------------------------------------------------------*/
4370
4371#define GSKINU(A1,A2,A3,A4) CCALLSFSUB4(GSKINU,gskinu,INT,INT,FLOATV,PINT,A1,A2,A3,A4)
4372
4373/*------------------------------------------------------------------
4374fortran filename : gskpho.f
4375------------------------------------------------------------------*/
4376
4377#define GSKPHO(A1) CCALLSFSUB1(GSKPHO,gskpho,INT,A1)
4378
4379/*------------------------------------------------------------------
4380fortran filename : gsmate.f
4381------------------------------------------------------------------*/
4382/*
4383#define gsmate_ELEMS_2 ZTRINGV_NUM(1)
4384#define gsmate_ELEMLEN_2 ZTRINGV_NUM(255)
4385*/
4386
4387#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)
4388
4389/*------------------------------------------------------------------
4390fortran filename : gsmixt.f
4391------------------------------------------------------------------*/
4392/*
4393#define gsmixt_ELEMS_2 ZTRINGV_NUM(1)
4394#define gsmixt_ELEMLEN_2 ZTRINGV_NUM(255)
4395*/
4396
4397#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)
4398
4399/*------------------------------------------------------------------
4400fortran filename : gsnear.f
4401------------------------------------------------------------------*/
4402/*
4403#define gsnear_ELEMS_1 ZTRINGV_NUM(1)
4404#define gsnear_ELEMLEN_1 ZTRINGV_NUM(4)
4405*/
4406
4407#define GSNEAR(A1,A2,A3,A4) CCALLSFSUB4(GSNEAR,gsnear,STRING,INT,INT,INTV,A1,A2,A3,A4)
4408
4409/*------------------------------------------------------------------
4410fortran filename : gsnext.f
4411------------------------------------------------------------------*/
4412/*
4413#define gsnext_ELEMS_1 ZTRINGV_NUM(1)
4414#define gsnext_ELEMLEN_1 ZTRINGV_NUM(4)
4415*/
4416
4417#define GSNEXT(A1,A2,A3,A4) CCALLSFSUB4(GSNEXT,gsnext,STRING,INT,INT,INTV,A1,A2,A3,A4)
4418
4419/*------------------------------------------------------------------
4420fortran filename : gsngtr.f
4421------------------------------------------------------------------*/
4422
4423#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)
4424
4425/*------------------------------------------------------------------
4426fortran filename : gsord.f
4427------------------------------------------------------------------*/
4428/*
4429#define gsord_ELEMS_1 ZTRINGV_NUM(1)
4430#define gsord_ELEMLEN_1 ZTRINGV_NUM(4)
4431*/
4432
4433#define GSORD(A1,A2) CCALLSFSUB2(GSORD,gsord,STRING,INT,A1,A2)
4434
4435/*------------------------------------------------------------------
4436fortran filename : gspart.f
4437------------------------------------------------------------------*/
4438/*
4439#define gspart_ELEMS_2 ZTRINGV_NUM(1)
4440#define gspart_ELEMLEN_2 ZTRINGV_NUM(255)
4441*/
4442
4443#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)
4444
4445/*------------------------------------------------------------------
4446fortran filename : gspe3d.f
4447------------------------------------------------------------------*/
4448/*
4449#define gspe3d_ELEMS_1 ZTRINGV_NUM(1)
4450#define gspe3d_ELEMLEN_1 ZTRINGV_NUM(4)
4451*/
4452
4453#define GSPE3D(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSPE3D,gspe3d,STRING,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5,A6,A7)
4454
4455/*------------------------------------------------------------------
4456fortran filename : gspos.f
4457------------------------------------------------------------------*/
4458/*
4459#define gspos_ELEMS_1 ZTRINGV_NUM(1)
4460#define gspos_ELEMLEN_1 ZTRINGV_NUM(4)
4461#define gspos_ELEMS_3 ZTRINGV_NUM(1)
4462#define gspos_ELEMLEN_3 ZTRINGV_NUM(4)
4463#define gspos_ELEMS_8 ZTRINGV_NUM(1)
4464#define gspos_ELEMLEN_8 ZTRINGV_NUM(4)
4465*/
4466
4467#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)
4468
4469/*------------------------------------------------------------------
4470fortran filename : gsposp.f
4471------------------------------------------------------------------*/
4472/*
4473#define gsposp_ELEMS_1 ZTRINGV_NUM(1)
4474#define gsposp_ELEMLEN_1 ZTRINGV_NUM(4)
4475#define gsposp_ELEMS_3 ZTRINGV_NUM(1)
4476#define gsposp_ELEMLEN_3 ZTRINGV_NUM(4)
4477#define gsposp_ELEMS_8 ZTRINGV_NUM(1)
4478#define gsposp_ELEMLEN_8 ZTRINGV_NUM(4)
4479*/
4480
4481#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)
4482
4483/*------------------------------------------------------------------
4484fortran filename : gspset.f
4485------------------------------------------------------------------*/
4486
4487#define GSPSET(A1) CCALLSFSUB1(GSPSET,gspset,FLOATV,A1)
4488
4489/*------------------------------------------------------------------
4490fortran filename : gsrotm.f
4491------------------------------------------------------------------*/
4492
4493#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)
4494
4495/*------------------------------------------------------------------
4496fortran filename : gsrung.f
4497------------------------------------------------------------------*/
4498
4499#define GSRUNG(A1,A2,A3) CCALLSFSUB3(GSRUNG,gsrung,INT,FLOATV,PINT,A1,A2,A3)
4500
4501/*------------------------------------------------------------------
4502fortran filename : gsscan.f
4503------------------------------------------------------------------*/
4504
4505#define GSSCAN(A1,A2) CCALLSFSUB2(GSSCAN,gsscan,INT,INT,A1,A2)
4506
4507/*------------------------------------------------------------------
4508fortran filename : gsstak.f
4509------------------------------------------------------------------*/
4510
4511#define GSSTAK(A1) CCALLSFSUB1(GSSTAK,gsstak,INT,A1)
4512
4513/*------------------------------------------------------------------
4514fortran filename : gstcor.f
4515------------------------------------------------------------------*/
4516
4517#define GSTCOR(A1,A2,A3,A4,A5) CCALLSFSUB5(GSTCOR,gstcor,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
4518
4519/*------------------------------------------------------------------
4520fortran filename : gstdn.f
4521------------------------------------------------------------------*/
4522
4523 PROTOCCALLSFFUN1(FLOAT,GSTDN,gstdn,FLOAT)
4524#define GSTDN(A2) CCALLSFFUN1(GSTDN,gstdn,FLOAT,A2)
4525
4526/*------------------------------------------------------------------
4527fortran filename : gstini.f
4528------------------------------------------------------------------*/
4529
4530#define GSTINI() CCALLSFSUB0(GSTINI,gstini)
4531
4532/*------------------------------------------------------------------
4533fortran filename : gstint.f
4534------------------------------------------------------------------*/
4535
4536 PROTOCCALLSFFUN4(FLOAT,GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT)
4537#define GSTINT(A2,A3,A4,A5) CCALLSFFUN4(GSTINT,gstint,FLOAT,FLOATV,FLOATV,INT,A2,A3,A4,A5)
4538
4539/*------------------------------------------------------------------
4540fortran filename : gstmat.f
4541------------------------------------------------------------------*/
4542/*
4543#define gstmat_ELEMS_1 ZTRINGV_NUM(1)
4544#define gstmat_ELEMLEN_1 ZTRINGV_NUM(24)
4545*/
4546
4547#define GSTMAT(A1) CCALLSFSUB1(GSTMAT,gstmat,STRING,A1)
4548
4549/*------------------------------------------------------------------
4550fortran filename : gstmed.f
4551------------------------------------------------------------------*/
4552/*
4553#define gstmed_ELEMS_2 ZTRINGV_NUM(1)
4554#define gstmed_ELEMLEN_2 ZTRINGV_NUM(255)
4555*/
4556
4557#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)
4558
4559/*------------------------------------------------------------------
4560fortran filename : gstord.f
4561------------------------------------------------------------------*/
4562
4563#define GSTORD() CCALLSFSUB0(GSTORD,gstord)
4564
4565/*------------------------------------------------------------------
4566fortran filename : gstpar.f
4567------------------------------------------------------------------*/
4568/*
4569#define gstpar_ELEMS_2 ZTRINGV_NUM(1)
4570#define gstpar_ELEMLEN_2 ZTRINGV_NUM(255)
4571*/
4572
4573#define GSTPAR(A1,A2,A3) CCALLSFSUB3(GSTPAR,gstpar,INT,STRING,FLOAT,A1,A2,A3)
4574
4575/*------------------------------------------------------------------
4576fortran filename : gstrac.f
4577------------------------------------------------------------------*/
4578
4579#define GSTRAC() CCALLSFSUB0(GSTRAC,gstrac)
4580
4581/*------------------------------------------------------------------
4582fortran filename : gstren.f
4583------------------------------------------------------------------*/
4584
4585 PROTOCCALLSFFUN3(FLOAT,GSTREN,gstren,FLOAT,FLOAT,FLOAT)
4586#define GSTREN(A2,A3,A4) CCALLSFFUN3(GSTREN,gstren,FLOAT,FLOAT,FLOAT,A2,A3,A4)
4587
4588/*------------------------------------------------------------------
4589fortran filename : gstset.f
4590------------------------------------------------------------------*/
4591/*
4592#define gstset_ELEMS_1 ZTRINGV_NUM(1)
4593#define gstset_ELEMLEN_1 ZTRINGV_NUM(24)
4594#define gstset_ELEMS_2 ZTRINGV_NUM(1)
4595#define gstset_ELEMLEN_2 ZTRINGV_NUM(4)
4596#define gstset_ELEMS_3 ZTRINGV_NUM(1)
4597#define gstset_ELEMLEN_3 ZTRINGV_NUM(24)
4598#define gstset_ELEMS_4 ZTRINGV_NUM(1)
4599#define gstset_ELEMLEN_4 ZTRINGV_NUM(24)
4600#define gstset_ELEMS_5 ZTRINGV_NUM(1)
4601#define gstset_ELEMLEN_5 ZTRINGV_NUM(24)
4602#define gstset_ELEMS_6 ZTRINGV_NUM(1)
4603#define gstset_ELEMLEN_6 ZTRINGV_NUM(24)
4604*/
4605
4606#define GSTSET(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSTSET,gstset,STRING,STRING,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6)
4607
4608/*------------------------------------------------------------------
4609fortran filename : gsttab.f
4610------------------------------------------------------------------*/
4611
4612#define GSTTAB(A1,A2,A3,A4) CCALLSFSUB4(GSTTAB,gsttab,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4)
4613
4614/*------------------------------------------------------------------
4615fortran filename : gstxin.f
4616------------------------------------------------------------------*/
4617
4618#define GSTXIN() CCALLSFSUB0(GSTXIN,gstxin)
4619
4620/*------------------------------------------------------------------
4621fortran filename : gsunea.f
4622------------------------------------------------------------------*/
4623/*
4624#define gsunea_ELEMS_1 ZTRINGV_NUM(1)
4625#define gsunea_ELEMLEN_1 ZTRINGV_NUM(4)
4626*/
4627
4628#define GSUNEA(A1,A2) CCALLSFSUB2(GSUNEA,gsunea,STRING,INT,A1,A2)
4629
4630/*------------------------------------------------------------------
4631fortran filename : gsvert.f
4632------------------------------------------------------------------*/
4633
4634#define GSVERT(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVERT,gsvert,FLOATV,INT,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
4635
4636/*------------------------------------------------------------------
4637fortran filename : gsveru.f
4638------------------------------------------------------------------*/
4639
4640#define GSVERU(A1,A2,A3,A4) CCALLSFSUB4(GSVERU,gsveru,INT,INT,FLOATV,PINT,A1,A2,A3,A4)
4641
4642/*------------------------------------------------------------------
4643fortran filename : gsvolu.f
4644------------------------------------------------------------------*/
4645/*
4646#define gsvolu_ELEMS_1 ZTRINGV_NUM(1)
4647#define gsvolu_ELEMLEN_1 ZTRINGV_NUM(4)
4648#define gsvolu_ELEMS_2 ZTRINGV_NUM(1)
4649#define gsvolu_ELEMLEN_2 ZTRINGV_NUM(4)
4650*/
4651
4652#define GSVOLU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GSVOLU,gsvolu,STRING,STRING,INT,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6)
4653
4654/*------------------------------------------------------------------
4655fortran filename : gsxyz.f
4656------------------------------------------------------------------*/
4657
4658#define GSXYZ() CCALLSFSUB0(GSXYZ,gsxyz)
4659
4660/*------------------------------------------------------------------
4661fortran filename : gsync.f
4662------------------------------------------------------------------*/
4663
4664#define GSYNC() CCALLSFSUB0(GSYNC,gsync)
4665
4666/*------------------------------------------------------------------
4667fortran filename : gsynge.f
4668------------------------------------------------------------------*/
4669
4670#define GSYNGE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GSYNGE,gsynge,FLOAT,FLOAT,FLOAT,FLOAT,PINT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6,A7)
4671
4672/*------------------------------------------------------------------
4673fortran filename : gtau.f
4674------------------------------------------------------------------*/
4675
4676#define GTAU() CCALLSFSUB0(GTAU,gtau)
4677
4678/*------------------------------------------------------------------
4679fortran filename : gtckov.f
4680------------------------------------------------------------------*/
4681
4682#define GTCKOV() CCALLSFSUB0(GTCKOV,gtckov)
4683
4684/*------------------------------------------------------------------
4685fortran filename : gtelec.f
4686------------------------------------------------------------------*/
4687
4688#define GTELEC() CCALLSFSUB0(GTELEC,gtelec)
4689
4690/*------------------------------------------------------------------
4691fortran filename : gtgama.f
4692------------------------------------------------------------------*/
4693
4694#define GTGAMA() CCALLSFSUB0(GTGAMA,gtgama)
4695
4696/*------------------------------------------------------------------
4697fortran filename : gthadr.f
4698------------------------------------------------------------------*/
4699
4700#define GTHADR() CCALLSFSUB0(GTHADR,gthadr)
4701
4702/*------------------------------------------------------------------
4703fortran filename : gthion.f
4704------------------------------------------------------------------*/
4705
4706#define GTHION() CCALLSFSUB0(GTHION,gthion)
4707
4708/*------------------------------------------------------------------
4709fortran filename : gtiso.f
4710------------------------------------------------------------------*/
4711
4712#define GTISO(A1,A2,A3) CCALLSFSUB3(GTISO,gtiso,PFLOAT,PFLOAT,PFLOAT,A1,A2,A3)
4713
4714/*------------------------------------------------------------------
4715fortran filename : gtmed.f
4716------------------------------------------------------------------*/
4717
4718#define GTMED(A1,A2) CCALLSFSUB2(GTMED,gtmed,INT,PINT,A1,A2)
4719
4720/*------------------------------------------------------------------
4721fortran filename : gtmedi.f
4722------------------------------------------------------------------*/
4723
4724#define GTMEDI(A1,A2) CCALLSFSUB2(GTMEDI,gtmedi,FLOATV,PINT,A1,A2)
4725
4726/*------------------------------------------------------------------
4727fortran filename : gtmuon.f
4728------------------------------------------------------------------*/
4729
4730#define GTMUON() CCALLSFSUB0(GTMUON,gtmuon)
4731
4732/*------------------------------------------------------------------
4733fortran filename : gtneut.f
4734------------------------------------------------------------------*/
4735
4736#define GTNEUT() CCALLSFSUB0(GTNEUT,gtneut)
4737
4738/*------------------------------------------------------------------
4739fortran filename : gtnext.f
4740------------------------------------------------------------------*/
4741
4742#define GTNEXT() CCALLSFSUB0(GTNEXT,gtnext)
4743
4744/*------------------------------------------------------------------
4745fortran filename : gtnino.f
4746------------------------------------------------------------------*/
4747
4748#define GTNINO() CCALLSFSUB0(GTNINO,gtnino)
4749
4750/*------------------------------------------------------------------
4751fortran filename : gtrack.f
4752------------------------------------------------------------------*/
4753
4754#define GTRACK() CCALLSFSUB0(GTRACK,gtrack)
4755
4756/*------------------------------------------------------------------
4757fortran filename : gtrain.f
4758------------------------------------------------------------------*/
4759
4760#define GTRAIN(A1,A2) CCALLSFSUB2(GTRAIN,gtrain,FLOATV,PFLOAT,A1,A2)
4761
4762/*------------------------------------------------------------------
4763fortran filename : gtrase.f
4764------------------------------------------------------------------*/
4765
4766#define GTRASE(A1) CCALLSFSUB1(GTRASE,gtrase,FLOATV,A1)
4767
4768/*------------------------------------------------------------------
4769fortran filename : gtrdse.f
4770------------------------------------------------------------------*/
4771
4772#define GTRDSE(A1,A2) CCALLSFSUB2(GTRDSE,gtrdse,FLOATV,INT,A1,A2)
4773
4774/*------------------------------------------------------------------
4775fortran filename : gtreve.f
4776------------------------------------------------------------------*/
4777
4778#define GTREVE() CCALLSFSUB0(GTREVE,gtreve)
4779
4780/*------------------------------------------------------------------
4781fortran filename : gtrig.f
4782------------------------------------------------------------------*/
4783
4784#define GTRIG() CCALLSFSUB0(GTRIG,gtrig)
4785
4786/*------------------------------------------------------------------
4787fortran filename : gtrigc.f
4788------------------------------------------------------------------*/
4789
4790#define GTRIGC() CCALLSFSUB0(GTRIGC,gtrigc)
4791
4792/*------------------------------------------------------------------
4793fortran filename : gtrigi.f
4794------------------------------------------------------------------*/
4795
4796#define GTRIGI() CCALLSFSUB0(GTRIGI,gtrigi)
4797
4798/*------------------------------------------------------------------
4799fortran filename : gtrmul.f
4800------------------------------------------------------------------*/
4801
4802#define GTRMUL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GTRMUL,gtrmul,FLOATV,FLOATV,FLOATV,INT,PFLOAT,PFLOAT,A1,A2,A3,A4,A5,A6)
4803
4804/*------------------------------------------------------------------
4805fortran filename : gtrnsf.f
4806------------------------------------------------------------------*/
4807
4808#define GTRNSF(A1,A2,A3,A4) CCALLSFSUB4(GTRNSF,gtrnsf,FLOATV,FLOATV,FLOATV,PFLOAT,A1,A2,A3,A4)
4809
4810/*------------------------------------------------------------------
4811fortran filename : gtrset.f
4812------------------------------------------------------------------*/
4813
4814#define GTRSET(A1) CCALLSFSUB1(GTRSET,gtrset,FLOATV,A1)
4815
4816/*------------------------------------------------------------------
4817fortran filename : gtuset.f
4818------------------------------------------------------------------*/
4819
4820#define GTUSET(A1,A2) CCALLSFSUB2(GTUSET,gtuset,FLOATV,INT,A1,A2)
4821
4822/*------------------------------------------------------------------
4823fortran filename : gtxset.f
4824------------------------------------------------------------------*/
4825/*
4826#define gtxset_ELEMS_1 ZTRINGV_NUM(1)
4827#define gtxset_ELEMLEN_1 ZTRINGV_NUM(24)
4828#define gtxset_ELEMS_2 ZTRINGV_NUM(1)
4829#define gtxset_ELEMLEN_2 ZTRINGV_NUM(4)
4830#define gtxset_ELEMS_6 ZTRINGV_NUM(1)
4831#define gtxset_ELEMLEN_6 ZTRINGV_NUM(24)
4832#define gtxset_ELEMS_7 ZTRINGV_NUM(1)
4833#define gtxset_ELEMLEN_7 ZTRINGV_NUM(24)
4834#define gtxset_ELEMS_8 ZTRINGV_NUM(1)
4835#define gtxset_ELEMLEN_8 ZTRINGV_NUM(24)
4836#define gtxset_ELEMS_9 ZTRINGV_NUM(1)
4837#define gtxset_ELEMLEN_9 ZTRINGV_NUM(24)
4838*/
4839
4840#define GTXSET(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(GTXSET,gtxset,STRING,STRING,INT,INT,INT,STRING,STRING,STRING,STRING,A1,A2,A3,A4,A5,A6,A7,A8,A9)
4841
4842/*------------------------------------------------------------------
4843fortran filename : gudcay.f
4844------------------------------------------------------------------*/
4845
4846#define GUDCAY() CCALLSFSUB0(GUDCAY,gudcay)
4847
4848/*------------------------------------------------------------------
4849fortran filename : gudigi.f
4850------------------------------------------------------------------*/
4851
4852#define GUDIGI() CCALLSFSUB0(GUDIGI,gudigi)
4853
4854/*------------------------------------------------------------------
4855fortran filename : gudtim.f
4856------------------------------------------------------------------*/
4857
4858 PROTOCCALLSFFUN4(FLOAT,GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT)
4859#define GUDTIM(A2,A3,A4,A5) CCALLSFFUN4(GUDTIM,gudtim,FLOAT,FLOAT,INT,FLOAT,A2,A3,A4,A5)
4860
4861/*------------------------------------------------------------------
4862fortran filename : gufld.f
4863------------------------------------------------------------------*/
4864
4865#define GUFLD(A1,A2) CCALLSFSUB2(GUFLD,gufld,FLOATV,PFLOAT,A1,A2)
4866
4867/*------------------------------------------------------------------
4868fortran filename : guhadr.f
4869------------------------------------------------------------------*/
4870
4871#define GUHADR() CCALLSFSUB0(GUHADR,guhadr)
4872
4873/*------------------------------------------------------------------
4874fortran filename : guiget.f
4875------------------------------------------------------------------*/
4876
4877#define GUIGET(A1,A2,A3) CCALLSFSUB3(GUIGET,guiget,INT,INT,INT,A1,A2,A3)
4878
4879/*------------------------------------------------------------------
4880fortran filename : guinme.f
4881------------------------------------------------------------------*/
4882
4883#define GUINME(A1,A2,A3,A4) CCALLSFSUB4(GUINME,guinme,FLOATV,FLOAT,FLOATV,PINT,A1,A2,A3,A4)
4884
4885/*------------------------------------------------------------------
4886fortran filename : guinti.f
4887------------------------------------------------------------------*/
4888
4889#define GUINTI() CCALLSFSUB0(GUINTI,guinti)
4890
4891/*------------------------------------------------------------------
4892fortran filename : gukine.f
4893------------------------------------------------------------------*/
4894
4895#define GUKINE() CCALLSFSUB0(GUKINE,gukine)
4896
4897/*------------------------------------------------------------------
4898fortran filename : gunear.f
4899------------------------------------------------------------------*/
4900
4901#define GUNEAR(A1,A2,A3,A4) CCALLSFSUB4(GUNEAR,gunear,INT,INT,FLOATV,INT,A1,A2,A3,A4)
4902
4903/*------------------------------------------------------------------
4904fortran filename : gunliv.f
4905------------------------------------------------------------------*/
4906
4907#define GUNLIV(A1,A2,A3) CCALLSFSUB3(GUNLIV,gunliv,INT,INT,INT,A1,A2,A3)
4908
4909/*------------------------------------------------------------------
4910fortran filename : guout.f
4911------------------------------------------------------------------*/
4912
4913#define GUOUT() CCALLSFSUB0(GUOUT,guout)
4914
4915/*------------------------------------------------------------------
4916fortran filename : gupara.f
4917------------------------------------------------------------------*/
4918
4919#define GUPARA() CCALLSFSUB0(GUPARA,gupara)
4920
4921/*------------------------------------------------------------------
4922fortran filename : guphad.f
4923------------------------------------------------------------------*/
4924
4925#define GUPHAD() CCALLSFSUB0(GUPHAD,guphad)
4926
4927/*------------------------------------------------------------------
4928fortran filename : guplsh.f
4929------------------------------------------------------------------*/
4930
4931 PROTOCCALLSFFUN2(FLOAT,GUPLSH,guplsh,INT,INT)
4932#define GUPLSH(A2,A3) CCALLSFFUN2(GUPLSH,guplsh,INT,INT,A2,A3)
4933
4934/*------------------------------------------------------------------
4935fortran filename : guskip.f
4936------------------------------------------------------------------*/
4937
4938#define GUSKIP(A1) CCALLSFSUB1(GUSKIP,guskip,PINT,A1)
4939
4940/*------------------------------------------------------------------
4941fortran filename : gustep.f
4942------------------------------------------------------------------*/
4943
4944#define GUSTEP() CCALLSFSUB0(GUSTEP,gustep)
4945
4946/*------------------------------------------------------------------
4947fortran filename : guswim.f
4948------------------------------------------------------------------*/
4949
4950#define GUSWIM(A1,A2,A3,A4) CCALLSFSUB4(GUSWIM,guswim,FLOAT,FLOAT,FLOATV,FLOATV,A1,A2,A3,A4)
4951
4952/*------------------------------------------------------------------
4953fortran filename : gutrak.f
4954------------------------------------------------------------------*/
4955
4956#define GUTRAK() CCALLSFSUB0(GUTRAK,gutrak)
4957
4958/*------------------------------------------------------------------
4959fortran filename : gutrev.f
4960------------------------------------------------------------------*/
4961
4962#define GUTREV() CCALLSFSUB0(GUTREV,gutrev)
4963
4964/*------------------------------------------------------------------
4965fortran filename : guview.f
4966------------------------------------------------------------------*/
4967/*
4968#define guview_ELEMS_3 ZTRINGV_NUM(1)
4969#define guview_ELEMLEN_3 ZTRINGV_NUM(255)
4970*/
4971
4972#define GUVIEW(A1,A2,A3,A4) CCALLSFSUB4(GUVIEW,guview,INT,INT,STRING,INT,A1,A2,A3,A4)
4973
4974/*------------------------------------------------------------------
4975fortran filename : gvaviv.f
4976------------------------------------------------------------------*/
4977
4978 PROTOCCALLSFFUN3(FLOAT,GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT)
4979#define GVAVIV(A2,A3,A4) CCALLSFFUN3(GVAVIV,gvaviv,FLOAT,FLOAT,FLOAT,A2,A3,A4)
4980
4981/*------------------------------------------------------------------
4982fortran filename : gvdcar.f
4983------------------------------------------------------------------*/
4984
4985#define GVDCAR(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDCAR,gvdcar,INT,INT,INT,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
4986
4987/*------------------------------------------------------------------
4988fortran filename : gvdlim.f
4989------------------------------------------------------------------*/
4990
4991#define GVDLIM(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(GVDLIM,gvdlim,INT,INT,INT,PFLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
4992
4993/*------------------------------------------------------------------
4994fortran filename : gvdphi.f
4995------------------------------------------------------------------*/
4996
4997#define GVDPHI(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDPHI,gvdphi,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
4998
4999/*------------------------------------------------------------------
5000fortran filename : gvdrad.f
5001------------------------------------------------------------------*/
5002
5003#define GVDRAD(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(GVDRAD,gvdrad,INT,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7,A8)
5004
5005/*------------------------------------------------------------------
5006fortran filename : gvdthe.f
5007------------------------------------------------------------------*/
5008
5009#define GVDTHE(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GVDTHE,gvdthe,INT,INT,FLOATV,FLOATV,PFLOAT,PFLOAT,PINT,A1,A2,A3,A4,A5,A6,A7)
5010
5011/*------------------------------------------------------------------
5012fortran filename : gvgrad.f
5013------------------------------------------------------------------*/
5014
5015#define GVGRAD(A1,A2,A3,A4) CCALLSFSUB4(GVGRAD,gvgrad,FLOATV,FLOATV,INT,PFLOAT,A1,A2,A3,A4)
5016
5017/*------------------------------------------------------------------
5018fortran filename : gviewf.f
5019------------------------------------------------------------------*/
5020
5021#define GVIEWF(A1,A2,A3) CCALLSFSUB3(GVIEWF,gviewf,FLOATV,FLOATV,INT,A1,A2,A3)
5022
5023/*------------------------------------------------------------------
5024fortran filename : gvlong.f
5025------------------------------------------------------------------*/
5026
5027#define GVLONG(A1,A2,A3,A4,A5) CCALLSFSUB5(GVLONG,gvlong,FLOATV,FLOATV,INT,PFLOAT,PINT,A1,A2,A3,A4,A5)
5028
5029/*------------------------------------------------------------------
5030fortran filename : gvpsqr.f
5031------------------------------------------------------------------*/
5032
5033#define GVPSQR(A1,A2,A3) CCALLSFSUB3(GVPSQR,gvpsqr,FLOATV,PFLOAT,PINT,A1,A2,A3)
5034
5035/*------------------------------------------------------------------
5036fortran filename : gvrot.f
5037------------------------------------------------------------------*/
5038
5039#define GVROT(A1,A2) CCALLSFSUB2(GVROT,gvrot,FLOATV,PFLOAT,A1,A2)
5040
5041/*------------------------------------------------------------------
5042fortran filename : gvsafe.f
5043------------------------------------------------------------------*/
5044
5045 PROTOCCALLSFFUN4(FLOAT,GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT)
5046#define GVSAFE(A2,A3,A4,A5) CCALLSFFUN4(GVSAFE,gvsafe,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5)
5047
5048/*------------------------------------------------------------------
5049fortran filename : gvsign.f
5050------------------------------------------------------------------*/
5051
5052 PROTOCCALLSFFUN4(INT,GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT)
5053#define GVSIGN(A2,A3,A4,A5) CCALLSFFUN4(GVSIGN,gvsign,FLOATV,FLOAT,FLOATV,INT,A2,A3,A4,A5)
5054
5055/*------------------------------------------------------------------
5056fortran filename : gweucl.f
5057------------------------------------------------------------------*/
5058/*
5059#define gweucl_ELEMS_2 ZTRINGV_NUM(1)
5060#define gweucl_ELEMLEN_2 ZTRINGV_NUM(255)
5061#define gweucl_ELEMS_3 ZTRINGV_NUM(1)
5062#define gweucl_ELEMLEN_3 ZTRINGV_NUM(4)
5063*/
5064
5065#define GWEUCL(A1,A2,A3,A4,A5) CCALLSFSUB5(GWEUCL,gweucl,INT,STRING,STRING,INT,INT,A1,A2,A3,A4,A5)
5066
5067/*------------------------------------------------------------------
5068fortran filename : gwork.f
5069------------------------------------------------------------------*/
5070
5071#define GWORK(A1) CCALLSFSUB1(GWORK,gwork,PINT,A1)
5072
5073/*------------------------------------------------------------------
5074fortran filename : gwrtre.f
5075------------------------------------------------------------------*/
5076/*
5077#define gwrtre_ELEMS_1 ZTRINGV_NUM(1)
5078#define gwrtre_ELEMLEN_1 ZTRINGV_NUM(4)
5079*/
5080
5081#define GWRTRE(A1,A2) CCALLSFSUB2(GWRTRE,gwrtre,STRING,INT,A1,A2)
5082
5083/*------------------------------------------------------------------
5084fortran filename : gxclos.f
5085------------------------------------------------------------------*/
5086
5087#define GXCLOS(A1) CCALLSFSUB1(GXCLOS,gxclos,INT,A1)
5088
5089/*------------------------------------------------------------------
5090fortran filename : gxcont.f
5091------------------------------------------------------------------*/
5092
5093#define GXCONT() CCALLSFSUB0(GXCONT,gxcont)
5094
5095/*------------------------------------------------------------------
5096fortran filename : gxcs.f
5097------------------------------------------------------------------*/
5098
5099#define GXCS() CCALLSFSUB0(GXCS,gxcs)
5100
5101/*------------------------------------------------------------------
5102fortran filename : gxdraw.f
5103------------------------------------------------------------------*/
5104
5105#define GXDRAW() CCALLSFSUB0(GXDRAW,gxdraw)
5106
5107/*------------------------------------------------------------------
5108fortran filename : gxdz.f
5109------------------------------------------------------------------*/
5110
5111#define GXDZ() CCALLSFSUB0(GXDZ,gxdz)
5112
5113/*------------------------------------------------------------------
5114fortran filename : gxfca.f
5115------------------------------------------------------------------*/
5116/*
5117#define gxfca_ELEMS_1 ZTRINGV_NUM(1)
5118#define gxfca_ELEMLEN_1 ZTRINGV_NUM(255)
5119*/
5120
5121#define GXFCA(A1,A2,A3,A4) CCALLSFSUB4(GXFCA,gxfca,PSTRING,PINT,PINT,INT,A1,A2,A3,A4)
5122
5123/*------------------------------------------------------------------
5124fortran filename : gxfort.f
5125------------------------------------------------------------------*/
5126
5127#define GXFORT() CCALLSFSUB0(GXFORT,gxfort)
5128
5129/*------------------------------------------------------------------
5130fortran filename : gxfz.f
5131------------------------------------------------------------------*/
5132
5133#define GXFZ() CCALLSFSUB0(GXFZ,gxfz)
5134
5135/*------------------------------------------------------------------
5136fortran filename : gxgcon.f
5137------------------------------------------------------------------*/
5138
5139#define GXGCON() CCALLSFSUB0(GXGCON,gxgcon)
5140
5141/*------------------------------------------------------------------
5142fortran filename : gxgeom.f
5143------------------------------------------------------------------*/
5144
5145#define GXGEOM() CCALLSFSUB0(GXGEOM,gxgeom)
5146
5147/*------------------------------------------------------------------
5148fortran filename : gxgint.f
5149------------------------------------------------------------------*/
5150
5151 PROTOCCALLSFFUN4(FLOAT,GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT)
5152#define GXGINT(A2,A3,A4,A5) CCALLSFFUN4(GXGINT,gxgint,FLOAT,FLOAT,FLOAT,FLOAT,A2,A3,A4,A5)
5153
5154/*------------------------------------------------------------------
5155fortran filename : gxlist.f
5156------------------------------------------------------------------*/
5157
5158#define GXLIST() CCALLSFSUB0(GXLIST,gxlist)
5159
5160/*------------------------------------------------------------------
5161fortran filename : gxlunf.f
5162------------------------------------------------------------------*/
5163
5164#define GXLUNF(A1,A2,A3) CCALLSFSUB3(GXLUNF,gxlunf,INT,INT,PINT,A1,A2,A3)
5165
5166/*------------------------------------------------------------------
5167fortran filename : gxobj.f
5168------------------------------------------------------------------*/
5169/*
5170#define gxobj_ELEMS_1 ZTRINGV_NUM(1)
5171#define gxobj_ELEMLEN_1 ZTRINGV_NUM(255)
5172#define gxobj_ELEMS_2 ZTRINGV_NUM(1)
5173#define gxobj_ELEMLEN_2 ZTRINGV_NUM(255)
5174#define gxobj_ELEMS_3 ZTRINGV_NUM(1)
5175#define gxobj_ELEMLEN_3 ZTRINGV_NUM(255)
5176#define gxobj_ELEMS_4 ZTRINGV_NUM(1)
5177#define gxobj_ELEMLEN_4 ZTRINGV_NUM(255)
5178#define gxobj_ELEMS_5 ZTRINGV_NUM(1)
5179#define gxobj_ELEMLEN_5 ZTRINGV_NUM(255)
5180#define gxobj_ELEMS_6 ZTRINGV_NUM(1)
5181#define gxobj_ELEMLEN_6 ZTRINGV_NUM(255)
5182#define gxobj_ELEMS_7 ZTRINGV_NUM(1)
5183#define gxobj_ELEMLEN_7 ZTRINGV_NUM(255)
5184*/
5185
5186#define GXOBJ(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(GXOBJ,gxobj,STRING,STRING,STRING,PSTRING,PSTRING,STRING,PSTRING,A1,A2,A3,A4,A5,A6,A7)
5187
5188/*------------------------------------------------------------------
5189fortran filename : gxphys.f
5190------------------------------------------------------------------*/
5191
5192#define GXPHYS() CCALLSFSUB0(GXPHYS,gxphys)
5193
5194/*------------------------------------------------------------------
5195fortran filename : gxpick.f
5196------------------------------------------------------------------*/
5197
5198#define GXPICK() CCALLSFSUB0(GXPICK,gxpick)
5199
5200/*------------------------------------------------------------------
5201fortran filename : gxrz.f
5202------------------------------------------------------------------*/
5203
5204#define GXRZ() CCALLSFSUB0(GXRZ,gxrz)
5205
5206/*------------------------------------------------------------------
5207fortran filename : gxscah.f
5208------------------------------------------------------------------*/
5209/*
5210#define gxscah_ELEMS_2 ZTRINGV_NUM(1)
5211#define gxscah_ELEMLEN_2 ZTRINGV_NUM(255)
5212#define gxscah_ELEMS_3 ZTRINGV_NUM(1)
5213#define gxscah_ELEMLEN_3 ZTRINGV_NUM(255)
5214*/
5215
5216#define GXSCAH(A1,A2,A3) CCALLSFSUB3(GXSCAH,gxscah,INT,STRING,STRING,A1,A2,A3)
5217
5218/*------------------------------------------------------------------
5219fortran filename : gxscal.f
5220------------------------------------------------------------------*/
5221/*
5222#define gxscal_ELEMS_2 ZTRINGV_NUM(1)
5223#define gxscal_ELEMLEN_2 ZTRINGV_NUM(255)
5224#define gxscal_ELEMS_3 ZTRINGV_NUM(1)
5225#define gxscal_ELEMLEN_3 ZTRINGV_NUM(255)
5226*/
5227
5228#define GXSCAL(A1,A2,A3) CCALLSFSUB3(GXSCAL,gxscal,PINT,STRING,STRING,A1,A2,A3)
5229
5230/*------------------------------------------------------------------
5231fortran filename : gxscan.f
5232------------------------------------------------------------------*/
5233
5234#define GXSCAN() CCALLSFSUB0(GXSCAN,gxscan)
5235
5236/*------------------------------------------------------------------
5237fortran filename : gxsi.f
5238------------------------------------------------------------------*/
5239
5240 PROTOCCALLSFFUN1(FLOAT,GXSI,gxsi,FLOAT)
5241#define GXSI(A2) CCALLSFFUN1(GXSI,gxsi,FLOAT,A2)
5242
5243/*------------------------------------------------------------------
5244fortran filename : gzebra.f
5245------------------------------------------------------------------*/
5246
5247#define GZEBRA(A1) CCALLSFSUB1(GZEBRA,gzebra,INT,A1)
5248
5249/*------------------------------------------------------------------
5250fortran filename : gzinit.f
5251------------------------------------------------------------------*/
5252
5253#define GZINIT() CCALLSFSUB0(GZINIT,gzinit)
5254
5255/*------------------------------------------------------------------
5256fortran filename : hadden.f
5257------------------------------------------------------------------*/
5258
5259#define HADDEN() CCALLSFSUB0(HADDEN,hadden)
5260
5261/*------------------------------------------------------------------
5262fortran filename : hadevv.f
5263------------------------------------------------------------------*/
5264
5265#define HADEVV(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HADEVV,hadevv,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
5266
5267/*------------------------------------------------------------------
5268fortran filename : hadrin.f
5269------------------------------------------------------------------*/
5270
5271#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)
5272
5273/*------------------------------------------------------------------
5274fortran filename : hadriv.f
5275------------------------------------------------------------------*/
5276
5277#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)
5278
5279/*------------------------------------------------------------------
5280fortran filename : hevhin.f
5281------------------------------------------------------------------*/
5282
5283#define HEVHIN(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(HEVHIN,hevhin,PINT,INT,INT,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
5284
5285/*------------------------------------------------------------------
5286fortran filename : higclu.f
5287------------------------------------------------------------------*/
5288
5289#define HIGCLU(A1,A2,A3) CCALLSFSUB3(HIGCLU,higclu,INT,INT,FLOAT,A1,A2,A3)
5290
5291/*------------------------------------------------------------------
5292fortran filename : highab.f
5293------------------------------------------------------------------*/
5294
5295#define HIGHAB(A1) CCALLSFSUB1(HIGHAB,highab,PFLOAT,A1)
5296
5297/*------------------------------------------------------------------
5298fortran filename : higsel.f
5299------------------------------------------------------------------*/
5300
5301#define HIGSEL(A1) CCALLSFSUB1(HIGSEL,higsel,PINT,A1)
5302
5303/*------------------------------------------------------------------
5304fortran filename : higxpt.f
5305------------------------------------------------------------------*/
5306
5307#define HIGXPT(A1,A2,A3) CCALLSFSUB3(HIGXPT,higxpt,INT,INT,FLOAT,A1,A2,A3)
5308
5309/*------------------------------------------------------------------
5310fortran filename : hinhev.f
5311------------------------------------------------------------------*/
5312
5313#define HINHEV(A1,A2,A3,A4) CCALLSFSUB4(HINHEV,hinhev,INT,DOUBLE,DOUBLE,INT,A1,A2,A3,A4)
5314
5315/*------------------------------------------------------------------
5316fortran filename : hklass.f
5317------------------------------------------------------------------*/
5318
5319#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)
5320
5321/*------------------------------------------------------------------
5322fortran filename : hypero.f
5323------------------------------------------------------------------*/
5324
5325#define HYPERO(A1,A2,A3,A4) CCALLSFSUB4(HYPERO,hypero,PINT,PINT,PDOUBLE,PDOUBLE,A1,A2,A3,A4)
5326
5327/*------------------------------------------------------------------
5328fortran filename : iefun.f
5329------------------------------------------------------------------*/
5330
5331 PROTOCCALLSFFUN2(INT,IEFUN,iefun,DOUBLE,INT)
5332#define IEFUN(A2,A3) CCALLSFFUN2(IEFUN,iefun,DOUBLE,INT,A2,A3)
5333
5334/*------------------------------------------------------------------
5335fortran filename : incini.f
5336------------------------------------------------------------------*/
5337
5338#define INCINI() CCALLSFSUB0(INCINI,incini)
5339
5340/*------------------------------------------------------------------
5341fortran filename : index2.f
5342------------------------------------------------------------------*/
5343
5344#define INDEX2(A1,A2,A3) CCALLSFSUB3(INDEX2,index2,INT,INT,INT,A1,A2,A3)
5345
5346/*------------------------------------------------------------------
5347fortran filename : interp.f
5348------------------------------------------------------------------*/
5349
5350#define INTERP(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(INTERP,interp,FLOAT,PFLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
5351
5352/*------------------------------------------------------------------
5353fortran filename : intsch.f
5354------------------------------------------------------------------*/
5355
5356#define INTSCH(A1,A2,A3,A4) CCALLSFSUB4(INTSCH,intsch,INTV,INT,PINT,INT,A1,A2,A3,A4)
5357
5358/*------------------------------------------------------------------
5359fortran filename : isotpe.f
5360------------------------------------------------------------------*/
5361
5362#define ISOTPE(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(ISOTPE,isotpe,FLOATV,INTV,INTV,FLOATV,INTV,PINT,PINT,FLOAT,FLOAT,INT,PINT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
5363
5364/*------------------------------------------------------------------
5365fortran filename : kinpar.f
5366------------------------------------------------------------------*/
5367
5368#define KINPAR(A1,A2,A3) CCALLSFSUB3(KINPAR,kinpar,DOUBLEV,DOUBLEV,DOUBLE,A1,A2,A3)
5369
5370/*------------------------------------------------------------------
5371fortran filename : kmabs.f
5372------------------------------------------------------------------*/
5373
5374#define KMABS(A1) CCALLSFSUB1(KMABS,kmabs,PINT,A1)
5375
5376/*------------------------------------------------------------------
5377fortran filename : kpois.f
5378------------------------------------------------------------------*/
5379
5380 PROTOCCALLSFFUN1(INT,KPOIS,kpois,DOUBLE)
5381#define KPOIS(A2) CCALLSFFUN1(KPOIS,kpois,DOUBLE,A2)
5382
5383/*------------------------------------------------------------------
5384fortran filename : labnf.f
5385------------------------------------------------------------------*/
5386
5387#define LABNF(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(LABNF,labnf,FLOATV,INTV,FLOATV,FLOAT,INT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7)
5388
5389/*------------------------------------------------------------------
5390fortran filename : limdat.f
5391------------------------------------------------------------------*/
5392
5393#define LIMDAT() CCALLSFSUB0(LIMDAT,limdat)
5394
5395/*------------------------------------------------------------------
5396fortran filename : lortra.f
5397------------------------------------------------------------------*/
5398
5399#define LORTRA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(LORTRA,lortra,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
5400
5401/*------------------------------------------------------------------
5402fortran filename : lr2bod.f
5403------------------------------------------------------------------*/
5404
5405#define LR2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(LR2BOD,lr2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,INT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
5406
5407/*------------------------------------------------------------------
5408fortran filename : lrnorm.f
5409------------------------------------------------------------------*/
5410
5411#define LRNORM(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(LRNORM,lrnorm,FLOATV,INTV,PINT,PINT,PINT,FLOAT,INT,INT,PFLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
5412
5413/*------------------------------------------------------------------
5414fortran filename : minv.f
5415------------------------------------------------------------------*/
5416
5417#define MINV(A1,A2,A3,A4,A5) CCALLSFSUB5(MINV,minv,PFLOAT,INT,PFLOAT,PINT,PINT,A1,A2,A3,A4,A5)
5418
5419/*------------------------------------------------------------------
5420fortran filename : moxsec.f
5421------------------------------------------------------------------*/
5422
5423#define MOXSEC() CCALLSFSUB0(MOXSEC,moxsec)
5424
5425/*------------------------------------------------------------------
5426fortran filename : n2nn3n.f
5427------------------------------------------------------------------*/
5428
5429#define N2NN3N(A1,A2,A3,A4,A5,A6,A7,A8) CCALLSFSUB8(N2NN3N,n2nn3n,FLOATV,INTV,FLOAT,INT,INT,FLOATV,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8)
5430
5431/*------------------------------------------------------------------
5432fortran filename : nbanh.f
5433------------------------------------------------------------------*/
5434
5435#define NBANH(A1) CCALLSFSUB1(NBANH,nbanh,PINT,A1)
5436
5437/*------------------------------------------------------------------
5438fortran filename : nclvin.f
5439------------------------------------------------------------------*/
5440
5441#define NCLVIN() CCALLSFSUB0(NCLVIN,nclvin)
5442
5443/*------------------------------------------------------------------
5444fortran filename : nclvst.f
5445------------------------------------------------------------------*/
5446
5447#define NCLVST(A1,A2) CCALLSFSUB2(NCLVST,nclvst,INT,INT,A1,A2)
5448
5449/*------------------------------------------------------------------
5450fortran filename : nfac.f
5451------------------------------------------------------------------*/
5452
5453 PROTOCCALLSFFUN1(INT,NFAC,nfac,INT)
5454#define NFAC(A2) CCALLSFFUN1(NFAC,nfac,INT,A2)
5455
5456/*------------------------------------------------------------------
5457fortran filename : nghevy.f
5458------------------------------------------------------------------*/
5459
5460#define NGHEVY(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NGHEVY,nghevy,FLOATV,INTV,INT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6)
5461
5462/*------------------------------------------------------------------
5463fortran filename : nizl.f
5464------------------------------------------------------------------*/
5465
5466#define NIZL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NIZL,nizl,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
5467
5468/*------------------------------------------------------------------
5469fortran filename : nizlnw.f
5470------------------------------------------------------------------*/
5471
5472#define NIZLNW(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(NIZLNW,nizlnw,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6,A7)
5473
5474/*------------------------------------------------------------------
5475fortran filename : nn2bod.f
5476------------------------------------------------------------------*/
5477
5478#define NN2BOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(NN2BOD,nn2bod,FLOATV,INTV,INT,INT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
5479
5480/*------------------------------------------------------------------
5481fortran filename : normal.f
5482------------------------------------------------------------------*/
5483
5484#define NORMAL(A1) CCALLSFSUB1(NORMAL,normal,PFLOAT,A1)
5485
5486/*------------------------------------------------------------------
5487fortran filename : nsigta.f
5488------------------------------------------------------------------*/
5489
5490#define NSIGTA(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NSIGTA,nsigta,FLOAT,INT,PFLOAT,FLOATV,INTV,INTV,A1,A2,A3,A4,A5,A6)
5491
5492/*------------------------------------------------------------------
5493fortran filename : nucevv.f
5494------------------------------------------------------------------*/
5495
5496#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)
5497
5498/*------------------------------------------------------------------
5499fortran filename : nucnuc.f
5500------------------------------------------------------------------*/
5501
5502#define NUCNUC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(NUCNUC,nucnuc,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,PINT,PINT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
5503
5504/*------------------------------------------------------------------
5505fortran filename : nucrec.f
5506------------------------------------------------------------------*/
5507
5508#define NUCREC(A1,A2) CCALLSFSUB2(NUCREC,nucrec,PINT,INT,A1,A2)
5509
5510/*------------------------------------------------------------------
5511fortran filename : nucrel.f
5512------------------------------------------------------------------*/
5513
5514#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)
5515
5516/*------------------------------------------------------------------
5517fortran filename : nucriv.f
5518------------------------------------------------------------------*/
5519
5520#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)
5521
5522/*------------------------------------------------------------------
5523fortran filename : nudisv.f
5524------------------------------------------------------------------*/
5525
5526 PROTOCCALLSFFUN6(INT,NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE)
5527#define NUDISV(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(NUDISV,nudisv,DOUBLE,INT,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A2,A3,A4,A5,A6,A7)
5528
5529/*------------------------------------------------------------------
5530fortran filename : nuprel.f
5531------------------------------------------------------------------*/
5532
5533#define NUPREL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(NUPREL,nuprel,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
5534
5535/*------------------------------------------------------------------
5536fortran filename : nwisel.f
5537------------------------------------------------------------------*/
5538
5539#define NWISEL(A1,A2) CCALLSFSUB2(NWISEL,nwisel,INT,LOGICAL,A1,A2)
5540
5541/*------------------------------------------------------------------
5542fortran filename : parjet.f
5543------------------------------------------------------------------*/
5544
5545#define PARJET(A1,A2) CCALLSFSUB2(PARJET,parjet,PINT,INT,A1,A2)
5546
5547/*------------------------------------------------------------------
5548fortran filename : partxs.f
5549------------------------------------------------------------------*/
5550
5551#define PARTXS(A1,A2,A3,A4,A5) CCALLSFSUB5(PARTXS,partxs,FLOATV,INTV,FLOAT,FLOAT,PFLOAT,A1,A2,A3,A4,A5)
5552
5553/*------------------------------------------------------------------
5554fortran filename : pbanh.f
5555------------------------------------------------------------------*/
5556
5557#define PBANH(A1) CCALLSFSUB1(PBANH,pbanh,PINT,A1)
5558
5559/*------------------------------------------------------------------
5560fortran filename : pcsdat.f
5561------------------------------------------------------------------*/
5562
5563#define PCSDAT(A1,A2,A3) CCALLSFSUB3(PCSDAT,pcsdat,INT,INT,LOGICAL,A1,A2,A3)
5564
5565/*------------------------------------------------------------------
5566fortran filename : peanut.f
5567------------------------------------------------------------------*/
5568
5569#define PEANUT(A1,A2,A3,A4,A5,A6,A7) CCALLSFSUB7(PEANUT,peanut,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7)
5570
5571/*------------------------------------------------------------------
5572fortran filename : pfnclv.f
5573------------------------------------------------------------------*/
5574
5575 PROTOCCALLSFFUN2(DOUBLE,PFNCLV,pfnclv,INT,LOGICAL)
5576#define PFNCLV(A2,A3) CCALLSFFUN2(PFNCLV,pfnclv,INT,LOGICAL,A2,A3)
5577
5578/*------------------------------------------------------------------
5579fortran filename : phasp.f
5580------------------------------------------------------------------*/
5581
5582#define PHASP() CCALLSFSUB0(PHASP,phasp)
5583
5584/*------------------------------------------------------------------
5585fortran filename : phdset.f
5586------------------------------------------------------------------*/
5587
5588#define PHDSET(A1) CCALLSFSUB1(PHDSET,phdset,INT,A1)
5589
5590/*------------------------------------------------------------------
5591fortran filename : phdwll.f
5592------------------------------------------------------------------*/
5593
5594#define PHDWLL(A1,A2,A3) CCALLSFSUB3(PHDWLL,phdwll,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3)
5595
5596/*------------------------------------------------------------------
5597fortran filename : photon.f
5598------------------------------------------------------------------*/
5599
5600#define PHOTON(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(PHOTON,photon,FLOATV,INTV,PINT,PINT,INTV,INTV,PINT,PINT,FLOATV,PINT,PINT,PINT,INTV,INTV,FLOAT,PINT,INT,INT,FLOAT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
5601
5602/*------------------------------------------------------------------
5603fortran filename : phpnuc.f
5604------------------------------------------------------------------*/
5605
5606#define PHPNUC() CCALLSFSUB0(PHPNUC,phpnuc)
5607
5608/*------------------------------------------------------------------
5609fortran filename : pimabs.f
5610------------------------------------------------------------------*/
5611
5612#define PIMABS(A1) CCALLSFSUB1(PIMABS,pimabs,PINT,A1)
5613
5614/*------------------------------------------------------------------
5615fortran filename : pioabs.f
5616------------------------------------------------------------------*/
5617
5618#define PIOABS(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12) CCALLSFSUB12(PIOABS,pioabs,INT,INT,DOUBLE,PDOUBLE,PLOGICAL,PLOGICAL,PINT,PINT,INT,INT,PLOGICAL,PLOGICAL,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12)
5619
5620/*------------------------------------------------------------------
5621fortran filename : pmltpc.f
5622------------------------------------------------------------------*/
5623
5624 PROTOCCALLSFFUN6(FLOAT,PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT)
5625#define PMLTPC(A2,A3,A4,A5,A6,A7) CCALLSFFUN6(PMLTPC,pmltpc,INT,INT,INT,INT,FLOAT,FLOAT,A2,A3,A4,A5,A6,A7)
5626
5627/*------------------------------------------------------------------
5628fortran filename : pmprab.f
5629------------------------------------------------------------------*/
5630
5631#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)
5632
5633/*------------------------------------------------------------------
5634fortran filename : poisso.f
5635------------------------------------------------------------------*/
5636
5637#define POISSO(A1,A2) CCALLSFSUB2(POISSO,poisso,FLOAT,PINT,A1,A2)
5638
5639/*------------------------------------------------------------------
5640fortran filename : poli.f
5641------------------------------------------------------------------*/
5642
5643#define POLI(A1,A2) CCALLSFSUB2(POLI,poli,PDOUBLE,PDOUBLE,A1,A2)
5644
5645/*------------------------------------------------------------------
5646fortran filename : prepre.f
5647------------------------------------------------------------------*/
5648/*------------------------------------------------------------------
5649fortran filename : qnrg.f
5650------------------------------------------------------------------*/
5651
5652 PROTOCCALLSFFUN4(DOUBLE,QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE)
5653#define QNRG(A2,A3,A4,A5) CCALLSFFUN4(QNRG,qnrg,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4,A5)
5654
5655/*------------------------------------------------------------------
5656fortran filename : raco.f
5657------------------------------------------------------------------*/
5658
5659#define RACO(A1,A2,A3) CCALLSFSUB3(RACO,raco,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3)
5660
5661/*------------------------------------------------------------------
5662fortran filename : rakekv.f
5663------------------------------------------------------------------*/
5664
5665#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)
5666
5667/*------------------------------------------------------------------
5668fortran filename : randc.f
5669------------------------------------------------------------------*/
5670
5671 PROTOCCALLSFFUN1(DOUBLE,RANDC,randc,INT)
5672#define RANDC(A2) CCALLSFFUN1(RANDC,randc,INT,A2)
5673
5674/*------------------------------------------------------------------
5675fortran filename : ranres.f
5676------------------------------------------------------------------*/
5677
5678 PROTOCCALLSFFUN1(FLOAT,RANRES,ranres,FLOAT)
5679#define RANRES(A2) CCALLSFFUN1(RANRES,ranres,FLOAT,A2)
5680
5681/*------------------------------------------------------------------
5682fortran filename : rbkekv.f
5683------------------------------------------------------------------*/
5684
5685#define RBKEKV(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(RBKEKV,rbkekv,INT,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,PDOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
5686
5687/*------------------------------------------------------------------
5688fortran filename : rchanv.f
5689------------------------------------------------------------------*/
5690
5691#define RCHANV() CCALLSFSUB0(RCHANV,rchanv)
5692
5693/*------------------------------------------------------------------
5694fortran filename : rnmaxf.f
5695------------------------------------------------------------------*/
5696
5697 PROTOCCALLSFFUN1(FLOAT,RNMAXF,rnmaxf,FLOAT)
5698#define RNMAXF(A2) CCALLSFFUN1(RNMAXF,rnmaxf,FLOAT,A2)
5699
5700/*------------------------------------------------------------------
5701fortran filename : rotat.f
5702------------------------------------------------------------------*/
5703
5704#define ROTAT(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10) CCALLSFSUB10(ROTAT,rotat,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10)
5705
5706/*------------------------------------------------------------------
5707fortran filename : rotes2.f
5708------------------------------------------------------------------*/
5709
5710#define ROTES2(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(ROTES2,rotes2,FLOAT,FLOAT,FLOAT,FLOAT,PFLOAT,INT,A1,A2,A3,A4,A5,A6)
5711
5712/*------------------------------------------------------------------
5713fortran filename : rstsel.f
5714------------------------------------------------------------------*/
5715
5716#define RSTSEL(A1) CCALLSFSUB1(RSTSEL,rstsel,INT,A1)
5717
5718/*------------------------------------------------------------------
5719fortran filename : rtmi.f
5720------------------------------------------------------------------*/
5721
5722#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)
5723
5724/*------------------------------------------------------------------
5725fortran filename : samcst.f
5726------------------------------------------------------------------*/
5727
5728#define SAMCST(A1,A2,A3) CCALLSFSUB3(SAMCST,samcst,INT,DOUBLE,PDOUBLE,A1,A2,A3)
5729
5730/*------------------------------------------------------------------
5731fortran filename : sbcomp.f
5732------------------------------------------------------------------*/
5733
5734#define SBCOMP(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SBCOMP,sbcomp,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
5735
5736/*------------------------------------------------------------------
5737fortran filename : secegy.f
5738------------------------------------------------------------------*/
5739
5740#define SECEGY(A1,A2,A3,A4) CCALLSFSUB4(SECEGY,secegy,PFLOAT,FLOATV,PFLOAT,INTV,A1,A2,A3,A4)
5741
5742/*------------------------------------------------------------------
5743fortran filename : secl11.f
5744------------------------------------------------------------------*/
5745
5746#define SECL11(A1,A2,A3,A4,A5) CCALLSFSUB5(SECL11,secl11,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
5747
5748/*------------------------------------------------------------------
5749fortran filename : seclf1.f
5750------------------------------------------------------------------*/
5751
5752#define SECLF1(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF1,seclf1,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
5753
5754/*------------------------------------------------------------------
5755fortran filename : seclf5.f
5756------------------------------------------------------------------*/
5757
5758#define SECLF5(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF5,seclf5,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
5759
5760/*------------------------------------------------------------------
5761fortran filename : seclf7.f
5762------------------------------------------------------------------*/
5763
5764#define SECLF7(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF7,seclf7,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
5765
5766/*------------------------------------------------------------------
5767fortran filename : seclf9.f
5768------------------------------------------------------------------*/
5769
5770#define SECLF9(A1,A2,A3,A4,A5) CCALLSFSUB5(SECLF9,seclf9,FLOATV,INTV,PFLOAT,FLOAT,FLOAT,A1,A2,A3,A4,A5)
5771
5772/*------------------------------------------------------------------
5773fortran filename : selfab.f
5774------------------------------------------------------------------*/
5775
5776#define SELFAB(A1) CCALLSFSUB1(SELFAB,selfab,PFLOAT,A1)
5777
5778/*------------------------------------------------------------------
5779fortran filename : setcur.f
5780------------------------------------------------------------------*/
5781
5782#define SETCUR(A1) CCALLSFSUB1(SETCUR,setcur,INT,A1)
5783
5784/*------------------------------------------------------------------
5785fortran filename : settrk.f
5786------------------------------------------------------------------*/
5787
5788#define SETTRK(A1) CCALLSFSUB1(SETTRK,settrk,INT,A1)
5789
5790/*------------------------------------------------------------------
5791fortran filename : sfecfe.f
5792------------------------------------------------------------------*/
5793
5794#define SFECFE(A1,A2) CCALLSFSUB2(SFECFE,sfecfe,DOUBLE,DOUBLE,A1,A2)
5795
5796/*------------------------------------------------------------------
5797fortran filename : sflraf.f
5798------------------------------------------------------------------*/
5799
5800 PROTOCCALLSFFUN1(FLOAT,SFLRAF,sflraf,FLOAT)
5801#define SFLRAF(A2) CCALLSFFUN1(SFLRAF,sflraf,FLOAT,A2)
5802
5803/*------------------------------------------------------------------
5804fortran filename : shptot.f
5805------------------------------------------------------------------*/
5806
5807 PROTOCCALLSFFUN2(DOUBLE,SHPTOT,shptot,INT,DOUBLE)
5808#define SHPTOT(A2,A3) CCALLSFFUN2(SHPTOT,shptot,INT,DOUBLE,A2,A3)
5809
5810/*------------------------------------------------------------------
5811fortran filename : sigel.f
5812------------------------------------------------------------------*/
5813
5814#define SIGEL(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(SIGEL,sigel,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,PDOUBLE,A1,A2,A3,A4,A5,A6)
5815
5816/*------------------------------------------------------------------
5817fortran filename : sigfer.f
5818------------------------------------------------------------------*/
5819
5820#define SIGFER(A1,A2,A3,A4) CCALLSFSUB4(SIGFER,sigfer,INT,DOUBLE,DOUBLE,LOGICAL,A1,A2,A3,A4)
5821
5822/*------------------------------------------------------------------
5823fortran filename : sigmor.f
5824------------------------------------------------------------------*/
5825
5826 PROTOCCALLSFFUN2(FLOAT,SIGMOR,sigmor,FLOAT,INT)
5827#define SIGMOR(A2,A3) CCALLSFFUN2(SIGMOR,sigmor,FLOAT,INT,A2,A3)
5828
5829/*------------------------------------------------------------------
5830fortran filename : sihael.f
5831------------------------------------------------------------------*/
5832
5833#define SIHAEL(A1,A2,A3,A4,A5) CCALLSFSUB5(SIHAEL,sihael,INT,DOUBLE,DOUBLE,DOUBLE,PDOUBLE,A1,A2,A3,A4,A5)
5834
5835/*------------------------------------------------------------------
5836fortran filename : sitsao.f
5837------------------------------------------------------------------*/
5838
5839 PROTOCCALLSFFUN3(DOUBLE,SITSAO,sitsao,DOUBLE,INT,DOUBLE)
5840#define SITSAO(A2,A3,A4) CCALLSFFUN3(SITSAO,sitsao,DOUBLE,INT,DOUBLE,A2,A3,A4)
5841
5842/*------------------------------------------------------------------
5843fortran filename : stalin.f
5844------------------------------------------------------------------*/
5845
5846#define STALIN() CCALLSFSUB0(STALIN,stalin)
5847
5848/*------------------------------------------------------------------
5849fortran filename : steep.f
5850------------------------------------------------------------------*/
5851
5852#define STEEP(A1) CCALLSFSUB1(STEEP,steep,PFLOAT,A1)
5853
5854/*------------------------------------------------------------------
5855fortran filename : steeq.f
5856------------------------------------------------------------------*/
5857
5858#define STEEQ(A1,A2) CCALLSFSUB2(STEEQ,steeq,PFLOAT,INT,A1,A2)
5859
5860/*------------------------------------------------------------------
5861fortran filename : steer.f
5862------------------------------------------------------------------*/
5863
5864#define STEER(A1) CCALLSFSUB1(STEER,steer,PFLOAT,A1)
5865
5866/*------------------------------------------------------------------
5867fortran filename : stees.f
5868------------------------------------------------------------------*/
5869
5870#define STEES(A1,A2) CCALLSFSUB2(STEES,stees,PFLOAT,FLOAT,A1,A2)
5871
5872/*------------------------------------------------------------------
5873fortran filename : stopar.f
5874------------------------------------------------------------------*/
5875
5876#define STOPAR(A1,A2) CCALLSFSUB2(STOPAR,stopar,INT,PINT,A1,A2)
5877
5878/*------------------------------------------------------------------
5879fortran filename : stpair.f
5880------------------------------------------------------------------*/
5881
5882#define STPAIR() CCALLSFSUB0(STPAIR,stpair)
5883
5884/*------------------------------------------------------------------
5885fortran filename : sverl2.f
5886------------------------------------------------------------------*/
5887
5888#define SVERL2(A1,A2) CCALLSFSUB2(SVERL2,sverl2,INT,PFLOAT,A1,A2)
5889
5890/*------------------------------------------------------------------
5891fortran filename : svgam7.f
5892------------------------------------------------------------------*/
5893
5894#define SVGAM7(A1,A2) CCALLSFSUB2(SVGAM7,svgam7,FLOAT,PFLOAT,A1,A2)
5895
5896/*------------------------------------------------------------------
5897fortran filename : tbsplt.f
5898------------------------------------------------------------------*/
5899
5900#define TBSPLT(A1,A2,A3,A4) CCALLSFSUB4(TBSPLT,tbsplt,FLOATV,FLOAT,INT,PFLOAT,A1,A2,A3,A4)
5901
5902/*------------------------------------------------------------------
5903fortran filename : tchoic.f
5904------------------------------------------------------------------*/
5905
5906#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)
5907
5908/*------------------------------------------------------------------
5909fortran filename : tdelay.f
5910------------------------------------------------------------------*/
5911
5912#define TDELAY(A1) CCALLSFSUB1(TDELAY,tdelay,PFLOAT,A1)
5913
5914/*------------------------------------------------------------------
5915fortran filename : threpd.f
5916------------------------------------------------------------------*/
5917
5918#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)
5919
5920/*------------------------------------------------------------------
5921fortran filename : thrmsc.f
5922------------------------------------------------------------------*/
5923
5924#define THRMSC(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(THRMSC,thrmsc,FLOATV,INTV,INTV,INTV,PFLOAT,PFLOAT,PFLOAT,PFLOAT,FLOAT,PFLOAT,FLOATV,INT,PINT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
5925
5926/*------------------------------------------------------------------
5927fortran filename : thrsel.f
5928------------------------------------------------------------------*/
5929
5930#define THRSEL(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19) CCALLSFSUB19(THRSEL,thrsel,INT,INT,INT,FLOAT,PFLOAT,PFLOAT,FLOAT,FLOATV,FLOATV,FLOATV,FLOATV,PFLOAT,FLOATV,PFLOAT,FLOATV,INT,INTV,INTV,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19)
5931
5932/*------------------------------------------------------------------
5933fortran filename : trafo.f
5934------------------------------------------------------------------*/
5935
5936#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)
5937
5938/*------------------------------------------------------------------
5939fortran filename : trahad.f
5940------------------------------------------------------------------*/
5941
5942#define TRAHAD(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(TRAHAD,trahad,INT,INT,DOUBLE,DOUBLE,DOUBLE,DOUBLE,A1,A2,A3,A4,A5,A6)
5943
5944/*------------------------------------------------------------------
5945fortran filename : trans.f
5946------------------------------------------------------------------*/
5947
5948#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)
5949
5950/*------------------------------------------------------------------
5951fortran filename : trebod.f
5952------------------------------------------------------------------*/
5953
5954#define TREBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14) CCALLSFSUB14(TREBOD,trebod,FLOATV,INTV,INT,INT,PINT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14)
5955
5956/*------------------------------------------------------------------
5957fortran filename : ttrans.f
5958------------------------------------------------------------------*/
5959
5960#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)
5961
5962/*------------------------------------------------------------------
5963fortran filename : twob.f
5964------------------------------------------------------------------*/
5965
5966#define TWOB(A1,A2,A3) CCALLSFSUB3(TWOB,twob,INT,INT,FLOAT,A1,A2,A3)
5967
5968/*------------------------------------------------------------------
5969fortran filename : twobod.f
5970------------------------------------------------------------------*/
5971
5972#define TWOBOD(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(TWOBOD,twobod,FLOATV,INTV,PINT,INT,FLOAT,PFLOAT,FLOAT,PFLOAT,FLOAT,FLOAT,INT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
5973
5974/*------------------------------------------------------------------
5975fortran filename : twoclu.f
5976------------------------------------------------------------------*/
5977
5978#define TWOCLU(A1,A2,A3) CCALLSFSUB3(TWOCLU,twoclu,INT,INT,FLOAT,A1,A2,A3)
5979
5980/*------------------------------------------------------------------
5981fortran filename : twopad.f
5982------------------------------------------------------------------*/
5983
5984#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)
5985
5986/*------------------------------------------------------------------
5987fortran filename : twopar.f
5988------------------------------------------------------------------*/
5989
5990#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)
5991
5992/*------------------------------------------------------------------
5993fortran filename : umofin.f
5994------------------------------------------------------------------*/
5995
5996#define UMOFIN(A1,A2,A3,A4) CCALLSFSUB4(UMOFIN,umofin,INT,PDOUBLE,PDOUBLE,PLOGICAL,A1,A2,A3,A4)
5997
5998/*------------------------------------------------------------------
5999fortran filename : vecsub.f
6000------------------------------------------------------------------*/
6001
6002#define ADD(A1,A2,A3) CCALLSFSUB3(ADD,add,INT,INT,INT,A1,A2,A3)
6003
6004
6005#define ADD3(A1,A2,A3) CCALLSFSUB3(ADD3,add3,INT,INT,INT,A1,A2,A3)
6006
6007
6008#define SUB3(A1,A2,A3) CCALLSFSUB3(SUB3,sub3,INT,INT,INT,A1,A2,A3)
6009
6010
6011#define CROSS3(A1,A2,A3) CCALLSFSUB3(CROSS3,cross3,INT,INT,INT,A1,A2,A3)
6012
6013
6014#define SUB(A1,A2,A3) CCALLSFSUB3(SUB,sub,INT,INT,INT,A1,A2,A3)
6015
6016
6017#define LOR(A1,A2,A3) CCALLSFSUB3(LOR,lor,INT,INT,INT,A1,A2,A3)
6018
6019
6020#define LENGTX(A1,A2) CCALLSFSUB2(LENGTX,lengtx,INT,PFLOAT,A1,A2)
6021
6022
6023#define ANG(A1,A2,A3,A4) CCALLSFSUB4(ANG,ang,INT,INT,PFLOAT,PFLOAT,A1,A2,A3,A4)
6024
6025
6026#define DEFS(A1,A2,A3) CCALLSFSUB3(DEFS,defs,INT,INT,INT,A1,A2,A3)
6027
6028
6029#define TRAC(A1,A2,A3) CCALLSFSUB3(TRAC,trac,INT,INT,INT,A1,A2,A3)
6030
6031/*------------------------------------------------------------------
6032fortran filename : verein.f
6033------------------------------------------------------------------*/
6034
6035#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)
6036
6037/*------------------------------------------------------------------
6038fortran filename : xinneu.f
6039------------------------------------------------------------------*/
6040
6041 PROTOCCALLSFFUN3(DOUBLE,XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE)
6042#define XINNEU(A2,A3,A4) CCALLSFFUN3(XINNEU,xinneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
6043
6044/*------------------------------------------------------------------
6045fortran filename : xinpro.f
6046------------------------------------------------------------------*/
6047
6048 PROTOCCALLSFFUN3(DOUBLE,XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE)
6049#define XINPRO(A2,A3,A4) CCALLSFFUN3(XINPRO,xinpro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
6050
6051/*------------------------------------------------------------------
6052fortran filename : xlamb.f
6053------------------------------------------------------------------*/
6054
6055 PROTOCCALLSFFUN3(DOUBLE,XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE)
6056#define XLAMB(A2,A3,A4) CCALLSFFUN3(XLAMB,xlamb,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
6057
6058/*------------------------------------------------------------------
6059fortran filename : xsecn1.f
6060------------------------------------------------------------------*/
6061
6062#define XSECN1(A1,A2,A3,A4,A5,A6,A7,A8,A9) CCALLSFSUB9(XSECN1,xsecn1,INTV,INTV,PINT,PINT,PINT,PINT,FLOATV,INTV,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9)
6063
6064/*------------------------------------------------------------------
6065fortran filename : xsecn2.f
6066------------------------------------------------------------------*/
6067
6068#define XSECN2(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) CCALLSFSUB25(XSECN2,xsecn2,INTV,INTV,INTV,PINT,PINT,PFLOAT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PINT,PFLOAT,PFLOAT,PINT,PFLOAT,FLOATV,INTV,INT,PINT,INTV,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)
6069
6070/*------------------------------------------------------------------
6071fortran filename : xsecn3.f
6072------------------------------------------------------------------*/
6073
6074#define XSECN3(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13) CCALLSFSUB13(XSECN3,xsecn3,INTV,INTV,FLOATV,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13)
6075
6076/*------------------------------------------------------------------
6077fortran filename : xsecn5.f
6078------------------------------------------------------------------*/
6079
6080#define XSECN5(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11) CCALLSFSUB11(XSECN5,xsecn5,INTV,PINT,PINT,PINT,PINT,PFLOAT,INTV,FLOATV,INTV,INT,PINT,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11)
6081
6082/*------------------------------------------------------------------
6083fortran filename : xsecnu.f
6084------------------------------------------------------------------*/
6085
6086#define XSECNU(A1,A2,A3,A4,A5,A6) CCALLSFSUB6(XSECNU,xsecnu,FLOATV,INT,FLOAT,PFLOAT,INT,INT,A1,A2,A3,A4,A5,A6)
6087
6088/*------------------------------------------------------------------
6089fortran filename : xseneu.f
6090------------------------------------------------------------------*/
6091
6092 PROTOCCALLSFFUN3(DOUBLE,XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE)
6093#define XSENEU(A2,A3,A4) CCALLSFFUN3(XSENEU,xseneu,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
6094
6095/*------------------------------------------------------------------
6096fortran filename : xsepro.f
6097------------------------------------------------------------------*/
6098
6099 PROTOCCALLSFFUN3(DOUBLE,XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE)
6100#define XSEPRO(A2,A3,A4) CCALLSFFUN3(XSEPRO,xsepro,DOUBLE,DOUBLE,DOUBLE,A2,A3,A4)
6101
Note: See TracBrowser for help on using the repository browser.