C     VARIABLES FOR DSPOTT USAGE IN SPOTIT.FOR ADDED 6/99
      INTEGER ID,NDSPOTT,RINGTOT
      COMMON/SPOTTER/ID,NDSPOTT
C     END OF WORK ON SPOTIT.FOR
C
       REAL*8 DSPOT(1:60),RINGRAD(0:50),RINGANG(0:50)
       INTEGER RNUMBR
C
        LOGICAL APODGAUSS
        REAL*8 APODDBLOSS
        COMMON/APODLOSS/APODGAUSS,APODDBLOSS
C
      REAL*8 FCSFT,FCSFTX,FCSFTY
C
        LOGICAL STATSP
C
      COMMON/FULSTA/STATSP
C
      COMMON/FCSHFT/FCSFT,FCSFTX,FCSFTY
C
      REAL*8 OPRINGRAD(0:50),OPRINGANG(0:50),OPRINGTOT,OPRNUMBR
C
      INTEGER OPRINGPNT(0:2500),OPSPDTYPE,OPNRECT
C
      INTEGER RINGPNT(0:2500),SPDTYPE,NRECT
C
      COMMON/RINGER/RINGRAD,RINGANG,RINGPNT,RINGTOT,RNUMBR
     1,SPDTYPE,NRECT,OPSPDTYPE,
     3OPRINGRAD,OPRINGANG,OPRINGPNT,OPRINGTOT,OPRNUMBR,
     1OPNRECT
C
        COMMON/CR2/DSPOT
C
      LOGICAL LSF
C
      COMMON/LSFTF/LSF
C
      INTEGER ITOT
C
      REAL*8 DDEELL
C
      COMMON/TTTOT/ITOT,DDEELL
