summaryrefslogtreecommitdiffstats
path: root/ast/ast_par.source
blob: 32de3762561ae19db1ed8cef6e4eed6abe2c1de4 (plain)
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
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
*+
*  Name:
*     AST_PAR

*  Purpose:
*     Define the Fortran 77 interface to the AST library.

*  Language:
*     Fortran 77

*  Type of Module:
*     Include file.

*  Description:
*     This file contains definitions which are required by Fortran 77
*     programs which use the AST library.

*  Authors:
*     RFWS: R.F. Warren-Smith (STARLINK)
*     MBT: Mark Taylor (STARLINK)
*     DSB: David S. Berry

*  History:
*     12-NOV-1996 (RFWS):
*        Original version.
*     18-MAR-1998 (RFWS):
*        Added definitions for the IntraMap class.
*     21-DEC-1998 (RFWS):
*        Added resampling definitions for the Mapping class.
*     15-NOV-1999 (RFWS):
*        Added definitions for PcdMap.
*     24-NOV-2000 (MBT):
*        Added AST__BLOCKAVE interpolation scheme.
*     22-JUN-2001 (DSB):
*        Added AST_OFFSET2 and AST_ANGLE to Frame class.
*     6-SEP-2001 (DSB):
*        Added AST_AXDISTANCE and AST_AXOFFSET to Frame class.
*     12-SEP-2001 (DSB):
*        Added AST_BEAR to Frame class.
*     21-SEP-2001 (DSB):
*        Replaced AST_BEAR by AST_AXANGLE.
*     28-JAN-2003 (DSB):
*        Added AST_GETACTIVEUNIT.
*     14-FEB-2003 (DSB):
*        Added new values for WcsMap projections.
*     30-APR-2003 (DSB):
*        Added AST_VERSION.
*     15-JUL-2003 (DSB):
*        Added AST_RATE, POLYMAP, SHIFTMAP and GRISMMAP functions.
*     13-NOV-2003 (DSB):
*        Added XmlChan class.
*     9-NOV-2004 (DSB):
*        Added all initial Region classes.
*     19-NOV-2004 (DSB):
*        Added KeyMap.
*     16-JUN-2005 (DSB):
*        Added TimeMap and TimeFrame.
*     1-SEP-2005 (DSB):
*        Added AST__REBININIT and AST__REBINNORM.
*     17-FEB-2006 (DSB):
*        Added AST_ESCAPES.
*     9-FEB-2007 (DSB):
*        Use a double precision constant to initialise AST__UNDEFF.
*     4-DEC-2008 (TIMJ):
*        Add AST_TESTFITS. Remove AST__UNDEF<X>
*     6-FEB-2009 (DSB):
*        Added StcsChan class.
*     26-OCT-2016 (DSB):
*        Make angle constants double precision.
*-

*  Length of character string returned by a character function.
      INTEGER AST__SZCHR
      PARAMETER ( AST__SZCHR = 200 )

*  Bad coordinate value.
      DOUBLE PRECISION AST__BAD
      PARAMETER ( AST__BAD = <AST__BAD> )

*  Double precision NaN flag (this value is not actually a NaN itself).
      DOUBLE PRECISION AST__NAN
      PARAMETER ( AST__NAN = <AST__NAN> )

*  Single precision NaN flag (this value is not actually a NaN itself).
      REAL AST__NANR
      PARAMETER ( AST__NANR = <AST__NANR> )

*  Error module.
      LOGICAL AST_OK
      INTEGER AST_STATUS

*  Object class.
      EXTERNAL AST_NULL
      INTEGER AST__NULL
      PARAMETER ( AST__NULL = 0 )

      INTEGER AST__TUNULL
      PARAMETER ( AST__TUNULL = -99999 )


      CHARACTER AST__TUNULLC*11
      PARAMETER ( AST__TUNULLC = '<NOTUNEPAR>' )

      CHARACTER * ( AST__SZCHR ) AST_GETC
      DOUBLE PRECISION AST_GETD
      INTEGER AST_CLONE
      INTEGER AST_COPY
      LOGICAL AST_EQUAL
      INTEGER AST_GETI
      INTEGER AST_VERSION
      LOGICAL AST_GETL
      LOGICAL AST_ISAOBJECT
      LOGICAL AST_TEST
      LOGICAL AST_HASATTRIBUTE
      LOGICAL AST_SAME
      INTEGER AST_TUNE
      REAL AST_GETR
      LOGICAL AST_CHRSUB

