C      FILE VPLOT.INC     
C 
C      variables storing per scan information 
C      needed for communications between VPLOT and 
C      data manipulation subroutines. 
C 
C             VERSION 1.1  29 AUGUST 1988 
C 
C The following common block contains all of the scan by scan data 
C 
      INTEGER *4 CNT
      PARAMETER ( CNT = 400)
      INTEGER *4 STAR(CNT), BASE(CNT), FILT(4), NDFRATIO(4)
      INTEGER *4 ISCAN, REC0(CNT), REC1(CNT), DREC(CNT), SCANLIST(CNT)
      INTEGER *4 NDFSTATUS(CNT), BAD(CNT), FORMATID
      INTEGER *4 SCAN0, SCAN1, DAY, MONTH, YEAR, OKSCAN(CNT)
      REAL *4  DEC(CNT), HOURS (CNT), DELAY(CNT), ZD(CNT), HA(CNT)
      REAL *4  MA(CNT), SCAL(CNT,4), PCAL(CNT,4), DARKFIT(CNT,4)
      REAL *4  VCAL(CNT,4), BDEN(CNT,4), BRMS(CNT,4), D(CNT,4)
      REAL *4  DUTYC(CNT), SIG_PHOT(CNT,4)
      REAL *4  VIS(CNT,4), NLOCK(CNT), DJITTER(CNT), VEST(CNT,4)
      REAL *4  TJITTER(CNT), PHI(CNT,2), SCIN(CNT,4), VSIG(CNT,4)
      REAL *4  DARKAVG(CNT,4), DARKOFF(CNT,4), DARKRMS(CNT,4)
      LOGICAL  WLIN(CNT)
      COMMON /SCANS/ ISCAN, REC0, REC1, DREC, HOURS, DELAY, ZD, HA, DEC,
     $               MA, STAR, BASE, BDEN, BRMS, D, VIS, VCAL, DJITTER,
     $               TJITTER, SCAL, PCAL, DARKFIT, NDFSTATUS, BAD,
     $               PHI, SCIN, NLOCK, DUTYC, SIG_PHOT, OKSCAN, WLIN,
     $               VEST, SCANLIST, SCAN0, SCAN1, VSIG, DAY, MONTH,
     $               YEAR, FILT, NDFRATIO, DARKAVG, DARKOFF, DARKRMS
C
C  Character variables must have their own common block
C
      CHARACTER * 7 FILTERID(4)
      CHARACTER * 8 STARNAME(100)
      CHARACTER *11 DATE
      CHARACTER *56 COMMENT(5)
      CHARACTER *80 FNAME, SNAME, PNAME
      COMMON /FID/ FILTERID, FNAME, SNAME, PNAME, DATE, STARNAME,
     $             COMMENT
C
C  The following common block contains all of the star by star data
C
      INTEGER *4 NSTAR, NBASE
      INTEGER *4 SLIST(100), BLIST(5), FORMATID
      REAL *4 MAG(100), BV(100), ANGDIA(100), DELTAM(100), DELTABV(100)
      COMMON /LISTS/ MAG, BV, ANGDIA, NSTAR, NBASE, SLIST, BLIST,
     $               DELTAM, DELTABV
C
C   Variables needed for the calibration curves
C
      INTEGER *4 NFIT
      PARAMETER (NFIT = 900 )
      INTEGER *4 CALTYPE, SEEING_TYPE, NCALSTAR, NFREE(4,6)
      INTEGER *4 CALSTAR(200), NCALSCAN(4)
      REAL *4 SEEING_COEF(3,4), ZD_COEF(0:3,4), CAL_CHISQ(4), CAL_RMS(4)
      REAL *4 MAG0(4), CTERM(4), SYS_CAL(4), CAL_ERR(4)
      REAL *4 TCAL(NFIT,4), HCAL(NFIT,4), ZCAL(NFIT,4)
      REAL *4 MCAL(NFIT,4), FCAL(NFIT,4), NCAL(NFIT,4)
      REAL *4 TCAL0, TCAL1, HCAL0, HCAL1, ZCAL0, ZCAL1
      REAL *4 MCAL0, MCAL1, FCAL0, FCAL1, NCAL0, NCAL1
      COMMON /CALBLK/ SEEING_TYPE, SEEING_COEF, ZD_COEF,
     $                CAL_CHISQ, CAL_RMS, MAG0, CTERM,
     $                TCAL,  HCAL,  ZCAL,  MCAL,  FCAL,  NCAL,
     $                TCAL0, HCAL0, ZCAL0, MCAL0, FCAL0, NCAL0,
     $                TCAL1, HCAL1, ZCAL1, MCAL1, FCAL1, NCAL1,
     $                NCALSTAR, CALSTAR, NCALSCAN,
     $                NFREE,  SYS_CAL, CAL_ERR
C
C    Point calibration stuff
C
      REAL *4 DVDP(4), PHIMAX, PHIMIN, PHIREF, PHIPEAK(2)
      COMMON /PSTUFF/  DVDP, PHIMAX, PHIMIN, PHIREF, PHIPEAK
C
C   Quality control stuff.  Stored so that it can be output by 
C   SUMMARY.
C
      REAL *4 NCAL_RMS(4), D_RMS(4), D_CHISQ(4), D_RANGE(2,4)
      INTEGER *4  D_ORDER(2,4), COHINT, IDUSK, IDAWN
      COMMON /SUMRY/ NCAL_RMS, D_RMS, D_CHISQ, D_RANGE, D_ORDER,
     $               COHINT, IDUSK, IDAWN
C
C    Other stuff
C
      REAL *4 WAVE(4)
      INTEGER *4 IROOT
      COMMON /MISC/ WAVE, IROOT
C
C        --- END OF VPLOT.INC ---