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