File: getdata.f.in

package info (click to toggle)
libgetdata 0.11.0-17
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,144 kB
  • sloc: ansic: 100,814; cpp: 4,843; fortran: 4,548; f90: 2,561; python: 2,406; perl: 2,274; makefile: 1,487; php: 1,465; sh: 86
file content (483 lines) | stat: -rw-r--r-- 16,337 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
C     Copyright (C) 2008-2014 D. V. Wiebe
C
C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C     This file is part of the GetData project.
C
C     GetData is free software; you can redistribute it and/or modify it under
C     the terms of the GNU Lesser General Public License as published by the
C     Free Software Foundation; either version 2.1 of the License, or (at your
C     option) any later version.
C    
C     GetData is distributed in the hope that it will be useful, but WITHOUT
C     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
C     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
C     License for more details.
C    
C     You should have received a copy of the GNU Lesser General Public License
C     along with GetData; if not, write to the Free Software Foundation, Inc.,
C     51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
C

C     Fortran 77 parameters for GetData.  This file defines handy
C     constants useful to Fortran programs.

      @PARAMETERS@

C     The length of the opaque packed data string returned by GDGSTP
      INTEGER GDPKSZ
      PARAMETER (GDPKSZ=@SIZEOF_VOID_P@)

C Externals
C     Corresponding to gd_alter_affixes(3)
      EXTERNAL GDAAFX
C     Corresponding to gd_add_alias(3)
      EXTERNAL GDADAL
C     Corresponding to gd_add_bit(3)
      EXTERNAL GDADBT
C     Corresponding to gd_add_carray(3)
      EXTERNAL GDADCA
C     Corresponding to gd_add_clincom(3)
      EXTERNAL GDADCL
C     Corresponding to gd_add_const(3)
      EXTERNAL GDADCO
C     Corresponding to gd_add_cpolynom(3)
      EXTERNAL GDADCP
C     Corresponding to gd_add_crecip(3)
      EXTERNAL GDADCR
C     Corresponding to gd_add_divide(3)
      EXTERNAL GDADDV
C     Corresponding to gd_add_indir(3)
      EXTERNAL GDADID
C     Corresponding to gd_add_lincom(3)
      EXTERNAL GDADLC
C     Corresponding to gd_add_linterp(3)
      EXTERNAL GDADLT
C     Corresponding to gd_add_multiply(3)
      EXTERNAL GDADMT
C     Corresponding to gd_add_mplex(3)
      EXTERNAL GDADMX
C     Corresponding to gd_add_phase(3)
      EXTERNAL GDADPH
C     Corresponding to gd_add_polynom(3)
      EXTERNAL GDADPN
C     Corresponding to gd_add_recip(3)
      EXTERNAL GDADRC
C     Corresponding to gd_add_raw(3)
      EXTERNAL GDADRW
C     Corresponding to gd_add_sarray(3)
      EXTERNAL GDADSA
C     Corresponding to gd_add_sbit(3)
      EXTERNAL GDADSB
C     Corresponding to gd_add_sindir(3)
      EXTERNAL GDADSD
C     Corresponding to gd_add_spec(3)
      EXTERNAL GDADSP
C     Corresponding to gd_add_string(3)
      EXTERNAL GDADST
C     Corresponding to gd_add_window(3)
      EXTERNAL GDADWD
C     Correpsonding to gd_alter_encoding(3)
      EXTERNAL GDAENC
C     Correpsonding to gd_alter_endianness(3)
      EXTERNAL GDAEND
C     Correpsonding to gd_alter_frameoffset(3)
      EXTERNAL GDAFOF
C     Correpsonding to gd_alter_bit(3)
      EXTERNAL GDALBT
C     Correpsonding to gd_alter_carray(3)
      EXTERNAL GDALCA
C     Correpsonding to gd_alter_clincom(3)
      EXTERNAL GDALCL
C     Correpsonding to gd_alter_const(3)
      EXTERNAL GDALCO
C     Correpsonding to gd_alter_cpolynom(3)
      EXTERNAL GDALCP
C     Correpsonding to gd_alter_crecip(3)
      EXTERNAL GDALCR
C     Correpsonding to gd_alter_divide(3)
      EXTERNAL GDALDV
C     Correpsonding to gd_alter_indir(3)
      EXTERNAL GDALID
