	PROGRAM MAKEHOURLY
C
C	TO COMBINE TWO FILES WITH DIFFERENT TIME SCALES
C
	REAL*8 SCETT
	character*79 junk
	INTEGER*4 YYYY,HR
C
	OPEN(UNIT=44,FILE='DATA_A:[KELLOGG]WI_MFI_199906.1HR',STATUS='OLD',
     1		READONLY)
 1001	FORMAT(A)
	DO N = 1,97
C	DO N = 1,98
	  READ(44,1001) JUNK
	ENDDO
C	PRINT 1001, JUNK
C
	OPEN(UNIT=46,FILE='DATA_A:[KELLOGG]WI_3DP_199906.DAT',STATUS='OLD',
     1		READONLY)
	DO N = 1,74
	  READ(46,1001) JUNK
	ENDDO
	PRINT 1001, JUNK
	if(1) stop
C
 100	CONTINUE
	READ(44,1077,ERR=100,END=300) MDAY,MO,YYYY,HR,MIN,SEC,BMAG,RRE
 1077	  FORMAT(1X,I2,1X,I2,1X,I4,I3,1X,I2,1X,F6.3,3F17.5)
	  SCETT = 3600.D00*HR + 60.D00*MIN + SEC
	PRINT 1077,MDAY,MO,YYYY,HR,MIN,SEC,BMAG,RRE
	PRINT*,'44 SEC OF DAY',SCETT
	READ(46,1077,ERR=100,END=300) MDAY,MO,YYYY,HR,MIN,SEC,TE,DENS
     1		,TI,VX,VY,VZ
	  SCETT = 3600.D00*HR + 60.D00*MIN + SEC
	PRINT 1077,MDAY,MO,YYYY,HR,MIN,SEC,TE,DENS,TI,VX,VY,VZ
	PRINT*,'46 SEC OF DAY',SCETT
 300	CONTINUE
	STOP
	END
