This file is indexed.

/usr/include/getdata.f is in libgetdata-dev 0.7.3-6+b2.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  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
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
C     Copyright (C) 2008-2010 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.

      
C     Error codes
C     Corresponding to GD_E_OK
      INTEGER GD_EOK
      PARAMETER (GD_EOK=0)
C     Corresponding to GD_E_OPEN
      INTEGER GD_EOP
      PARAMETER (GD_EOP=1)
C     Corresponding to GD_E_FORMAT
      INTEGER GD_EFO
      PARAMETER (GD_EFO=2)
C     Corresponding to GD_E_TRUNC
      INTEGER GD_ETR
      PARAMETER (GD_ETR=3)
C     Corresponding to GD_E_CREAT
      INTEGER GD_ECR
      PARAMETER (GD_ECR=4)
C     Corresponding to GD_E_BAD_CODE
      INTEGER GD_EBC
      PARAMETER (GD_EBC=5)
C     Corresponding to GD_E_BAD_TYPE
      INTEGER GD_EBT
      PARAMETER (GD_EBT=6)
C     Corresponding to GD_E_RAW_IO
      INTEGER GD_ERW
      PARAMETER (GD_ERW=7)
C     Corresponding to GD_E_OPEN_FRAGMENT
      INTEGER GD_EOF
      PARAMETER (GD_EOF=8)
C     Corresponding to GD_E_OPEN_INCLUDE
      INTEGER GD_EOI
      PARAMETER (GD_EOI=8)
C     Corresponding to GD_E_INTERNAL_ERROR
      INTEGER GD_EIE
      PARAMETER (GD_EIE=9)
C     Corresponding to GD_E_ALLOC
      INTEGER GD_EAL
      PARAMETER (GD_EAL=10)
C     Corresponding to GD_E_RANGE
      INTEGER GD_ERA
      PARAMETER (GD_ERA=11)
C     Corresponding to GD_E_OPEN_LINFILE
      INTEGER GD_EOL
      PARAMETER (GD_EOL=12)
C     Corresponding to GD_E_RECURSE_LEVEL
      INTEGER GD_ERL
      PARAMETER (GD_ERL=13)
C     Corresponding to GD_E_BAD_DIRFILE
      INTEGER GD_EBD
      PARAMETER (GD_EBD=14)
C     Corresponding to GD_E_BAD_FIELD_TYPE
      INTEGER GD_EBF
      PARAMETER (GD_EBF=15)
C     Corresponding to GD_E_ACCMODE
      INTEGER GD_EAC
      PARAMETER (GD_EAC=16)
C     Corresponding to GD_E_UNSUPPORTED
      INTEGER GD_UNS
      PARAMETER (GD_UNS=17)
C     Corresponding to GD_E_BAD_ENTRY
      INTEGER GD_EBE
      PARAMETER (GD_EBE=19)
C     Corresponding to GD_E_DUPLICATE
      INTEGER GD_EDU
      PARAMETER (GD_EDU=20)
C     Corresponding to GD_E_DIMENSION
      INTEGER GD_EDM
      PARAMETER (GD_EDM=21)
C     Corresponding to GD_E_BAD_INDEX
      INTEGER GD_EBI
      PARAMETER (GD_EBI=22)
C     Corresponding to GD_E_BAD_SCALAR
      INTEGER GD_EBS
      PARAMETER (GD_EBS=23)
C     Corresponding to GD_E_BAD_REFERENCE
      INTEGER GD_EBR
      PARAMETER (GD_EBR=24)
C     Corresponding to GD_E_PROTECTED
      INTEGER GD_EPT
      PARAMETER (GD_EPT=25)
C     Corresponding to GD_E_DELETE
      INTEGER GD_EDL
      PARAMETER (GD_EDL=26)
C     Corresponding to GD_E_BAD_ENDIANNESS
      INTEGER GD_EEN
      PARAMETER (GD_EEN=27)
C     Corresponding to GD_E_CALLBACK
      INTEGER GD_ECB
      PARAMETER (GD_ECB=28)
