      REAL B(20),C(10),D(5),E(5)
      CHARACTER*190 A


      OPEN(1,FILE='UP2030.DMO',STATUS='OLD')
      OPEN(2,FILE='DUP2030.DMO',STATUS='NEW')

C READ IN THE NUMBER OF LINES TO SKIP AND READ


      READ(1,*)NS,NR
      WRITE(2,*)NS,NR
C READ IN LINES TO BE SKIPPED IN A DUMMY VARIABLE A

      DO 50 I=1,NS
      READ(1,22)A
   50 CONTINUE

      READ(1,*)N,F
      WRITE(2,*)N,F

      READ(1,*)NS,NR
      WRITE(2,*)NS,NR
C READ IN LINES TO BE SKIPPED IN A DUMMY VARIABLE A

      DO 60 I=1,NS
      READ(1,22)A
   60 CONTINUE


C READ IN DATA AND WRITE TO OUTPUT FILE
      DO 53 KL=1,NR
      READ(1,*)(B(IJ),IJ=1,6)
      WRITE(2,30)(B(IJ),IJ=1,6)
   30 FORMAT(1X,6(F14.6,1X))
   53 CONTINUE


C TERMINATE PROGRAM

   22 FORMAT(A)
   90 FORMAT(2I3)
  100 CONTINUE

      STOP
      END
