C Common file for Fast Tape reader program

C Data Record info & buffer
      INTEGER MaxSize                     ! Maximum buffer size
      PARAMETER (MaxSize=9000)            ! in 16 bit words
      INTEGER MaxSizeB                    ! same, but in bytes
      PARAMETER (MaxSizeB = MaxSize*2)

      INTEGER*2 IB(MaxSize)  ! main 1 Sec buffer
      INTEGER*4 RecNum_com   ! pointer to next loc within input file
      INTEGER*4 Time_Offset  ! data starting time
      INTEGER*4 Time_Now     ! this this record's time tag
      INTEGER*4 Time_Last    ! for time jump checks
      INTEGER Dig_Size(10),Ana_Size(80)  ! size of each sub-buffer this sec
      INTEGER Dig_Start(10),Ana_Start(80)  ! starting loc within IB() for each sub-buffer
      INTEGER RA_Sel
      LOGICAL RA_OK,Init
      CHARACTER*6 Bad_Sec

      COMMON /BUFcom/
     &              IB,RecNum_com,Time_Offset,Time_Now,Time_Last,
     &              Dig_Size,Ana_Size,Dig_Start,Ana_Start,
     &              RA_Sel,RA_OK,Init,Bad_Sec

C Nav data
      INTEGER INE_Sel        ! select INE 1 or 2, filled by Config File
      INTEGER*4 Raw_INE1(10,40), INE_Over1(10), INE_Cnt1
      INTEGER*4 Raw_INE2(10,40), INE_Over2(10), INE_Cnt2
      REAL Hdg(40),Pitch(40),Roll(40),Alt(40),OldAlt(4)

      COMMON /INEcom/
     &               INE_Sel,Raw_INE1,INE_Over1,INE_Cnt1,Raw_INE2,
     &               INE_Over2,INE_Cnt2,Hdg,Pitch,Roll,Alt,OldAlt

C Velocities and Accelerations
      REAL NVel(40),NAcc(40),NVLast,NJerk,NALast  ! earth referenced
      REAL EVel(40),EAcc(40),EVLast,EJerk,EALast
      REAL VVel(40),VAcc(40),VVLast,VJerk,VALast
      REAL Vz(40),Nz(40),VzLast,VzJerk,NzLast      ! aircraft referenced
      REAL Alt2VelFilt,Acc2VelFilt,RMS_Sum  ! long term velocity filters
      REAL OldVAcc(4),Kprop,Kinteg,Kderiv
      INTEGER RMS_Cnt

      COMMON /Velcom/
     &               NVel,NAcc,NVLast,NJerk,NALast,
     &               EVel,EAcc,EVLast,EJerk,EALast,
     &               VVel,VAcc,VVLast,VJerk,VALast,
     &               Vz,Nz,VzLast,VzJerk,NzLast,
     &               Alt2VelFilt,Acc2VelFilt,RMS_Sum,
     &               OldVAcc,Kprop,Kinteg,Kderiv,
     &               RMS_Cnt

C Analog data, incl ADC conversions
      INTEGER PQchan,PSchan,VAchan
      REAL PQslp,PQoff,PSslp,PSoff
      REAL PQarray(40),PSarray(40)
      REAL OldPQ(4),OldPS(4)
      REAL AV1array(40),AV2array(40)
      REAL VSum1,VSum2,Vv1array(40),Vv2array(40)
      REAL VAslp,VAoff,VAoff_orig,IntegDiff

      COMMON /ADCcom/
     &               PQchan,PSchan,VAchan,
     &               PQslp,PQoff,PSslp,PSoff,
     &               PQarray,PSarray,OldPq,OldPS,
     &               AV1array,AV2array,
     &               VSum1,VSum2,Vv1array,Vv2array,
     &               VAslp,VAoff,VAoff_orig,IntegDiff

      REAL PQEcns(4),PSEcns(7),IASarray(40)
      REAL PAlt(40),OldPAlt(4)

      COMMON /IAScom/
     &               PQEcns,PSEcns,IASarray,
     &               PAlt,OldPAlt

C Location pointers within a Fast Tape buffer
      INTEGER FDatCnt_plc
      INTEGER FINE1Cnt_plc,FINE2Cnt_plc,FAPN232Cnt_plc
      INTEGER FGarPSCnt_plc,FGarPQCnt_plc
      INTEGER FAPN159SCnt_plc,FAPN159DCnt_plc
      INTEGER FADCCnt_plc
      INTEGER FDat_plc

      PARAMETER (FDatCnt_plc = 15)         ! Start of Counts
      PARAMETER (FINE1Cnt_plc    = FDatCnt_plc+0)
      PARAMETER (FINE2Cnt_plc    = FDatCnt_plc+1)
      PARAMETER (FAPN232Cnt_plc  = FDatCnt_plc+2)
      PARAMETER (FGarPSCnt_plc   = FDatCnt_plc+3)
      PARAMETER (FGarPQCnt_plc   = FDatCnt_plc+4)
      PARAMETER (FAPN159SCnt_plc = FDatCnt_plc+5)
      PARAMETER (FAPN159DCnt_plc = FDatCnt_plc+6)
      PARAMETER (FADCCnt_plc     = FDatCnt_plc+10) ! ADC Chan Counts (80 wds)
      PARAMETER (FDat_plc        = FDatCnt_plc+90)  ! Fast data starting place