C     Correpsonding to gd_alter_lincom(3)
      EXTERNAL GDALLC
C     Correpsonding to gd_alter_linterp(3)
      EXTERNAL GDALLT
C     Correpsonding to gd_alter_multiply(3)
      EXTERNAL GDALMT
C     Corresponding to gd_alter_mplex(3)
      EXTERNAL GDALMX
C     Correpsonding to gd_alter_phase(3)
      EXTERNAL GDALPH
C     Correpsonding to gd_alter_polynom(3)
      EXTERNAL GDALPN
C     Correpsonding to gd_alter_recip(3)
      EXTERNAL GDALRC
C     Correpsonding to gd_alter_raw(3)
      EXTERNAL GDALRW
C     Correpsonding to gd_alter_sarray(3)
      EXTERNAL GDALSA
C     Correpsonding to gd_alter_sbit(3)
      EXTERNAL GDALSB
C     Correpsonding to gd_alter_sindir(3)
      EXTERNAL GDALSD
C     Correpsonding to gd_alter_spec(3)
      EXTERNAL GDALSP
C     Correpsonding to gd_aliases(3)
      EXTERNAL GDALSS
C     Returns the maximum alias length
      EXTERNAL GDALSX
C     Corresponding to gd_alter_window(3)
      EXTERNAL GDALWD
C     Corresponding to gd_alter_protection(3)
      EXTERNAL GDAPRT
C     Corresponding to gd_array_len(3)
      EXTERNAL GDARLN
C     Alter a scalar parameter
      EXTERNAL GDASCA
C     Corresponding to gd_add(3) for BIT fields
      EXTERNAL GDASBT
C     Corresponding to gd_add(3) for complex-valued LINCOM fields
      EXTERNAL GDASCL
C     Corresponding to gd_add(3) for complex-valued POLYNOM fields
      EXTERNAL GDASCP
C     Corresponding to gd_add(3) for complex-valued RECIP fields
      EXTERNAL GDASCR
C     Corresponding to gd_add(3) for LINCOM fields
      EXTERNAL GDASLC
C     Corresponding to gd_add(3) for MPLEX fields
      EXTERNAL GDASMX
C     Corresponding to gd_add(3) for PHASE fields
      EXTERNAL GDASPH
C     Corresponding to gd_add(3) for POLYNOM fields
      EXTERNAL GDASPN
C     Corresponding to gd_add(3) for RECIP fields
      EXTERNAL GDASRC
C     Corresponding to gd_add(3) for RAW fields
      EXTERNAL GDASRW
C     Corresponding to gd_add(3) for SBIT fields
      EXTERNAL GDASSB
C     Corresponding to gd_add(3) for WINDOW fields
      EXTERNAL GDASWD
C     Corresponding to gd_alias_target(3)
      EXTERNAL GDATRG
C     The following function is deprecated! use GDARLN instead
      EXTERNAL GDCALN
C     Corresponding to gd_parser_callback(3)
      EXTERNAL GDCLBK
C     Corresponding to gd_close(3)
      EXTERNAL GDCLOS
C     Corresponding to gd_constants(3) (sort of)
      EXTERNAL GDCONS
C     Corresponding to gd_copen(3)
      EXTERNAL GDCOPN
C     Correpsonding to gd_delete_alias(3)
      EXTERNAL GDDELA
C     Correpsonding to gd_delete(3)
      EXTERNAL GDDELE
C     Corresponding to gd_discard(3)
      EXTERNAL GDDSCD
C     Frees the packed data returned by GDGSTP
      EXTERNAL GDDSTP
C     Corresponding to gd_desync(3)
      EXTERNAL GDDSYN
C     Corresponding to gd_error_count(3)
      EXTERNAL GDECNT
C     Corresponding to gd_encoding_support(3)
      EXTERNAL GDENCS
C     Returns entry flags
      EXTERNAL GDENFL
C     Corresponding to gd_entry_list(3) (sort of)
      EXTERNAL GDENTN
C     Returns the maximum entry name length
      EXTERNAL GDENTX
C     Corresponding to gd_entry_type(3)
      EXTERNAL GDENTY
C     Corresponding to gd_error(3)
      EXTERNAL GDEROR
C     Corresponding to gd_error_string(3)
      EXTERNAL GDESTR