*  Channel class.
      INTEGER AST_CHANNEL
      INTEGER AST_READ
      INTEGER AST_WRITE
      LOGICAL AST_ISACHANNEL
      INTEGER AST_WARNINGS

*  FitsChan class.
      INTEGER AST_FITSCHAN
      LOGICAL AST_FINDFITS
      LOGICAL AST_ISAFITSCHAN
      LOGICAL AST_GETFITSCF
      LOGICAL AST_GETFITSCI
      LOGICAL AST_GETFITSF
      LOGICAL AST_GETFITSI
      LOGICAL AST_GETFITSL
      LOGICAL AST_GETFITSS
      LOGICAL AST_GETFITSCN
      LOGICAL AST_TESTFITS
      INTEGER AST_GETTABLES

      CHARACTER AST__TABEXTNAME*7
      PARAMETER ( AST__TABEXTNAME = 'WCS-TAB' )

      INTEGER AST__NOTYPE
      PARAMETER ( AST__NOTYPE = -1 )
      INTEGER AST__COMMENT
      PARAMETER ( AST__COMMENT = 0 )
      INTEGER AST__INT
      PARAMETER ( AST__INT = 1 )
      INTEGER AST__FLOAT
      PARAMETER ( AST__FLOAT = 2 )
      INTEGER AST__STRING
      PARAMETER ( AST__STRING = 3 )
      INTEGER AST__COMPLEXF
      PARAMETER ( AST__COMPLEXF = 4 )
      INTEGER AST__COMPLEXI
      PARAMETER ( AST__COMPLEXI = 5 )
      INTEGER AST__LOGICAL
      PARAMETER ( AST__LOGICAL = 6 )
      INTEGER AST__CONTINUE
      PARAMETER ( AST__CONTINUE = 7 )
      INTEGER AST__UNDEF
      PARAMETER ( AST__UNDEF = 8 )


*  Mapping Class.
      INTEGER AST__URESAMP1
      PARAMETER ( AST__URESAMP1 = 1 )
      INTEGER AST__URESAMP2
      PARAMETER ( AST__URESAMP2 = 2 )
      INTEGER AST__URESAMP3
      PARAMETER ( AST__URESAMP3 = 4 )
      INTEGER AST__URESAMP4
      PARAMETER ( AST__URESAMP4 = 8 )
      INTEGER AST__USEVAR
      PARAMETER ( AST__USEVAR = 16 )
      INTEGER AST__USEBAD
      PARAMETER ( AST__USEBAD = 32 )
      INTEGER AST__CONSERVEFLUX
      PARAMETER ( AST__CONSERVEFLUX = 64 )
      INTEGER AST__REBININIT
      PARAMETER ( AST__REBININIT = 128 )
      INTEGER AST__REBINEND
      PARAMETER ( AST__REBINEND = 256 )
      INTEGER AST__GENVAR
      PARAMETER ( AST__GENVAR = 512 )
      INTEGER AST__VARWGT
      PARAMETER ( AST__VARWGT = 1024 )
      INTEGER AST__NOBAD
      PARAMETER ( AST__NOBAD = 2048 )
      INTEGER AST__DISVAR
      PARAMETER ( AST__DISVAR = 4096 )
      INTEGER AST__NONORM
      PARAMETER ( AST__NONORM = 8192 )
      INTEGER AST__PARWGT
      PARAMETER ( AST__PARWGT = 16384 )

      INTEGER AST__UKERN1
      PARAMETER ( AST__UKERN1 = 1 )
