text:       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
  