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

Last change on this file since 3005 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
RevLine 
[2403]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.