C ELLIPSE.INC

      LOGICAL PLOT,OK,ISTERM,TICKS,DOTS,DELETE(MAXPTS),SHOWDEL,ELLFIT
      LOGICAL TRUFIT, ERRFIT
C
      CHARACTER*1   ANSWER, COMND
      CHARACTER*3   STATE
      CHARACTER*6   TSTRING(MAXPTS)
      CHARACTER*10  ORBSENSE
      CHARACTER*165 LEGND1
      CHARACTER*80  LEGND2, STARNAME, TITLE(6)
      CHARACTER*64  UNITS
      CHARACTER*8   PLOTFILE
      CHARACTER*128 DATAFILE, OUTFILE
C
      INTEGER*2 BLANK
      INTEGER*4 LINEWD, NFONT, NPTS, IER, FK5, SENSE, DEL_COUNT
      INTEGER*4 PGBEGIN
C THESE ARE REAL*4 BECAUSE PLOT PACKAGE USES SINGLE PRECISION
      REAL*4  XR, YR     
      REAL*4  RADRA1(2), DECDRA1(2), RADDEC1(2), DECDDEC1(2)
      REAL*4  ARA(2), ADEC(2), BRA(2), BDEC(2), CRA, CDEC
      REAL*4  RAMIN, RAMAX, DECMIN, DECMAX
      REAL*4  RALO, RAHI, DECLO, DECHI
      REAL*4  RA_ELL4(ELLPTS), DEC_ELL4(ELLPTS)
      REAL*4  RA_MOD(ELLPTS), DEC_MOD(ELLPTS)
C
      REAL*8  A_APP, B_APP, E_APP, A_ANGLE 
      REAL*8  R_ELL(ELLPTS), THETA_ELL(ELLPTS), THETA_LINE 
      REAL*8  RA_ELL(ELLPTS), DEC_ELL(ELLPTS), THETA_PT(ELLPTS)
      REAL*8  AREA(ELLPTS), TIME(ELLPTS), CUM_AREA(ELLPTS)
      REAL*8  THETA_EST(MAXPTS), R_EST(MAXPTS)
      REAL*8  RAINT, DECINT, DIST1, DIST2, CHISQ
      REAL*8  ROBS(MAXPTS), THETAOBS(MAXPTS)
      REAL*8  DRA(MAXPTS), DDEC(MAXPTS), PHI_ERR(MAXPTS)
      REAL*8  DELRA(MAXPTS), DELDEC(MAXPTS)
      REAL*8  RA(MAXPTS), DEC(MAXPTS), RADRA(2,MAXPTS), DECDRA(2,MAXPTS)
      REAL*8  RADDEC(2,MAXPTS), DECDDEC(2,MAXPTS)
      REAL*8  RA_EST(MAXPTS), DEC_EST(MAXPTS)
      REAL*8  RADTH(-3:3,MAXPTS), DECDTH(-3:3,MAXPTS)
      REAL*8  T_ZERO, AREA_ELL, AREA_TIME
      REAL*8  X_TI_1, Y_TI_1, X_TI_2, Y_TI_2
      REAL*8  RADUMMY(2),DECDUMMY(2)
C
      REAL*8  UT(MAXPTS), JULDAY(MAXPTS), GMST(MAXPTS), TOBS(MAXPTS)
      REAL*8  TOBSMOD(MAXPTS)
      REAL*8  PARS(NPARS), VALS(NPARS), ENDMRK
      REAL*8  TOBSREF, CUM_TIME(ELLPTS)
      REAL*8  PERIOD, EPOCH, E_TRUE, A_TRUE, INCLIN, ARG_PERI, ASC_NODE
      REAL*8  ABEST(7)
C
      COMMON    /XLOGIC/ 
     1             PLOT,OK,ISTERM,TICKS,DOTS,DELETE,SHOWDEL,ELLFIT,
     2             TRUFIT, ERRFIT
      COMMON    /XCHAR/ 
     1             ANSWER, COMND,   STATE,                   
     2             TSTRING,         ORBSENSE,
     3             LEGND1,          LEGND2, TITLE, STARNAME, 
     4             UNITS,           PLOTFILE,
     5             DATAFILE,OUTFILE
C      COMMON    /XINT2/ 
C     1             BLANK
      COMMON    /XINT4/ 
     1             INSTA, INSORC, 
     2             LINEWD, NFONT, NPTS, IER, FK5, SENSE, DEL_COUNT
      COMMON    /REAL4_1/
     1             XR,YR,
     2             RADRA1, DECDRA1, RADDEC1, DECDDEC1,
     3             ARA, ADEC, BRA, BDEC, CRA, CDEC,
     4             RAMIN, RAMAX, DECMIN, DECMAX
      COMMON    /REAL4_2/
     1             RALO, RAHI, DECLO, DECHI,
     2             RA_ELL4(ELLPTS), DEC_ELL4(ELLPTS), 
     3             RA_MOD(ELLPTS), DEC_MOD(ELLPTS)
      COMMON    /REAL8_1/
     1             A_APP, B_APP, E_APP, A_ANGLE, 
     2             R_ELL, THETA_ELL, THETA_LINE, 
     3             RA_ELL, DEC_ELL, THETA_PT,
     4             AREA, TIME, CUM_AREA,
     5             THETA_EST, R_EST 
      COMMON    /REAL8_2/
     1             RAINT, DECINT, DIST1, DIST2, CHISQ,
     2             ROBS, THETAOBS, 
     3             DRA, DDEC, PHI_ERR,
     4             DELRA, DELDEC,
     5             RA, DEC, RADRA, DECDRA,
     6             RADDEC, DECDDEC,
     7             RA_EST, DEC_EST
      COMMON    /REAL8_3/
     1             RADTH, DECDTH, 
     2             T_ZERO, AREA_ELL, AREA_TIME,
     3             X_TI_1, Y_TI_1, X_TI_2, Y_TI_2,
     4             RADUMMY, DECDUMMY
      COMMON    /REAL8_4/
     1             UT, JULDAY, GMST, TOBS, 
     2             TOBSMOD,
     3             PARS, VALS, ENDMRK,
     4             TOBSREF, CUM_TIME
      COMMON    /REAL8_5/
     1             PERIOD, EPOCH, E_TRUE, A_TRUE, INCLIN, ARG_PERI, 
     2                                                        ASC_NODE,
     3             ABEST
C
C    +++++++++++++++++++PLOT.INC+++++++++++++++++++
C  To make hardcopies with the cal-tek graphics package, the user
C  must specify a file to store the graphics commands and then
C  copy /b those files to the printer.  For each hardcopy plot a 
C  new file name must be specified.  This include statement sets
C  up a file name that will be incremented each time a plot is
C  made in any subroutine.
C
      CHARACTER*4 PLOT_DEV
      INTEGER*4   NPLOTS
      COMMON /HCPBLK/ NPLOTS
      COMMON /PFILE  / PLOT_DEV

C    ++++++++++++++++++++++++++++++++++++++++++++++

      EXTERNAL PGBEGIN