function rsl_get_date_time_from_radar,radar
;
; *** Function accepts a radar structure and returns a structure
; *** with the date and time as strings.
;
    year   = string(radar.h.year,format='(I4.4)')
    month  = string(radar.h.month,format='(I2.2)')
    day    = string(radar.h.day,format='(I2.2)')
    hour   = string(radar.h.hour,format='(I2.2)')
    minute = string(radar.h.minute,format='(I2.2)')
    second = string(radar.h.sec,format='(I2.2)')

    date_str = {year: year, month: month, day: day, $
                hour: hour, minute: minute, second: second}


    name_str = year + '_' + month + day + '_' + hour + minute
    text_str = month + '/' + day + '/' + year + ' ' + hour + ':' + minute

    date_str = {year: year, month: month, day: day, $
                hour: hour, minute: minute, second: second, $
                name_str: name_str, text_str: text_str}

    return,date_str
    end