PRO shandle,mimage,mhead,hindex

@wload.com
@chandle.com

    image = mimage
    head = mhead
    h = LASCO_FITSHDR2STRUCT(head)

    ;IF N_ELEMENTS( h_array ) LE 0 THEN RETURN
    ;hindex = hindex < N_ELEMENTS( h_array ) > 0

    HANDLE_VALUE,h_array(hindex),image,/SET
    ;HANDLE_VALUE,h_name(hindex),name
    HANDLE_VALUE,h_head(hindex),head,/SET
    HANDLE_VALUE,h_hs(hindex),h,/SET
    ;HANDLE_VALUE,h_small(hindex),a3
    ;sz = size(image)

RETURN
END