function gt_day, item0, header=header, string=string, spaces=spaces, $ leadzero=leadzero, lower=lower, longmonth=longmonth, $ fits=fits, y2k=y2k ; ; header = ' Date ' ;9 characters mon_arr = ['??', 'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'] if (keyword_set(lower)) then mon_arr = ['??', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'] if (keyword_set(longmonth)) then mon_arr = ['??', 'January', 'February', 'March', 'April', 'May', 'June', 'July', $ 'August', 'September', 'October', 'November', 'December'] ; if keyword_set(y2k) then yearfmt = "i4.4)" else yearfmt = "i2.2)" fmt = "(i2, '-', a, '-', " + yearfmt if (keyword_set(leadzero)) then fmt = "(i2.2, '-', a, '-', " + yearfmt if (keyword_set(fits)) then fmt = "(i2.2, '/', i2.2, '/', i2.2)" ; if (n_elements(item0) eq 0) then begin message, 'Input variable ITEM not defined', /info tbeep, 5 return, 0 end else begin item = item0 end ; siz = size(item) typ = siz( siz(0)+1 ) if (typ eq 7) then item = anytim2ints(item) ; siz = size(item) typ = siz( siz(0)+1 ) if (typ eq 8) then begin tags = tag_names(item) if (tags(0) eq 'GEN') then out = item.gen.day $ else out = item.day qstruct = 1 end else begin out = item ;save in case the /string option was not used qstruct = 0 end ; if (keyword_set(string) or keyword_set(spaces)) then begin if (not qstruct) then tarr = item else $ ;they passed in the 7-element time array int2ex, intarr(n_elements(out))+1, [out], tarr ;do not want to mess with "time" so convert to "external" ;have to change out to an array because of trouble with int2ex ; siz = size(tarr) if ((not qstruct) and ((siz(1) eq 1) or (siz(0) eq 0))) then begin int2ex, intarr(n_elements(out))+1, [out], tarr siz = size(tarr) end n = 1 if (siz(0) eq 2) then n = siz(2) out = strarr(n) ;for i=0,n-1 do out(i) = string(tarr(4,i), mon_arr(tarr(5,i)), tarr(6,i), format=fmt) year = tarr(6,*) if (not keyword_set(y2k)) or keyword_set(fits) then year = year mod 100 if (keyword_set(fits)) then begin ;DD/MM/YY for i=0L,n-1 do out(i) = string(tarr(4,i), tarr(5,i), year(i), format=fmt) ;MDM 27-May-93 end else begin for i=0L,n-1 do out(i) = string(tarr(4,i), mon_arr(tarr(5,i)), year(i), format=fmt) ;MDM 27-May-93 end ; if (keyword_set(spaces)) then begin sp = string(replicate(32b, spaces)) out = sp + out header = sp + header end if (n eq 1) then out=out(0) ;change to a scalar end ; return, out end