C REMHEADER.F - FOR REMOVING THE HEADER RECORDS FROM THE DATA FILE
C
      CHARACTER*1 CTEMP
      INTEGER*4 I,STATUS
      OPEN(UNIT=3,FILE='Data.final',READONLY)
      OPEN(UNIT=4,FILE='data.only')
      DO 10 I=1,32426120
      STATUS=FGETC(3,CTEMP)
      IF (I .LT. 5601) GOTO 10
C SKIP HEADER =80CHAR*70 REC
      STATUS=FPUTC(4,CTEMP)
   10 CONTINUE
      END