C     Corresponding to GD_E_BAD_PROTECTION
      INTEGER GD_EBP
      PARAMETER (GD_EBP=29)
C     Corresponding to GD_E_UNCLEAN_DB
      INTEGER GD_UCL
      PARAMETER (GD_UCL=30)
C     Corresponding to GD_E_DOMAIN
      INTEGER GD_EDO
      PARAMETER (GD_EDO=31)
C     Corresponding to GD_E_BAD_REPR
      INTEGER GD_ERP
      PARAMETER (GD_ERP=32)
C     Corresponding to GD_E_BAD_VERSION
      INTEGER GD_EVR
      PARAMETER (GD_EVR=33)
C     Corresponding to GD_E_FLUSH
      INTEGER GD_EFL
      PARAMETER (GD_EFL=34)
C     Corresponding to GD_E_BOUNDS
      INTEGER GD_EBO
      PARAMETER (GD_EBO=35)
C     Corresponding to GD_E_LINE_TOO_LONG
      INTEGER GD_ETL
      PARAMETER (GD_ETL=36)

C Open flags
C     Corresponding to GD_RDONLY
      INTEGER GD_RO
      PARAMETER (GD_RO=0)
C     Corresponding to GD_RDWR
      INTEGER GD_RW
      PARAMETER (GD_RW=1)
C     Corresponding to GD_FORCE_ENDIAN
      INTEGER GD_FE
      PARAMETER (GD_FE=2)
C     Corresponding to GD_BIG_ENDIAN
      INTEGER GD_BE
      PARAMETER (GD_BE=4)
C     Corresponding to GD_LITTLE_ENDIAN
      INTEGER GD_LE
      PARAMETER (GD_LE=8)
C     Corresponding to GD_CREAT
      INTEGER GD_CR
      PARAMETER (GD_CR=16)
C     Corresponding to GD_EXCL
      INTEGER GD_EX
      PARAMETER (GD_EX=32)
C     Corresponding to GD_TRUNC
      INTEGER GD_TR
      PARAMETER (GD_TR=64)
C     Corresponding to GD_PEDANTIC
      INTEGER GD_PE
      PARAMETER (GD_PE=128)
C     Corresponding to GD_FORCE_ENCODING
      INTEGER GD_FC
      PARAMETER (GD_FC=256)
C     Corresponding to GD_VERBOSE
      INTEGER GD_VB
      PARAMETER (GD_VB=512)
C     Corresponding to GD_IGNORE_DUPS
      INTEGER GD_ID
      PARAMETER (GD_ID=1024)
C     Corresponding to GD_IGNORE_REFS
      INTEGER GD_IR
      PARAMETER (GD_IR=2048)
C     Corresponding to GD_PRETTY_PRINT
      INTEGER GD_PP
      PARAMETER (GD_PP=4096)
C     Corresponding to GD_ARM_ENDIAN
      INTEGER GD_AE
      PARAMETER (GD_AE=8192)
C     Corresponding to GD_NOT_ARM_ENDIAN
      INTEGER GD_NA
      PARAMETER (GD_NA=0)
C     Corresponding to GD_PERMISSIVE
      INTEGER GD_PM
      PARAMETER (GD_PM=16384)
C     Corresponding to GD_AUTO_ENCODED
      INTEGER GD_EA
      PARAMETER (GD_EA=0)
C     Corresponding to GD_UNENCODED
      INTEGER GD_EN
      PARAMETER (GD_EN=16777216)
C     Corresponding to GD_TEXT_ENCODED
      INTEGER GD_ET
      PARAMETER (GD_ET=33554432)
C     Corresponding to GD_SLIM_ENCODED
      INTEGER GD_ES
      PARAMETER (GD_ES=50331648)
C     Corresponding to GD_GZIP_ENCODED
      INTEGER GD_EG
      PARAMETER (GD_EG=67108864)
C     Corresponding to GD_BZIP2_ENCODED
      INTEGER GD_EB
      PARAMETER (GD_EB=83886080)
C     Corresponding to GD_LZMA_ENCODED
      INTEGER GD_EL
      PARAMETER (GD_EL=100663296)

