C+ C NAME: C smei_hdr_time C PURPOSE: C Extract time from SMEI frame header C CALLING SEQUENCE: subroutine smei_hdr_time(hdr,time) C INPUTS: C hdr(*) double precision SMEI frame header C OUTPUTS: C time(2) integer frame time C INCLUDE: include 'smei_frm_hdr.h' C CALLS: C Time2HMS, Time2YDoy C PROCEDURE: C MODIFICATION HISTORY: C DEC-2004, Paul Hick (UCSD/CASS; pphick@ucsd.edu) C- double precision hdr(*) integer time(2) time(1) = nint( hdr(SMEI__HDR_TIME ) ) time(2) = nint( hdr(SMEI__HDR_TIME+1) ) return end