; ;Copyright 1996-2013 United States Government as represented by the ;Administrator of the National Aeronautics and Space Administration. ;All Rights Reserved. ; This software may be used, copied, or redistributed as long as it is not ; sold and this copyright notice is reproduced on each copy made. This ; routine is provided as is without any express or implied warranties ; whatsoever. ; function cmb_isodate2cdate, isodate, yr, mo, day, hr, min, sec ;example of isodate is isodate='2007-01-10T02:00:00.0Z' ; dattim = strsplit(isodate,'T',/extract) ; yrmoda = strsplit(dattim(0),'-',/extract) ; yr = long(yrmoda(0)) ; mo = long(yrmoda(1)) ; day = long(yrmoda(2)) ; hrminsec = strsplit(dattim(1),' ,/,:TZ-',/extract) ; hr = long(hrminsec(0)) ; min = long(hrminsec(1)) ; sec = float(hrminsec(2)) a = strsplit(/ext,isodate,' ,/,:TZ-') yr = long(a[0]) month = long(a[1]) dom = long(a[2]) hr = long(a[3]) minu = long(a[4]) sec = double(a[5]) isec = floor(sec) msec = 1000*(sec-isec) ; help,yr,month, dom,hr,minu,sec,isec,msec cdate ={year:yr, month:month, dom:dom, hour:hr, min:minu, sec:sec, msec:msec} jday = julday(month,dom,yr,hr,minu,sec) cdf_epoch,epoch, yr,month,dom, hr,minu,sec,/comp ;Result = CDF_PARSE_EPOCH(Epoch_string) ;Result = CDF_PARSE_EPOCH16(Epoch_string) ;Result = CDF_PARSE_TT2000(Epoch_string) return,{epoch:epoch,julday:jday, cdate:cdate} end