C Field types
C     Corresponding to GD_NO_ENTRY
      INTEGER GD_NOE
      PARAMETER (GD_NOE=0)
C     Corresponding to GD_RAW_ENTRY
      INTEGER GD_RWE
      PARAMETER (GD_RWE=1)
C     Corresponding to GD_LINCOM_ENTRY
      INTEGER GD_LCE
      PARAMETER (GD_LCE=2)
C     Corresponding to GD_LINTERP_ENTRY
      INTEGER GD_LTE
      PARAMETER (GD_LTE=3)
C     Corresponding to GD_BIT_ENTRY
      INTEGER GD_BTE
      PARAMETER (GD_BTE=4)
C     Corresponding to GD_MULTIPLY_ENTRY
      INTEGER GD_MTE
      PARAMETER (GD_MTE=5)
C     Corresponding to GD_PHASE_ENTRY
      INTEGER GD_PHE
      PARAMETER (GD_PHE=6)
C     Corresponding to GD_INDEX_ENTRY
      INTEGER GD_IXE
      PARAMETER (GD_IXE=7)
C     Corresponding to GD_POLYNOM_ENTRY
      INTEGER GD_PNE
      PARAMETER (GD_PNE=8)
C     Corresponding to GD_SBIT_ENTRY
      INTEGER GD_SBE
      PARAMETER (GD_SBE=9)
C     Corresponding to GD_DIVIDE_ENTRY
      INTEGER GD_DVE
      PARAMETER (GD_DVE=10)
C     Corresponding to GD_RECIP_ENTRY
      INTEGER GD_RCE
      PARAMETER (GD_RCE=11)
C     Corresponding to GD_CONST_ENTRY
      INTEGER GD_COE
      PARAMETER (GD_COE=16)
C     Corresponding to GD_CARRAY_ENTRY
      INTEGER GD_CAE
      PARAMETER (GD_CAE=18)
C     Corresponding to GD_STRING_ENTRY
      INTEGER GD_STE
      PARAMETER (GD_STE=17)

C Data types -- the unsigned types won't work when passed as
C               a return type, but we keep them anyways, since
C               they might appear as a result of calling GDGERW
C     Corresponding to GD_NULL
      INTEGER GD_NUL
      PARAMETER (GD_NUL=0)
C     Corresponding to GD_UINT8
      INTEGER GD_U8
      PARAMETER (GD_U8=1)
C     Corresponding to GD_INT8
      INTEGER GD_I8
      PARAMETER (GD_I8=33)
C     Corresponding to GD_UINT16
      INTEGER GD_U16
      PARAMETER (GD_U16=2)
C     Corresponding to GD_INT16
      INTEGER GD_I16
      PARAMETER (GD_I16=34)
C     Corresponding to GD_UINT32
      INTEGER GD_U32
      PARAMETER (GD_U32=4)
C     Corresponding to GD_INT32
      INTEGER GD_I32
      PARAMETER (GD_I32=36)
C     Corresponding to GD_UINT64
      INTEGER GD_U64
      PARAMETER (GD_U64=8)
C     Corresponding to GD_INT64
      INTEGER GD_I64
      PARAMETER (GD_I64=40)
C     Corresponding to GD_FLOAT32
      INTEGER GD_F32
      PARAMETER (GD_F32=132)
C     Corresponding to GD_FLOAT64
      INTEGER GD_F64
      PARAMETER (GD_F64=136)
C     Corresponding to GD_COMPLEX64
      INTEGER GD_C64
      PARAMETER (GD_C64=264)
C     Corresponding to GD_COMPLEX128
      INTEGER GDC128
      PARAMETER (GDC128=272)

C Delete flags
C     Corresponding to GD_DEL_META
      INTEGER GDD_MT
      PARAMETER (GDD_MT=1)
C     Corresponding to GD_DEL_DATA
      INTEGER GDD_DT
      PARAMETER (GDD_DT=2)
C     Corresponding to GD_DEL_DEREF
      INTEGER GDD_DR
      PARAMETER (GDD_DR=4)