c  Not yet implemented
c      INTEGER AST__UKERNN
c      PARAMETER ( AST__UKERNN = 2 )
      INTEGER AST__UINTERP
      PARAMETER ( AST__UINTERP = 3 )
      INTEGER AST__NEAREST
      PARAMETER ( AST__NEAREST = 4 )
      INTEGER AST__LINEAR
      PARAMETER ( AST__LINEAR = 5 )
      INTEGER AST__SINC
      PARAMETER ( AST__SINC = 6 )
      INTEGER AST__SINCSINC
      PARAMETER ( AST__SINCSINC = 7 )
      INTEGER AST__SINCCOS
      PARAMETER ( AST__SINCCOS = 8 )
      INTEGER AST__SINCGAUSS
      PARAMETER ( AST__SINCGAUSS = 9 )
      INTEGER AST__BLOCKAVE
      PARAMETER ( AST__BLOCKAVE = 10 )
      INTEGER AST__GAUSS
      PARAMETER ( AST__GAUSS = 11 )
      INTEGER AST__SOMB
      PARAMETER ( AST__SOMB = 12 )
      INTEGER AST__SOMBCOS
      PARAMETER ( AST__SOMBCOS = 13 )

      INTEGER AST_RESAMPLEB
      INTEGER AST_RESAMPLED
      INTEGER AST_RESAMPLEI
      INTEGER AST_RESAMPLEK
      INTEGER AST_RESAMPLER
      INTEGER AST_RESAMPLES
      INTEGER AST_RESAMPLEUB
      INTEGER AST_RESAMPLEUI
      INTEGER AST_RESAMPLEUK
      INTEGER AST_RESAMPLEUS
      INTEGER AST_RESAMPLEUW
      INTEGER AST_RESAMPLEW
      INTEGER AST_REMOVEREGIONS
      INTEGER AST_SIMPLIFY
      LOGICAL AST_ISAMAPPING
      LOGICAL AST_LINEARAPPROX
      LOGICAL AST_QUADAPPROX
      DOUBLE PRECISION AST_RATE

*  CmpMap class.
      INTEGER AST_CMPMAP
      LOGICAL AST_ISACMPMAP

*  Frame class.
      CHARACTER * ( AST__SZCHR ) AST_FORMAT
      DOUBLE PRECISION AST_DISTANCE
      INTEGER AST_CONVERT
      INTEGER AST_FINDFRAME
      INTEGER AST_FRAME
      INTEGER AST_PICKAXES
      INTEGER AST_UNFORMAT
      LOGICAL AST_ISAFRAME
      LOGICAL AST_GETACTIVEUNIT
      DOUBLE PRECISION AST_ANGLE
      DOUBLE PRECISION AST_OFFSET2
      DOUBLE PRECISION AST_AXDISTANCE
      DOUBLE PRECISION AST_AXOFFSET
      DOUBLE PRECISION AST_AXANGLE

*  CmpFrame class.
      INTEGER AST_CMPFRAME
      LOGICAL AST_ISACMPFRAME

*  FrameSet class.
      INTEGER AST__BASE
      PARAMETER ( AST__BASE = 0 )
      INTEGER AST__CURRENT
      PARAMETER ( AST__CURRENT = -1 )
      INTEGER AST__NOFRAME
      PARAMETER ( AST__NOFRAME = -99 )

      INTEGER AST_FRAMESET
      INTEGER AST_GETFRAME
      INTEGER AST_GETMAPPING
      LOGICAL AST_ISAFRAMESET

*  IntraMap class.
      INTEGER AST__NOFWD
      PARAMETER ( AST__NOFWD = 1 )
      INTEGER AST__NOINV
      PARAMETER ( AST__NOINV = 2 )
      INTEGER AST__SIMPFI
      PARAMETER ( AST__SIMPFI = 4 )
      INTEGER AST__SIMPIF
      PARAMETER ( AST__SIMPIF = 8 )
      INTEGER AST__ANY
      PARAMETER ( AST__ANY = -66 )

      INTEGER AST_INTRAMAP
      LOGICAL AST_ISAINTRAMAP

*  LutMap class.
      INTEGER AST_LUTMAP
      LOGICAL AST_ISALUTMAP

*  PcdMap class.
      INTEGER AST_PCDMAP
      LOGICAL AST_ISAPCDMAP

*  Plot class.
      INTEGER AST_PLOT
      LOGICAL AST_BORDER
      INTEGER AST_GETGRFCONTEXT
      LOGICAL AST_ISAPLOT
      INTEGER AST_ESCAPES
      CHARACTER * ( AST__SZCHR ) AST_STRIPESCAPES

