summaryrefslogtreecommitdiffstats
path: root/ast/ast_par.source
diff options
context:
space:
mode:
Diffstat (limited to 'ast/ast_par.source')
-rw-r--r--ast/ast_par.source790
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
+