fuv_read_epoch.pro (Documentation for /home/davin/idl/socware/)

;
FUNCTION fuv_trim3,x 
  RETURN,STRTRIM(STRING(x,FORMAT='(I3.3)'),2)
END
;
FUNCTION fuv_trim2,x 
  RETURN,STRTRIM(STRING(x,FORMAT='(I2.2)'),2)
END
;
;+-------------------------------------------------------------------------
; NAME: FUV_READ_EPOCH
; PURPOSE: 
;       Convert a string into a string array given a delimiting character 
; CALLING SEQUENCE:
;       fuv_read_epoch,epoch,year,month,day,hour,minute,second,millisecond, $
;              ut,doy,file_stub=file_stub
; INPUTS:
;       epoch - value is the number of milliseconds since 01-Jan-0000 00:00:00.000
; KEYWORD PARAMETERS:
;       file_stub - I have no idea what this is for. RCJ
; OUTPUTS:
;       year, month, day, hour, minute, second, millisecond corresponding to the epoch
;	ut - hours (decimal format) of the day
;	doy - day of year
; AUTHOR:
;       Rick Burley 
; MODIFICATION HISTORY:
;       RCJ 03/2001 - Added the functions fuv_trim2 and 3 to this routine. 
;
;Copyright 1996-2013 United States Government as represented by the 
;Administrator of the National Aeronautics and Space Administration. 
;All Rights Reserved.
;
;------------------------------------------------------------------

PRO fuv_read_epoch,epoch,year,month,day,hour,minute,second,millisecond $
              ,ut,doy,file_stub=file_stub

   CDF_EPOCH,epoch,year,month,day,hour,minute $
            ,second,millisecond,/BREAKDOWN_EPOCH

   ut=hour + minute/60. +second/3600. + millisecond/(3600.*1000)
   doy=get_doy(day,month,year)
   file_stub=fuv_trim3(doy)+'_'+fuv_trim2(hour)+fuv_trim2(minute)+fuv_trim2(second)

END