*  SkyFrame class.
      INTEGER AST_SKYFRAME
      LOGICAL AST_ISASKYFRAME
      INTEGER AST_SKYOFFSETMAP

*  SpecFrame class.
      INTEGER AST_SPECFRAME
      LOGICAL AST_ISASPECFRAME

*  DSBSpecFrame class.
      INTEGER AST_DSBSPECFRAME
      LOGICAL AST_ISADSBSPECFRAME

*  MathMap class.
      INTEGER AST_MATHMAP
      LOGICAL AST_ISAMATHMAP

*  MatrixMap class.
      INTEGER AST_MATRIXMAP
      LOGICAL AST_ISAMATRIXMAP

*  PermMap class.
      INTEGER AST_PERMMAP
      LOGICAL AST_ISAPERMMAP

*  PolyMap class.
      INTEGER AST_POLYMAP
      LOGICAL AST_ISAPOLYMAP
      INTEGER AST_POLYTRAN

*  SlaMap class.
      INTEGER AST_SLAMAP
      LOGICAL AST_ISASLAMAP

*  SpecMap class.
      INTEGER AST_SPECMAP
      LOGICAL AST_ISASPECMAP

*  SphMap class.
      INTEGER AST_SPHMAP
      LOGICAL AST_ISASPHMAP

*  UnitMap class.
      INTEGER AST_UNITMAP
      LOGICAL AST_ISAUNITMAP

*  WcsMap class.

      INTEGER AST__WCSMX
      PARAMETER ( AST__WCSMX = 10 )

      DOUBLE PRECISION AST__DPI
      PARAMETER ( AST__DPI = 3.1415926535897932384626433832795028842D0 )

      DOUBLE PRECISION AST__DPIBY2
      PARAMETER ( AST__DPIBY2 = 1.5707963267948966192313216916397514D0 )

      DOUBLE PRECISION AST__DD2R
      PARAMETER ( AST__DD2R = 0.017453292519943295769236907684886127D0 )

      DOUBLE PRECISION AST__DR2D
      PARAMETER ( AST__DR2D = 57.29577951308232087679815481410517033D0 )

      INTEGER AST__AIR
      PARAMETER ( AST__AIR = 9 )
      INTEGER AST__AIT
      PARAMETER ( AST__AIT = 17 )
      INTEGER AST__ARC
      PARAMETER ( AST__ARC = 6 )
      INTEGER AST__AZP
      PARAMETER ( AST__AZP = 1 )
      INTEGER AST__BON
      PARAMETER ( AST__BON = 22 )
      INTEGER AST__CAR
      PARAMETER ( AST__CAR = 12 )
      INTEGER AST__CEA
      PARAMETER ( AST__CEA = 11 )
      INTEGER AST__COD
      PARAMETER ( AST__COD = 20 )
      INTEGER AST__COE
      PARAMETER ( AST__COE = 19 )
      INTEGER AST__COO
      PARAMETER ( AST__COO = 21 )
      INTEGER AST__COP
      PARAMETER ( AST__COP = 18 )
      INTEGER AST__CSC
      PARAMETER ( AST__CSC = 25 )
      INTEGER AST__CYP
      PARAMETER ( AST__CYP = 10 )
      INTEGER AST__GLS
      PARAMETER ( AST__GLS = 28 )
      INTEGER AST__HPX
      PARAMETER ( AST__HPX = 30 )
      INTEGER AST__MER
      PARAMETER ( AST__MER = 13 )
      INTEGER AST__MOL
      PARAMETER ( AST__MOL = 16 )
      INTEGER AST__NCP
      PARAMETER ( AST__NCP = 27 )
      INTEGER AST__PAR
      PARAMETER ( AST__PAR = 15 )
      INTEGER AST__PCO
      PARAMETER ( AST__PCO = 23 )
      INTEGER AST__QSC
      PARAMETER ( AST__QSC = 26 )
      INTEGER AST__SFL
      PARAMETER ( AST__SFL = 14 )
      INTEGER AST__SIN
      PARAMETER ( AST__SIN = 5 )
      INTEGER AST__STG
      PARAMETER ( AST__STG = 4 )
      INTEGER AST__SZP
      PARAMETER ( AST__SZP = 2 )
      INTEGER AST__TAN
      PARAMETER ( AST__TAN = 3 )
      INTEGER AST__TPN
      PARAMETER ( AST__TPN = 29 )
      INTEGER AST__TSC
      PARAMETER ( AST__TSC = 24 )
      INTEGER AST__XPH
      PARAMETER ( AST__XPH = 31 )
      INTEGER AST__ZEA
      PARAMETER ( AST__ZEA = 8 )
      INTEGER AST__ZPN
      PARAMETER ( AST__ZPN = 7 )
      INTEGER AST__WCSBAD
      PARAMETER ( AST__WCSBAD = 32 )

      INTEGER AST_WCSMAP
      LOGICAL AST_ISAWCSMAP