C     Corresponding to GD_DEL_FORCE
      INTEGER GDD_FO
      PARAMETER (GDD_FO=8)

C Protection levels
C     Corresponding to GD_PROTECT_NONE
      INTEGER GDPR_N
      PARAMETER (GDPR_N=0)
C     Corresponding to GD_PROTECT_FORMAT
      INTEGER GDPR_F
      PARAMETER (GDPR_F=1)
C     Corresponding to GD_PROTECT_DATA
      INTEGER GDPR_D
      PARAMETER (GDPR_D=2)
C     Corresponding to GD_PROTECT_ALL
      INTEGER GDPR_A
      PARAMETER (GDPR_A=3)

C Callback actions
C     Corresponding to GD_SYNTAX_ABORT
      INTEGER GDSX_A
      PARAMETER (GDSX_A=0)
C     Corresponding to GD_SYNTAX_RESCAN
      INTEGER GDSX_S
      PARAMETER (GDSX_S=1)
C     Corresponding to GD_SYNTAX_IGNORE
      INTEGER GDSX_I
      PARAMETER (GDSX_I=2)
C     Corresponding to GD_SYNTAX_CONTINUE
      INTEGER GDSX_C
      PARAMETER (GDSX_C=3)

C Syntax suberrors
C     Corresponding to GD_E_FORMAT_BAD_SPF
      INTEGER GDF_SF
      PARAMETER (GDF_SF=1)
C     Corresponding to GD_E_FORMAT_N_FIELDS
      INTEGER GDF_NF
      PARAMETER (GDF_NF=2)
C     Corresponding to GD_E_FORMAT_N_TOK
      INTEGER GDF_NT
      PARAMETER (GDF_NT=3)
C     Corresponding to GD_E_FORMAT_NUMBITS
      INTEGER GDF_NB
      PARAMETER (GDF_NB=4)
C     Corresponding to GD_E_FORMAT_BITNUM
      INTEGER GDF_BN
      PARAMETER (GDF_BN=5)
C     Corresponding to GD_E_FORMAT_BITSIZE
      INTEGER GDF_SZ
      PARAMETER (GDF_SZ=6)
C     Corresponding to GD_E_FORMAT_CHARACTER
      INTEGER GDF_CH
      PARAMETER (GDF_CH=7)
C     Corresponding to GD_E_FORMAT_BAD_LINE
      INTEGER GDF_LI
      PARAMETER (GDF_LI=8)
C     Corresponding to GD_E_FORMAT_RES_NAME
      INTEGER GDF_RN
      PARAMETER (GDF_RN=9)
C     Corresponding to GD_E_FORMAT_ENDIAN
      INTEGER GDF_EN
      PARAMETER (GDF_EN=10)
C     Corresponding to GD_E_FORMAT_BAD_TYPE
      INTEGER GDF_TY
      PARAMETER (GDF_TY=11)
C     Corresponding to GD_E_FORMAT_BAD_NAME
      INTEGER GDF_NA
      PARAMETER (GDF_NA=12)
C     Corresponding to GD_E_FORMAT_UNTERM
      INTEGER GDF_UM
      PARAMETER (GDF_UM=13)
C     Corresponding to GD_E_FORMAT_METARAW
      INTEGER GDF_MR
      PARAMETER (GDF_MR=14)
C     Corresponding to GD_E_FORMAT_NO_PARENT
      INTEGER GDF_PA
      PARAMETER (GDF_PA=15)
C     Corresponding to GD_E_FORMAT_DUPLICATE
      INTEGER GDF_DU
      PARAMETER (GDF_DU=16)
C     Corresponding to GD_E_FORMAT_LOCATION
      INTEGER GDF_LO
      PARAMETER (GDF_LO=17)
C     Corresponding to GD_E_FORMAT_PROTECT
      INTEGER GDF_PR
      PARAMETER (GDF_PR=18)
C     Corresponding to GD_E_FORMAT_LITERAL
      INTEGER GDF_LT
      PARAMETER (GDF_LT=19)

C Special version codes
C     Corresponding to GD_VERSION_CURRENT
      INTEGER GDSV_C
      PARAMETER (GDSV_C=-1)
