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