*  ShiftMap class.
      INTEGER AST_SHIFTMAP
      LOGICAL AST_ISASHIFTMAP

*  WinMap class.
      INTEGER AST_WINMAP
      LOGICAL AST_ISAWINMAP

*  ZoomMap class.
      INTEGER AST_ZOOMMAP
      LOGICAL AST_ISAZOOMMAP

*  GrismMap class.
      INTEGER AST_GRISMMAP
      LOGICAL AST_ISAGRISMMAP

*  XmlChan class.
      INTEGER AST_XMLCHAN
      LOGICAL AST_ISAXMLCHAN

*  TranMap class.
      INTEGER AST_TRANMAP
      LOGICAL AST_ISATRANMAP

*  Region class.
      INTEGER AST_REGION
      INTEGER AST_GETUNC
      INTEGER AST_GETREGIONFRAME
      LOGICAL AST_ISAREGION
      INTEGER AST_MAPREGION
      INTEGER AST_OVERLAP
      INTEGER AST_MASKB
      INTEGER AST_MASKD
      INTEGER AST_MASKI
      INTEGER AST_MASKR
      INTEGER AST_MASKS
      INTEGER AST_MASKUB
      INTEGER AST_MASKUI
      INTEGER AST_MASKUS
      INTEGER AST_MASKUW
      INTEGER AST_MASKW

*  Box class.
      INTEGER AST_BOX
      LOGICAL AST_ISABOX

*  PointList class.
      INTEGER AST_POINTLIST
      LOGICAL AST_ISAPOINTLIST

*  Polygon class.
      INTEGER AST_POLYGON
      LOGICAL AST_ISAPOLYGON
      INTEGER AST_DOWNSIZE
      INTEGER AST_OUTLINED
      INTEGER AST_OUTLINER
      INTEGER AST_OUTLINEI
      INTEGER AST_OUTLINEUI
      INTEGER AST_OUTLINES
      INTEGER AST_OUTLINEUS
      INTEGER AST_OUTLINEW
      INTEGER AST_OUTLINEUW
      INTEGER AST_OUTLINEB
      INTEGER AST_OUTLINEUB

      INTEGER AST_CONVEXD
      INTEGER AST_CONVEXR
      INTEGER AST_CONVEXI
      INTEGER AST_CONVEXUI
      INTEGER AST_CONVEXS
      INTEGER AST_CONVEXUS
      INTEGER AST_CONVEXW
      INTEGER AST_CONVEXUW
      INTEGER AST_CONVEXB
      INTEGER AST_CONVEXUB

      INTEGER AST__LE
      PARAMETER( AST__LE = 2 )

      INTEGER AST__EQ
      PARAMETER( AST__EQ = 3 )

      INTEGER AST__GE
      PARAMETER( AST__GE = 4 )

      INTEGER AST__GT
      PARAMETER( AST__GT = 5 )

      INTEGER AST__NE
      PARAMETER( AST__NE = 6 )

*  Circle class.
      INTEGER AST_CIRCLE
      LOGICAL AST_ISACIRCLE

*  Ellipse class.
      INTEGER AST_ELLIPSE
      LOGICAL AST_ISAELLIPSE

*  Moc class.
      INTEGER AST_MOC
      LOGICAL AST_ISAMOC
      LOGICAL AST_TESTCELL
      INTEGER AST_GETMOCHEADER