C     Corresponding to GD_VERSION_LATEST
      INTEGER GDSV_L
      PARAMETER (GDSV_L=-2)
C     Corresponding to GD_VERSION_EARLIEST
      INTEGER GDSV_E
      PARAMETER (GDSV_E=-3)

C Miscellaneous parameters
C     Corresponding to GD_MAX_LINE_LENGTH
      INTEGER GD_MLL
      PARAMETER (GD_MLL=4096)
C     Corresponding to GD_ALL_FRAGMENTS
      INTEGER GD_ALL
      PARAMETER (GD_ALL=-1)
C     Corresponding to GD_DIRFILE_STANDARDS_VERSION
      INTEGER GD_DSV
      PARAMETER (GD_DSV=8)


C Externals
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_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_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_sbit(3)
      EXTERNAL GDADSB
C     Corresponding to gd_add_spec(3)
      EXTERNAL GDADSP
C     Corresponding to gd_add_string(3)
      EXTERNAL GDADST
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_lincom(3)
      EXTERNAL GDALLC
C     Correpsonding to gd_alter_linterp(3)
      EXTERNAL GDALLT
C     Correpsonding to gd_alter_multiply(3)
      EXTERNAL GDALMT
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_sbit(3)
      EXTERNAL GDALSB
C     Correpsonding to gd_alter_spec(3)
      EXTERNAL GDALSP
C     Corresponding to gd_alter_protection(3)
      EXTERNAL GDAPRT
C     Alter a scalar parameter
      EXTERNAL GDASCA
C     Corresponding to gd_carray_len(3)
      EXTERNAL GDCALN
C     Corresponding to gd_parser_callback(3)
      EXTERNAL GDCLBK
C     Corresponding to gd_close(3)
      EXTERNAL GDCLOS
C     Corresponding to gd_copen(3)
      EXTERNAL GDCOPN
C     Check whether an entry contains complex scalars
      EXTERNAL GDCSCL
C     Correpsonding to gd_delete(3)
      EXTERNAL GDDELE
C     Corresponding to gd_discard(3)
      EXTERNAL GDDSCD
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_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_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 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 SBIT fields
      EXTERNAL GDGESB
C     Corresponding to gd_getdata(3)
      EXTERNAL GDGETD
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     Corresponding to gd_get_carray(3)
      EXTERNAL GDGTCA
C     Corresponding to gd_get_constant(3)
      EXTERNAL GDGTCO
C     Corresponding to gd_get_string(3)
      EXTERNAL GDGTST
C     Corresponding to gd_include(3)
      EXTERNAL GDINCL
C     Corresponding to gd_invalid_dirfile(3)
      EXTERNAL GDINVD
C     Corresponding to gd_madd_bit(3)
      EXTERNAL GDMDBT
C     Corresponding to gd_madd_carray(3)
      EXTERNAL GDMDCA
C     Corresponding to complex valued 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_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_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_sbit(3)
      EXTERNAL GDMDSB
C     Corresponding to gd_madd_spec(3)
      EXTERNAL GDMDSP
C     Corresponding to gd_madd_string(3)
      EXTERNAL GDMDST
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     Corresponding to gd_mvector_list(3) (sort of)
      EXTERNAL GDMVEN
C     Corresponding to gd_dirfilename(3)
      EXTERNAL GDNAME
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_nmfields(3)
      EXTERNAL GDNMFD
C     Corresponding to gd_nmfields_by_type(3)
      EXTERNAL GDNMFT
C     Corresponding to gd_nmvectors(3)
      EXTERNAL GDNMVE
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     Corresponding to gd_put_string(3)
      EXTERNAL GDPTST
C     Corresponding to gd_putdata(3)
      EXTERNAL GDPUTD
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     Corresponding to gd_dirfile_standards(3)
      EXTERNAL GDSTDV
C     Corresponding to gd_uninclude(3)
      EXTERNAL GDUINC
C     Corresponding to gd_vector_list(3) (sort of)
      EXTERNAL GDVECN
C     Corresponding to gd_validate(3)
      EXTERNAL GDVLDT