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


      OPEN(1,FILE='3DBL.DAT',STATUS='OLD')
      OPEN(2,FILE='D3DBL.DAT',STATUS='OLD')

C READ IN THE NUMBER OF LINES TO SKIP AND READ

      DO 200 MM=1,12

      READ(1,*)NS,NR
      WRITE(2,*)NS,NR
      WRITE(*,*)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

C READ IN DATA AND WRITE TO OUTPUT FILE
      DO 53 KL=1,NR
      READ(1,*)KK,(B(IJ),IJ=1,20)
      WRITE(2,30)KK,(B(IJ),IJ=1,20)
   30 FORMAT(I3,1X,20(F7.4,1X))
   53 CONTINUE

  200 CONTINUE

C TERMINATE PROGRAM

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

      STOP
      END
