;;; These variables have to be defined for each burst series. 
 ;;; Cams(0) is used as 'master', and it is assumed that for each file
 ;;; in there, there is a pendant in the Cams(i) directory with the
 ;;; sequential number not further off than +/- 2
 ;;; Id defines the wavelength of the camera

 ;;; Naming conventions:
 ;;; Target-ch-12345-yyyymmdd-hhmmss.
 ;;; e.g., AR8704-gb-0000-19991020-081730.fits
 ;;;       AR8704-ca-2140-19991020-081730.fits
 ;;;       AR8704-ha+0250-19991020-081730.fits

base = 'AR0870'
position = {lat: -7.8, lon: 19.4, mu: 0.943}
fs = '-'
Cams = ['C1', 'C2', 'C3', 'C4', 'C5']
Id   = ['ca', 'gb', 'bc', 'rc', 'ha']
kvdl = [[0, 0, 0, 0, 1]]
 ;;; example for 2 Ca-positions with different extensions
;pext = [['1', '', '', '', '1'], ['', '', '', '', '']]
;npmo = 2
 ;;; example for 'normal' use
pext = ['', '', '', '', '1']
npmo = 1
pmod = 0
lam = ['-0000', '-0000', '-0000', '-0000', '-scan']
; or with different lambda entries
;lam = [['-2350', '-0000', '-0000', '-0000', '-scan'], $
;       ['-0000', '-0000', '-0000', '-0000', '-0000']]

 ;;; Fucking Cams are not linear!  Try to compensate
gamm = [[.0, 0], [.0, 0], [.0, 0], [.0, 0], [.0, 0]]
 ;;; Decide if subimage tracking should be done
notrack = 0
 ;;; replace low-intensity parts (int lower than rli) with raw image part
rli = 0.1
 ;;; use drop-in-place for parts with rms lower than ldr
ldr = 0.04
 ;;; Setting this to 1 will cause the program to empty the original
 ;;; data file after successful reconstruction
empty_file = 0
 ;;; Filter the raw data against the electronic interference?
filt = [1, 1, 1, 1, 1]
;filt = [0,0,0,0]
conn_ord = 4
alwaysdrop = 0
 ;;; lockfile for stopping computations
stpf = 'STOP_COMPUTING'
busy = ['|', '/', '-', '\']
nb = 0
sl = string(byte([27, 91, 68]))
 ;;; Old FITS format?
oldfile = 0

 ;;; Define and fill the control structure

bname = 'Sunprobe_v2'
dpos = strlen(bname)+8
filreg = 'RAW/'+Cams(0)+'/'+bname+'-*'
files = findfile(filreg)
fdat = long(strmid(files, dpos, 10))
num = n_elements(fdat)
n_cams = n_elements(Cams)
ntot = num*n_cams

db = 0   ;;; bursts already done - for correct counting in logfile

start = 0

wait_before_start = 1

restart_cond = 0