pro insert, array_out, array_in, ist1, ist2, ist3
;
;
case n_params(0) of 
    3: array_out(ist1) = array_in
    4: array_out(ist1,ist2) = array_in
    5: array_out(ist1,ist3) = array_in
endcase
;
end