PROGRAM EXTSTR IMPLICIT REAL*4 (A-I,K-V), INTEGER*4 (J) C WRITE(*,501) 501 FORMAT(1X,'ENTER STRATA LOWER BOUND') READ(*,500) LFAMT WRITE(*,502) 502 FORMAT(1X,'ENTER STRATA UPPER BOUND') READ(*,500) UFAMT 500 FORMAT(F4.2) OPEN(UNIT=1,FILE="extrc86.dat") OPEN(UNIT=2,FILE="ex86110.dat") JC=0 DO 10 JN=1,6253 READ(1,400) YEAR,IDENT,FAMTC,TENUR,C1,C2,C12,C3,C4, + C34,C5,C6,C7,C8,C78,C5678,Y,P1,P2,P12,P3,P4,P34,P5,P6,P7, + P8,P78,P5678 400 FORMAT(F4.0,F7.0,F4.2,F3.0,25G15.7) IF (FAMTC.LT.LFAMT) GO TO 10 IF (FAMTC.GE.UFAMT) GO TO 10 2 CONTINUE WRITE(2,401) YEAR,IDENT,FAMTC,TENUR,C12,C34,C5,C6,C78,Y, + P12,P34,P5,P6,P78 401 FORMAT(F4.0,1X,F7.0,1X,F4.2,1X,F3.0,1X,11G15.7) JC=JC+1 10 CONTINUE 1 CONTINUE WRITE(*,503) JC 503 FORMAT(I6) CLOSE(1) CLOSE(2) STOP END