PROGRAM Rdfbintoasc INTEGER*2 KAP(25,57,12) OPEN(UNIT=9,STATUS='OLD', FORM='UNFORMATTED',READONLY) c TYPE 1 c1 FORMAT(3X,'ENTER THE NUMBER OF THE FIRST RECORD TO BE PRINTED ',$) c ACCEPT*,IREC1 c TYPE 2 c2 FORMAT(3X,'ENTER THE NUMBER OF THE LAST RECORD TO BE PRINTED ',$) c ACCEPT*,IREC2 DO 7 IREC=1,328 do 80 it=1,57 READ(9,END=9)((KAP(ip,it,istep),istep=1,12),ip=1,25) 80 continue 3 FORMAT(I5) DO 5 IT=1,57 DO 5 IP=1,25 WRITE(12,4)(KAP(IP,IT,ISTEP),ISTEP=1,12) 4 FORMAT(1X,12(I6,1X)) 5 CONTINUE 7 CONTINUE 9 CALL EXIT END