C SUB-RTN TO READ DATA RECORDS
      SUBROUTINE IN
      DIMENSION INP(2100),IOP(2100),IOB(2100)
        COMMON INP,IOP,IOB
      DO 100 KM=1,2100
      INP(KM)=0
      IOP(KM)=0
      IOB(KM)=0
100   CONTINUE
      DO 500 KS=1,2048
      LL=2049-KS
      INP(KS)=LL
500   CONTINUE
101   RETURN
      END