Pro batch_photon,dirlist, outps=outps, skipline=skipline ; NAME: ; pro batch_photon.pro ; ; PURPOSE: ; This program is a batch procedure for photon.pro ; ; CALLING SEQUENCE: ; batch_photon,dirlist [,/outps [,skipline]] ; ; INPUTS: ; dirlist file name for file containing list of input directories ; outps switch to turn on PostScript output ; ; KEYWORD PARAMETERS: ; outps - Write postscript output ; skipline number of lines to skip when reading input directory list, defaults to 0 ; ; EXAMPLE ; Run batch_photon to reduce results from several latent experiments. Make PostScript output ; batch_photon, filelist, /outps ; ; REFERENCE: ; ; ; MODIFICATION HISTORY: ; Written by: E. Morse, IDTL, April 9, 2003 ; ;- ; Set directory string according to handle UNIX and Windows if (!version.os_family eq 'unix') then begin slashstring='/' endif else begin slashstring='\' endelse ; Set default file list if (not (keyword_set(dirlist))) then dirlist='batch_photon_dirlist.txt' ; Set defaults if (not keyword_set(outps)) then outps = 0 ; Default does not write PostScript if (not keyword_set(skipline)) then skipline=0 ; read in list of directories readcol, dirlist, datadirs, r0, r1, r2, r3, sa, ma, format='(A,I,I,I,I,I,I)', skipline=skipline ; process data in each directory for i=0,n_elements(datadirs)-1 do begin ; add a slash to the directory names if the last character is not one. if (strlen(datadirs(i)) ne strpos(datadirs(i),slashstring,/reverse_search)+1) then datadirs(i)=datadirs(i)+slashstring print,'Processing data in directory '+datadirs(i) ;call darkcurrent_reduce--the directory list also contains the input parameters to use photon, datadirs[i], snr_min=1e-8, region=[r0[i], r1[i], r2[i], r3[i]], outdir=datadirs[i]+'Results', sa_refcor=sa[i], $ ma_refcor=ma[i], /outps endfor End