*  MocChan class.
      INTEGER AST_MOCCHAN
      LOGICAL AST_ISAMOCCHAN

*  NullRegion class.
      INTEGER AST_NULLREGION
      LOGICAL AST_ISANULLREGION

*  Interval class.
      INTEGER AST_INTERVAL
      LOGICAL AST_ISAINTERVAL

*  Prism class.
      INTEGER AST_PRISM
      LOGICAL AST_ISAPRISM

*  CmpRegion class.
      INTEGER AST_CMPREGION
      LOGICAL AST_ISACMPREGION

      INTEGER AST__AND
      PARAMETER( AST__AND = 1 )

      INTEGER AST__OR
      PARAMETER( AST__OR = 2 )

      INTEGER AST__XOR
      PARAMETER( AST__XOR = 3 )

*  KeyMap class.
      INTEGER AST_KEYMAP
      LOGICAL AST_ISAKEYMAP
      LOGICAL AST_MAPGET0I
      LOGICAL AST_MAPGET0S
      LOGICAL AST_MAPGET0B
      LOGICAL AST_MAPGET0D
      LOGICAL AST_MAPGET0R
      LOGICAL AST_MAPGET0C
      LOGICAL AST_MAPGET0A
      LOGICAL AST_MAPGET1I
      LOGICAL AST_MAPGET1B
      LOGICAL AST_MAPGET1S
      LOGICAL AST_MAPGET1D
      LOGICAL AST_MAPGET1R
      LOGICAL AST_MAPGET1C
      LOGICAL AST_MAPGET1A
      LOGICAL AST_MAPGETC
      LOGICAL AST_MAPGETELEMI
      LOGICAL AST_MAPGETELEMS
      LOGICAL AST_MAPGETELEMB
      LOGICAL AST_MAPGETELEMD
      LOGICAL AST_MAPGETELEMR
      LOGICAL AST_MAPGETELEMC
      LOGICAL AST_MAPGETELEMA
      INTEGER AST_MAPSIZE
      INTEGER AST_MAPLENGTH
      INTEGER AST_MAPLENC
      INTEGER AST_MAPTYPE
      LOGICAL AST_MAPHASKEY
      LOGICAL AST_MAPDEFINED
      CHARACTER * ( AST__SZCHR ) AST_MAPKEY

      INTEGER AST__BADTYPE
      PARAMETER ( AST__BADTYPE = 0)

      INTEGER AST__INTTYPE
      PARAMETER ( AST__INTTYPE = 1)

      INTEGER AST__DOUBLETYPE
      PARAMETER ( AST__DOUBLETYPE = 2)

      INTEGER AST__STRINGTYPE
      PARAMETER ( AST__STRINGTYPE = 3)

      INTEGER AST__OBJECTTYPE
      PARAMETER ( AST__OBJECTTYPE = 4)

      INTEGER AST__FLOATTYPE
      PARAMETER ( AST__FLOATTYPE = 5)

      INTEGER AST__SINTTYPE
      PARAMETER ( AST__SINTTYPE = 7)

      INTEGER AST__UNDEFTYPE
      PARAMETER ( AST__UNDEFTYPE = 8)

      INTEGER AST__BYTETYPE
      PARAMETER ( AST__BYTETYPE = 9)

*  FluxFrame class.
      INTEGER AST_FLUXFRAME
      LOGICAL AST_ISAFLUXFRAME

*  SpecFluxFrame class.
      INTEGER AST_SPECFLUXFRAME
      LOGICAL AST_ISASPECFLUXFRAME

*  NormMap class.
      INTEGER AST_NORMMAP
      LOGICAL AST_ISANORMMAP

*  RateMap class.
      INTEGER AST_RATEMAP
      LOGICAL AST_ISARATEMAP

