FUNCTION db_get_science_component_strings , sc


format='(A4,A-28,A3,A-20)'
tag   = TAG_NAMES(sc)
out   = STRARR(40)

FOR i = 0, 14 DO BEGIN

    CASE SIZE(sc.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(sc.(i)) , 2)
        2    :  value = STRCOMPRESS(sc.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(sc.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(sc.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    sc.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE

    out[i] = STRING(format=format , '' ,tag[i] , ' = ' , value )

ENDFOR

; SLIT_SLOT       INT          Array[3]
slit_slot = STRCOMPRESS(STRJOIN(sc.(16),','),/REMOVE_ALL)
out[16] = STRING(format=format , '' ,tag[16] , ' = ' ,  slit_slot)

; STRUCT    = -> XRT_RESPONSE_PROPS Array[1]
out[17] = STRING(format='(A4,A-44)','',tag[17]+':')

f_xrt='(A8,A-24,A3,A-20)'
s_xrt = sc.(17)
tag_xrt=TAG_NAMES(s_xrt)

FOR i = 0, 6 DO BEGIN

    CASE SIZE(s_xrt.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(s_xrt.(i)) , 2)
        2    :  value = STRCOMPRESS(s_xrt.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(s_xrt.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(s_xrt.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    s_xrt.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE

    out[i+18] = STRING(format=f_xrt , '' ,tag_xrt[i] , ' = ' , value )

ENDFOR

;
; STRUCT    = -> EIS_FLARE_RESPONSE_PROPS Array[1]
;
out[25] = STRING(format='(A4,A-44)','',tag[18]+':')

f_eis_f='(A8,A-24,A3,A-20)'
s_eis_f = sc.(18)
t_eis_f=TAG_NAMES(s_eis_f)

FOR i = 0, 4 DO BEGIN

    CASE SIZE(s_eis_f.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(s_eis_f.(i)) , 2)
        2    :  value = STRCOMPRESS(s_eis_f.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(s_eis_f.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(s_eis_f.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    s_eis_f.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE

    out[i+26] = STRING(format=f_xrt , '' ,t_eis_f[i] , ' = ' , value )

ENDFOR

;
; STRUCT    = -> EIS_EVENT_RESPONSE_PROPS Array[1]
;
out[31] = STRING(format='(A4,A-44)','',tag[19]+':')

f_eis_e='(A8,A-24,A3,A-20)'
s_eis_e = sc.(19)
t_eis_e=TAG_NAMES(s_eis_e)

FOR i = 0, 4 DO BEGIN

    CASE SIZE(s_eis_e.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(s_eis_e.(i)) , 2)
        2    :  value = STRCOMPRESS(s_eis_e.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(s_eis_e.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(s_eis_e.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    s_eis_e.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE

    out[i+32] = STRING(format=f_xrt , '' ,t_eis_e[i] , ' = ' , value )

ENDFOR

;
; STRUCT    = -> AEC_RESPONSE_PROPS Array[1]
;
out[37] = STRING(format='(A4,A-44)','',tag[20]+':')

f_aec_e='(A8,A-24,A3,A-20)'
s_aec_e = sc.(20)
t_aec_e=TAG_NAMES(s_aec_e)

FOR i = 0, 0 DO BEGIN

    CASE SIZE(s_aec_e.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(s_aec_e.(i)) , 2)
        2    :  value = STRCOMPRESS(s_aec_e.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(s_aec_e.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(s_aec_e.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    s_aec_e.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE

    out[i+38] = STRING(format=f_xrt , '' ,t_aec_e[i] , ' = ' , value )

ENDFOR
stop



RETURN , out

END