FUNCTION gen_monte_carlo_256, data_array, sd_array, seed
; For each of 256 elements of an array, call randomn and add
; it the element.
;
; Author:  Robert Kessel
;          Electro-Optics Technology Section
;          Code 8123
;          Naval Research Laboratory
;          Washington, D.C.  20375-5354
; email:   kessel@ncst.nrl.navy.mil
;
; This code was written for Bill Palya's and Don Walter's
; use at JSU.  However, anyone else who finds it useful
; should feel free to use it, rewrite it, or whatever else,
; save charging any money, goods or services from any other
; person for the code or use thereof.
; 10/17/03

monte_array = FLTARR(256)
FOR i=0,255 DO BEGIN
  monte_array[i] = data_array[i] + sd_array[i]*RANDOMN(seed)
ENDFOR

RETURN, monte_array
END