C     Corresponding to gd_field_list_by_type(3) (sort of)
      EXTERNAL GDFDNT
C     Returns the maximum field name length
      EXTERNAL GDFDNX
C     Corresponding to gd_flags(3)
      EXTERNAL GDFLAG
C     Corresponding to gd_field_list(3) (sort of)
      EXTERNAL GDFLDN
C     Corresponding to gd_flush(3)
      EXTERNAL GDFLSH
C     Corresponding to gd_framenum_subset(3)
      EXTERNAL GDFNSS
C     Corresponding to gd_framenum(3)
      EXTERNAL GDFNUM
C     Corresponding to gd_fragment_affixes(3)
      EXTERNAL GDFRAF
C     Corresponding to gd_fragment_namespace(3)
      EXTERNAL GDFRNS
C     Corresponding to gd_fragment_index(3)
      EXTERNAL GDFRGI
C     Corresponding to gd_fragmentname(3)
      EXTERNAL GDFRGN
C     Corresponding to gd_bof(3)
      EXTERNAL GDGBOF
C     Corresponding to gd_get_carray_slice(3)
      EXTERNAL GDGCAS
C     Corresponding to gd_entry(3) for BIT fields
      EXTERNAL GDGEBT
C     Corresponding to gd_entry(3) for CARRAY fields
      EXTERNAL GDGECA
C     Corresponding to gd_entry(3) for complex-valued LINCOM fields
      EXTERNAL GDGECL
C     Corresponding to gd_entry(3) for CONST fields
      EXTERNAL GDGECO
C     Corresponding to gd_entry(3) for complex-valued POLYNOM fields
      EXTERNAL GDGECP
C     Corresponding to gd_entry(3) for complex-valued RECIP fields
      EXTERNAL GDGECR
C     Corresponding to gd_entry(3) for INDIR fields
      EXTERNAL GDGEID
C     Corresponding to gd_entry(3) for LINCOM fields
      EXTERNAL GDGELC
C     Corresponding to gd_entry(3) for LINTERP fields
      EXTERNAL GDGELT
C     Corresponding to gd_entry(3) for MULTIPLY fields
      EXTERNAL GDGEMT
C     Corresponding to gd_encoding(3)
      EXTERNAL GDGENC
C     Corresponding to gd_endianness(3)
      EXTERNAL GDGEND
C     Corresponding to gd_eof(3)
      EXTERNAL GDGEOF
C     Corresponding to gd_entry(3) for PHASE fields
      EXTERNAL GDGEPH
C     Corresponding to gd_entry(3) for POLYNOM fields
      EXTERNAL GDGEPN
C     Corresponding to gd_entry(3) for RECIP fields
      EXTERNAL GDGERC
C     Corresponding to gd_entry(3) for RAW fields
      EXTERNAL GDGERW
C     Corresponding to gd_entry(3) for SARRAY fields
      EXTERNAL GDGESA
C     Corresponding to gd_entry(3) for SBIT fields
      EXTERNAL GDGESB
C     Corresponding to gd_entry(3) for SINDIR fields
      EXTERNAL GDGESD
C     Corresponding to gd_getdata(3)
      EXTERNAL GDGETD
C     Corresponding to gd_entry(3) for WINDOW fields
      EXTERNAL GDGEWD
C     Correpsonding to gd_frameoffset(3)
      EXTERNAL GDGFOF
C     Corresponding to gd_protection(3)
      EXTERNAL GDGPRT
C     Retrieve a scalar parameter
      EXTERNAL GDGSCA
C     Corresponding to gd_spf(3)
      EXTERNAL GDGSPF
C     Gets one sample of a SINDIR via gd_getstrdata(3)
      EXTERNAL GDGSTD
C     Gets a packed array of SINDIR data via gd_getstrdata(3)
C     see also GDXSTP and GDDSTP and the GDPKSZ parameter above
      EXTERNAL GDGSTP
C     Corresponding to gd_get_carray(3)
      EXTERNAL GDGTCA
C     Corresponding to gd_get_constant(3)
      EXTERNAL GDGTCO
C     Gets a single SARRAY element via gd_get_sarray_slice(3)
      EXTERNAL GDGTSA
C     Corresponding to gd_get_string(3)
      EXTERNAL GDGTST
C     Corresponding to gd_hide(3)
      EXTERNAL GDHIDE
