      REAL B(11)
      CHARACTER*190 A

C OPEN NEW FILES

      OPEN(1,FILE='KIM.DAT',STATUS='OLD')
      OPEN(2,FILE='DKIM.DAT',STATUS='NEW')

C READ IN THE NUMBER OF LINES TO SKIP AND READ

      DO 600 LKK=1,32

      READ(1,*)NS,NR
      WRITE(2,*)NS,NR
      DO 30 I=1,NS
      READ(1,22)A
   30 CONTINUE

      DO 31 I=1,NR
      READ(1,*)NN,(B(IJ),IJ=1,6)
      WRITE(2,23)NN,(B(IJ),IJ=1,6)
   31 CONTINUE

  600 CONTINUE
      
C TERMINATE PROGRAM

   22 FORMAT(A)
   90 FORMAT(2I3)
   23 FORMAT(1X,I4,1X,6(E12.6,1X))
  100 CONTINUE

      STOP
      END
