upgrade ast 8.7.1

1 files changed, 790 insertions, 0 deletions

diff --git a/ast/ast_par.source b/ast/ast_par.source
new file mode 100644
index 0000000..32de376
--- /dev/null
+++ b/ast/ast_par.source
@@ -0,0 +1,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
+