C     Corresponding to gd_hidden(3)
      EXTERNAL GDHIDN
C     Corresponding to gd_include_affixes(3)
      EXTERNAL GDINCA
C     Corresponding to gd_include(3)
      EXTERNAL GDINCL
C     Corresponding to gd_include_ns(3)
      EXTERNAL GDINCN
C     Corresponding to gd_invalid_dirfile(3)
      EXTERNAL GDINVD
C     Corresponding to gd_alter_entry(3) for BIT fields
      EXTERNAL GDLSBT
C     Corresponding to gd_alter_entry(3) for complex-valued LINCOM fields
      EXTERNAL GDLSCL
C     Corresponding to gd_alter_entry(3) for complex-valued POLYNOM fields
      EXTERNAL GDLSCP
C     Corresponding to gd_alter_entry(3) for complex-valued RECIP fields
      EXTERNAL GDLSCR
C     Corresponding to gd_alter_entry(3) for LINCOM fields
      EXTERNAL GDLSLC
C     Corresponding to gd_alter_entry(3) for MPLEX fields
      EXTERNAL GDLSMX
C     Corresponding to gd_alter_entry(3) for PHASE fields
      EXTERNAL GDLSPH
C     Corresponding to gd_alter_entry(3) for POLYNOM fields
      EXTERNAL GDLSPN
C     Corresponding to gd_alter_entry(3) for RECIP fields
      EXTERNAL GDLSRC
C     Corresponding to gd_alter_entry(3) for RAW fields
      EXTERNAL GDLSRW
C     Corresponding to gd_alter_entry(3) for SBIT fields
      EXTERNAL GDLSSB
C     Corresponding to gd_alter_entry(3) for WINDOW fields
      EXTERNAL GDLSWD
C     Corresponding to gd_linterp_tablename(3)
      EXTERNAL GDLTTN
C     Corresponding to gd_match_entries(3)
      EXTERNAL GDMATN
C     Returns the maximum entry name length
      EXTERNAL GDMATX
C     Corresponding to gd_mconstants(3) (sort of)
      EXTERNAL GDMCOS
C     Corresponding to gd_madd_alias(3)
      EXTERNAL GDMDAL
C     Corresponding to gd_madd_bit(3)
      EXTERNAL GDMDBT
C     Corresponding to gd_madd_carray(3)
      EXTERNAL GDMDCA
C     Corresponding to gd_madd_clincom(3)
      EXTERNAL GDMDCL
C     Corresponding to gd_madd_const(3)
      EXTERNAL GDMDCO
C     Corresponding to gd_madd_cpolynom(3)
      EXTERNAL GDMDCP
C     Corresponding to gd_madd_crecip(3)
      EXTERNAL GDMDCR
C     Corresponding to gd_madd_divide(3)
      EXTERNAL GDMDDV
C     Corresponding to gd_madd_indir(3)
      EXTERNAL GDMDID
C     Corresponding to gd_madd_lincom(3)
      EXTERNAL GDMDLC
C     Corresponding to gd_madd_linterp(3)
      EXTERNAL GDMDLT
C     Corresponding to gd_madd_multiply(3)
      EXTERNAL GDMDMT
C     Corresponding to gd_madd_mplex(3)
      EXTERNAL GDMDMX
C     Corresponding to gd_madd_phase(3)
      EXTERNAL GDMDPH
C     Corresponding to gd_madd_polynom(3)
      EXTERNAL GDMDPN
C     Corresponding to gd_madd_recip(3)
      EXTERNAL GDMDRC
C     Corresponding to gd_madd_sarray(3)
      EXTERNAL GDMDSA
C     Corresponding to gd_madd_sbit(3)
      EXTERNAL GDMDSB
C     Corresponding to gd_madd_sindir(3)
      EXTERNAL GDMDSD
C     Corresponding to gd_madd_spec(3)
      EXTERNAL GDMDSP
C     Corresponding to gd_madd_string(3)
      EXTERNAL GDMDST
C     Corresponding to gd_madd_window(3)
      EXTERNAL GDMDWD
C     Corresponding to gd_mfield_list(3) (sort of)
      EXTERNAL GDMFDN
C     Corresponding to gd_mfield_list_by_type(3) (sort of)
      EXTERNAL GDMFDT
C     Corresponding to gd_metaflush(3)
      EXTERNAL GDMFLS
