C *** CONVER - CONVERTS ALFRED BINARY FILES TO TRANSPORTABLE FORMAT C * BYTE KFILE(20),KDAT(17) DIMENSION DATA(10), IDATAL(10), IDATAH(10), KTITL(40) C * 1000 WRITE(7,1010) 1010 FORMAT(/'$ENTER INPUT FILE NAME:') READ(5,1020) KFILE 1020 FORMAT(20A1) OPEN(UNIT=10,NAME=KFILE,TYPE='OLD',FORM='UNFORMATTED') WRITE(7,1030) 1030 FORMAT(/'$ENTER OUTPUT FILE NAME:') READ(5,1020) KFILE OPEN(UNIT=20,NAME=KFILE,TYPE='UNKNOWN',FORM='FORMATTED', 1CARRIAGECONTROL='LIST') C * C * READ THE TITLE READ(10) KTITL WRITE(7,2010) KTITL 2010 FORMAT(X,40A2) WRITE(20,2105) KTITL 2105 FORMAT(40A2) C * C * READ THE DATE/TIME READ(10) KDAT WRITE(20,2107) KDAT 2107 FORMAT(17A1) WRITE(7,2109) KDAT 2109 FORMAT(X,17A1) C * C * READ THE FILE PARAMETERS READ(10) (DATA(I),I=1,4) WRITE(20,2106) (DATA(I),I=1,4) 2106 FORMAT(4F10.4) CTIME = DATA(4) WRITE(7,2108) (DATA(I),I=1,4) 2108 FORMAT(X,4F10.4) C * C * READ THE DATA 2050 READ(10,END=3000) DATA DO 2055 I=1,10 COUNTS = AINT( CTIME * DATA(I) + 0.5 ) CD1000 = AINT( COUNTS / 1000. ) IDATAH(I) = INT( CD1000 ) IDATAL(I) = INT( COUNTS - CD1000*1000. ) 2055 CONTINUE WRITE(20,2060) ( IDATAH(JT),IDATAL(JT), JT=1,10 ) 2060 FORMAT(10(I2,I3)) D WRITE(7,9876) DATA,(IDATAH(JT),IDATAL(JT),JT=1,10) D9876 FORMAT(' ',10(F8.1),/,' ',10(I2,I3)) GO TO 2050 C * 3000 CLOSE(UNIT=10) CLOSE(UNIT=20) END