c generates a file of request times for Hawkeye data
	print *,'start time in format: yydddhr'
	print *,' (e.g., 7418412 for 1974 day 184 1200 UT)'
	read(*,'(i2,i3,i2)')iyr0,idoy0,ihr0	
	print *,'stop time in format: yydddhr'
	read(*,'(i2,i3,i2)')iyr1,idoy1,ihr1	

	open(unit=50,file='data.req', form = 'formatted',status='new')
	print*,' The output file is data.req'
        ldoy=0
        if (iyr0 .ne. iyr1)then 
           ldoy=365
           if(iyr0 .eq. 76)ldoy=366
        endif
        idoy1=idoy1+ldoy        
        
	n = (idoy1-idoy0)*24 + ihr1 - ihr0 + 1
	do i = 1,n
	   ihr = ihr0 + (i-1)
	   idoy = idoy0 + ihr/24
	   ihr = mod(ihr,24)
           iyr = iyr0 
           if( ldoy .ne. 0 ) then !correct for year boundary
               iyr=iyr+idoy/(ldoy+1)
               idoy=idoy-(idoy/(ldoy+1))*ldoy
           endif
	   write(50,'(x,i2.2,i3.3,i2.2)')iyr,idoy,ihr
	enddo
	end