C     Returns the maximum field name length for a meta field list
      EXTERNAL GDMFNX
C     Correpsonding to gd_malter_spec(3)
      EXTERNAL GDMLSP
C     Correpsonding to gd_move(3)
      EXTERNAL GDMOVE
C     Returns the maximum meta sarray value length
      EXTERNAL GDMSAX
C     Corresponding to gd_mstrings(3) (sort of)
      EXTERNAL GDMSTS
C     Returns the maximum length of the longest string metafield for a
C     field
      EXTERNAL GDMSTX
C     Corresponding to gd_mvector_list(3) (sort of)
      EXTERNAL GDMVEN
C     Corresponding to gd_mplex_lookback(3)
      EXTERNAL GDMXLB
C     Corresponding to gd_naliases(3)
      EXTERNAL GDNALS
C     Corresponding to gd_dirfilename(3)
      EXTERNAL GDNAME
C     Corresponding to gd_nentries(3)
      EXTERNAL GDNENT
C     Corresponding to gd_nfields_by_type(3)
      EXTERNAL GDNFDT
C     Corresponding to gd_nfields(3)
      EXTERNAL GDNFLD
C     Corresponding to gd_nfragments(3)
      EXTERNAL GDNFRG
C     Corresponding to gd_nframes(3)
      EXTERNAL GDNFRM
C     Corresponding to gd_match_entries(3)
      EXTERNAL GDNMAT
C     Corresponding to gd_nmfields(3)
      EXTERNAL GDNMFD
C     Corresponding to gd_nmfields_by_type(3)
      EXTERNAL GDNMFT
C     Corresponding to gd_nmvectors(3)
      EXTERNAL GDNMVE
C     Deregister a callback function (ie. gd_parser_callback(..., NULL))
      EXTERNAL GDNOCB
C     Corresponding to gd_native_type(3)
      EXTERNAL GDNTYP
C     Corresponding to gd_nvectors(3)
      EXTERNAL GDNVEC
C     Corresponding to gd_open(3)
      EXTERNAL GDOPEN
C     Corresponding to gd_put_carray_slice(3)
      EXTERNAL GDPCAS
C     Corresponding to gd_parent_fragment(3)
      EXTERNAL GDPFRG
C     Corresponding to gd_put_carray(3)
      EXTERNAL GDPTCA
C     Corresponding to gd_put_constant(3)
      EXTERNAL GDPTCO
C     Puts a single SARRAY element via gd_put_sarray_slice(3)
      EXTERNAL GDPTSA
C     Corresponding to gd_put_string(3)
      EXTERNAL GDPTST
C     Corresponding to gd_putdata(3)
      EXTERNAL GDPUTD
C     Corresponding to gd_raw_close(3)
      EXTERNAL GDRCLO
C     Corresponding to gd_reference(3)
      EXTERNAL GDREFE
C     Correpsonding to gd_rename(3)
      EXTERNAL GDRENM
C     Corresponding to gd_rewrite_fragment(3)
      EXTERNAL GDRFRG
C     Corresponding to gd_raw_filename(3)
      EXTERNAL GDRWFN
C     Returns the maximum sarray value length
      EXTERNAL GDSARX
C     Corresponding to gd_seek(3)
      EXTERNAL GDSEEK
C     Corresponding to gd_dirfile_standards(3)
      EXTERNAL GDSTDV
C     Corresponding to gd_strings(3) (sort of)
      EXTERNAL GDSTRS
C     Returns the length of the longest string field
      EXTERNAL GDSTRX
C     Corresponding to gd_sync(3)
      EXTERNAL GDSYNC
C     Corresponding to gd_tell(3)
      EXTERNAL GDTELL
C     Corresponding to gd_strtok(3)
      EXTERNAL GDTOKE
C     Corresponding to gd_unhide(3)
      EXTERNAL GDUHID
C     Corresponding to gd_uninclude(3)
      EXTERNAL GDUINC
C     Corresponding to gd_verbose_prefix(3)
      EXTERNAL GDVBPX
C     Corresponding to gd_vector_list(3) (sort of)
      EXTERNAL GDVECN
C     Corresponding to gd_validate(3)
      EXTERNAL GDVLDT
C     Extracts one sample from the data returned by GDGSTP
      EXTERNAL GDXSTP