*  TimeFrame class.
      INTEGER AST_TIMEFRAME
      LOGICAL AST_ISATIMEFRAME
      DOUBLE PRECISION AST_CURRENTTIME

      INTEGER AST__MJD
      PARAMETER( AST__MJD    = 1  )

      INTEGER AST__JD
      PARAMETER( AST__JD     = 2  )

      INTEGER AST__JEPOCH
      PARAMETER( AST__JEPOCH = 3  )

      INTEGER AST__BEPOCH
      PARAMETER( AST__BEPOCH = 4  )

      INTEGER AST__BADTS
      PARAMETER( AST__BADTS  = 0  )

      INTEGER AST__TAI
      PARAMETER( AST__TAI    = 1  )

      INTEGER AST__UTC
      PARAMETER( AST__UTC    = 2  )

      INTEGER AST__UT1
      PARAMETER( AST__UT1    = 3  )

      INTEGER AST__GMST
      PARAMETER( AST__GMST   = 4  )

      INTEGER AST__LAST
      PARAMETER( AST__LAST   = 5  )

      INTEGER AST__LMST
      PARAMETER( AST__LMST   = 6  )

      INTEGER AST__TT
      PARAMETER( AST__TT     = 7  )

      INTEGER AST__TDB
      PARAMETER( AST__TDB    = 8  )

      INTEGER AST__TCB
      PARAMETER( AST__TCB    = 9  )

      INTEGER AST__TCG
      PARAMETER( AST__TCG    = 10 )

      INTEGER AST__LT
      PARAMETER( AST__LT     = 11 )

*  TimeMap class.
      INTEGER AST_TIMEMAP
      LOGICAL AST_ISATIMEMAP

*  Stc class.
      LOGICAL AST_ISASTC
      INTEGER AST_GETSTCREGION
      INTEGER AST_GETSTCCOORD
      INTEGER AST_GETSTCNCOORD

      CHARACTER AST__STCNAME*4
      PARAMETER ( AST__STCNAME  = 'Name' )

      CHARACTER AST__STCVALUE*5
      PARAMETER ( AST__STCVALUE = 'Value' )

      CHARACTER AST__STCERROR*5
      PARAMETER ( AST__STCERROR = 'Error' )

      CHARACTER AST__STCRES*10
      PARAMETER ( AST__STCRES   = 'Resolution' )

      CHARACTER AST__STCSIZE*4
      PARAMETER ( AST__STCSIZE  = 'Size' )

      CHARACTER AST__STCPIXSZ*7
      PARAMETER ( AST__STCPIXSZ = 'PixSize' )

*  StcSearchLocation class.
      LOGICAL AST_ISASTCSEARCHLOCATION
      INTEGER AST_STCSEARCHLOCATION

*  StcCatalogEntryLocation class.
      LOGICAL AST_ISASTCCATALOGENTRYLOCATION
      INTEGER AST_STCCATALOGENTRYLOCATION

*  StcResourceProfile class.
      LOGICAL AST_ISASTCRESOURCEPROFILE
      INTEGER AST_STCRESOURCEPROFILE

*  StcObsDataLocation class.
      LOGICAL AST_ISASTCOBSDATALOCATION
      INTEGER AST_STCOBSDATALOCATION

*  SwitchMap class.
      INTEGER AST_SWITCHMAP
      LOGICAL AST_ISASWITCHMAP

*  SelectorMap class.
      INTEGER AST_SELECTORMAP
      LOGICAL AST_ISASELECTORMAP

*  Plot3D class.
      INTEGER AST_PLOT3D
      LOGICAL AST_ISAPLOT3D

*  StcsChan class.
      INTEGER AST_STCSCHAN
      LOGICAL AST_ISASTCSCHAN

*  Table class.
      INTEGER AST_TABLE
      LOGICAL AST_ISATABLE
      LOGICAL AST_HASCOLUMN
      CHARACTER * ( AST__SZCHR ) AST_COLUMNNAME
      LOGICAL AST_HASPARAMETER
      CHARACTER * ( AST__SZCHR ) AST_PARAMETERNAME

*  FitsTable class.
      INTEGER AST_FITSTABLE
      LOGICAL AST_ISAFITSTABLE
      INTEGER AST_COLUMNNULL
      INTEGER AST_COLUMNSIZE
      INTEGER AST_GETTABLEHEADER

*  UnitNormMap class.
      INTEGER AST_UNITNORMMAP
      LOGICAL AST_ISAUNITNORMMAP

*  ChebyMap class.
      INTEGER AST_CHEBYMAP
      LOGICAL AST_ISACHEBYMAP
      INTEGER AST_CHEBYTRAN